Some adjustments to the prints, and export <rps-host> class.
This commit is contained in:
parent
b0f3ed155c
commit
efe8e786c3
|
@ -13,7 +13,7 @@
|
|||
(format #t "Hey there, ~a! You sent me your pick of rock-paper-scissors; now I will send mine.\n" name)
|
||||
(on (<- (<- client 'pick->unsealer pick) sealed-pick)
|
||||
(lambda (peer-pick)
|
||||
(format #t "The peer has picked ~a (do I win? ~s)\n" peer-pick (rps-winner pick peer-pick))))]))
|
||||
(format #t "Opponent ~s has picked ~a (do I win? ~s)\n" name peer-pick (rps-winner pick peer-pick))))]))
|
||||
|
||||
(define (^client-picker bcom)
|
||||
(define-values (seal-pick unseal-pick my-pick?)
|
||||
|
@ -22,5 +22,5 @@
|
|||
(methods
|
||||
[(get-sealed-pick) ($ seal-pick pick)]
|
||||
[(pick->unsealer peer-pick)
|
||||
(format #t "Peer picked ~a... a bold choice (do I win? ~s), i will send my unsealer\n" peer-pick (rps-winner pick peer-pick))
|
||||
(format #t "Peer picked ~a... a bold choice (do I win? ~s), I will send my unsealer\n" peer-pick (rps-winner pick peer-pick))
|
||||
unseal-pick]))
|
||||
|
|
|
@ -6,7 +6,7 @@
|
|||
#:use-module (goblins ocapn ids)
|
||||
#:use-module (goblins ocapn netlayer testuds)
|
||||
#:use-module (oop goops)
|
||||
#:export (do-rps join-rps pick-rps rps-winner rock-paper-scissors))
|
||||
#:export (<rps-host> <rps-client> join-rps pick-rps rps-winner rock-paper-scissors))
|
||||
|
||||
;;
|
||||
;; Host logic
|
||||
|
@ -52,7 +52,7 @@
|
|||
(define client-picker (spawn ^client-picker))
|
||||
(on (<- (lobby client) 'register-opponent user-name client-picker ($ client-picker 'get-sealed-pick))
|
||||
(lambda (_)
|
||||
(format #t "Ok! we are registered.\n")))))
|
||||
(format #t "~s finished the game.\n" user-name)))))
|
||||
|
||||
;;
|
||||
;; Standard rock paper scissors logic follows!
|
||||
|
|
Loading…
Reference in New Issue