Graphics 800, 600

SetBuffer BackBuffer()

zeiger=LoadImage("tests\zeiger2.bmp")
MaskImage zeiger, 254,254,254
Global scheibe=LoadImage("tests\scheibe.bmp")
MaskImage scheibe, 254,254,254

punkte=0
Global zeitstart=CreateTimer(60)

Global scheibenx=0
Global scheibeny=0


While Not KeyHit(1)
Cls
HidePointer
zeichnescheibe
DrawImage zeiger,MouseX(),MouseY()



If ImagesOverlap (zeiger, MouseX(), MouseY(), scheibe,scheibenx,scheibeny)
   If MouseHit(1) Then punkte=punkte+1
EndIf
Print punkte
   
Wend
End



Function zeichnescheibe()



SeedRnd MilliSecs()

WaitTimer(zeitstart)
Cls

scheibenx= Rand(5,635)
scheibeny= Rand(5,475)


If MilliSecs()> timer + 1000
      DrawImage scheibe,scheibenx,scheibeny
      timer=MilliSecs()
EndIf

Return
End Function