#lang scheme (provide play serve-couples serve-singles) (require (planet cce/scheme:7/planet)) (require (this-package-in backgammon) (this-package-in server) (this-package-in private/test)) (require (except-in 2htdp/universe make-package package? key-event? key=? mouse-event? mouse=?)) ;;================================================================= ;; Play ;; String [#:IP String] -> World (define (play player-name #:IP [ip LOCALHOST]) (big-bang (make-pas moment0) (register ip) (name (format "Backgammon: ~a" player-name)) (on-draw world->img) (on-mouse squeek) (on-key peck) (on-receive slurp)))