Hi Zipir...instead of making instances of your object, you could do clons of if :
autocam off
sync on
make object sphere 1,5
for i= 2 to 5
clone object i,1
position object i,-10+10*i,0,0
next i
position camera 20,0,-70
point camera 20,0,0
a#=1
do
set cursor 0,0:print "SELECT WITH MOUSE MOVE WITH UP/DOWN KEY"
if mouseclick()
for i= 1 to 5
color object i,rgb(255,255,255)
if pick object(mousex(),mousey(),i,i) then a#=i
next i
endif
if object exist (a#) then color object a#,rgb(255,0,0)
if upkey() then move object up a#,0.01
if downkey() then move object down a#,0.01
sync
loop
Here's another example that I used for my lathe tool program.
autocam off
sync on
screen=1000
make object plain screen,300,300
position object screen,0,0,2
color object 1000,rgb(0,255,0)
for i= 1 to 10
make object box i,4,4,1
position object i,rnd(30),i*10,0
next i
position camera 0,50,-150
point camera 0,0,0
do
ink rgb(255,255,255)
set cursor 5,20
print "a ",a
ink rgb(255,255,255),0 :set cursor 0,0:print "drag boxes with mouse "
ob=pick object (mousex(),mousey(),1,10)
if pick object(mousex(),mousey(),1,10) then a=ob
if leftkey() then move object left a,0.2
if ob>0 then set cursor mousex()+6,mousey():print ob
for i= 1 to 10
if pick object (mousex(),mousey(),i,i) = i and mouseclick() = 1 then position object i,nx#,ny#,0
next i
`chekeo para ver que vertice es seleccionado (por colision)
ink rgb(130,130,255),0
for i= 2 to 50
if object exist(i)
line object screen x(i),object screen y(i),object screen x(i-1),object screen y(i-1)
endif
next i
clicked=PICK OBJECT(mousex(),mousey(),screen,screen)
nx#=GET PICK VECTOR X()+camera position x()
ny#=GET PICK VECTOR Y()+camera position Y()
control camera using arrowkeys 0,2,0
sync
loop
Cheers.
I'm not a grumpy grandpa
