sync on : sync rate 60
set text size 14 : set text font "verdana"

ink rgb(255,255,255),1

make matrix 1,100,100,10,10
position matrix 1,-50,0,-50


maxM = 10



TYPE Monster
NUM AS INTEGER
NAME AS STRING
HPS AS INTEGER
x# as FLOAT
y# as FLOAT
z# as FLOAT
ENDTYPE




dim Monster(maxM) as Monster



for i = 1 to maxM
Monster(i).NUM=i
Monster(i).NAME="orc "+STR$(i)
Monster(i).HPS= 4 + rnd(7)+1
Monster(i).x#=1.0*i
Monster(i).y#=0.0
Monster(i).z#=1.0*i
make object cube Monster(i).NUM,1
position object Monster(i).NUM,Monster(i).x#,Monster(i).y#,Monster(i).z#
color object i,rgb(rnd(255),rnd(255),rnd(255))
next i




position camera 0,25,-6
point camera 0,0,0




disable escapekey
while escapekey()=0


for i = 1 to maxM
D = rnd(2)

if D = 0
turn object left i,3
endif

if D = 1
turn object right i,3
endif

move object i,0.1
next i

point camera object position x(1),object position y(1), object position z(1)


DisplayInfo(maxM)


fastsync
endwhile

delete matrix 1


for i = 1 to maxM
delete object Monster(i).NUM
next i

undim Monster(maxM)

end



function DisplayInfo(maxM)
for i = 1 to maxM
center text object screen x(i),object screen y(i),""+Monster(i).NAME
center text object screen x(i),object screen y(i)+15,"hps:"+STR$(Monster(i).HPS)
next i
endfunction