From 42c564158ac913be6a0d078ae513f2a31bed76f4 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 29 Oct 2023 22:34:39 -0400 Subject: Disable some debug keys. --- game.scm | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) (limited to 'game.scm') diff --git a/game.scm b/game.scm index a3e1209..4eec072 100644 --- a/game.scm +++ b/game.scm @@ -1919,18 +1919,19 @@ (set! *game-state* 'pause) (music-pause) (prevent-default! event)) - ((string-=? code "KeyD") - (set! *debug?* (not *debug?*)) - (prevent-default! event)) + ;; ((string-=? code "KeyD") + ;; (set! *debug?* (not *debug?*)) + ;; (prevent-default! event)) ((string-=? code "KeyR") (reset!) (prevent-default! event)) - ((string-=? code "KeyW") - (do-game-clear) - (prevent-default! event)) - ((string-=? code "KeyO") - (do-game-over) - (prevent-default! event)))) + ;; ((string-=? code "KeyW") + ;; (do-game-clear) + ;; (prevent-default! event)) + ;; ((string-=? code "KeyO") + ;; (do-game-over) + ;; (prevent-default! event)) + )) ('pause (cond ((string-=? code "Enter") -- cgit v1.2.3