blob: 6b92649e08e0763169f88bcd6e0b63b2c2b643d7 (
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
|
(define-module (bonnie-bee assets)
#:use-module (chickadee audio)
#:use-module (chickadee graphics font)
#:use-module (chickadee graphics texture)
#:use-module (starling asset)
#:export (chonkly-font
monogram-font
background-image
particle-image
bee-atlas
bullet-atlas
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))
|
