forked from vv/gib-gab-gob
43 lines
1.4 KiB
Scheme
43 lines
1.4 KiB
Scheme
(define-module (gib-gab-gob game)
|
|
#:use-module (goblins)
|
|
#:use-module (goblins actor-lib methods)
|
|
#:use-module (goblins actor-lib sealers)
|
|
#:use-module (gib-gab-gob board)
|
|
#:export (^ggg-controller))
|
|
|
|
;; Actual Tic Tac Toe game
|
|
(define (^ggg-controller bcom won? peer)
|
|
(define mark (if won? 'x 'o))
|
|
(define peer-mark (if won? 'o 'x))
|
|
(define board (make-board))
|
|
(define my-turn? won?)
|
|
(define (i-won?) (board-winner? board mark))
|
|
(define (peer-won?) (board-winner? board peer-mark))
|
|
(define (display)
|
|
(board-display board)
|
|
(format #t "-> It is ~a turn!\n" (if my-turn? "my" "peer's"))
|
|
(when (i-won?) (format #t "*** I won! ***\n"))
|
|
(when (peer-won?) (format #t "*** I lost! ***\n")))
|
|
(display)
|
|
(methods
|
|
;; The peer is telling us about the turn it took.
|
|
[(peer-turn! x y)
|
|
(if (not my-turn?)
|
|
(begin
|
|
(board-choose! board peer-mark x y)
|
|
(set! my-turn? (not my-turn?))
|
|
(display))
|
|
(error "It's my turn!"))]
|
|
;; TODO: These need to go somewhere else so the peer can't move or init for us!
|
|
[(try-transition) 'playing]
|
|
[(initialize!)
|
|
(on (<- peer 'try-transition) (lambda (status) (format #t "Peer's status: ~a\n" status)) #:promise? #t)]
|
|
[(my-turn! x y)
|
|
(if my-turn?
|
|
(begin
|
|
(board-choose! board mark x y)
|
|
(set! my-turn? (not my-turn?))
|
|
(display)
|
|
(<- peer 'peer-turn! x y))
|
|
(error "It's not my turn."))]))
|