107 lines
3.0 KiB
NASM
107 lines
3.0 KiB
NASM
;================================================================================
|
|
; Item Downgrade Fix
|
|
;--------------------------------------------------------------------------------
|
|
ItemDowngradeFix:
|
|
JSR ItemDowngradeFixMain
|
|
JSL CountChestKeyLong
|
|
RTL
|
|
|
|
ItemDowngradeFixMain:
|
|
JSL.l AddInventory
|
|
BMI .dontWrite ; thing we wrote over part 1
|
|
|
|
CPY.b #$1B : BEQ .isPowerGloves ; Power Gloves
|
|
CPY.b #$05 : BEQ .isRedShield ; Red Shield
|
|
CPY.b #$04 : BEQ .isBlueShield ; Blue Shield
|
|
CPY.b #$0C : BEQ .isBlueBoomerang ; Blue Boomerang
|
|
CPY.b #$0B : BEQ .isBow ; Bow
|
|
CPY.b #$3A : BEQ .isBowAndArrows ; Bow
|
|
|
|
CPY.b #$49 : BEQ .isSword ; Fighter's Sword
|
|
CPY.b #$01 : BEQ .isSword ; Master Sword
|
|
CPY.b #$50 : BEQ .isSword ; Master Sword (Safe)
|
|
CPY.b #$02 : BEQ .isSword ; Tempered Sword
|
|
|
|
CPY.b #$3B : BEQ .isSilverArrowBow ; Silver Arrow Bow
|
|
CPY.b #$2A : BEQ .isRedBoomerang ; Red Boomerang
|
|
CPY.b #$0D : BEQ .isMagicPowder ; Magic Powder
|
|
CPY.b #$14 : BEQ .isFlute ; Flute
|
|
CPY.b #$13 : BEQ .isShovel ; Shovel
|
|
CPY.b #$29 : BEQ .isMushroom ; Mushroom
|
|
|
|
CPY.b #$B1 : !BLT + : CPY.b #$B6 : !BLT .isBombUpgrade : +
|
|
CPY.b #$B7 : !BLT + : CPY.b #$BC : !BLT .isCaneUpgrade : +
|
|
|
|
CPY.b #$00 : BEQ .isUncleSwordShield ; Fighter's Sword & Shield
|
|
|
|
.done
|
|
STA [$00] ; thing we wrote over part 2
|
|
.dontWrite
|
|
RTS
|
|
.isPowerGloves
|
|
.isBlueShield
|
|
.isRedShield
|
|
.isBlueBoomerang
|
|
.isBow
|
|
.isBowAndArrows
|
|
CMP [$00] : !BGE .done ; finished if we're upgrading
|
|
LDA [$00] ; reload old value
|
|
RTS
|
|
.isSilverArrowBow
|
|
.isRedBoomerang
|
|
.isMagicPowder
|
|
.isFlute
|
|
.isShovel
|
|
.isMushroom
|
|
PHA
|
|
LDA [$00] : BNE + ; don't upgrade if we already have the toggle for it
|
|
PLA
|
|
STA [$00]
|
|
RTS
|
|
+
|
|
PLA
|
|
RTS
|
|
.isSword
|
|
PHA
|
|
LDA HighestSword : STA $04
|
|
TYA ; load sword item
|
|
CMP.b #$49 : BNE + : LDA.b #$00 : + ; convert extra fighter's sword to normal one
|
|
CMP.b #$50 : BNE + : LDA.b #$01 : + ; convert extra master sword to normal one
|
|
INC : CMP $04 : !BGE + ; skip if highest is lower (this is an upgrade)
|
|
LDA $04 : DEC ; convert to item id
|
|
TAY : PLA : LDA $04 ; put sword id into the thing to write
|
|
JMP .done
|
|
+
|
|
PLA
|
|
JMP .done
|
|
.isBombUpgrade
|
|
PHA
|
|
TYA ; load bomb upgrade item
|
|
!SUB #$B0 ; convert to bomb level
|
|
CMP.l SpecialWeaponLevel : !BGE + ; skip if highest is lower (this is an upgrade)
|
|
LDA.l SpecialWeaponLevel : !ADD #$B0 ; convert to item id
|
|
TAY : PLA : LDA.l SpecialWeaponLevel ; put bomb level into the thing to write
|
|
JMP .done
|
|
+
|
|
PLA
|
|
JMP .done
|
|
.isCaneUpgrade
|
|
PHA
|
|
TYA ; load cane upgrade item
|
|
!SUB #$B6 ; convert to cane level
|
|
CMP.l SpecialWeaponLevel : !BGE + ; skip if highest is lower (this is an upgrade)
|
|
LDA.l SpecialWeaponLevel : !ADD #$B6 ; convert to item id
|
|
TAY : PLA : LDA.l SpecialWeaponLevel ; put cane level into the thing to write
|
|
JMP .done
|
|
+
|
|
PLA
|
|
JMP .done
|
|
.isUncleSwordShield
|
|
PHA
|
|
LDA HighestSword : STA [$00] ; already set to 1 if we had no sword, always keep highest
|
|
INC $00
|
|
LDA HighestShield : STA [$00]
|
|
PLA
|
|
RTS
|
|
;================================================================================
|