что-то типа етого:
Graphics 640,480,16,2
SetBuffer BackBuffer()
While Not KeyDown(1)
Cls
mx=MouseXSpeed()
my=MouseYSpeed()
d#=Dist(mx,my,0,0)
If d>0
dx=mx/d*100
dy=my/d*100
Line 320,240,320+dx,240+dy
EndIf
Flip
Wend
заместо Line 320,240,320+dx,240+dy , тебе надо будет писать вращение камеры. 100 - это модуль вектора.