From 0f072be231d0bd875d1c87ff127834e60979263a Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Fri, 3 Jul 2020 15:47:02 -0400 Subject: net/ricketyspace/ror -> ./ --- thirteen/client.rkt | 189 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 189 insertions(+) create mode 100644 thirteen/client.rkt (limited to 'thirteen/client.rkt') diff --git a/thirteen/client.rkt b/thirteen/client.rkt new file mode 100644 index 0000000..dc3b184 --- /dev/null +++ b/thirteen/client.rkt @@ -0,0 +1,189 @@ +#lang racket + +(require 2htdp/image 2htdp/universe "shared.rkt") + +(provide launch-guess-client) + +(struct client-state (type clue guess action done)) + +(define ClientState0 (client-state -1 "" #f "" #f)) + +(define SCENE-WIDTH 300) +(define SCENE-HEIGHT 200) + +(define (launch-guess-client n host) + (big-bang ClientState0 + (on-draw draw-guess) + (on-key handle-keys) + (name n) + (register host) + (on-receive handle-msg))) + +(define (handle-keys w key) + (cond [(= (client-state-type w) PLAYER) (handle-keys-player w key)] + [(= (client-state-type w) GUESSER) (handle-keys-guesser w key)] + [else w])) + +(define (handle-keys-player w key) + (define (action) + (client-state-action w)) + (define (guess) + (client-state-guess w)) + (define (set-clue clue) + (client-state PLAYER clue (guess) (action) #f)) + (cond [(and (string=? (action) "c") (key=? key "c")) + (make-package w (server-msg PLAYER "c" ""))] + [(and (string=? (action) "a") (key=? key "up")) + (make-package (set-clue "up") (server-msg PLAYER "a" "up"))] + [(and (string=? (action) "a") (key=? key "down")) + (make-package (set-clue "down") (server-msg PLAYER "a" "down"))] + [(and (string=? (action) "a") (key=? key "=")) + (make-package (set-clue "=") (server-msg PLAYER "a" "="))] + [else w])) + +(define (handle-keys-guesser w key) + (define (action) + (client-state-action w)) + (cond [(and (string=? (action) "c") (key=? key "c") + (make-package w (server-msg GUESSER "c" "")))] + [(and (string=? (action) "g") (key=? key "g") + (make-package w (server-msg GUESSER "g" "")))] + [else w])) + +(define (handle-msg c c-msg) + (cond [(not (client-msg? c-msg)) c] + [(= (client-msg-type c-msg) PLAYER) + (handle-msg-player c c-msg)] + [(= (client-msg-type c-msg) GUESSER) + (handle-msg-guesser c c-msg)] + [else c])) + +(define (handle-msg-player c c-msg) + (define (is-done) + (client-msg-done c-msg)) + (define (action) + (client-msg-action c-msg)) + (define (set-done) + (let ([guess (client-msg-guess c-msg)]) + (client-state PLAYER "" guess "" #t))) + (define (set-check) + (let ([clue (client-state-clue c)]) + (client-state PLAYER clue #f "c" #f))) + (define (set-act) + (let ([guess (client-msg-guess c-msg)]) + (client-state PLAYER "" guess "a" #f))) + (cond [(is-done) (set-done)] + [(string=? (action) "c") (set-check)] + [(string=? (action) "a") (set-act)] + [else c])) + +(define (handle-msg-guesser c c-msg) + (define (is-done) + (client-msg-done c-msg)) + (define (action) + (client-msg-action c-msg)) + (define (set-done) + (let ([guess (client-msg-guess c-msg)]) + (client-state GUESSER "" guess "" #t))) + (define (set-check) + (let ([clue (client-msg-clue c-msg)] + [guess (client-msg-guess c-msg)]) + (client-state GUESSER clue guess "c" #f))) + (define (set-guess) + (let ([clue (client-msg-clue c-msg)] + [guess (client-msg-guess c-msg)]) + (client-state GUESSER clue guess "g" #f))) + (cond [(is-done) (set-done)] + [(string=? (action) "c") (set-check)] + [(string=? (action) "g") (set-guess)] + [else c])) + +(define (draw-guess c) + (define (render type result desc help) + (place-image/align + type 5 5 "left" "top" + (overlay (above result desc help) + (empty-scene SCENE-WIDTH SCENE-HEIGHT)))) + (let ([type (draw-type c)] + [result (draw-result c)] + [desc (draw-desc c)] + [help (draw-help c)]) + (render type result desc help))) + +(define (draw-type c) + (text (cond [(= (client-state-type c) PLAYER) "Player"] + [(= (client-state-type c) GUESSER) "Guesser"] + [else "..."]) + 14 "black")) + +(define (draw-result c) + (text (cond [(= (client-state-type c) PLAYER) + (draw-result-player c)] + [else (draw-result-guesser c)]) + 14 "black")) + +(define (draw-result-player c) + (define (done) + (client-state-done c)) + (define (action) + (client-state-action c)) + (define (guess) + (number->string (client-state-guess c))) + (cond [(and (not (done)) (string=? (action) "")) "..."] + [(done) (string-append (guess) " it is!")] + [(string=? (action) "a") (string-append "Guess: " (guess))] + [else ""])) + +(define (draw-result-guesser c) + (define (done) + (client-state-done c)) + (define (action) + (client-state-action c)) + (define (guess) + (let ([g (client-state-guess c)]) + (cond [(number? g) (number->string g)] + [else ""]))) + (define (clue) + (cond [(string=? (client-state-clue c) "up") ">"] + [else "<"])) + (cond [(and (not (done)) (string=? (action) "") "...")] + [(done) (string-append (guess) " it is!")] + [(and (string=? (action) "g") (> (string-length (guess)) 0)) + (string-append "Number " (clue) " " (guess))] + [(string=? (action) "c") (string-append "Guess: " (guess))] + [else ""])) + +(define (draw-desc c) + (text (cond [(= (client-state-type c) PLAYER) ""] + [else (draw-desc-guesser c)]) + 10 "black")) + +(define (draw-desc-guesser c) + (define (action) + (client-state-action c)) + (cond [(string=? (action) "c") "Waiting for player to act on guess"] + [else ""])) + +(define (draw-help c) + (define (type) + (client-state-type c)) + (text (cond [(= (type) PLAYER) (draw-help-player c)] + [else (draw-help-guesser c)]) + 10 "black")) + +(define (draw-help-player c) + (define (action) + (client-state-action c)) + (cond [(string=? (action) "c") "Press 'c' to check"] + [(string=? (action) "a") "Press ↑, ↓, or = "] + [else ""])) + +(define (draw-help-guesser c) + (define (action) + (client-state-action c)) + (define (done) + (client-state-done c)) + (cond [(string=? (action) "g") "Press 'g' to guess"] + [(string=? (action) "c") "Press 'c' to check"] + [(done) "Good Job!"] + [else ""])) -- cgit v1.2.3