Graphics 640,480,16,1
level1()

Function level1()

;Bilder laden


maus=LoadImage("maus.bmp")
level1=LoadImage("level1.bmp")
ziel=LoadImage("ziel.bmp")
HidePointer

SetBuffer BackBuffer()

MoveMouse 0,0

MaskImage level1 ,0,0,255

MaskImage ziel,0,0,255

Repeat


;Bilder zeichnen

ClsColor 100,0,0

Cls

DrawImage level1,0,0

DrawImage ziel,-5,359

DrawImage maus,MouseX(),MouseY()

Flip

;Berührung testen



If ImagesCollide(maus,MouseX(),MouseY(),0,level1,0,0,0)Then ende()

If ImagesCollide(maus,MouseX(),MouseY(),0,ziel,-11,359,0)Then Print "LEVEL1COMPLETE"

Until KeyHit(1)
End Function

Function ende()

Cls

Text 200,200, "G A M E  O V E R"
Text 200,250, "PRESS ENTER TO RESTART"

If KeyHit(28) Then level1()

End Function

Function ende()
Repeat:Cls

Text 200,200, "G A M E  O V E R"
Text 200,250, "PRESS ENTER TO RESTART"

Flip
Until KeyHit(28)
Level1(); oder besser eine Funktion GotoLevel(level)
End Function