Local timer = CreateTimer(60)

Const Game_State_MENU=0, Game_State_PLAY=1
Global Game_State=Game_State_MENU ;Das Spiel startet im Menu

Repeat
	
	Select Game_State
		Case Game_State_MENU
			Run_Menu()
		Case Game_State_PLAY
			Run_Play()
	End Select
	
	Flip(0)
	WaitTimer(timer)
	Cls
Until KeyHit(1)
End


Function Run_Menu()
	
End Function

Function Run_Play()
	
End Function

Repeat
   Select Game_State
      Case Game_State_MENU
         Run_Menu()
      Case Game_State_PLAY
         Run_Play()
   End Select
Until KeyHit(1)
End


Function Run_Menu()
; hier kommt das rein, was Du als Title schreiben willst
   While Not KeyDown(28) ; = RETURN-Taste
       Text "Herzlich willkommem....
       Flip
   Wend
   Game_State=Game_State_Play
End Function

Function Run_Play()
; hier kommt die While-Schleife rein, die du bereits jetzt im Spiel hast
   While Not KeyDown(1)
      Color Rnd(256),Rnd(256),Rnd(256)
      counter = counter + 1
      If counter>60 Then
         c.cookie = New cookie
       ....
    Flip
....Wend
  Game_State=Game_State_Menu

End Function

While Not KeyDown (1)
  Cls
  ;[  Game ]
  Flip
Wend

Function Game()
;[  Game ]
End Function

Function Menue()
;[  Menue ]
End Function

While Not KeyDown (1)
  Cls

  If Game_State = 0 Then
     Menue()
  Else
    Game()
  EndIf

  Flip
Wend

Function Menue()

DrawImage landschaft2,x,y;
DrawImage hungry,120,5;
DrawImage mammoth1,400,250;


If Blink Then Text 20,200 , "Bewege Mammuth mit der linken und der rechten Pfeiltaste und fang die Cookies auf."
   font = LoadFont("Comic Sans MS",25,15)  ; Das hier besser hier raus und ganz obendrüber.
   SetFont Font
   Color 237,126,218
   If Blinktimer < MilliSecs () Then
        Blink = 1 - Blink
        Blinktimer = MilliSecs () + 600
End If

If KeyHit(28) Then Game_State = 1

End Function

AppTitle "Mammuth hat Hunger!"

PlayMusic("ice.wav")

SeedRnd MilliSecs()

Const width=10,height=10,depth=1
Global points=0,mx=100,my=550

Graphics 1024,768
SetBuffer BackBuffer()

landschaft=LoadImage("Landschaft.bmp")

i=MilliSecs()
zeit=i-m

;bilder hochladen
mammoth=LoadImage("Mammoth3.bmp")
ScaleImage mammoth,0.75,0.75
MaskImage mammoth,255,255,255

cookie=LoadImage("cookie2.bmp")
ScaleImage cookie,0.04,0.04
MaskImage cookie,255,255,255


;type erstellen
Type cookie
	Field x
	Field y
	Field gfx
	Field punkte
	Field speed
End Type

;counter
counter = 1
fontno=LoadFont("verdana",50)
SetFont fontno


landschaft2=LoadImage("landschaft2.bmp")
ScaleImage landschaft2,1.2,1;

hungry=LoadImage("hungry.bmp")
ScaleImage hungry,1,1;
MaskImage hungry,255,255,255;

mammoth1=LoadImage("Mammoth1.bmp")
ScaleImage mammoth1,1,1;
MaskImage mammoth1,255,255,255;

Global Game_State
While Not KeyDown(1)
    Cls
	If Game_State = 0 Then
		Menue()
	Else
		Game()
	EndIf
    Flip
Wend
End 


Function Menue()
	
	DrawImage landschaft2,x,y;
	DrawImage hungry,120,5;
	DrawImage mammoth1,400,250;
	
	
	If Blink Then Text 20,200 , "Bewege Mammuth mit der linken und der rechten Pfeiltaste und fang die Cookies auf."
	font = LoadFont("Comic Sans MS",25,15)
	SetFont Font
	Color 237,126,218
	If Blinktimer < MilliSecs () Then
        Blink = 1 - Blink
        Blinktimer = MilliSecs () + 600
	End If
	
;funktion
	
	If KeyHit(28) Then Game_State = 1
	
End Function



Function Game()
	Color Rnd(256),Rnd(256),Rnd(256)
	
	counter = counter + 1
	
	If counter>45 Then
		c.cookie = New cookie
		c\x = Rnd(1,950)
		c\y = 0
		c\gfx = cookie
		c\speed = Rnd(1.5,6)
		c\punkte = z
		counter = 0
	EndIf
	
      ;steuerung
	If KeyDown(205)
		mx=mx+10
	EndIf
	If KeyDown(203)
		mx=mx-10
	EndIf
	
	
	
;funktion
	
	DrawImage landschaft,x,y
	DrawImage Mammoth,mx,my
	
	If mx>820 Then
		mx=820
	EndIf
	
	If mx<0 Then
		mx=0
	EndIf
	
	For c.cookie=Each cookie
		DrawImage c\gfx,c\x,c\y
		c\y = c\y + c\speed
		If ImagesCollide(Mammoth,mx,my,0,c\gfx,c\x,c\y,0) Then
			Delete c.Cookie
			points = points+10
		EndIf
	Next
	
   ;anzeige
	Text 10,0,"Zeit: "
	Text 10,40,"Leben: "
	Text 10,80,"Punkte: "+points
	
   ;counter
   ;Text 960,720,counter
	
;funktion
End Function