That doesnt seem to be working
Dim Shape(numnpcs#)
Dim Colour(numnpcs#)
Dim Alle(numnpcs#)
Dim Life(numnpcs#)
Dim Ar(numnpcs#)
Dim placex(numnpcs#)
Dim placez(numnpcs#)
for x = 1 to numnpcs#
Print "Npc Number "; x
Print "Shape:"
Print "1 = Cube, 2 = Sphere, 3 = Cone"
Input Shape
Shape(x) = shape
print
Print "Colour:"
Print "1 = Red, 2 = Green, 3 = Blue, 4 = Black, 5 = White, 6 = Purple, 7 = Yellow"
Input Colour
Colour(x) = colour
print
print "Allegiance:"
Print "1 = Hostile, 2 = Friendly"
input Alle
Alle(x) = Alle
print
print "Life"
print "Recommended = 25"
input Life
Life(x) = Life
print
print "Attack Rating"
Print "Recommended = 10"
input Ar
ar(x) = ar
print
print "Location of NPC (X axis)"
print "0 to ";msize
input placex
placex(x) = placex
print
print "Location of NPC (Z axis)"
print "0 to ";msize
input placez
placez(x) = placez
print
next x
It starts to repeat the line before after almost 1 loop