96 lines
2.6 KiB
NASM
96 lines
2.6 KiB
NASM
;===========================================================
|
|
; Bunny Hood Item
|
|
; Makes Link run quicker when holding
|
|
; Written by Conn (I think)
|
|
; $7EF349 bunny hood RAM slot
|
|
;
|
|
; Adjustable speed table at the end
|
|
; db (0) $18: - Horizontal and vertical walking speed
|
|
; (Default = 18)
|
|
; db (1) $10 - Diagonal walking speed
|
|
; (Default = 10)
|
|
; db (2) $0a - Stairs walking speed
|
|
; (Default = 0A)
|
|
; db (0c) $14 - walking through heavy grass speed (also shallow water)
|
|
; (Default = 14)
|
|
; db (0d) $0d - walking diagonally through heavy grass speed (also shallow water)
|
|
; (Default = 0D)
|
|
; db (10) $40 - Pegasus boots speed (Default = 40)
|
|
;
|
|
;===========================================================
|
|
|
|
org $07A494
|
|
LinkItem_Ether:
|
|
{
|
|
JSR Link_CheckNewY_ButtonPress : BCC .return
|
|
LDA $3A : AND.b #$BF : STA $3A ; clear the Y button state
|
|
|
|
LDA $6C : BNE .return ; in a doorway
|
|
LDA $0FFC : BNE .return ; can't open menu
|
|
|
|
LDY.b #$04 : LDA.b #$23
|
|
JSL AddTransformationCloud
|
|
LDA.b #$14 : JSR Player_DoSfx2
|
|
|
|
LDA $02B2 : CMP #$04 : BEQ .unequip ; is the hood already on?
|
|
JSL UpdateBunnyPalette
|
|
LDA #$37 : STA $BC ; change link's sprite
|
|
LDA #$04 : STA $02B2
|
|
BRA .return
|
|
.unequip
|
|
JSL Palette_ArmorAndGloves
|
|
LDA #$10 : STA $BC : STZ $02B2 ; take the hood off
|
|
|
|
.return
|
|
CLC
|
|
RTS
|
|
}
|
|
|
|
org $378000
|
|
incbin gfx/bunny_link.4bpp
|
|
|
|
UpdateBunnyPalette:
|
|
{
|
|
REP #$30 ; change 16bit mode
|
|
LDX #$001E
|
|
|
|
.loop
|
|
LDA.l bunny_palette, X : STA $7EC6E0, X
|
|
DEX : DEX : BPL .loop
|
|
|
|
SEP #$30 ; go back to 8 bit mode
|
|
INC $15 ; update the palette
|
|
RTL ; or RTS depending on where you need it
|
|
}
|
|
|
|
|
|
bunny_palette:
|
|
dw #$7BDE, #$7FFF, #$2F7D, #$19B5, #$3A9C, #$14A5, #$19FD, #$14B6, #$55BB, #$362A, #$3F4E, #$162B, #$22D0, #$2E5A, #$1970, #$7616, #$6565, #$7271, #$2AB7, #$477E, #$1997, #$14B5, #$459B, #$69F2, #$7AB8, #$2609, #$19D8, #$3D95, #$567C, #$1890, #$52F6, #$2357, #$0000
|
|
|
|
|
|
org $87E330
|
|
JSR $FD66
|
|
CLC
|
|
|
|
org $87FD66
|
|
JSL $20AF20
|
|
RTS
|
|
|
|
org $20AF20
|
|
CPX.b #$11 : BCS end ; speed value upper bound check
|
|
LDA.w $0202 ; check the current item
|
|
CMP.b #$16 : BNE end ; is it the bunny hood?
|
|
LDA.w $02B2 ; did you put it on?
|
|
BEQ end
|
|
LDA $20AF70,X ; load new speed values
|
|
CLC
|
|
RTL
|
|
|
|
end: {
|
|
LDA $87E227,X ; load native speed values
|
|
CLC
|
|
RTL
|
|
}
|
|
|
|
org $20AF70 ; this selects the new speed values
|
|
db $20, $12, $0a, $18, $10, $08, $08, $04, $0c, $10, $09, $19, $14, $0d, $10, $08, $40 |