Escape to resume
This commit is contained in:
@@ -48,13 +48,17 @@
|
|||||||
)
|
)
|
||||||
|
|
||||||
(method :Void showPauseMenu [:Continuation resume]
|
(method :Void showPauseMenu [:Continuation resume]
|
||||||
// TODO register escape to resume (and register escape to pause when resuming lol)
|
// register escape to resume (and register escape to pause when resuming lol)
|
||||||
|
(sh.registerItem "{escape} resume" ->cc {
|
||||||
|
(sh.registerItem "{escape} pause" ->cc (showPauseMenu cc) true)
|
||||||
|
(resume)
|
||||||
|
} true)
|
||||||
(chooseString "PAUSED" ["Resume" "Options" "Main Menu" "Quit to Desktop"]
|
(chooseString "PAUSED" ["Resume" "Options" "Main Menu" "Quit to Desktop"]
|
||||||
->choice
|
->choice
|
||||||
(case choice
|
(case choice
|
||||||
("Resume" (resume))
|
("Resume" (resume))
|
||||||
("Options" null) // TODO
|
("Options" null) // TODO
|
||||||
("Main Menu" null) // TODO
|
("Main Menu" (FlxG.switchState (new MenuState)))
|
||||||
("Quit to Desktop" (Sys.exit 0))
|
("Quit to Desktop" (Sys.exit 0))
|
||||||
(never otherwise))))
|
(never otherwise))))
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user