cl-pong/game/src/action.lisp

(in-package :pong.game)

(defclass action ()
  ((timestamp :initarg :timestamp
	      :initform (get-time)
	      :reader action-timestamp)
   (paddle :initarg :paddle :initform nil :reader paddle)))

(defgeneric apply-action (action game))

(defclass start-down-action (action) ())

(defclass stop-down-action (action) ())

(defclass start-up-action (action) ())

(defclass stop-up-action (action) ())

(cpk:defencoding action timestamp paddle)
(cpk:defencoding start-down-action timestamp paddle)
(cpk:defencoding stop-down-action timestamp paddle)
(cpk:defencoding start-up-action timestamp paddle)
(cpk:defencoding stop-up-action timestamp paddle)

(defun get-paddle (paddle state)
 (case paddle
   (:left (state-left-paddle state))
   (:right (state-right-paddle state))) )

(defmethod apply-action ((action start-down-action) (game game))
  (let* ((state (game-state game))
	 (paddle (get-paddle (paddle action) state)))
    (incf (paddle-vy paddle) +paddle-speed+)))

(defmethod apply-action ((action stop-down-action) (game game))
  (let* ((state (game-state game))
	 (paddle (get-paddle (paddle action) state)))
    (decf (paddle-vy paddle) +paddle-speed+)))

(defmethod apply-action ((action start-up-action) (game game))
  (let* ((state (game-state game))
	 (paddle (get-paddle (paddle action) state)))
    (decf (paddle-vy paddle) +paddle-speed+)))

(defmethod apply-action ((action stop-up-action) (game game))
  (let* ((state (game-state game))
	 (paddle (get-paddle (paddle action) state)))
    (incf (paddle-vy paddle) +paddle-speed+)))