mbk/mineschemer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

last few tweaks 'fore args

Browse source 
there's still so much fun to be had :D
This commit is contained in:
mehbark 2023-12-24 13:06:43 -05:00
parent 3fda3da4c5
commit 68d2060e3e
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
main.scm
View file

@ -600,7 +600,9 @@
((if (square-flagged? mouse-square) sub1 add1) (game-num-flagged game))) ((if (square-flagged? mouse-square) sub1 add1) (game-num-flagged game)))
(square-flagged?-set! mouse-square (not (square-flagged? mouse-square)))) (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) (if (and (square-revealed? mouse-square)
(= (square-num-adjacent mouse-square) (= (square-num-adjacent mouse-square)
(length (length
@ -717,7 +719,7 @@
(when (game-over? game) (when (game-over? game)
(draw-text "GAME OVER" 0 0 20 (color 255 0 0))) (draw-text "GAME OVER" 0 0 20 (color 255 0 0)))
(when (game-won? game) (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) #;(draw-mouse-info BLACK)
)) ))
(unload-texture skin) (unload-texture skin)