3Dマウス、作ってみました。地面となるオブジェクトに高低差を設ける場合はintersect objectコマンドを使えば
簡単に実現できるのではないでしょうか。マウスクリックで移動、矢印キーでカメラの移動＆パンです。
sync on:sync rate 60
make camera 1
set current camera 1
color backdrop 1,0
make object box 1,1000,1,1000
make object sphere 2,30:color object 2,rgb(255,0,0)
make object sphere 3,30:position object 3,0,1,0:scale object 3,100,3,100:color object 3,rgb(0,0,255)
position camera 0,150,-300:position object 2,0,15,0
do
fps$="3D mouse Example Fps: "+str$(screen fps())
text screen width()-20-text width(fps$),screen height()-40,fps$
text 0,20,mes$
if mouseclick()
flag=pick object (mousex(),mousey(),1,1)
mx=get pick vector x():my=get pick vector y():mz=get pick vector z()
mes$="x;"+str$(mx)+"y;"+str$(my)+"z;"+str$(mz)
targetx=mx+camera position x(1)
targety=my+camera position y(1)
targetz=mz+camera position z(1)
position object 3,targetx,targety+1,targetz
endif
point object 2,targetx,targety+15,targetz
spd#=((abs(object position x(2)-object position x(3))+abs(object position z(2)-object position z(3))))
move object 2,spd#/50
control camera using arrowkeys 1,2,2
sync
loop