[RBK]

Используй фантазию, на блице многое сделать можно.

Graphics3D 800, 600, 32, 0 
SetBuffer BackBuffer() 
HidePointer

Global cursor=LoadImage("cursor.png")
Global image=LoadImage("image.jpg")
Global x = 400
Global y = 300

action = 0

Repeat

If action
  If Not MouseDown( 1 ) 
    action=0
  Else
    x = x + MouseXSpeed()
    y = y + MouseYSpeed() 
  End If
Else
  If ImagesOverlap (cursor , MouseX(), MouseY(), image, x, y) And MouseDown(1) 
    action=1
    MouseXSpeed()
    MouseYSpeed() 
  End If
EndIf

Cls
DrawImage image, x, y
DrawImage cursor, MouseX(), MouseY()

Flip	
Until KeyHit(1)
End