here we go, a little array helper
`the start label
start:
`clear the screen
cls
sync on
`set the screen refresh rate to 60
sync rate 60
`hide the mouse
hide mouse
`set the maximum amount of monsters "M"'s
max=99
`this is for storing the speed, xposition and yposition of all the monsters
dim speed(max)
dim xpos2(max)
dim ypos2(max)
`this randomizes the rnd() command so it's not the same every time
randomize timer()
`this loop will give the positions and speed of every monster
for t=0 to max
xpos2(t)=rnd(640)
ypos2(t)=rnd(480)
speed(t)=rnd(1)+2
next t
`these are all for the "O"
xpos=30
ypos=30
speed=4
mamount=1
`start the loop
do
`if you go off the screen then come back the other side
if xpos>640 then xpos=0
if xpos<0 then xpos=640
if ypos>480 then ypos=0
if ypos<0 then ypos=480
`clear the screen so you get no streaks
cls
`move the character with the arrow keys
if upkey()=1 then ypos=ypos-speed
if downkey()=1 then ypos=ypos+speed
if leftkey()=1 then xpos=xpos-speed
if rightkey()=1 then xpos=xpos+speed
`add in another monster after some time
if timer()>time
`amount of monsters to be shown
mamount=mamount+1
if mamount>max then mamount=max
`increase time by a second
time=timer()+1000
endif
for t=1 to mamount
`if a monster collides with you then start again
if sqrt((xpos-xpos2(t))^2+(ypos-ypos2(t))^2)<10
goto start
endif
`move the monsters closer to the "O"
if xpos<xpos2(t)
xpos2(t)=xpos2(t)-speed(t)
endif
if xpos>xpos2(t)
xpos2(t)=xpos2(t)+speed(t)
endif
if ypos<ypos2(t)
ypos2(t)=ypos2(t)-speed(t)
endif
if ypos>ypos2(t)
ypos2(t)=ypos2(t)+speed(t)
endif
`draw the monster
text xpos2(t),ypos2(t),"M"
`repeat with all the monsters
next t
`draw your character
text xpos,ypos,"O"
`refresh the screen
sync
loop
this should help, if there is anything you don't understand then just say
The happenings of tommorow are behind us now
