Graphics 1024,768,16,2 

start=LoadImage(\"GFX\Start1.bmp\");Startbilschirm
DrawImage start,1,1
Delay 2500
Cls

start2=LoadImage(\"GFX\Start.bmp\")
DrawImage start2,1,1
Delay 2500
Cls 

 
SetFont(LoadFont(\"Comic Sans MS\",30,1)) 

Const game_pause = 1 
Const game_menue = 2 
Const game_haupt = 3 
Const game_over = 4 

Global game_zustand = game_menue 


;Wichtig. Hauptschleife. Hier wird das ganze Spiel verwaltet. 

Repeat 


Select game_zustand 
Case game_menue 
GameMenue() 
Case game_haupt 
GameHaupt() 
Case game_pause 

End Select 


Until game_zustand = game_over 
End 





Function GameMenue() 

Local temp_zustand = game_zustand 

FlushMouse() 
FlushKeys() 

H=LoadImage(\"GFX\ADVENTSKALENDER_BSH.bmp\")
Repeat 

Cls
DrawImage H,1,1

Color 255,255,255
Text GraphicsWidth()/4,100,\"Weihnachtsstress - Beta\"
Color 255,255,255 
Text GraphicsWidth()/3,200,\"Spiel\" 
Color 0,0,0 
Text GraphicsWidth()/4,400,\"zum ENDE ESC\" 


If MouseHit(1) 
If RectsOverlap(MouseX(),MouseY(),1,1,GraphicsWidth()/3,200,StringWidth(\"START\"),StringHeight(\"START\")) 
game_zustand = game_haupt 
ElseIf RectsOverlap(MouseX(),MouseY(),1,1,GraphicsWidth()/3,300,StringWidth(\"ENDE\"),StringHeight(\"ENDE\")) 
game_zustand = game_over 
EndIf 
EndIf

 
If KeyHit(1) 
End 
EndIf 

Flip 
Until game_zustand<>temp_zustand 

End Function 
Function HighSort(Punkte,name$) 
For a=5 To 0 Step -1 ; Bei mehr als 6 Plätzen hier ändern 

If  Punkte>highpoints(a) 
highname$(a+1)=highname$(a) 
highpoints(a+1)=highpoints(a) 
highname$(a)=name$ 
highpoints(a)=Punkte
EndIf  
Next 
End Function 

Function highpoints(a)
highpoints(a)= 1000
End Function

Function highname$(a)
highname$(a)= Input(\"Dein Name\")
Text 1,20,\"Dein Name ist also\"+highname$(a)
End Function


Function GameHaupt()
SetBuffer BackBuffer() 

Graphics 800,600,32,1 

Hintergrund=LoadImage(\"GFX\Hintergrund.bmp\")
Geschenk1 = LoadImage(\"GFX\kGeschenk.bmp\") 
Geschenk2 = LoadImage(\"GFX\gGeschenk.bmp\")
Spieler=LoadImage(\"GFX\Spieler.bmp\") 
Punkte1=LoadImage(\"GFX\Punkte.bmp\")
MaskImage Punkte1,255,255,255

countdown=10 
time=MilliSecs() 


If MilliSecs()-1000 >= time Then 

time=MilliSecs() 
countdown=countdown-1 

EndIf 
Text 100,100,countdown 
Flip 



MaskImage Geschenk1,255,255,255 
MaskImage Geschenk2,255,255,255 
links=203
rechts=205
xs#=300
ys#=500

SetBuffer BackBuffer() 
While Not KeyDown(1) 
Cls

 
 
If KeyDown(rechts) And xs#<825Then xs#=xs#+ 0.9
If KeyDown(links) And xs#>-0 Then xs# =xs#-0.9


DrawImage Hintergrund,1,1




ygeschenk#=ygeschenk# +1.1

If ygeschenk#>600 Then 
ygeschenk# = -100 
xgeschenk#=Rand(1,700) 
geschenk=Rand(1,50) 
EndIf



If geschenk<25 
DrawImage Geschenk1,xgeschenk,ygeschenk# 
EndIf 

If geschenk>25 
DrawImage Geschenk2,xgeschenk,ygeschenk# 
EndIf 
DrawImage Spieler,xs#,ys#
MaskImage Spieler,255,255,255;hier wird alles gemalt

Color 0,0,0
Text 700, 40, Str$(Punkte)
DrawImage Punkte1,600,27
  

If ImagesCollide(Spieler,xs,ys,0,Geschenk1,xgeschenk,ygeschenk#,0) Then 
Punkte = Punkte + 1 
EndIf





Flip
Wend
highname$(a)
  

End

End Function 

 If geschenk<25 
                DrawImage Geschenk1,xgeschenk,ygeschenk# 
        EndIf 

        If geschenk>25 
                DrawImage Geschenk2,xgeschenk,ygeschenk# 
        EndIf 

geschenk=Rand(1,50)