summaryrefslogtreecommitdiffstats
path: root/net/ricketyspace
diff options
context:
space:
mode:
Diffstat (limited to 'net/ricketyspace')
-rw-r--r--net/ricketyspace/ror/twelve/source.rkt13
1 files changed, 10 insertions, 3 deletions
diff --git a/net/ricketyspace/ror/twelve/source.rkt b/net/ricketyspace/ror/twelve/source.rkt
index 70d83b4..cc6c366 100644
--- a/net/ricketyspace/ror/twelve/source.rkt
+++ b/net/ricketyspace/ror/twelve/source.rkt
@@ -180,12 +180,15 @@
(define TEXT-COLOR "black")
(define INSTRUCT
"← and → to move among territories, <enter> to mark, <d> to unmark, and <p> to pass")
+(define AI-INSTRUCT
+ "press any key to let the AI play")
(define AI-TURN "It's the Mighty AI's turn")
(define YOUR-TURN "It's your turn")
(define INFO-X-OFFSET 180)
(define INFO-Y-OFFSET 50)
(define INSTRUCTIONS (text INSTRUCT TEXT-SIZE TEXT-COLOR))
+(define AI-INSTRUCTIONS (text AI-INSTRUCT TEXT-SIZE TEXT-COLOR))
(define WIDTH (+ (image-width INSTRUCTIONS) 50))
(define HEIGHT 600)
(define (PLAIN)
@@ -194,11 +197,15 @@
(set! WIDTH (+ (max iw bw) 50))
(set! HEIGHT (+ (* SIDE 2 BOARD) 50))
(empty-scene WIDTH HEIGHT))
-(define (ISCENE)
+(define (ISCENE w)
(define mt (PLAIN))
(when (or (> (image-width mt) 1280) (> (image-height mt) 800))
(error 'scene "it is impossible to draw a ~s x ~s game scene for a 1280 x 800 laptop screen" (image-width mt) (image-height mt)))
- (place-image INSTRUCTIONS (* .5 WIDTH) (* .9 HEIGHT) mt))
+ (place-image
+ (if (= (game-player (dice-world-gt w)) AI)
+ AI-INSTRUCTIONS
+ INSTRUCTIONS)
+ (* .5 WIDTH) (* .9 HEIGHT) mt))
;
;
@@ -261,7 +268,7 @@
(define (draw-dice-world w)
(add-player-info
(game-player (dice-world-gt w))
- (add-winning-probability w (add-board-to-scene w (ISCENE)))))
+ (add-winning-probability w (add-board-to-scene w (ISCENE w)))))
;; DiceWorld -> Boolean
;; is it possible to play any moves from this world state?