Graphics 600, 480
SetBuffer BackBuffer()


bild = LoadImage(\"panzer2.png\")
maus = LoadImage(\"mauszeigergroß.png\")


Global zeit = 0




x = 5
y = 5
y2 = 50
y3 = 100

x2 = 250
y4 = 30





MaskImage maus, 255,0,255


Repeat

Cls




mausklick = MouseHit(1)

a = MouseX()
b = MouseY()








HidePointer 

DrawImage bild,0,0
DrawImage maus, MouseX(), MouseY()


If RectsOverlap(x,y,x2,y4,a,b,1,1) And mausklick Then game()

If RectsOverlap(x,y2,x2,y4,a,b,1,1) And mausklick Then optionen()

If RectsOverlap(x,y3,x2,y4,a,b,1,1) And mausklick Then ende()


Flip
Until KeyDown(1)






Function game()
Cls
Print \"Game\"
Delay 2000
End Function



Function optionen()
Cls
Print \"Optionen\"
Delay 2000
End Function


Function ende()
Repeat

zeit = zeit +1
If zeit = 10 Then End


takt = CreateTimer(30)



Cls


Print \"                            Menü: @ndinho\"
Print \"\"
Print \"\"
Print \"------------------------------ CREDITS -----------------------------------\"
 




If KeyDown(1) Then End

Delay 500
WaitTimer takt
Flip 10



Forever
End Function