Sorry your browser is not supported!

hide mouse : sync on : sync rate 0 : create bitmap 1,50,50 : ink rgb(0,0,0),0 : box 0,0,49,49 : ink rgb(192,192,192),0 : box 12,18,37,46 : ink rgb(100,100,100),0 : box 6,29,43,39 : ink rgb(128,128,255),0 : box 22,21,27,28
randomize timer() : ink rgb(255,0,0),0 : line 12,47,37,47 : line 12,49,37,49 : ink rgb(255,255,0),0 : line 12,48,37,48 : get image 1,0,0,49,49 : delete bitmap 1
create bitmap 2,50,50 : set current bitmap 2 : ink rgb(0,0,0),0 : box 0,0,49,49 : ink rgb(255,0,0),0 : line 0,0,12,15 : line 49,0,36,17 : line 0,0,16,11 : line 49,0,34,12
for circly=1 to 19 : circle 25,25,circly : next circly : ink rgb(255,255,255),rgb(255,255,255) : dot 18,14 : dot 18,15 : dot 19,15 : dot 18,16 : dot 19,16 : dot 20,16 : box 22,30,26,35
dot 30,14 : dot 29,15 : dot 30,15 : dot 28,16 : dot 29,16 : dot 40,16 : box 18,17,21,20 : box 27,17,30,20 : ink rgb(170,0,0),0 : box 19,19,20,20 : box 28,19,29,20
get image 2,0,0,49,49 : delete bitmap 2 : for lina=0 to 213 : ink rgb(int(120-(100*sin(lina+310))),0,0),0 : line lina,0,lina,240 : next lina : get image 3,0,0,213,240 : cls
backdrop on : texture backdrop 3 : make object plain 1,50,50 : texture object 1,1 : set object 1,1,0,0,0 : set current bitmap 0
level=1 : c=0 : autocam off : position camera 0,0,-90 : for a=200 to 206 : make object plain a,50,50 : xrotate object 1,90 : set object a,1,0,0,0 : texture object a,2 : position object a,0,0,rnd(200)+300: next a
make object cube 1000,50 : color object 1000,rgb(0,0,255) : set global collision on : o_tome=timer() : ink rgb(255,255,255),0 : do : tome=(timer()-o_tome)/1000 : inc c
position object 1,object position x(1)+mousemovex(),object position y(1)-mousemovey(),0
if mouseclick()=1 and object exist(100)=0 then make object cone 100,4 : xrotate object 100,90 : position object 100,object position x(1),object position y(1),object position z(1)+20 : color object 100,rgb(0,255,0)
if object exist(100)=1 : yrotate object 100,wrapvalue(object angle y(100)+7) : a=object collision(100,0) : position object 100,object position x(100),object position y(100),object position z(100)+12 : if a>1 : kills=kills+object position z(a)
delete object a : inc kills_t : endif : if object position z(100)>510 : delete object 100 : endif : endif : text 5,10,"Score: "+str$(kills) : text 5,25,"Time: "+str$(tome)
for z=700 to 706 : if object exist(z)=0 and object exist(z-500)=1 : make object cone z,13 : xrotate object z,270 : color object z,rgb(255,128,0) : position object z,object position x(z-500),object position y(z-500),object position z(z-500)
else : if object exist(z)=1 and object exist(z-500)=1 : position object z,object position x(z),object position y(z),object position z(z)-12 : endif : endif : if object exist(z)=1 : if object position z(z)<-1000 : delete object z
position object z-500,300-rnd(600),300-rnd(600),500-rnd(100): endif : endif
next z : for del=700 to 706 : if object exist(del-500)=0 and object exist(del)=1 : delete object del : endif : next del : position object 1000,object position x(1),object position y(1),object position z(1)
position object 1000,object position x(1),object position y(1),570 : if kills_t=7 : cls : for a=1 to 100 : center text 320,228,"YOU WON - SCORE: "+str$(int((kills*10)/tome)) : sync : next a
wait 1000 : end : endif : sync : loop