src/example.lisp @ ce6aa58d27da
Factor out the d/api crap
author | Steve Losh <steve@stevelosh.com> |
---|---|
date | Wed, 23 Mar 2016 17:37:50 +0000 |
parents | 251cea71ed58 |
children | 04d792fae37f |
(in-package #:cl-user) (defclass simple-player (ggp:ggp-player) ()) (defmethod ggp:player-select-move ((player simple-player)) 'wait) (defvar *player* nil) (setf *player* (make-instance 'simple-player :name "SimplePlayer" :port 5000)) (ggp:start-player *player*) (ggp:kill-player *player*) (setf (slot-value *player* 'ggp::current-match) nil)