~octaspire/crates2

ref: e55f1389f279a523501a6dc5328c2ea1b56d0669 crates2/src/player.lisp -rw-r--r-- 2.0 KiB
e55f1389octaspire Add 'Pass Counter' and delayed attach, fix wall collisions 1 year, 4 months ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
;; Octaspire Crates 2 - Puzzle Game
;; Copyright 2020 octaspire.com
;;
;; Licensed under the Apache License, Version 2.0 (the "License");
;; you may not use this file except in compliance with the License.
;; You may obtain a copy of the License at
;;
;; http://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing, software
;; distributed under the License is distributed on an "AS IS" BASIS,
;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;; See the License for the specific language governing permissions and
;; limitations under the License.
(in-package :crates2)

;; Methods

(defmethod update ((self player))
  (ecase (crate-state self)
    (:idle (player-update-idle self))
    (:lamented (player-update-lamented self)))
  (call-next-method))

(defmethod visual ((self player))
  (if (active self)
      "player-active"
      "player-hidden"))

(defmethod collide ((self player) (target crate))
  (call-next-method))

(defmethod collide ((self player) (target exit))
  (setf (active self) nil))

(defmethod collide ((self player) (target vacuum))
  (lament self)
  (call-next-method))

(defmethod handle-input ((self player) input)
  (when (active self)
    (ecase input
      (:east  (setf (velocity self) input))
      (:west  (setf (velocity self) input))
      (:north (setf (velocity self) input))
      (:south (setf (velocity self) input)))))

(defmethod collide ((self player) (target pushed))
  (let ((vplayer (velocity self))
        (vpulled (velocity target)))
    (if (eq vpulled :zero)
        (setf (velocity target) vplayer)
        (setf (velocity target) (if (head-on-collision-p vplayer vpulled) :zero vplayer))))
  (call-next-method))

;; Functions

(defun player-update-idle (self)
  (let ((input (car *input*)))
    (when (and input (stationaryp self))
      (handle-input self input))))

(defun player-update-lamented (self)
  (incf (player-delay self))
  (when (> (player-delay self) 3)
    (request-restart-level)))