From 78f5f0496da67c9321f7de5854512002c677057d Mon Sep 17 00:00:00 2001 From: Boutade Date: Sat, 19 Oct 2019 09:59:37 -0500 Subject: added punker --- assets.lisp | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'assets.lisp') diff --git a/assets.lisp b/assets.lisp index b375c5b..53d0c91 100644 --- a/assets.lisp +++ b/assets.lisp @@ -97,6 +97,7 @@ (defparameter +suit-sheet-image+ #P"assets/Suit.png") (defparameter +nomry-sheet-image+ #P"assets/Normy.png") (defparameter +kid-sheet-image+ #P"assets/KidSheet.png") +(defparameter +punker-sheet-image+ #P"assets/Punker.png") (defparameter +things-look-up-track-path+ #P"assets/thingslookup.mp3") (defparameter +cold-day-track-path+ #P"assets/coldday.mp3") (defparameter +emoji-sheet-image+ #P"assets/emoji.png") @@ -109,6 +110,7 @@ (defvar *suit-texture*) (defvar *normy-texture*) (defvar *kid-texture*) +(defvar *punker-texture*) (defvar *expression-texture*) (defvar *backdrop-texture*) (defvar *sliding-door-texture*) @@ -137,6 +139,8 @@ (setf *kid-texture* (make-texture-from-file renderer +kid-sheet-image+)) + (setf *punker-texture* (make-texture-from-file renderer +punker-sheet-image+)) + (setf *expression-texture* (make-texture-from-file renderer +emoji-sheet-image+)) (setf *sliding-door-texture* (make-texture-from-file renderer +sliding-door-image+)) -- cgit v1.2.3