Im Code sieht das Grob so aus:
Code: Alles auswählen
If Menu = 1
Spiel = 0
Menu()
EndIf
If Spiel = 1
Menu = 0
Spiel()
EndIf
Code: Alles auswählen
If Menu = 1
Spiel = 0
Menu()
EndIf
If Spiel = 1
Menu = 0
Spiel()
EndIf
Code: Alles auswählen
Repeat
ExamineMouse()
ExamineKeyboard()
Select Status
Case Intro
NextIntroFrame()
If KeyboardPushed(#PB_Key_Space) Or KeyboardPushed(#PB_Key_Escape) Or MouseButton(1)
Status = Menu
EndIf
Case Menu
DisplayMenu()
Select MenuButton
Case Game
Status = Game
Case Exit
EXIT = 1
EndSelect
Case Game
NextGameFrame()
If BackToMenu()
Status = Menu
EndIf
EndSelect
Until EXIT = 1
Code: Alles auswählen
Menu = 1
Repeat
ExamineKeyboard()
If Menu = 1
Spiel = 0
BlaBlaBla
BildBildBild
AblaufAblauf
usw
If Keyboardpushed(1)
Spiel = 1
endif
endif
If Spiel = 1
Menu = 0
BlaBlaBla
BildBildBild
AblaufAblauf
usw.
If Keyboardpushed(1)
Menu = 1
endif
endif
Until Beenden = 1