I'll test some code now.
Edit:
I got my old Space Drive game running.
sync on : sync rate 60 : set display mode 640,480,16 : backdrop on : color backdrop rgb(0,0,0) : dim score(0) : score(0)=0 : dim time(0) : time(0)=3000 : dim shield(0) : shield(0)=100
make object cone 1,20 : set object collision to polygons 1 : color object 1,RGB(100,50,200) : make object cube 2,10 : scale object 2,1500,10,10 : set object collision to polygons 2 : position object 2,0,-10,0 : hide object 2
create bitmap 1,512,512: for x = 1 to 1000: dot rnd(512),rnd(512): next x: get image 2,0,0,512,512: delete bitmap 1: make object plain 4,200, 130: position object 4,0,45,0 : texture object 4,2
make object sphere 3,10 : xrotate object 3,90 : position object 3,-70,100,0 : set object collision to polygons 3 : scale object 3,100,100,200 : color object 3,RGB(225,225,0) : position camera 0,80,-100 : do
move object 3,5 : ink RGB(0,0,255),0 : set cursor 10,0 : print "SCORE=",score(0) : set cursor 105,0 : print "TIME LEFT=",time(0) : time(0)=time(0)-1 : set cursor 235,0 : print "SHIELD=",shield(0) : if time(0)=<0 then goto finish
if shield(0)=<0 then goto die else if score(0)=<0 then score(0)=0
if upkey()=1 then move object 3,2 : scroll object texture 4, 0,-.01 else if downkey()=1 then move object 3,-2 : scroll object texture 4, 0,+.005
if leftkey()=1 then yrotate object 1,270 : move object 1,6 else if rightkey()=1 then yrotate object 1,90 : move object 1,6
if object position y(3)=<-50 then position object 3,-90+rnd(180),150,0 : score(0)=score(0)+20 : scale object 3,150+rnd(100),100+rnd(100),200+rnd(100) : color object 3,RGB(50+rnd(175),50+rnd(175),50+rnd(175))
if object collision(3,1)>0=1 then score(0)=score(0)-50 : shield(0)=shield(0)-3 : set text size 60 : CENTER text 320,240,"COLLISION ALERT!!!"
if object collision(1,2)>0=0 then move object 1,-6 else ink RGB(0,255,0),0 : LINE OBJECT SCREEN x(1), OBJECT SCREEN y(1), OBJECT SCREEN x(3), OBJECT SCREEN y(3)
sync : scroll object texture 4, 0,-.01 : loop
finish:
fog on : fog distance 150 : fog color RGB(50,50,100) : set cursor 100,80 : print "WELL DONE! SCORE=",score(0) : set cursor 100,100 : print "Press escape to exit" : sync
goto finish
die:
fog on : fog distance 150 : fog color RGB(100,50,50) : set cursor 100,80 : print "CRAFT DESTROYED!" : set cursor 100,100 : print "Press escape to exit" : sync
goto die
You are not alone.
