Graphics 800,600,16,1
SetBuffer BackBuffer()
timer = CreateTimer(60)

;Bilder laden
Include "gfx.bb"
;Variablen
Global mx
Global my
Global fx = 200
Global fy = 200

               ;Hauptschleife
               Repeat
               mx = MouseX()
               my = MouseY()
               DrawImage figur,fx,fy
               
               DrawImage mouse,mx,my
               mausclick()
               WaitTimer(timer)
               Flip 0: Cls
               Until KeyHit(1)                  


Function mausclick()
If ImagesCollide(figur, fx,fy,0, mouse, mx,my,0) And MouseHit(1) Then
Rect fx,fy,20,32
EndIf
End Function

mouse = LoadImage("maus.bmp")
figur = LoadImage("elf.bmp") ; 20x32px


MaskImage figur, 255,255,255
MaskImage mouse, 255,255,255