actually i already know how to do that... i said ive been workin around. Heres a program except... it just shows up as a black screen and no matter how long i wait it doesnt send an error message.
sync on
sync rate 35
make object sphere 1,50
make matrix 2,100,100,10,10
position object 1,0,matrix position y(2)+10,0
dim enmy(10)
for e=3 to enmy
make object sphere e,10
color object E,RGB(255,100,50)
make object sphere e+10,1
position object e, rnd(100),0,rnd(100)
hide object e+10
next e
pointer=999
make object box pointer,10,10,20
dim state(enmy)
do
if upkey()=1 then move object 1,2
if downkey()=1 then move object 1,-2
if rightkey()=1 then turn object right 1,2
if leftkey()=1 then turn object left 1,2
if keystate(17)=1
make object sphere 500000,20
rotate object 500000,object angle x(pointer),object angle y(pointer),object angle z(pointer)
move object 500000,20
endif
if keystate(30)=1 then turn object left pointer,2
if keystate(32)=1 then turn object right pointer,2
if object angle y(pointer)>10
rotate object pointer,object angle x(pointer),10,object angle z(pointer)
endif
if object angle y(pointer)<-10
rotate object pointer,object angle x(pointer),10,object angle z(pointer)
endif
if object exist(500000)
xxx=object position x(500000)
yyy=object position y(500000)
zzz=object position z(500000)
endif
xx=object position x(1)
yy=object position y(1)
zz=object position z(1)
for e=3 to enmy
x=object position x(e)
y=object position y(e)
z=object position z(e)
pos=sqrt((x-xx)^2+(y-yy)^2+(z-zz)^2)
if object exist(500000)
pos2=sqrt((x-xxx)^2+(y-yyy)^2+(z-zzz)^2)
endif
if pos2<50
delete object e
delete object 500000
endif
position object e+10,x,y,z
point object e+10, xx-rnd(2)+rnd(2),yy,zz-rnd(2)+rnd(2)
if pos<300
state(e)=1
else
state(e)=2
endif
if state(e)=1
make object sphere e+20, 20
rotate object e+20,object angle x(e+10),object angle y(e+10),object angle z(e+10)
move object e+20,20
wait 10
endif
next e
loop
[/coed]
parrot