Вообщем не нашел.....Держы для начала.:
Graphics3D 1024,768,32,2
SetBuffer BackBuffer()
;stuff
cam=CreateCamera()
PositionEntity cam,0,2,-10
cube=CreateCube()
light=CreateLight()
plane=CreateCube()
ScaleEntity plane,30,1,30
MoveEntity plane,0,-2,0
EntityColor plane,155,0,0
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
While Not KeyHit(1)
PointEntity cam,cube
x=MouseX()
If x>GraphicsWidth()-350
MoveEntity cam,0.1,0,0
ElseIf x<GraphicsWidth()-700
MoveEntity cam,-0.1,0,0
EndIf
UpdateWorld
RenderWorld()
Text 10,10,""+MouseX()
Text 10,20,""+MouseY()
Flip
Wend
End
Черезжопно.....но именно так я и делаю на быструю руку.А сейчас извени меня ждет проэкт