diff options
Diffstat (limited to 'game.scm')
| -rw-r--r-- | game.scm | 74 |
1 files changed, 38 insertions, 36 deletions
@@ -1665,9 +1665,9 @@ (scheduler-reset! *scheduler*) (music-stop) (set! *game-state* 'game-clear) - (set! *clear-show-1cc-bonus?* #f) - (set! *clear-show-life-bonus?* #f) - (set! *clear-show-total-score?* #f) + (set! *clear-show-1cc-bonus?* #t) + (set! *clear-show-life-bonus?* #t) + (set! *clear-show-total-score?* #t) (if *player-1cc?* (let ((1cc-bonus 1000000) (life-bonus (* *player-lives* 250000))) @@ -1678,14 +1678,16 @@ (set! *clear-1cc-bonus* "0") (set! *clear-life-bonus* "0"))) (set! *clear-total-score* (number->string *player-score*)) - (run-script - (lambda () - (wait 60) - (set! *clear-show-1cc-bonus?* #t) - (wait 60) - (set! *clear-show-life-bonus?* #t) - (wait 60) - (set! *clear-show-total-score?* #t)))) + ;; Disabled due to a Hoot compiler bug :((( + ;; (run-script + ;; (lambda () + ;; (wait 60) + ;; (set! *clear-show-1cc-bonus?* #t) + ;; (wait 60) + ;; (set! *clear-show-life-bonus?* #t) + ;; (wait 60) + ;; (set! *clear-show-total-score?* #t))) + ) ;; Canvas sizing/scaling. (define *canvas-scale* 0.0) @@ -1893,86 +1895,86 @@ (define (on-key-down event) (let ((code (keyboard-event-code event))) (cond - ((string-=? code "ArrowLeft") + ((string=? code "ArrowLeft") (set-left! #t) (prevent-default! event)) - ((string-=? code "ArrowRight") + ((string=? code "ArrowRight") (set-right! #t) (prevent-default! event)) - ((string-=? code "ArrowDown") + ((string=? code "ArrowDown") (set-down! #t) (prevent-default! event)) - ((string-=? code "ArrowUp") + ((string=? code "ArrowUp") (set-up! #t) (prevent-default! event)) - ((string-=? code "KeyZ") + ((string=? code "KeyZ") (set-firing! #t) (prevent-default! event)) - ((string-=? code "KeyX";; "ShiftLeft" - ) + ((string=? code "KeyX" ;; "ShiftLeft" + ) (set-focusing! #t) (prevent-default! event))))) (define (on-key-up event) (let ((code (keyboard-event-code event))) (cond - ((string-=? code "ArrowLeft") + ((string=? code "ArrowLeft") (set-left! #f) (prevent-default! event)) - ((string-=? code "ArrowRight") + ((string=? code "ArrowRight") (set-right! #f) (prevent-default! event)) - ((string-=? code "ArrowDown") + ((string=? code "ArrowDown") (set-down! #f) (prevent-default! event)) - ((string-=? code "ArrowUp") + ((string=? code "ArrowUp") (set-up! #f) (prevent-default! event)) - ((string-=? code "KeyZ") + ((string=? code "KeyZ") (set-firing! #f) (prevent-default! event)) - ((string-=? code "KeyX";; "ShiftLeft" - ) + ((string=? code "KeyX" ;; "ShiftLeft" + ) (set-focusing! #f) (prevent-default! event)) (else (match *game-state* ('splash - (when (string-=? code "Enter") + (when (string=? code "Enter") (reset!))) ('play (cond - ((string-=? code "Enter") + ((string=? code "Enter") (set! *game-state* 'pause) (music-pause) (prevent-default! event)) - ;; ((string-=? code "KeyD") + ;; ((string=? code "KeyD") ;; (set! *debug?* (not *debug?*)) ;; (prevent-default! event)) - ((string-=? code "KeyR") + ((string=? code "KeyR") (reset!) (prevent-default! event)) - ;; ((string-=? code "KeyW") - ;; (do-game-clear) - ;; (prevent-default! event)) - ;; ((string-=? code "KeyO") + ((string=? code "KeyW") + (do-game-clear) + (prevent-default! event)) + ;; ((string=? code "KeyO") ;; (do-game-over) ;; (prevent-default! event)) )) ('pause (cond - ((string-=? code "Enter") + ((string=? code "Enter") (set! *game-state* 'play) (music-play) (prevent-default! event)))) ('game-clear (cond - ((string-=? code "Enter") + ((string=? code "Enter") (do-splash) (prevent-default! event)))) ('game-over (cond - ((string-=? code "Enter") + ((string=? code "Enter") (do-continue) (prevent-default! event)))) (_ #t)))))) |