well a couple of things
your sel2 needs to have a setting
i changed around your code a bit but it works now
you just have to find your object with the mouses scroll
sync on
sync rate 0
autocam off
z=-50
position camera 0,10,z
t=1
make object box t,20,10,50
position object t,0,0,0
sel2=1
sel=1
do
if returnkey()=1
inc t
make object box t,20,10,50
position object t,0,0,0
sleep 200
endif
if upkey()=1 then move object sel,0.5
if downkey()=1 then move object sel,-0.5
if rightkey()=1 then move object right sel,0.5
if leftkey()=1 then move object left sel,0.5
if sel=>2
if inkey$()="q"
sel=sel-1
sel2=sel
endif
endif
if inkey$()="a"
sel=sel+1
sel2=sel
endif
if shiftkey()=1
an=wrapvalue(an+90)
rotate object sel,0,an,0
sleep 100
endif
z=mousez()/2
position camera 0,50,z
if object exist(sel)=1 then color object sel,rgb(0,255,0)
if sel<>sel2 and object exist(sel2)=1 then color object sel2,rgb(255,255,255)
sync
loop
i didn't get a chance to set your camera right but it should get ya started
My advice is free -
unfortunately you get what you pay for (-:
