From ae60497f7722e01ccceebe799b5820717e048eb3 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 20 Oct 2021 18:42:10 -0400 Subject: Haven't committed in days, oops! --- bonnie-bee/assets.scm | 34 +++++++++++++++++++++++++++++++++- 1 file changed, 33 insertions(+), 1 deletion(-) (limited to 'bonnie-bee/assets.scm') 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)) -- cgit v1.2.3