blob: a6c23587ace64686ee948e06cc1d393428df180c (
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
|
(define-module (bonnie-bee assets)
#:use-module (chickadee audio)
#:use-module (chickadee graphics text)
#:use-module (chickadee graphics texture)
#:use-module (catbird asset)
#:export (monogram-font
background-image
particle-image
darkness-image
lightness-image
chickadee-image
bee-atlas
bullet-atlas
popcorn-atlas
flower-atlas
turret-atlas
moth-atlas
beetle-atlas
explosion-sound
pickup-sound
enemy-shoot-sound
enemy-hit-sound
player-death-sound
player-shoot-sound
player-bomb-sound
pollen-release-sound
hehehe-sound
alarm-sound
intro-music
main-music))
(define (scope-datadir file-name)
(let ((prefix (or (getenv "BONNIE_BEE_DATADIR") (getcwd))))
(string-append prefix "/" file-name)))
(define (font-file file-name)
(scope-datadir (string-append "assets/fonts/" file-name)))
(define (image-file file-name)
(scope-datadir (string-append "assets/images/" file-name)))
(define (audio-file file-name)
(scope-datadir (string-append "assets/sounds/" file-name)))
(define-font monogram-font (font-file "monogram_extended.ttf") 12)
(define-image background-image (image-file "background.png"))
(define-image particle-image (image-file "particle.png"))
(define-image darkness-image (image-file "darkness.png"))
(define-image lightness-image (image-file "lightness.png"))
(define-image chickadee-image (image-file "chickadee.png"))
(define-tileset bee-atlas (image-file "bee.png") 32 32)
(define-tileset bullet-atlas (image-file "bullets.png") 16 16)
(define-tileset flower-atlas (image-file "flower.png") 64 64)
(define-tileset popcorn-atlas (image-file "popcorn.png") 32 32)
(define-tileset turret-atlas (image-file "turret.png") 64 64)
(define-tileset moth-atlas (image-file "moth.png") 64 64)
(define-tileset beetle-atlas (image-file "beetle.png") 128 64)
(define-audio explosion-sound (audio-file "explosion.wav"))
(define-audio pickup-sound (audio-file "pickup.wav"))
(define-audio enemy-shoot-sound (audio-file "enemy-shoot.wav"))
(define-audio enemy-hit-sound (audio-file "enemy-hit.wav"))
(define-audio player-death-sound (audio-file "player-death.wav"))
(define-audio player-shoot-sound (audio-file "player-shoot.wav"))
(define-audio player-bomb-sound (audio-file "player-bomb.wav"))
(define-audio pollen-release-sound (audio-file "pollen-release.wav"))
(define-audio hehehe-sound (audio-file "hehehe.wav"))
(define-audio alarm-sound (audio-file "alarm.wav"))
(define-audio intro-music (audio-file "intro.ogg") #:mode 'stream)
(define-audio main-music (audio-file "main.ogg") #:mode 'stream)
|
