diff options
| -rw-r--r-- | assets.lisp | 15 | ||||
| -rw-r--r-- | assets/Suit.png | bin | 0 -> 162505 bytes | |||
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 19 |
3 files changed, 24 insertions, 10 deletions
diff --git a/assets.lisp b/assets.lisp index 64080a6..b57ace6 100644 --- a/assets.lisp +++ b/assets.lisp @@ -55,7 +55,20 @@ (:NAME "WalkRight1" :X 64 :Y 0 :WIDTH 64 :HEIGHT 128) (:NAME "WalkRight2" :X 0 :Y 0 :WIDTH 64 :HEIGHT 128))) +(defparameter +suit-sheet-image+ "assets/Suit.png") - +(defvar *suit-tile-defs* + '((:NAME "Back" :X 256 :Y 128 :WIDTH 64 :HEIGHT 128) + (:NAME "Front" :X 320 :Y 0 :WIDTH 64 :HEIGHT 128) + (:NAME "LeftProfile" :X 192 :Y 128 :WIDTH 64 :HEIGHT 128) + (:NAME "RightProfile" :X 256 :Y 0 :WIDTH 64 :HEIGHT 128) + (:NAME "WalkBack1" :X 64 :Y 128 :WIDTH 64 :HEIGHT 128) + (:NAME "WalkBack2" :X 128 :Y 128 :WIDTH 64 :HEIGHT 128) + (:NAME "WalkForward1" :X 0 :Y 256 :WIDTH 64 :HEIGHT 128) + (:NAME "WalkForward2" :X 192 :Y 0 :WIDTH 64 :HEIGHT 128) + (:NAME "WalkLeft1" :X 128 :Y 0 :WIDTH 64 :HEIGHT 128) + (:NAME "WalkLeft2" :X 0 :Y 128 :WIDTH 64 :HEIGHT 128) + (:NAME "WalkRight1" :X 64 :Y 0 :WIDTH 64 :HEIGHT 128) + (:NAME "WalkRight2" :X 0 :Y 0 :WIDTH 64 :HEIGHT 128)) diff --git a/assets/Suit.png b/assets/Suit.png Binary files differnew file mode 100644 index 0000000..cd585ed --- /dev/null +++ b/assets/Suit.png 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) |
