ygeschenk=ygeschenk +1;Hier läuft das Geschenk
If ygeschenk>600 Then
ygeschenk = -200
xgeschenk=Rand(1,700)
geschenk=Rand(1,50)

EndIf



DrawImage Hintergrund,1,1
If geschenk<25 Then;Hier kommt die zufallsermittlung
DrawImage Geschenk2,xgeschenk,ygeschenk MaskImage Geschenk2,255,255,255
If geschenk >25 Then DrawImage Geschenk1,xgeschenk,ygeschenk MaskImage Geschenk1,255,255,255
EndIf

Graphics 1024,768,16,2 

Global Startl=LoadImage(\"GFX\Start1.bmp\")
DrawImage Startl ,0,0
Delay 2500
Cls
Global start=LoadImage(\"GFX\Start.bmp\")
DrawImage start ,0,0
Delay 2500
SetBuffer BackBuffer()  
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() 
 
End Select 


Until game_zustand = game_over 
End 





Function GameMenue() 

Local temp_zustand = game_zustand 

FlushMouse() 
FlushKeys() 

Repeat 

Cls
H=LoadImage(\"GFX\ADVENTSKALENDER_BSH.bmp\")
DrawImage H,1,1
Color 255,255,255
Text GraphicsWidth()/4,100,\"Weihnachtsstress - Beta\" 

Color 255,255,255 
Text GraphicsWidth()/3,200,\"Spiel\" 
Color 1,1,1 
Text GraphicsWidth()/3,400,\"ENDE\" 


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 GameHaupt()
Graphics 800,600,32,1




Cls
Text 1,1,\"Hallo und herzlich willkommen beim Weihnachtstreß\"
Text 1,20,\"Hier musst du es schaffen genügend Geschenke mit dem Sack einzufangen\"
Text 1,30,\"dass du über eine bestimmte Stufe kommst um ins nächste Level zu gelangen\"
Text 1,70,\"Zum Starten drücke Space\"
WaitKey
SetBuffer BackBuffer()


 xgeschenk=Rnd(10,700)
ygeschenk=-100

links=203
rechts=205

Geschenk1=LoadImage(\"GFX\kGeschenk.bmp\")
MaskImage Geschenk1,255,255,255
Geschenk2=LoadImage(\"GFX\gGeschenk.bmp\")
MaskImage Geschenk2,255,255,255
Geschenk=LoadImage(\"GFX\Geschenk.bmp\")
Spieler =LoadImage(\"GFX\Spieler.bmp\")
Hintergrund=LoadImage(\"GFX\Hintergrund.bmp\")
neuesgeschenk=LoadImage(\"GFX\gGeschenk.bmp\")
Weihnachtsbraten=LoadImage(\"GFX\Braten.bmp\")
punkte1=LoadImage(\"GFX\Punkte.bmp\")
Spieler2=LoadImage(\"GFX\Spieler2.bmp\")

MaskImage geschenk,255,255,255

xs#=350
ys#=502

ygeschenk=-200

xgeschenk=Rand(1,700)

geschenk= Rand(1,50)

Repeat 
Cls





;Bewegung
If KeyDown(rechts) And xs#<725Then xs#=xs#+ 0.9
DrawImage Spieler,xs#,ys#
If KeyDown(links) And xs#>-2 Then xs# =xs#-0.9
DrawImage Spieler2,xs#,ys#




ygeschenk=ygeschenk +1;Hier läuft das Geschenk
If ygeschenk>600 Then
ygeschenk = -200
xgeschenk=Rand(1,700)
geschenk=Rand(1,50)

EndIf







DrawImage Hintergrund,1,1
If geschenk<25 Then;Hier kommt die zufallsermittlung
DrawImage Geschenk2,xgeschenk,ygeschenk
MaskImage Geschenk2,255,255,255


 
If geschenk >25 Then

DrawImage Geschenk1,xgeschenk,ygeschenk 

EndIf
EndIf



 
 

DrawImage Spieler,xs#,ys#
MaskImage Spieler,255,255,255;hier wird alles gemalt
DrawImage punkte1,500,1
MaskImage punkte1,255,255,255
Color 0,0,0
Text 700, 40, Str$(Punkte)

If ImagesCollide(Spieler,xs,ys,0,Geschenk1,xgeschenk,ygeschenk,0) Then 

Punkte = Punkte + 1 
EndIf
 

 
Flip

Until KeyHit(1)


End
End Function