summaryrefslogtreecommitdiff
path: root/bonnie-bee/assets.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2021-10-20 18:42:10 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2021-10-20 18:42:10 -0400
commitae60497f7722e01ccceebe799b5820717e048eb3 (patch)
tree7977b53565d5f1e259d90903213f1add3fefabce /bonnie-bee/assets.scm
parentde833c9d524d2e47b3812612995290795d2e7b84 (diff)
Haven't committed in days, oops!
Diffstat (limited to 'bonnie-bee/assets.scm')
-rw-r--r--bonnie-bee/assets.scm34
1 files changed, 33 insertions, 1 deletions
diff --git a/bonnie-bee/assets.scm b/bonnie-bee/assets.scm
index 5337215..6b92649 100644
--- a/bonnie-bee/assets.scm
+++ b/bonnie-bee/assets.scm
@@ -4,15 +4,47 @@
#:use-module (chickadee graphics texture)
#:use-module (starling asset)
#:export (chonkly-font
+ monogram-font
+ background-image
+ particle-image
bee-atlas
bullet-atlas
- flower-image))
+ popcorn-image
+ flower-image
+ turret-image
+ moth-image
+ explosion-sound
+ pickup-sound
+ enemy-shoot-sound
+ enemy-hit-sound
+ player-death-sound
+ player-shoot-sound
+ player-bomb-sound
+ pollen-release-sound
+ intro-music
+ main-music))
(define (scope-datadir file-name)
(let ((prefix (or (getenv "BONNIE_BEE_DATADIR") (getcwd))))
(string-append prefix "/" file-name)))
(define-asset chonkly-font (load-font (scope-datadir "assets/fonts/Chonkly.otf") 16))
+(define-asset monogram-font (load-font (scope-datadir "assets/fonts/monogram_extended.ttf") 12))
+(define-asset background-image (load-image (scope-datadir "assets/images/background.png")))
+(define-asset particle-image (load-image (scope-datadir "assets/images/particle.png")))
(define-asset bee-atlas (load-tileset (scope-datadir "assets/images/bee.png") 32 32))
(define-asset bullet-atlas (load-tileset (scope-datadir "assets/images/bullets.png") 16 16))
(define-asset flower-image (load-image (scope-datadir "assets/images/flower.png")))
+(define-asset popcorn-image (load-image (scope-datadir "assets/images/popcorn.png")))
+(define-asset turret-image (load-image (scope-datadir "assets/images/flower-turret.png")))
+(define-asset moth-image (load-image (scope-datadir "assets/images/moth.png")))
+(define-asset explosion-sound (load-audio (scope-datadir "assets/sounds/explosion.wav")))
+(define-asset pickup-sound (load-audio (scope-datadir "assets/sounds/pickup.wav")))
+(define-asset enemy-shoot-sound (load-audio (scope-datadir "assets/sounds/enemy-shoot.wav")))
+(define-asset enemy-hit-sound (load-audio (scope-datadir "assets/sounds/enemy-hit.wav")))
+(define-asset player-death-sound (load-audio (scope-datadir "assets/sounds/player-death.wav")))
+(define-asset player-shoot-sound (load-audio (scope-datadir "assets/sounds/player-shoot.wav")))
+(define-asset player-bomb-sound (load-audio (scope-datadir "assets/sounds/player-bomb.wav")))
+(define-asset pollen-release-sound (load-audio (scope-datadir "assets/sounds/pollen-release.wav")))
+(define-asset intro-music (load-audio (scope-datadir "assets/sounds/intro.wav") #:mode 'stream))
+(define-asset main-music (load-audio (scope-datadir "assets/sounds/main.wav") #:mode 'stream))