use an array and it also helps to manage media numbers by storing it in a name(int).NUM
sync on
sync rate 0
set text size 20
set text font "verdana"
ink rgb(255,255,255),1
TYPE Monster
NUM AS INTEGER
NAME AS STRING
HPS AS INTEGER
x# as FLOAT
y# as FLOAT
z# as FLOAT
ENDTYPE
dim Monster(1) as Monster
Monster(1).NUM=1
Monster(1).NAME="BugBear"
Monster(1).HPS=35
Monster(1).x#=0.0
Monster(1).y#=0.0
Monster(1).z#=0.0
make object cube Monster(1).NUM,10
position object Monster(1).NUM,Monster(1).x#,Monster(1).y#,Monster(1).z#
position camera 0,30,-60
point camera 0,0,0
do
center text object screen x(1),object screen y(1),""+Monster(1).NAME
if escapekey()=1
delete object Monster(1).NUM
undim Monster(1)
end
endif
sync
loop