(require (lib "include.ss")) (include "game.ss") (include "world.ss") ;;; Uncomment this line after you write the code in plane.ss ;;;(include "plane.ss") ;;; You'll use this code when you get to Exercise 16 -- you'll ;;; add it to the politician ; ((eq? message 'travel) ; (lambda (self) ; (if (weighted-choice thrill-seeking) ; (ask self 'teleport) ; (let ((city ; (pick-random ; (ask (ask self 'location) 'neighbors)))) ; (if city (ask self 'fly city))))))