From 4aa36a5ee98bb5724a3626172f879686025f2035 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 27 Oct 2006 21:53:37 +0000 Subject: [PATCH] Jewel: don't declife if game is over (thanks to David Einstein) svn: r4691 --- collects/games/jewel/jewel.scm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/collects/games/jewel/jewel.scm b/collects/games/jewel/jewel.scm index 0789681470..f182eeb517 100644 --- a/collects/games/jewel/jewel.scm +++ b/collects/games/jewel/jewel.scm @@ -947,19 +947,19 @@ (define (declife) - (set! jewel-life (- jewel-life jewel-decay)) - (if (< jewel-life 0.0) - (let* - ( (score #f) (exit? #f) - ) - ; set life points to zero - (set! jewel-life 0.0) - ; set high score if any - (high-score-set) - ; end of game - (set! gamestate 'GAME-OVER) + (unless (eq? gamestate 'GAME-OVER) + (set! jewel-life (- jewel-life jewel-decay)) + (if (< jewel-life 0.0) + (let* ( (score #f) (exit? #f) ) + ; set life points to zero + (set! jewel-life 0.0) + ; set high score if any + (high-score-set) + ; end of game + (set! gamestate 'GAME-OVER) + ) + ) ) - ) ) ;check for minimum three adjacent elements