Dim stapel(39)
Dim haende(4,7)

;Kartenstapel initialisieren
For i=0 to 39
    stapel(i) = i
Next

;Karten mischen
For i=0 to 200
    a = Rand(0,39)
    b = Rand(0,39)
    tmp = stapel(a)
    stapel(a) = stapel(b)
    stapel(b) = tmp
Next

;Karten zuteilen
For spielerNr=0 To 4
    For i = 0 To 7
        haende(spielerNr,i) = stapel(spielerNr*8 + i)
    Next
Next

Graphics 1920,1080,0,1
SetBuffer BackBuffer()
font=LoadFont("Arial",15)
SetFont font

bild = LoadImage ("Spielfeld.png")
DrawBlock bild, 0, 0


;Custom Cursor
HidePointer
img_cursor = LoadImage("cursor.png")
MidHandle img_cursor

While Not KeyHit(1)
   Cls
   ;Hier wird eben das Hintergrundbild gezeichnet - wie ich finde eine unschöne Lösung
   DrawBlock bild, 0, 0
   DrawImage img_cursor,MouseX(),MouseY()
   Flip
Wend

End

Graphics3D 800,600,0,2
SetBuffer BackBuffer()
font=LoadFont("Arial",15)
SetFont font

While result=0
    result=MainMenu()
    ;put these options inside the menu loop, as these
    ;return 0 - continuing the mainmenu loop.
    If result=2 Then result=Options()
    If result=3 Then result=Credits()
    Wend
If result=1 Then StartGame()
;if the result isn't 1, then it must be 4 - hence QUIT
End

Function MainMenu()
    Cls
    Text 400,50,"My Menu",1,1
    Rect 300,100,200,50,0
    Text 400,125,"Start Game",1,1
    Rect 300,200,200,50,0
    Text 400,225,"Options",1,1
    Rect 300,300,200,50,0
    Text 400,325,"Credits",1,1
    Rect 300,400,200,50,0
    Text 400,425,"Quit",1,1
    Flip
    result=0
    While result=0
        mx=MouseX():my=MouseY()
        If MouseHit(1) Then
            If RectsOverlap(300,100,200,50,mx,my,1,1) Then result = 1
            If RectsOverlap(300,200,200,50,mx,my,1,1) Then result = 2
            If RectsOverlap(300,300,200,50,mx,my,1,1) Then result = 3
            If RectsOverlap(300,400,200,40,mx,my,1,1) Then result = 4
            End If
        Wend
    Return result
    End Function

Function Options()
    Cls
    Text 400,300,"Options Screen! Any key to return to main menu",1,1
    Flip
    WaitKey()
    Return 0
    End Function

Function Credits()
    Cls
    Text 400,300,"Credits!!",1,1
    Text 400,330,"Made by BlackD",1,1
    Text 400,400,"Any key to return",1,1
    Flip
    WaitKey()
    Return 0
    End Function

Function StartGame()
    Cls
    Text 400,300,"AND you're away...",1,1
    Text 400,400,"ESC to exit",1,1
    Flip
    While Not KeyHit(1):Wend
    End
    End Function

Graphics 1800,1200      ;Graphikmodus setzen
SetBuffer BackBuffer()   ;Doublebuffering vorbereiten
Const GS_MENU%=0, GS_PLAY%=1, GS_TOD%=2, GS_HIGH%=3, GS_CRED%=4

Global GameState% = GS_MENU

;[...]

Repeat
   
   ;[...]
   
   Select GameState
      Case GS_MENU
         Main_Menu()
         
      Case GS_PLAY()
         Play_Game()
         
      Case GS_TOD
         Show_Death_Screen()
         
      Case GS_HIGH
         Show_Highscore()
         
      Case GS_CRED
         Show_Credits()
         
   End Select
   
   ;[...]
   
   Flip(0)
   WaitTimer(FrameTimer)
Forever
End


;[...]

Function GetHit()
   ;[...]
   
   If PlayerHP =< 0 Then
      GameState = GS_TOD
      Return
   EndIf
   
   ;[...]
   
End Function



Function Main_Menu()
   ;[...]
   
   Text "Hier muss das Auswahlmenü rein!"
   
   ;[...]
   
End Function


Function Play_Game()
   ;[...]
   
   Text "Hier muss das eigentliche Spiel rein"
   
   ;[...]
   
End Function



Function Show_Death_Screen()
   ;[...]
   
   Text "Hier kommt man zurück zum Hauptmenü, weil das Spiel zu ende ist"
   
   ;[...]
   
End Function



Function Show_Highscore()
   ;[...]
   
   Text "Hier kommen die Rekorde rein"
   
   ;[...]
   
End Function



Function Show_Credits()
   ;[...]
   
   Text "Hier kommen die SPECIAL THANKS rein"
   
   ;[...]
   
End Function