I dont see the problem, but theres no need to make them constants anyways, and always use words that you'll remember, like this.
sync on
sync rate 60
type Entity
x as float
y as float
xspeed as integer
yspeed as integer
xDir as integer
yDir as integer
rotation as float
hp as integer
image as integer
weapon as integer
EntityType as integer `'type' is a registered keyword
endtype
global Player as entity
dim Enemy(5) as entity `Since I doubt you want just one enemy
dim World_Object(5) as entity `Also for allowing more than one
player.image = 0 `Try to use 0's as much as possible, it saves data
for b = 1 to 5
enemy(b).image = b
World_Object(b) = b + 5 `Adds 5 so the numbers dont conflict.
next b
do
if escapekey()=1 then exit
set cursor 0,0
print "this works"
sync
WAIT KEY
loop
end
Just a little basic help you'll need later on
