Disable some debug keys.

1 files changed, 10 insertions, 9 deletions

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")