sync on : sync rate 60
make object plain 1,300,300
position object 1,0,-50,0
xrotate object 1,270
make object cube 2,100
set shadow shading on 2
set point light 0,-100,500,-100
position camera -200,0,-200
point camera 0,0,0
x#=0:y#=0:z#=0
do
set cursor 0,0
if mouseclick()=0 then pickmode=0
if mouseclick()>0
if pick object(mousex(),mousey(),2,2)>0
if pickmode=0
d#=get pick distance()
x#=get pick vector x():y#=get pick vector y():z#=get pick vector z()
print "object x ",x#," object y ",y#," object z ",z#," distance ",d#
inc pickmode
endif
endif
if pickmode=1
pick screen mousex(),mousey(),d#
dx#=x#-get pick vector x():dy#=y#+get pick vector y():dz#=z#-get pick vector z()
print dx#," ",dy#," ",dz#
endif
position object 2,dz#,dy#,dx#
endif
print dx#," ",dy#," ",dz#
print "CLICK AND HOLD OBJECT TO DRAG"
sync
loop
end
This might not be totally what your after, but could be useful.
"Son, I crap bigger then you !"
