;;; Jogador de Tanbo
;;; Autor: Ze de la Silva

;;; mantenha as proximas tres linhas, mudando apenas o nome do pacote
;;; para um nome de sua preferencia (nome atual=jog)

(make-package 'jogc)
(in-package 'jogc)
(lisp::use-package 'lisp)

;;; Coloque seus comentarios  gerais aqui ...
;;; Nao esqueca de comentar tambem partes importantes do codigo abaixo


(defun preto-inicia ()
  "Inicializa posicao global e retorna jogada inicial do preto"
  '(:c 2)
  )


(defun preto-responde (jogada)
  "Recebe o último lance feito pelo branco e retorna a resposta do preto"
  '(:h 7)
  )


(defun branco-inicia (jogada)
  "Inicializa posicao global, marca jogada preta e retorna jogada
inicial do branco"
  '(:h 3)
  )


(defun branco-responde (jogada)
  "Recebe o último lance feito pelo preto e retorna a resposta do branco"
  '(:b 7)
)