`*****initialize program*****
`sync on
randomize timer
hide mouse
load object "faki.X",1
load object "ast4.X",4
scale object 1,20,20,20
`set object 1,0,1,1
load image "space.jpg",1
point object 1,0.0,90.0,0.0
position object 1,0,0,0
autocam off
position camera screen width()/2,screen height()/2,-350
make object cube 2,-4000
texture object 2,1
position object 2,screen width()/2,screen height()/2,-500
`***asteroids***
gosub _asteroids
`sync on
`***main loop***
repeat
fl=fl+1
count=299
comet=count+fl
`for prr=1 to 300
move object comet,110.7 : `sync
x=mousex()
y=mousey()
position object 1,x,y,0
if mouseclick()=1 then gosub _bullet
if comet=>400 then fl=0 and comet=0
`next prr
until mouseclick()=2
`***gosubs***
_bullet:
make object sphere 3,10
for s=30 to 1000
position object 3,x,y,s
next s
delete object 3
return
_asteroids:
for o=300 to 400
posa=rnd(screen width())
posb=rnd(screen height())
clone object 4,o
scale object o,20,20,20
position object o,posa+20,posb+20,1000
point object o,posa+20,posb+20,-1000
next o
return
when i run this it gets me to this program needs to close etc etc why???
also in clone object in the online help it says CLONE OBJECT Source Object, Object Number
but on the interface help (down) it says object number,source object which one is right....
is there also a way to make these asteroids run smoother...?
thanks in advance
paris giallousis
kos isl. greece
