Ganociy вот те древний пример, надеюсь разберешься)
Graphics 640,480,16,2
SetBuffer BackBuffer ()
Local x#,y#,dx#,dy#,mx#,my#,x1#,y1#
Repeat
mx=MouseX()
my=MouseY()
x=x+(mx-x1)/22
y=y+(my-y1)/22
x1=x/2+x1
y1=y/2+y1
x=x*.8
y=y*.8
Rect x1,y1,6,6
Flip:Cls:If KeyDown(1) End
Forever