Initial import1.0

1 files changed, 45 insertions, 0 deletions

diff --git a/src/mplayer/mplayer_play_effect_p.z80 b/src/mplayer/mplayer_play_effect_p.z80
new file mode 100644
index 0000000..8efd705
--- /dev/null
+++ b/src/mplayer/mplayer_play_effect_p.z80
@@ -0,0 +1,45 @@
+.module mplayer
+
+.globl _mplayer_play_effect_p
+.globl _mplayer_is_sound_effect_on
+.globl mplayer_current_efx
+
+.globl _PLY_AKM_PLAYSOUNDEFFECT
+
+_mplayer_play_effect_p::
+	ld hl, #2
+	add hl, sp
+
+	ld e, (hl)
+	inc hl
+	ld c, (hl)
+        inc hl
+        ld b, (hl)
+
+        ; e effect no
+        ; bc: channel and volume
+        push bc
+        push de
+        ld l, c
+        call _mplayer_is_sound_effect_on
+
+	ld a, l
+	or a
+        pop de
+        pop bc
+	jr z, play_efx
+
+	ld a, (mplayer_current_efx)
+        ; comment out following line if you don't want to
+        ; replace current sound if is the same effect type
+        dec a
+	cp e
+	ret nc
+
+play_efx:
+	; all good, play the effect
+	ld a, e
+	ld (mplayer_current_efx), a
+
+        jp _PLY_AKM_PLAYSOUNDEFFECT
+