From c70b3cb2cab64d550a585dcfbc166bf30c0ea955 Mon Sep 17 00:00:00 2001 From: Astatin Date: Tue, 12 Aug 2025 13:17:58 +0200 Subject: Add jump, damage, earcoptr and hop sound effects --- music/soundeffects/earcoptr.gbasm | 60 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 60 insertions(+) create mode 100644 music/soundeffects/earcoptr.gbasm (limited to 'music/soundeffects/earcoptr.gbasm') diff --git a/music/soundeffects/earcoptr.gbasm b/music/soundeffects/earcoptr.gbasm new file mode 100644 index 0000000..bbccb65 --- /dev/null +++ b/music/soundeffects/earcoptr.gbasm @@ -0,0 +1,60 @@ +_sound_effect_Earcoptr_slide_data: +.DB $e7, $86, $c4, $06, $9e, $06, $72, $06, $42, $06, $0b, $06, $ce, $05, $89, $05 +_sound_effect_Earcoptr_slide_data.semi: +.DB $3b, $05, $e5, $04, $83, $04, $16, $04, $9b, $03, $12, $03, $77, $02, $c9, $01 +_sound_effect_Earcoptr_slide_data.end: + +_sound_effect_Earcoptr: + LD A, $mem_sound_flags + SET 2, A + LD $mem_sound_flags, A + + + LD A, $80 + LD ($19), A + + .MACRODEF EARCOPTER_SOUND_LOOP =start =end + LD HL, =start + + $loop: + LD A, (HL+) + LD ($18), A + + LD A, (HL+) + LD ($19), A + + .RET_WAIT_NEXT_FRAME_SAVE_HL + + LD A, H + CP high(=end) + JR NZ, =$loop + LD A, L + CP low(=end) + JR NZ, =$loop + $end: + .END + + LD A, $3f + LD ($16), A + LD A, $82 + LD ($17), A + .EARCOPTER_SOUND_LOOP =_sound_effect_Earcoptr_slide_data, =_sound_effect_Earcoptr_slide_data.semi + + LD A, $3f + LD ($16), A + LD A, $82 + LD ($17), A + .EARCOPTER_SOUND_LOOP =_sound_effect_Earcoptr_slide_data, =_sound_effect_Earcoptr_slide_data.semi + + LD A, $3f + LD ($16), A + LD A, $82 + LD ($17), A + .EARCOPTER_SOUND_LOOP =_sound_effect_Earcoptr_slide_data, =_sound_effect_Earcoptr_slide_data.end + + LD A, $mem_sound_flags + AND 0b11000001 + LD $mem_sound_flags, A + LD A, $ff + LD ($mem_sound_effect_pc), A + RET -- cgit v1.2.3-70-g09d2