hg.stevelosh.com > scully

src/players/random.lisp @ addb56e3eb9d 

Move all the graphviz code into its own file

Also shove the old rule-tree attempt out of the way for now.
author Steve Losh <steve@stevelosh.com>
date Mon, 21 Nov 2016 15:33:17 +0000
parents 67daea4e67cb
children e2fbd297f5c7 
(in-package :scully.players.random)


;;;; Random Player ------------------------------------------------------------
(defclass random-player (ggp:ggp-player)
  ((role :type symbol :accessor rp-role)
   (reasoner :accessor rp-reasoner)
   (state :accessor rp-state)))

(define-with-macro (random-player :conc-name rp)
  role reasoner state)


(defmethod ggp:player-start-game ((player random-player) rules role timeout)
  (let ((reasoner (make-prolog-reasoner)))
    (load-rules reasoner (-> rules
                           scully.gdl:redump-gdl
                           scully.grounders.fluxplayer:ground-gdl-string))
    (setf (rp-role player) role
          (rp-reasoner player) reasoner
          (rp-state player) (initial-state reasoner))))

(defmethod ggp:player-stop-game ((player random-player))
  (setf (rp-state player) nil
        (rp-reasoner player) nil
        (rp-role player) nil))

(defmethod ggp:player-update-game ((player random-player) moves)
  (when moves
    (with-random-player (player)
      (setf state (next-state reasoner state moves)))))

(defmethod ggp:player-select-move ((player random-player) timeout)
  (with-random-player (player)
    (random-elt (legal-moves-for reasoner role state))))


;;;; Run ----------------------------------------------------------------------
(setf hunchentoot:*default-connection-timeout* nil) ; its_fine

(defvar *random-player* (make-instance 'random-player
                                       :name "Scully-Random"
                                       :port 5001))

; (ggp:start-player *random-player* :server :hunchentoot)
; (ggp:kill-player *random-player*)