BirDt/bitter-duel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

SFX and some more sprites

Browse source
This commit is contained in:
Jakub 2026-05-24 16:49:19 +08:00
parent 277a040f5f
commit 030b35e4fa
26 changed files with 128 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

2
modules/grid.scm
View file

@ -41,7 +41,7 @@
width
(cond
((eqv? entity 'player) (make-color 0 0 1 1))
((eqv? entity 'foe) (make-color 1 0 0 1))
((eqv? entity 'enemy) (make-color 1 0 0 1))
(else (make-color 0 0 0 1)))
(not (eqv? entity 'none))
2)))))

1
modules/ui.scm
View file

@ -208,6 +208,7 @@
;; If button is clicked, exec button click func
(define (do-button-callback button)
(when (eqv? 'clicked (button-state button))
(play-sound (load-sound "../res/sfx/click.wav"))
((button-click-fn button))))
;; Needs to be added to do buttons