diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-13 08:34:12 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-13 08:34:12 -0500 |
| commit | d3e49dd414963c2b7885a9a45accd116534e764e (patch) | |
| tree | 5ac1b2713eba06db513efa05e9534a99d29ad418 /the-price-of-a-cup-of-coffee.lisp | |
| parent | 2c5b478327084ae76ba668ac891f8115954d0f12 (diff) | |
aded suit assets
Diffstat (limited to 'the-price-of-a-cup-of-coffee.lisp')
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 8f0b7e5..e30cc15 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -34,14 +34,6 @@ (setf *human-frame-pause* (/ 1000 n))) -(def-normal-class pedestrian (human) - (comfort-rad 60) - (react-per-sec 1) - (anger 0.1) - (kindness 0.02) - (generosity 0.25) - (vulnerability 3)) - (defmethod update ((human human) ticks) (with-slots (frame next-frame-at faces face walk-vec pos) human @@ -69,6 +61,16 @@ (relax-rate 1)) +(def-normal-class pedestrian (human) + (comfort-rad 60) + (react-per-sec 1) + (anger 0.1) + (kindness 0.02) + (generosity 0.25) + (vulnerability 3)) + + + (defvar *nance* nil) (defun boot-up (renderer) @@ -91,7 +93,6 @@ (play-track *looking-up-track*)) (print "Action")) - (defun walking-face (dir) (case dir (:left :walking-left) |