Тебе типа этого надо?
Code
Graphics3D 800,600,32,2
SetBuffer BackBuffer ()
cam=CreateCamera ()
light=CreateLight ()
cub=CreateCube ()
pl=CreatePlane ()
EntityPickMode pl,2
EntityColor pl,10,10,200
PositionEntity cam,0,30,0
TurnEntity cam,90,0,0
While Not KeyHit(1)
If MouseHit(1)=True Then CameraPick(cam,MouseX(),MouseY())
PositionEntity cub,CurveValue(EntityX(cub),PickedX(),3),0, CurveValue(EntityZ(cub),PickedZ(),3)
RenderWorld ()
Text 10,10,"ClickMouse,to move cubik"
Flip
Wend
End
Function CurveValue#(current#,destination#,curve)
current#=current#+((destination#-current#)/curve)
Return current#
End Function
