summaryrefslogtreecommitdiff
path: root/bonnie-bee/assets.scm
blob: 35420434ef539c51c9cc35a00afb705fcbee5f20 (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
(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
            beetle-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 beetle-image (load-image (scope-datadir "assets/images/beetle.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.ogg") #:mode 'stream))
(define-asset main-music (load-audio (scope-datadir "assets/sounds/main.ogg") #:mode 'stream))