Graphics 800,600,16,1

Global x
Global y
Global point=0


HidePointer

SetBuffer BackBuffer()

Button=CreateImage(50,50)
Color 255,0,0
Oval 10,10,30,30,1
sndseite =LoadSound ("c:\Sounds\mtruc.wav")
zeiger=LoadImage("c:\Graphics\zeig.bmp")
MaskImage zeiger ,255,0,255

ClsColor 120,120,190

start

time=MilliSecs()
MoveMouse 400,300


While Not KeyHit(1)


If MouseX() >= x And MouseX() <= x + ImageWidth(Button) And MouseY() >= y And MouseY() <= y + ImageHeight(Button) And MouseDown(1) Then
point= point+1
PlaySound sndseite
Delay(500)
tr=tr+1
EndIf

If tr>2 Then tr=0


If tr =0
Button=CreateImage(50,50)
SetBuffer ImageBuffer(Button)
Color 255,0,0
Oval 10,10,30,30,1
EndIf


If tr =1
Button=CreateImage(50,50)
SetBuffer ImageBuffer(Button)
Color 0,255,0
Oval 10,10,30,30,1
EndIf
SetBuffer BackBuffer()


If tr =2
Button=CreateImage(50,50)
SetBuffer ImageBuffer(Button)
Color 0,0,255
Oval 10,10,30,30,1
EndIf
SetBuffer BackBuffer()


time2= MilliSecs()-time
time3= time2/1000

If  time3> 30 Then ziel

If MilliSecs() > tmrSparks + 450 Then
tmrSparks=MilliSecs()
frmSparks=( frmSparks + 1 ) Mod 3

x= Rnd (0,800)
y= Rnd (0,560)



End If


Color 0,0,0

Locate 0,600
Print "Time Elapsed: "+time3
Print "Points: "+point
Cls


DrawImage Button,x,y


DrawImage zeiger,MouseX(),MouseY()



Flip
Wend
End


Function start ()

Cls

Locate 320,200
Print "Welcome to <GET IT>"
Locate 190,230
Print "You have 30 Seconds to catch as many Dots you can"
WaitKey

End Function



Function ziel ()
Cls
Locate MouseX()+100,MouseY()
Print "!! Time Over !!"
Locate MouseX()+100,MouseY() +20
Print "Points: "+point
Locate MouseX()+100,MouseY() +40
Print "Press any Key to Restart"

 HIER EIN RESTART EIN BAUEN

WaitKey

End
End Function

if ziel()=1 then
endif

Function ziel ()
Cls
Locate MouseX()+100,MouseY()
Print "!! Time Over !!"
Locate MouseX()+100,MouseY() +20
Print "Points: "+point
Locate MouseX()+100,MouseY() +40
Print "Press any Key to Restart"
WaitKey

 return 1
End Function