Compare commits

...

2 Commits

Author SHA1 Message Date
Randy Thiemann f1a341a751 Make the SFX for sonic drops and landings a bit more subtle. 2023-10-21 19:25:00 +02:00
Randy Thiemann aa948a2214 Actually fix the IRS bug. 2023-10-21 19:24:35 +02:00
3 changed files with 20 additions and 10 deletions

View File

@ -973,7 +973,8 @@ FieldProcess::
ldh a, [hDownState] ldh a, [hDownState]
cp a, 0 cp a, 0
jr nz, :+ jr nz, :+
ld a, SFX_DROP call SFXKill
ld a, SFX_MOVE
call SFXEnqueue call SFXEnqueue
; If the down button is held, lock. ; If the down button is held, lock.
: ldh a, [hDownState] : ldh a, [hDownState]
@ -987,6 +988,7 @@ FieldProcess::
; If we're out of lock delay, play a sound. ; If we're out of lock delay, play a sound.
cp a, 0 cp a, 0
jr nz, .draw jr nz, .draw
call SFXKill
ld a, SFX_LOCK ld a, SFX_LOCK
call SFXEnqueue call SFXEnqueue
jr .draw jr .draw

View File

@ -715,7 +715,7 @@ sSFXBell::
db REG_NR22_CH2_VOLEV, $08, REG_NR23_CH2_FRQLO, $97, REG_NR24_CH2_FRQHI, $87, $FE db REG_NR22_CH2_VOLEV, $08, REG_NR23_CH2_FRQLO, $97, REG_NR24_CH2_FRQHI, $87, $FE
sSFXBellEnd:: sSFXBellEnd::
sSFXMove:: sSFXMove::
db REG_NR42_CH4_VOLEV, $21, REG_NR41_CH4_LENGT, $3F, REG_NR42_CH4_VOLEV, $21, REG_NR43_CH4_FQRND, $00 db REG_NR42_CH4_VOLEV, $F1, REG_NR41_CH4_LENGT, $3F, REG_NR42_CH4_VOLEV, $F1, REG_NR43_CH4_FQRND, $00
db REG_NR44_CH4_CNTRL, $80, $FE db REG_NR44_CH4_CNTRL, $80, $FE
sSFXMoveEnd:: sSFXMoveEnd::
sSFXRankUp:: sSFXRankUp::

View File

@ -205,16 +205,18 @@ fetchPieceMode:
jr z, .lda1 jr z, .lda1
.ldb1 .ldb1
ldh a, [hBState] ldh a, [hBState]
cp a, 0
jr z, .checkIRSB
ld a, $FF ld a, $FF
ldh [hBState], a ldh [hBState], a
jr .cp1 jr .cp1
.lda1 .lda1
ldh a, [hAState] ldh a, [hAState]
cp a, 0
jr z, .checkIRSB
ld a, $FF ld a, $FF
ldh [hAState], a ldh [hAState], a
.cp1 .cp1
cp a, 0
jr z, .checkIRSB
ld a, 3 ld a, 3
ldh [hCurrentPieceRotationState], a ldh [hCurrentPieceRotationState], a
ld a, SFX_IRS ld a, SFX_IRS
@ -226,16 +228,18 @@ fetchPieceMode:
jr z, .ldb2 jr z, .ldb2
.lda2 .lda2
ld a, [hAState] ld a, [hAState]
cp a, 0
jr z, .checkJingle
ld a, $FF ld a, $FF
ldh [hAState], a ldh [hAState], a
jr .cp2 jr .cp2
.ldb2 .ldb2
ldh a, [hBState] ldh a, [hBState]
cp a, 0
jr z, .checkJingle
ld a, $FF ld a, $FF
ldh [hBState], a ldh [hBState], a
.cp2 .cp2
cp a, 0
jr z, .checkJingle
ld a, 1 ld a, 1
ldh [hCurrentPieceRotationState], a ldh [hCurrentPieceRotationState], a
ld a, SFX_IRS ld a, SFX_IRS
@ -476,16 +480,18 @@ DoHold:
jr z, .lda3 jr z, .lda3
.ldb3 .ldb3
ldh a, [hBState] ldh a, [hBState]
cp a, 0
cp z, .checkIRSHB
ld a, $FF ld a, $FF
ldh [hBState], a ldh [hBState], a
jr .cp3 jr .cp3
.lda3 .lda3
ldh a, [hAState] ldh a, [hAState]
cp a, 0
cp z, .checkIRSHB
ld a, $FF ld a, $FF
ldh [hAState], a ldh [hAState], a
.cp3 .cp3
cp a, 0
jr z, .checkIRSHB
ld a, 3 ld a, 3
ldh [hCurrentPieceRotationState], a ldh [hCurrentPieceRotationState], a
ld a, SFX_IRS ld a, SFX_IRS
@ -497,16 +503,18 @@ DoHold:
jr z, .ldb4 jr z, .ldb4
.lda4 .lda4
ldh a, [hAState] ldh a, [hAState]
cp a, 0
jr z, .noRotation
ld a, $FF ld a, $FF
ldh [hAState], a ldh [hAState], a
jr .cp4 jr .cp4
.ldb4 .ldb4
ldh a, [hBState] ldh a, [hBState]
cp a, 0
jr z, .noRotation
ld a, $FF ld a, $FF
ldh [hBState], a ldh [hBState], a
.cp4 .cp4
cp a, 0
jr z, .noRotation
ld a, 1 ld a, 1
ldh [hCurrentPieceRotationState], a ldh [hCurrentPieceRotationState], a
ld a, SFX_IRS ld a, SFX_IRS