src/example.lisp @ 6a94205a7e4f

(in-package #:cl-user)

(defclass simple-player (ggp:ggp-player)
  ())

(defmethod ggp:player-select-move ((player simple-player) timeout)
  (format t "Selecting move (timeout ~A)~%" timeout)
  'ggp-rules::wait)


(defvar *player* nil)

(setf *player* (make-instance 'simple-player
                              :name "SimplePlayer"
                              :port 5000))


(ggp:start-player *player*)
(ggp:kill-player *player*)