sync on
autocam off
hide mouse
position camera 0,0,-500
make object cone 200,50
zrotate object 200,90
set object collision on 200
dim speed# (10)
dim size# (10)
for mjpet=1 to 10
size#(mjpet)=rnd (50000)/1000.0+5
speed#(mjpet)= rnd (75)/10.0+1
make object sphere mjpet,size#(mjpet)
position object mjpet,rnd(500)-250,rnd(500)-250,0
set object collision on mjpet
next mjpet
score=1000
do
scale object 200,100-g#,100-g#,100-g#
score =score-1
for mjpet=1 to 10
position object mjpet,object position x (mjpet)+ speed#(mjpet),object position y (mjpet),0
if object position x (mjpet) > 290 then position object (mjpet),-250,rnd(500)-250,0:show object mjpet
target = object collision (200,0)
if target=mjpet then hide object mjpet:score=score+3
next mjpet
print score
position object 200,325-y#,x#,0
if upkey()=1
x#=x#+3
endif
if downkey()=1
x#=x#-3
endif
if x#>240
x#=240
endif
if x#<-240
x#=-240
endif
if leftkey()=1
y#=y#+3
endif
if rightkey()=1
y#=y#-3
endif
if y#<0
y#=0
endif
if y#>670
y#=670
endif
if score<0
cls
text 0,0,"Game Over"
endif
if score>2000
g#=20
endif
if score>3000
g#=40
endif
if score>4000
g#=60
endif
if score>5000
g#=80
endif
if score<500
ink rgb(255,0,0),1
else
ink rgb(255,255,255),1
endif
sync
loop