Files
oracle-of-secrets/Masks/gbc_form.asm
2024-05-27 22:55:13 -04:00

124 lines
2.3 KiB
NASM

; ========================================
; GBC Link
; ========================================
UpdateGbcPalette:
{
REP #$30 ; change 16bit mode
LDX #$001E
LDA $7EF35B : AND.w #$00FF : CMP #$0001 : BEQ .blue_mail
.loop
LDA.l GameboyLinkPalette, 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
.blue_mail
LDX #$001E
.loop2
LDA.l GameboyLinkBlueMail, X : STA $7EC6E0, X
DEX : DEX : BPL .loop2
SEP #$30 ; go back to 8 bit mode
INC $15 ; update the palette
RTL ; or RTS depending on where you need it
}
GameboyLinkPalette:
{
dw #$0000, #$7FFF, #$237E, #$B711, #$369E, #$14A5, #$01FF, #$1078
dw #$46FF, #$22A2, #$3B68, #$0A4A, #$12EF, #$2A5C, #$1571, #$7A18
}
GameboyLinkBlueMail:
{
dw #$0000, #$7FFF, #$237E, #$B711, #$369E, #$14A5, #$01FF, #$1078
dw #$46FF, #$4D25, #$3B68, #$0A4A, #$12EF, #$2A5C, #$1571, #$7A18
}
LinkState_GameboyInDungeonEntrance:
{
; if link is in the dark world, change his sprite to the gbc one
LDA $0FFF : CMP #$00 : BEQ .return
LDA $BC : CMP #$06 : BEQ .return
JSL UpdateGbcPalette
LDA #$3B : STA $BC ; change link's sprite
.return
JSL $0AFE80 ; Underworld_HandleLayerEffect
RTL
}
; Retain GBC sprite when exiting DW dungeons
LoadOverworld_CheckForGbcLink:
{
LDA $0FFF : BEQ .return
JSL UpdateGbcPalette
LDA #$3B : STA $BC ; change link's sprite
.return
STZ.b $B0
STZ.b $11
RTL
}
; Module08_02_LoadAndAdvance
org $02EDC0
{
JSL LoadOverworld_CheckForGbcLink
}
org $07A9B1
LinkMode_MagicMirror:
{
JSL LinkState_GameboyForm
}
org $0287A4
{
JSL LinkState_GameboyInDungeonEntrance
}
org $1EE48E
; TODO: Check a status flag to dismiss villager girl
NOP #6
org $09ACFF
; TODO: Decide if we want to disable other followers
LDA.b #$0A
org $09A903
db $02 ; Kiki palette
pullpc
LinkState_GameboyForm:
{
SEP #$30
LDA $02B2 : CMP.b #$06 : BEQ .already_gbc
LDA $0FFF : BEQ .return ; not in dark world
.transform
%PlayerTransform()
JSL UpdateGbcPalette
LDA #$3B : STA $BC ; change link's sprite
LDA #$06 : STA $02B2
BRA .return
.already_gbc
%PlayerTransform()
LDA #$10 : STA $BC
STZ $02B2
.not_gbc
.return
JSL $07F1E6
RTL
}
pushpc