Err... it seems there's been a little problem when I compressed the code. I don't know why, but you can't use the command "as" with something else on the line Oo
Hmm... here's the unbugged version :
set display mode 1024, 768, 32 : sync on : sync rate 40 : backdrop on : color backdrop 0
create bitmap 1, 102, 102 : set current bitmap 1 : for t=1 to 100 : x = rnd(100) : y = rnd(100)
c = rnd(155)+100 : ink rgb(c,c,c),0 : box x,y,x+rnd(10),y+rnd(10) : next t : for t=1 to 10
blur bitmap 1, 5 : next t : get image 1, 0, 0, 100, 100 : make matrix 1, 1000, 1000, 100, 100 : prepare matrix texture 1, 1, 100, 100
for x=0 to 100 : for z=0 to 100 : if x<100 and z<100 : tile = (99-z)*(100)+x+1 : set matrix tile 1, x, z, tile
endif : set matrix height 1, x, 100-z, rgbr(point(x,z)) : next z : next x : update matrix 1
set current bitmap 0 : for t=1 to 100 : make object cube t, 10 : position object t, rnd(1000),800+rnd(400),rnd(1000) : set object collision to boxes t
next t : make object cube 1000, 12 : set object collision to boxes 1000 : cx as float = 500.0
cy as float
cz as float = 500.0
radius as float = 500.0
do : set cursor 0,0 : print "Score : ",score
for t=1 to 100 : position object t, object position x(t), object position y(t)-2, object position z(t) : if object position y(t)+5<get ground height(1, object position x(t),object position z(t)) : position object t, camera position x()-radius+rnd(2*radius),camera position y()+50+radius+rnd(500),camera position z()-radius+rnd(2*radius) : inc score
if radius > 50 : dec radius,0.75 : endif : endif : next t
cx = cx + cos(camera angle y())*0.5*(upkey()-downkey()) + sin(-camera angle y())*(rightkey()-leftkey()) : cz = cz + sin(camera angle y())*0.5*(upkey()-downkey()) + cos(camera angle y())*(rightkey()-leftkey()) : position camera cx, cy, cz : xrotate camera wrapvalue(camera angle x()+mousemovex()) : yrotate camera wrapvalue(camera angle y()+mousemovey())
position camera cx, 5+get ground height(1, cx, cz), cz : position object 1000, cx, camera position y(), cz : sync : if object collision(1000,0)>0 : exit
endif : loop : do : set cursor 0,0 : print "You've been hit by the cube number ",object collision(1000,0),". You lost."
print "Your score is ",score,". Press [escape] to quit." : sync : loop
The sleeper must awaken !