blob: 7109559ce7a4f905385404377109f71c346a653e (
plain)
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
;;;; assets.lisp
(in-package #:the-price-of-a-cup-of-coffee)
;;; Utility Functions
(defun find-tile-rect (tile-defs name)
"Return the rect for the tile with NAME in TILE-DEFS list."
(let-when (tl (find name tile-defs
:key (lambda (tl) (getf tl :name))
:test #'string-equal))
(sdl2:make-rect (getf tl :x)
(getf tl :y)
(getf tl :width)
(getf tl :height))))
(defun select-tile-rects (tile-defs &rest names)
(map 'vector ($ #'find-tile-rect tile-defs _) names))
(defstruct (sprite-faces (:conc-name ""))
facing-down walking-down facing-up walking-up
facing-left walking-left facing-right walking-right)
(defun create-sprite-faces (defs)
(make-sprite-faces
:facing-down (select-tile-rects defs "front")
:walking-down (select-tile-rects defs "walkforward1" "front" "walkforward2" "front")
:facing-up (select-tile-rects defs "back")
:walking-up (select-tile-rects defs "walkback1" "back" "walkback2" "back")
:facing-left (select-tile-rects defs "leftprofile")
:walking-left (select-tile-rects defs "walkleft1" "leftprofile" "walkleft2" "leftprofile")
:facing-right (select-tile-rects defs "rightprofile")
:walking-right (select-tile-rects defs "walkright1" "rightprofile" "walkright1" "rightprofile")))
(defparameter +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)))
(defparameter +shared-faces+
(create-sprite-faces +tile-defs+))
(defparameter +nance-sheet-image+ "assets/Nance.png")
(defparameter +suit-sheet-image+ "assets/Suit.png")
(defparameter +nomry-sheet-image+ "assets/Normy.png")
(defparameter +things-look-up-track-path+ #P"assets/thingslookup.mp3")
(defparameter +cold-day-track-path+ #P"assets/coldday.mp3")
(defvar *nance-texture*)
(defvar *suit-texture*)
(defvar *normy-texture*)
(defvar *harmony-initialized-p* nil)
(defvar *cold-day-track*)
(defvar *looking-up-track*)
(defvar *current-track*)
(defun boot-up-assets (renderer)
(with-surface-from-file (surf +nance-sheet-image+)
(setf *nance-texture* (sdl2:create-texture-from-surface renderer surf)))
(with-surface-from-file (surf +suit-sheet-image+)
(setf *suit-texture* (sdl2:create-texture-from-surface renderer surf)))
(with-surface-from-file (surf +nomry-sheet-image+)
(setf *normy-texture* (sdl2:create-texture-from-surface renderer surf)))
(unless *harmony-initialized-p*
(harmony-simple:initialize)
(setf *looking-up-track* (harmony-simple:play +things-look-up-track-path+ :music :loop t))
(harmony-simple:stop *looking-up-track*)
(setf *cold-day-track* (harmony-simple:play +cold-day-track-path+ :music :loop t))
(setf *current-track* *cold-day-track*)
(harmony-simple:stop *cold-day-track*)
(setf *harmony-initialized-p* t)))
(defun free-assets ()
(sdl2:destroy-texture *nance-texture*)
(sdl2:destroy-texture *normy-texture*)
(sdl2:destroy-texture *suit-texture*))
|
