From 68d2060e3e77580f89dfc40cefd76cae6533707a Mon Sep 17 00:00:00 2001 From: mehbark Date: Sun, 24 Dec 2023 13:06:43 -0500 Subject: [PATCH] last few tweaks 'fore args there's still so much fun to be had :D --- main.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/main.scm b/main.scm index cd97294..b52abc0 100644 --- a/main.scm +++ b/main.scm @@ -600,7 +600,9 @@ ((if (square-flagged? mouse-square) sub1 add1) (game-num-flagged game))) (square-flagged?-set! mouse-square (not (square-flagged? mouse-square)))) - (when (and mouse-in-bounds? (or (button-pressed? 'left) (button-pressed? 'middle))) + (when (and mouse-in-bounds? + (not (square-flagged? mouse-square)) + (or (button-pressed? 'left) (button-pressed? 'middle))) (if (and (square-revealed? mouse-square) (= (square-num-adjacent mouse-square) (length @@ -717,7 +719,7 @@ (when (game-over? game) (draw-text "GAME OVER" 0 0 20 (color 255 0 0))) (when (game-won? game) - (draw-text "A COMPLETER IS YOU 0 20 20" (color 247 231 54)))) + (draw-text "A COMPLETER IS YOU" 0 20 10 WHITE))) #;(draw-mouse-info BLACK) )) (unload-texture skin)