I could use some help here.
I expanded the SkyRoads entry, the expanded code works fine. However when I compress it I get this:
Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255):set object collision to boxes 1:set object collision to boxes 2:Dim position(2) as integer
position(1)=1:position(2)=1:Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On
Sync rate 30:Randomize timer():While position(2)<100:position(2)=position(2)+rnd(1):position(1)=position(1)+rnd(2)-1
Make object cube cubes + 2,200:Position object cubes + 2,(200 * position(1)) - 100,-99,(200 * position(2)) - 100:Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do:If upkey()=1 then speed# = speed# + 0.1:If downkey()=1 then speed# = speed# - 0.03:If leftkey()=1 then Yrotate object 1,object angle Y(1) - 5:If rightkey()=1 then Yrotate object 1,object angle Y(1) + 5
Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#):Position camera newxvalue(object position X(1),object angle Y(1)-180,200),300,newzvalue(object position Z(1),object angle Y(1)-180,200):point camera object position X(1),200,object position Z(1):If object collision(1,0)=0:Print "Game Over. Final Score - ",object position Z(1)," Final time - ",time
sync:wait key:exit:endif:loops = loops + 1
If loops = 30 then time = time + 1:loops = 0:Print "score - ",object position Z(1)," time - ",time:Sync:Loop
Can anyone help me work out why the above code does not work?
Current Project: Retro Compo. Entry.