;============================================================================
; Faxanadu (U).nes
;
; PRG14 ($8000 - $bfff)
;============================================================================

BASE $8000

;============================================================================
; TODO: Document Sprites_UpdateAll
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     EndGame_MainLoop
;     Game_MainLoop
;     GetRandom
;============================================================================
Sprites_UpdateAll:; [$8000]
LDA a:Sprites_UpdatesPaused
BNE @_spritesLoop
LDA a:DurationHourGlass
CMP #$ff
BNE @_spritesLoop

;
; The Hour Glass isn't being used and sprites aren't paused,
; so sprites can be updated.
;
INC a:SpriteUpdateCounter

;
; Begin the loop.
;
@_spritesLoop:; [$800f]
LDX #$07

;
; Process this sprite slot if it's populated with a
; valid sprite.
;
@_updateSprite:; [$8011]
STX a:CurrentSpriteIndex
LDA CurrentSprites_Entities,X
BMI @LAB_PRG14__8043

;
; The sprite at this index has a valid value, so proceed.
;
; We'll start by making sure that the elixir isn't set (again).
;
LDA a:Sprites_UpdatesPaused
BNE @_updateSpriteState

;
; The elixir is not active. Check if the sprite was hit.
;
LDA CurrentSprites_HitCounter,X
BNE @_handleHit
LDA CurrentSprites_HitByMagicBehavior,X
BMI @LAB_PRG14__802e
JSR Sprites_Maybe_UpdateHitByMagic
JMP @_updateSpriteState

@LAB_PRG14__802e:; [$802e]
JSR Sprites_UpdateBehavior
JSR Player_HitSpriteWithWeapon
JSR Sprite_CheckHitByCastMagic
JSR Sprite_GetBounds
JSR WasPlayerHitByMagic
JSR CurrentSprite_CheckHitPlayer

@_updateSpriteState:; [$8040]
JSR CurrentSprite_UpdateState

@LAB_PRG14__8043:; [$8043]
LDX a:CurrentSpriteIndex
DEX
BPL @_updateSprite
LDA #$00
STA Maybe_CurrentSprite_PPUOffset
RTS

;
; The sprite has been hit. Reduce the hit counter. It'll
; eventually get to 0 if it's not hit again recently.
;
@_handleHit:; [$804e]
DEC CurrentSprites_HitCounter,X
LDA CurrentSprites_Entities,X

;
; Check if this sprite is Tamazutsu, Pakukame, or Zorugeriru.
;
CMP #$2c
BEQ @_updateSpriteState
CMP #$30
BEQ @_updateSpriteState
CMP #$31
BEQ @_updateSpriteState

;
; It's not any of those.
;
LDA #$02
STA a:Arg_DeltaX_Full
LDA #$00
STA a:Arg_DeltaX_Frac
JSR Sprites_Something_SomethingAndMoveHoriz
JMP @_updateSpriteState

;============================================================================
; TODO: Document Sprites_UpdateAllStates
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     Game_DrawScreenInFrozenState
;============================================================================
Sprites_UpdateAllStates:; [$8070]
LDA a:CurrentSpriteIndex
PHA
LDX #$07

@_loop:; [$8076]
STX a:CurrentSpriteIndex
JSR CurrentSprite_UpdateState
LDX a:CurrentSpriteIndex
DEX
BPL @_loop
PLA
STA a:CurrentSpriteIndex
RTS

;
; XREFS:
;     CurrentSprite_UpdateState
;
SPRITE_UPDATE_HANDLERS:; [$8087]
dw SpriteUpdateHandler_Invisible-1; [0]:
dw SpriteUpdateHandler_Bread-1; [1]: Dropped bread
dw SpriteUpdateHandler_Coin-1; [2]: Dropped coin
dw SpriteUpdateHandler_Garbled03-1; [3]: TODO: Garbled 3
dw SpriteUpdateHandler_Enemy_Raiden-1; [4]: Enemy: Raiden
dw SpriteUpdateHandler_Enemy_NecronAides-1; [5]: Enemy: Necron Aides
dw SpriteUpdateHandler_Enemy_Zombie-1; [6]: Enemy: Zombie
dw SpriteUpdateHandler_Enemy_Hornet-1; [7]: Enemy: Hornet
dw SpriteUpdateHandler_Enemy_Bihoruda-1; [8]: Enemy: Bihoruda
dw SpriteUpdateHandler_Enemy_Lilith-1; [9]: Enemy: Lilith


;============================================================================
; SpriteUpdateHandler_Enemy_Garbled_10
;============================================================================
dw SpriteUpdateHandler_TODO_Garbled10-1; [10]: TODO: Garbled 10
dw SpriteUpdateHandler_Enemy_Yuinaru-1; [11]: Enemy: Yuinaru
dw SpriteUpdateHandler_Enemy_Snowman-1; [12]: Enemy: Snowman
dw SpriteUpdateHandler_Enemy_Nash-1; [13]: Enemy: Nash
dw SpriteUpdateHandler_Enemy_FireGiant-1; [14]: Enemy: Fire Giant
dw SpriteUpdateHandler_Enemy_Ishiisu-1; [15]: Enemy: Ishiisu
dw SpriteUpdateHandler_Enemy_ExecutionHood-1; [16]: Enemy: Execution Hood
dw SpriteUpdateHandler_Boss_Rokusutahn-1; [17]: Boss: Rokusutahn
dw SpriteUpdateHandler_Enemy_Unused18-1; [18]: Enemy: Unused #18
dw SpriteUpdateHandler_Effect_EnemyDeath-1; [19]: Effect: Enemy Death
dw SpriteUpdateHandler_Effect_LightningBall20-1; [20]: Effect: Lightning Ball
dw SpriteUpdateHandler_Enemy_Charron-1; [21]: Enemy: Charron
dw SpriteUpdateHandler_Invisible-1; [22]: Enemy: Unused 22
dw SpriteUpdateHandler_Enemy_Geributa-1; [23]: Enemy: Geributa
dw SpriteUpdateHandler_Enemy_Sugata-1; [24]: Enemy: Sugata
dw SpriteUpdateHandler_Enemy_Grimlock-1; [25]: Enemy: Grimlock
dw SpriteUpdateHandler_Enemy_GiantBees-1; [26]: Enemy: Giant Bees
dw SpriteUpdateHandler_Enemy_Myconid-1; [27]: Enemy: Myconid
dw SpriteUpdateHandler_Enemy_Naga-1; [28]: Enemy: Naga
dw SpriteUpdateHandler_Enemy_Unused29-1; [29]: Enemy: Unused #29
dw SpriteUpdateHandler_Enemy_GiantStrider-1; [30]: Enemy: Giant Strider
dw SpriteUpdateHandler_Enemy_SirGawaine_Wolfman-1; [31]: Enemy: Sir Gawaine
dw SpriteUpdateHandler_Enemy_Maskman-1; [32]: Enemy: Maskman
dw thunk_SpriteUpdateHandler_Enemy_SirGawaine_Wolfman-1; [33]: Enemy: Wolfman
dw SpriteUpdateHandler_Enemy_Yareeka-1; [34]: Enemy: Yareeka
dw SpriteUpdateHandler_Enemy_Magman-1; [35]: Enemy: Magman
dw SpriteUpdateHandler_Enemy_Unused36-1; [36]: Enemy: Unused #36
dw SpriteUpdateHandler_Invisible-1; [37]: Enemy: Unused #37
dw SpriteUpdateHandler_Enemy_Ikeda-1; [38]: Enemy: Ikeda
dw SpriteUpdateHandler_Enemy_Unused39-1; [39]: Enemy: Unused #39
dw SpriteUpdateHandler_Enemy_Lamprey-1; [40]: Enemy: Lamprey
dw SpriteUpdateHandler_Invisible-1; [41]: Enemy: Unused #41
dw SpriteUpdateHandler_Enemy_Monodron-1; [42]: Enemy: Monodron
dw SpriteUpdateHandler_Enemy_Unused43-1; [43]: Unused #43
dw SpriteUpdateHandler_Enemy_Tamazutsu-1; [44]: Enemy: Tamazutsu
dw SpriteUpdateHandler_Boss_Ripasheiku-1; [45]: Boss: Ripasheiku
dw SpriteUpdateHandler_Boss_Zoradohna-1; [46]: Boss: Zoradohna
dw SpriteUpdateHandler_Boss_Borabohra-1; [47]: Boss: Borabohra
dw SpriteUpdateHandler_Boss_Pakukame-1; [48]: Boss: Pakukame
dw SpriteUpdateHandler_Boss_Zorugeriru-1; [49]: Boss: Zorugeriru
dw SpriteUpdateHandler_Boss_KingGrieve-1; [50]: Boss: King Grieve
dw SpriteUpdateHandler_Boss_ShadowEura-1; [51]: Boss: Shadow Eura
dw SpriteUpdateHandler_NPC_Walking-1; [52]: NPC: Walking man 1
dw thunk1_SpriteUpdateHandler_NPC_Walking-1; [53]: NPC: Unused Blue Lady
dw thunk2_SpriteUpdateHandler_NPC_Walking-1; [54]: NPC: Unused Child
dw SpriteUpdateHandler_NPC_ArmorSalesman-1; [55]: NPC: Armor Salesman
dw SpriteUpdateHandler_NPC_MartialArts-1; [56]: NPC: Martial Arts
dw SpriteUpdateHandler_NPC_Priest-1; [57]: NPC: Priest
dw SpriteUpdateHandler_NPC_King-1; [58]: NPC: King
dw SpriteUpdateHandler_NPC_MagicTeacher-1; [59]: NPC: Magic Teacher
dw SpriteUpdateHandler_NPC_KeySalesman_Others-1; [60]: NPC: Key Salesman
dw SpriteUpdateHandler_NPC_KeySalesman_Others-1; [61]: NPC: Smoking Man
dw SpriteUpdateHandler_NPC_KeySalesman_Others-1; [62]: NPC: Man in Chair
dw SpriteUpdateHandler_NPC_KeySalesman_Others-1; [63]: NPC: Sitting Man 1
dw SpriteUpdateHandler_NPC_MeatSalesman_Others-1; [64]: NPC: Meat Salesman
dw SpriteUpdateHandler_NPC_MeatSalesman_Others-1; [65]: NPC: Lady in blue dress with cup
dw SpriteUpdateHandler_NPC_MeatSalesman_Others-1; [66]: NPC: King's Guard
dw SpriteUpdateHandler_NPC_Doctor-1; [67]: NPC: Doctor
dw SpriteUpdateHandler_NPC_MeatSalesman_Others-1; [68]: NPC: Walking Woman 1
dw SpriteUpdateHandler_NPC_MeatSalesman_Others-1; [69]: NPC: Walking Woman 2
dw SpriteUpdateHandler_Enemy_UnusedEyeball_Zozura-1; [70]: Enemy: Unused eyeball
dw SpriteUpdateHandler_Enemy_UnusedEyeball_Zozura-1; [71]: Enemy: Zozura
dw SpriteUpdateHandler_Item_Standard-1; [72]: Item: Glove
dw SpriteUpdateHandler_Item_Special-1; [73]: Item: Black Onyx
dw SpriteUpdateHandler_Item_Special-1; [74]: Item: Pendant
dw SpriteUpdateHandler_Item_Standard-1; [75]: Item: Red Potion
dw SpriteUpdateHandler_Item_Standard-1; [76]: Item: Poison
dw SpriteUpdateHandler_Item_Standard-1; [77]: Item: Elixir
dw SpriteUpdateHandler_Item_Standard-1; [78]: Item: Ointment
dw SpriteUpdateHandler_Invisible-1; [79]: Item: Intro trigger start point
dw SpriteUpdateHandler_Item_Standard-1; [80]: Item: Mattock
dw SpriteUpdateHandler_TODO_Garbled_81-1; [81]: TODO: Garbled #81
dw SpriteUpdateHandler_Deco_Fountain-1; [82]: Deco: Fountain
dw SpriteUpdateHandler_TODO_Unknown_83-1; [83]: TODO: Unknown #83
dw SpriteUpdateHandler_EnemyMagic-1; [84]: TODO: Unknown #84
dw SpriteUpdateHandler_Item_Standard-1; [85]: Item: Wing Boots
dw SpriteUpdateHandler_Item_Standard-1; [86]: Item: Hour Glass
dw SpriteUpdateHandler_Item_Special-1; [87]: Item: Magical Rod
dw SpriteUpdateHandler_Item_Special-1; [88]: Item: Battle Suit
dw SpriteUpdateHandler_Item_Special-1; [89]: Item: Battle Helmet
dw SpriteUpdateHandler_Item_Special-1; [90]: Item: Dragon Slayer
dw SpriteUpdateHandler_Item_Standard-1; [91]: Item: Mattock #2
dw SpriteUpdateHandler_Item_Standard-1; [92]: Item: Wing Boots (for quest)
dw SpriteUpdateHandler_Item_Standard-1; [93]: Item: Red Potion #2
dw SpriteUpdateHandler_Item_Standard-1; [94]: Item: Poison #2
dw SpriteUpdateHandler_Item_Standard-1; [95]: Item: Glove #2
dw SpriteUpdateHandler_Item_Standard-1; [96]: Item: Ointment #2
dw SpriteUpdateHandler__a5d2-1; [97]:
dw SpriteUpdateHandler__a5d2-1; [98]:
dw SpriteUpdateHandler__a5d2-1; [99]:
dw SpriteUpdateHandler_Effect_BossDeath-1; [100]: Effect: Boss Death

;============================================================================
; TODO: Document Sprites_Maybe_UpdateHitByMagic
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;============================================================================
Sprites_Maybe_UpdateHitByMagic:; [$8151]
LDY CurrentSprites_HitByMagicBehavior,X
BEQ @LAB_PRG14__8162
DEY
BEQ @LAB_PRG14__817a
DEY
BEQ @LAB_PRG14__8192
LDA #$ff
STA CurrentSprites_HitByMagicBehavior,X
RTS

@LAB_PRG14__8162:; [$8162]
LDA #$03
STA a:Arg_DeltaX_Full
LDA #$00
STA a:Arg_DeltaX_Frac
JSR Sprites_Something_SomethingAndMoveHoriz
DEC CurrentSprites_HitByMagicIFrames,X
BNE @LAB_PRG14__8179
LDA #$ff
STA CurrentSprites_HitByMagicBehavior,X

@LAB_PRG14__8179:; [$8179]
RTS

@LAB_PRG14__817a:; [$817a]
LDA #$02
STA a:Arg_DeltaX_Full
LDA #$00
STA a:Arg_DeltaX_Frac
JSR Sprites_Something_SomethingAndMoveHoriz
DEC CurrentSprites_HitByMagicIFrames,X
BNE @_return1
LDA #$ff
STA CurrentSprites_HitByMagicBehavior,X

@_return1:; [$8191]
RTS

@LAB_PRG14__8192:; [$8192]
LDA #$04
STA a:Arg_DeltaX_Full
LDA #$00
STA a:Arg_DeltaX_Frac
JSR Sprites_Something_SomethingAndMoveHoriz
BCC @_return2
LDA #$ff
STA CurrentSprites_HitByMagicBehavior,X

@_return2:; [$81a6]
RTS

;============================================================================
; TODO: Document Player_HitEnemyWithMagic
;
; INPUTS:
;     X
;     Y
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     Sprite_CheckHitByCastMagic
;============================================================================
Player_HitEnemyWithMagic:; [$81a7]
LDA CurrentSprites_Entities,X
CMP #$05
BNE @LAB_PRG14__81b6
LDA CurrentSprites_Phases,X
ORA #$80
STA CurrentSprites_Phases,X

@LAB_PRG14__81b6:; [$81b6]
LDA #$02
JSR #$d0e4
LDA #$b7a0,Y
STA Temp_00
LDA a:SpecialItems
AND #$04
BEQ @LAB_PRG14__81cf
LDA Temp_00
LSR A
CLC
ADC Temp_00
STA Temp_00

@LAB_PRG14__81cf:; [$81cf]
LDA #$00
STA Temp_Addr_L
STY Temp_01
CPY #$00
BEQ @LAB_PRG14__81fd
LDY CurrentSprites_Entities,X
LDA #$b73b,Y

@LAB_PRG14__81df:; [$81df]
ASL A
ROL Temp_Addr_L
ASL A
ROL Temp_Addr_L
DEC Temp_01
BNE @LAB_PRG14__81df
LDA Temp_Addr_L
AND #$03
TAY
BEQ @LAB_PRG14__81fd
LSR Temp_00
DEY
BEQ @LAB_PRG14__81fd
LSR Temp_00
BEQ @LAB_PRG14__81fd
LDA #$00
STA Temp_00

@LAB_PRG14__81fd:; [$81fd]
LDA CurrentSprites_HP,X
SEC
SBC Temp_00
STA CurrentSprites_HP,X
BCS RETURN_822D
LDA CurrentSprites_Entities,X
CMP #$18
BNE @LAB_PRG14__8215

;
; If the enemy is Sugata, clear the greyscale set when it
; attacked so we don't get stuck in greyscale forever.
;
LDA ScreenColorMode; Load the screen color mode.
AND #$fe; Clear the greyscale bit.
STA ScreenColorMode; Store it.

;
; Add experience from the sprite.
;
@LAB_PRG14__8215:; [$8215]
JSR Player_AddExperienceFromSprite

;
; Play the killed enemy sound effect.
;
LDA #$03
JSR #$d0e4

;
; Check if this is a normal and big enemy. They need to be
; handled differently.
;
LDY CurrentSprites_Entities,X
LDA #$b544,Y
CMP #$07
BNE @_isSmallEnemy

;
; This is a big enemy. Handle cleanup specially.
;
JMP Sprite_ShowBigEnemyDeathByMagicOrWeapon

@_isSmallEnemy:; [$822a]
JMP Sprite_ShowNormalEnemyDeathByMagic

;
; XREFS:
;     Player_HitEnemyWithMagic
;     SpriteUpdateHandler_Effect_EnemyDeath
;     SpriteUpdateHandler_Effect_LightningBall20
;
RETURN_822D:; [$822d]
RTS

;============================================================================
; TODO: Document SpriteUpdateHandler_Effect_EnemyDeath
;
; INPUTS:
;     X
;
; OUTPUTS:
;     A
;
; XREFS:
;     SPRITE_UPDATE_HANDLERS [$PRG14::80ad]
;     SpriteUpdateHandler_Effect_BossDeath
;============================================================================
SpriteUpdateHandler_Effect_EnemyDeath:; [$822e]
LDA #$00
STA Maybe_CurrentSprite_PPUOffset
LDA a:SpriteUpdateCounter
LSR A
BCS RETURN_822D
LDA #$00
STA CurrentSprite_FlipMask
STA Maybe_CurrentSprite_PPUOffset
JSR Sprite_EnterNextAppearancePhase
LDX a:CurrentSpriteIndex
LDA CurrentSprites_BehaviorData2,X
ASL A
ASL A
EOR #$ff
STA Temp_00
INC Temp_00
LDA CurrentSprites_YPos,X
CLC
ADC Temp_00
STA Maybe_Arg_CurrentSprite_PosY
LDA #$00
STA Maybe_CurrentSprite_PPUOffset
LDA #$01
JSR Sprite_EnterNextAppearancePhase
LDX a:CurrentSpriteIndex
LDA CurrentSprites_BehaviorData2,X
ASL A
ASL A
STA Temp_00
LDA CurrentSprites_YPos,X
CLC
ADC Temp_00
STA Maybe_Arg_CurrentSprite_PosY
LDA #$00
STA Maybe_CurrentSprite_PPUOffset
LDA #$02
JMP Sprite_EnterNextAppearancePhase

;============================================================================
; TODO: Document SpriteUpdateHandler_Effect_BossDeath
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     SPRITE_UPDATE_HANDLERS [$PRG14::814f]
;============================================================================
SpriteUpdateHandler_Effect_BossDeath:; [$8279]
LDA #$00
STA Maybe_CurrentSprite_PPUOffset
LDA CurrentSprites_Phases,X
CMP #$02
BEQ SpriteUpdateHandler_Effect_LightningBall20
CMP #$07
BEQ SpriteUpdateHandler_Effect_LightningBall20
JMP SpriteUpdateHandler_Effect_EnemyDeath

;============================================================================
; TODO: Document SpriteUpdateHandler_Effect_LightningBall20
;
; INPUTS:
;     X
;
; OUTPUTS:
;     A
;
; XREFS:
;     SPRITE_UPDATE_HANDLERS [$PRG14::80af]
;     SpriteUpdateHandler_Effect_BossDeath
;============================================================================
SpriteUpdateHandler_Effect_LightningBall20:; [$828b]
LDA #$00
STA Maybe_CurrentSprite_PPUOffset
LDA a:SpriteUpdateCounter
LSR A
BCS RETURN_822D
LDA #$00
STA CurrentSprite_FlipMask
LDA #$00
STA Maybe_CurrentSprite_PPUOffset
JSR Sprite_EnterNextAppearancePhase
LDY #$03

@LAB_PRG14__82a2:; [$82a2]
LDX a:CurrentSpriteIndex
LDA CurrentSprites_XPos_Full,X
STA Maybe_Arg_CurrentSprite_PosX
LDA CurrentSprites_YPos,X
STA Maybe_Arg_CurrentSprite_PosY
LDA CurrentSprites_BehaviorData2,X
ASL A
ASL A
EOR #$82f0,Y
STA Temp_00
BPL @LAB_PRG14__82bb
INC Temp_00

@LAB_PRG14__82bb:; [$82bb]
TYA
AND #$02
BNE @LAB_PRG14__82ca
LDA CurrentSprites_YPos,X
CLC
ADC Temp_00
STA Maybe_Arg_CurrentSprite_PosY
JMP @LAB_PRG14__82d1

@LAB_PRG14__82ca:; [$82ca]
LDA CurrentSprites_XPos_Full,X
CLC
ADC Temp_00
STA Maybe_Arg_CurrentSprite_PosX

@LAB_PRG14__82d1:; [$82d1]
LDA #$82f4,Y
STA CurrentSprite_FlipMask
LDA #$82ec,Y
STA Temp_00
TYA
PHA
LDA #$00
STA Maybe_CurrentSprite_PPUOffset
LDA Temp_00
JSR Sprite_EnterNextAppearancePhase
PLA
TAY
DEY
BPL @LAB_PRG14__82a2
RTS
db $01; [0]:
db $02; [1]:
db $03; [2]:

;
; XREFS:
;     SpriteUpdateHandler_Effect_LightningBall20
;
BYTE_ARRAY_PRG14__82ec_3_:; [$82ef]
db $03; [3]:
db $ff; [0]:
db $00; [1]:

;
; XREFS:
;     SpriteUpdateHandler_Effect_LightningBall20
;
BYTE_ARRAY_PRG14__82f0_2_:; [$82f2]
db $ff; [2]:

;
; XREFS:
;     SpriteUpdateHandler_Effect_LightningBall20
;
BYTE_ARRAY_PRG14__82f0_3_:; [$82f3]
db $00; [3]:
db $00; [0]:
db $00; [1]:
db $00; [2]:

;
; XREFS:
;     SpriteUpdateHandler_Effect_LightningBall20
;
BYTE_ARRAY_PRG14__82f4_3_:; [$82f7]
db $40; [3]:

;============================================================================
; TODO: Document Sprite_CalcDistanceXToPlayer
;
; INPUTS:
;     X
;
; OUTPUTS:
;     A
;
; XREFS:
;     SpriteBehavior_SirGawaineWolfman
;     SpriteBehavior_Unknown_29_SomeSetup
;     SpriteOp_CheckDistanceToPlayer_X
;============================================================================
Sprite_CalcDistanceXToPlayer:; [$82f8]
LDA CurrentSprites_XPos_Full,X
SEC
SBC Player_PosX_Block
BCS @LAB_PRG14__8312
EOR #$ff
CLC
ADC #$01
CLC
LDY CurrentSprites_HitBoxTypes,X
SEC
SBC #$b4d1,Y
BCS @_returnTrue
LDA #$00

@_returnTrue:; [$8310]
CLC
RTS

@LAB_PRG14__8312:; [$8312]
SEC
SBC #$10
BCS @_return
LDA #$00
SEC

@_return:; [$831a]
RTS

;============================================================================
; TODO: Document Sprite_CalcDistanceYToPlayer
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG14__9699
;     SpriteBehavior_EnemyUnused36
;     SpriteBehavior_GiantBees
;     SpriteBehavior_Naga
;     SpriteBehavior_Unknown_29_SomeSetup
;     SpriteOp_CheckDistanceToPlayer_Y
;============================================================================
Sprite_CalcDistanceYToPlayer:; [$831b]
LDA CurrentSprites_YPos,X
SEC
SBC Player_PosY
BCS @_return
EOR #$ff
CLC
ADC #$01
CLC

@_return:; [$8328]
RTS

;============================================================================
; TODO: Document SpriteBehavior_Unknown_29_SomeSetup
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     SpriteBehavior_Unknown_29
;============================================================================
SpriteBehavior_Unknown_29_SomeSetup:; [$8329]
JSR SpriteAction_FacePlayerX
JSR SpriteAction_FacePlayerY
JSR Sprite_CalcDistanceXToPlayer
STA CurrentSprites_BehaviorState_XFull,X
JSR Sprite_CalcDistanceYToPlayer
STA CurrentSprites_BehaviorState_YFull,X
CMP CurrentSprites_BehaviorState_XFull,X
BCS @LAB_PRG14__836c
LDA CurrentSprites_BehaviorState_YFull,X
STA a:Arg_PlayerHealthDelta_U
LDA CurrentSprites_BehaviorState_XFull,X
STA a:SpriteBehaviorUnknown20_SomethingXOrY
LDA #$00
STA a:Arg_PlayerHealthDelta_L
STA a:BYTE_04bf
STA CurrentSprites_BehaviorState_XFrac,X
JSR #$c0ec
LDA a:Arg_PlayerHealthDelta_U
STA CurrentSprites_BehaviorState_YFull,X
LDA a:Arg_PlayerHealthDelta_L
STA CurrentSprites_BehaviorState_YFrac,X
LDA #$01
STA CurrentSprites_BehaviorState_XFull,X
RTS

@LAB_PRG14__836c:; [$836c]
LDA CurrentSprites_BehaviorState_XFull,X
STA a:Arg_PlayerHealthDelta_U
LDA CurrentSprites_BehaviorState_YFull,X
STA a:SpriteBehaviorUnknown20_SomethingXOrY
LDA #$00
STA a:Arg_PlayerHealthDelta_L
STA a:BYTE_04bf
STA CurrentSprites_BehaviorState_YFrac,X
JSR #$c0ec
LDA a:Arg_PlayerHealthDelta_U
STA CurrentSprites_BehaviorState_XFull,X
LDA a:Arg_PlayerHealthDelta_L
STA CurrentSprites_BehaviorState_XFrac,X
LDA #$01
STA CurrentSprites_BehaviorState_YFull,X
RTS

;============================================================================
; MAYBE DEADCODE
;
; XREFS:
;     FUN_PRG14__8398
;============================================================================
FUN_PRG14__8398:; [$8398]
ASL CurrentSprites_BehaviorState_XFull,X
ROL CurrentSprites_BehaviorState_XFrac,X
ASL CurrentSprites_BehaviorState_YFull,X
ROL CurrentSprites_BehaviorState_YFrac,X
DEY
BNE FUN_PRG14__8398
RTS

;============================================================================
; MAYBE DEADCODE
;============================================================================
FUN_PRG14__83a8:; [$83a8]
LDA CurrentSprites_BehaviorState_XFull,X
STA a:Arg_DeltaX_Frac
LDA CurrentSprites_BehaviorState_XFrac,X
STA a:Arg_DeltaX_Full
LDA CurrentSprites_BehaviorState_YFull,X
STA a:Arg_DeltaY_Frac
LDA CurrentSprites_BehaviorState_YFrac,X
STA a:Arg_DeltaY_Full
RTS

;============================================================================
; TODO: Document Sprites_CalcHorizSpriteMovement
;
; INPUTS:
;     A
;     Y
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG14__9593
;     SpriteBehavior_Bihoruda
;     SpriteBehavior_Borabohra
;     SpriteBehavior_Yuinaru
;============================================================================
Sprites_CalcHorizSpriteMovement:; [$83c1]
STA a:Arg_DeltaX_Frac; Set pixels delta from A.
LDA #$00; A = 0

@_loop:; [$83c6]
ASL a:Arg_DeltaX_Frac; Shift the pixels delta amount left.
ROL A
DEY
BNE @_loop
STA a:Arg_DeltaX_Full
RTS

;============================================================================
; TODO: Document Sprites_CalcVerticalSpriteMovement
;
; INPUTS:
;     A
;     Y
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     CastMagic_UpdateTilte
;     SpriteBehavior_Bihoruda
;     SpriteBehavior_BounceAndExpire
;     SpriteBehavior_EnemyUnused36
;     SpriteBehavior_EnemyUnused43
;     SpriteBehavior_ExecutionHood
;     SpriteBehavior_Garbled3
;     SpriteBehavior_GiantBees
;     SpriteBehavior_Hop
;     SpriteBehavior_KingGrieve
;     SpriteBehavior_Lilith
;     SpriteBehavior_Naga
;     SpriteBehavior_Ripasheiku
;     SpriteBehavior_SomethingZoradohna_18
;     SpriteBehavior_Yuinaru
;============================================================================
Sprites_CalcVerticalSpriteMovement:; [$83d1]
STA a:Arg_DeltaY_Frac
LDA #$00

@LAB_PRG14__83d6:; [$83d6]
ASL a:Arg_DeltaY_Frac
ROL A
DEY
BNE @LAB_PRG14__83d6
STA a:Arg_DeltaY_Full
RTS

;============================================================================
; TODO: Document Sprites_CalcYFromGravity
;
; INPUTS:
;     A
;     Y
;
; OUTPUTS:
;     A
;
; XREFS:
;     CastMagic_UpdateTilte
;     FUN_PRG14__9593
;     SpriteBehavior_Bihoruda
;     SpriteBehavior_Borabohra
;     SpriteBehavior_BounceAndExpire
;     SpriteBehavior_EnemyUnused36
;     SpriteBehavior_EnemyUnused43
;     SpriteBehavior_ExecutionHood
;     SpriteBehavior_GiantBees
;     SpriteBehavior_Hop
;     SpriteBehavior_Lilith
;     SpriteBehavior_Naga
;     SpriteBehavior_Ripasheiku
;     SpriteBehavior_SomethingZoradohna_18
;     SpriteBehavior_Yuinaru
;============================================================================
Sprites_CalcYFromGravity:; [$83e1]
PHA
AND #$83f7,Y
STA Temp_00
PLA
AND #$83ff,Y
BEQ @LAB_PRG14__83f4
LDA #$83f7,Y
SEC
SBC Temp_00
RTS

@LAB_PRG14__83f4:; [$83f4]
LDA Temp_00
RTS

;
; XREFS:
;     SpriteBehavior_Hop
;     SpriteBehavior_SomethingZoradohna_18
;     Sprites_CalcYFromGravity
;
SPRITE_BEHAVIOR_HOP_PEAK_TICKS:; [$83f7]
db $ff; [0]:
db $7f; [1]:
db $3f; [2]:
db $1f; [3]:
db $0f; [4]:
db $07; [5]:
db $03; [6]:
db $01; [7]:

;
; XREFS:
;     Sprites_CalcYFromGravity
;
SPRITES_MAYBE_GRAVITY:; [$83ff]
db $00; [0]:
db $80; [1]:
db $40; [2]:
db $20; [3]:
db $10; [4]:
db $08; [5]:
db $04; [6]:
db $02; [7]:

;============================================================================
; TODO: Document SpriteAction_FlipXDirection
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     BSCRIPT_ACTIONS [$PRG14::a796]
;     SpriteBehavior_WalkForward
;============================================================================
SpriteAction_FlipXDirection:; [$8407]
LDA CurrentSprites_Flags,X
EOR #$01
STA CurrentSprites_Flags,X
RTS

;============================================================================
; TODO: Document SpriteAction_FlipYDirection
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     BSCRIPT_ACTIONS [$PRG14::a79a]
;     SpriteBehavior_BounceAndExpire
;     SpriteBehavior_EnemyUnused36
;     SpriteBehavior_ExecutionHood
;     SpriteBehavior_Hop
;     SpriteBehavior_Lilith
;     SpriteBehavior_SomethingZoradohna_18
;============================================================================
SpriteAction_FlipYDirection:; [$8410]
LDA CurrentSprites_Flags,X
EOR #$80
STA CurrentSprites_Flags,X
RTS

;============================================================================
; TODO: Document Sprite_MoveHorizAndTurnAroundIfNeeded
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG14__9593
;     SpriteBehavior_Bihoruda
;     SpriteBehavior_BuzzAround
;     SpriteBehavior_EnemyUnused36
;     SpriteBehavior_ExecutionHood
;     SpriteBehavior_Ishiisu
;     SpriteBehavior_SomethingZoradohna_18
;     SpriteBehavior_WalkForward
;     SpriteBehavior_Yareeka
;     Sprite_MoveHorizOneBlockOrTurnAround
;============================================================================
Sprite_MoveHorizAndTurnAroundIfNeeded:; [$8419]
JSR Sprites_Something_SomethingAndMoveHoriz
BCC @_return
LDA CurrentSprites_Flags,X
EOR #$01
STA CurrentSprites_Flags,X

@_return:; [$8426]
RTS

;============================================================================
; TODO: Document Sprite_Maybe_TurnAroundIfAtScreenEdgeHoriz
;
; INPUTS:
;     X
;
; OUTPUTS:
;     C
;
; XREFS:
;     SpriteBehavior_EnemyMagic
;     SpriteBehavior_GiantBees
;     SpriteBehavior_SomethingEyeball_17
;     SpriteBehavior_Yuinaru
;============================================================================
Sprite_Maybe_TurnAroundIfAtScreenEdgeHoriz:; [$8427]
JSR FUN_PRG14__849a
LDA CurrentSprites_XPos_Full,X
CMP #$f0
BCC @_returnFalse
LDA CurrentSprites_Flags,X
LSR A
LDA CurrentSprites_XPos_Full,X
AND #$f0
BCS @LAB_PRG14__843d
CLC
ADC #$10

@LAB_PRG14__843d:; [$843d]
STA CurrentSprites_XPos_Full,X
LDA CurrentSprites_Flags,X
EOR #$01
STA CurrentSprites_Flags,X
SEC
RTS

@_returnFalse:; [$8449]
CLC
RTS

;============================================================================
; MAYBE DEADCODE
;============================================================================
FUN_PRG14__844b:; [$844b]
JSR Sprite_Maybe_AddFacingPosX
LDA CurrentSprites_XPos_Full,X
CMP #$f0
BCC RETURN_846B
LDA CurrentSprites_Flags,X
LSR A
LDA CurrentSprites_XPos_Full,X
AND #$f0
BCS @LAB_PRG14__8461
CLC
ADC #$10

@LAB_PRG14__8461:; [$8461]
STA CurrentSprites_XPos_Full,X
LDA CurrentSprites_Flags,X
EOR #$01
STA CurrentSprites_Flags,X

;
; XREFS:
;     FUN_PRG14__844b
;     Sprite_Maybe_AddFacingPosX
;
RETURN_846B:; [$846b]
RTS

;============================================================================
; TODO: Document Sprite_Maybe_AddFacingPosX
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG14__844b
;============================================================================
Sprite_Maybe_AddFacingPosX:; [$846c]
LDA CurrentSprites_XPos_Full,X
CMP Player_PosX_Block
BEQ RETURN_846B
BCC @LAB_PRG14__847e
LDA CurrentSprites_Flags,X
AND #$01
BNE @LAB_PRG14__8488
JMP Sprite_SubtractPosX

@LAB_PRG14__847e:; [$847e]
LDA CurrentSprites_Flags,X
AND #$01
BEQ @LAB_PRG14__8488
JMP Sprite_AddPosX

@LAB_PRG14__8488:; [$8488]
CLC
RTS

;============================================================================
; MAYBE DEADCODE
;============================================================================
FUN_PRG14__848a:; [$848a]
LDA #$00
STA a:Arg_DeltaX_Frac
LDA #$01
STA a:Arg_DeltaX_Full

;
; v-- Fall through --v
;

;============================================================================
; TODO: Document Sprites_Something_SomethingAndMoveHoriz
;
; INPUTS:
;     X
;
; OUTPUTS:
;     C
;
; XREFS:
;     FUN_PRG14__a91e
;     SpriteBehavior_Borabohra
;     SpriteBehavior_EnemyUnused43
;     SpriteBehavior_Hop
;     SpriteBehavior_KingGrieve
;     SpriteBehavior_Lilith
;     SpriteBehavior_NecronAides
;     SpriteBehavior_ShadowEura
;     SpriteBehavior_SirGawaineWolfman
;     SpriteBehavior_Unknown_29
;     Sprite_MoveHorizAndTurnAroundIfNeeded
;     Sprites_Maybe_UpdateHitByMagic
;============================================================================
Sprites_Something_SomethingAndMoveHoriz:; [$8494]
JSR FUN_PRG14__849a
JMP MoveSpriteHorizIfPossible

;============================================================================
; TODO: Document FUN_PRG14__849a
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     Sprite_Maybe_TurnAroundIfAtScreenEdgeHoriz
;     Sprites_Something_SomethingAndMoveHoriz
;============================================================================
FUN_PRG14__849a:; [$849a]
LDA CurrentSprites_Flags,X
LSR A
BCS Sprite_AddPosX

;
; v-- Fall through --v
;

;============================================================================
; TODO: Document Sprite_SubtractPosX
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     Sprite_Maybe_AddFacingPosX
;============================================================================
Sprite_SubtractPosX:; [$84a0]
LDA CurrentSprites_Maybe_XPos_Frac,X
SEC
SBC a:Arg_DeltaX_Frac
STA CurrentSprites_Maybe_XPos_Frac,X
LDA CurrentSprites_XPos_Full,X
SBC a:Arg_DeltaX_Full
STA CurrentSprites_XPos_Full,X
RTS

;============================================================================
; TODO: Document Sprite_AddPosX
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG14__849a
;     Sprite_Maybe_AddFacingPosX
;============================================================================
Sprite_AddPosX:; [$84b2]
LDA CurrentSprites_Maybe_XPos_Frac,X
CLC
ADC a:Arg_DeltaX_Frac
STA CurrentSprites_Maybe_XPos_Frac,X
LDA CurrentSprites_XPos_Full,X
ADC a:Arg_DeltaX_Full
STA CurrentSprites_XPos_Full,X
RTS

;============================================================================
; Move the sprite horizontally if possible.
;
; If the sprite cannot move, then this will do nothing.
;
; INPUTS:
;     X:
;         The index of the sprite.
;
; OUTPUTS:
;     C:
;         1 if the sprite could move.
;         0 if the sprite could not move.
;
; XREFS:
;     Sprites_Something_SomethingAndMoveHoriz
;============================================================================
MoveSpriteHorizIfPossible:; [$84c4]
TYA
PHA
LDA CurrentSprites_Flags,X; Load the sprite flags.
AND #$01
TAX
JSR CurrentSprite_CanMoveInDirection; Check if this sprite can move at all
LDA Blocks_Result; Load the current block properties
BEQ @_cannotMove; If 0, it cannot move
LDX a:CurrentSpriteIndex; Load the current sprite
LDA CurrentSprites_Flags,X; Load the sprite's flags.
AND #$01
TAY
LDA CurrentSprites_XPos_Full,X; Load the X coordinate of the sprite
AND #$f0; Grab the X pos (top nibble)
CPY #$01
BCS @_updateHorizPos
CLC
ADC #$10; Add 1 to the block X position

@_updateHorizPos:; [$84e7]
STA CurrentSprites_XPos_Full,X; Store the block position for the sprite.
PLA; Restore the original Y register.
TAY
SEC; C = 1 (moved, true result)
RTS

@_cannotMove:; [$84ed]
PLA; Restore the registers
TAY
LDX a:CurrentSpriteIndex
CLC; C = 0 (could not move, false result)
RTS

;============================================================================
; MAYBE DEADCODE
;============================================================================
FUN_PRG14__84f4:; [$84f4]
JSR Sprites_CanSpriteWalk
TAX
BNE SpriteBehavior_RestoreXRegister
LDX a:CurrentSpriteIndex
JSR Sprite_CanClimb
TAX
BEQ @LAB_PRG14__850d
LDX a:CurrentSpriteIndex
RTS

;============================================================================
; TODO: Document FUN_PRG14__8507
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     SpriteBehavior_Ishiisu
;============================================================================
FUN_PRG14__8507:; [$8507]
JSR Sprites_CanSpriteWalk
TAX
BNE SpriteBehavior_RestoreXRegister

;
; v-- Fall through --v
;

@LAB_PRG14__850d:; [$850d]
LDX a:CurrentSpriteIndex
LDA CurrentSprites_Flags,X
LSR A
PHP
LDA CurrentSprites_XPos_Full,X
AND #$f0
PLP
BCS @LAB_PRG14__851e
ADC #$10

@LAB_PRG14__851e:; [$851e]
STA CurrentSprites_XPos_Full,X
LDA InterruptCounter
AND #$3f; On interrupts 64 and 128...
BNE SpriteBehavior_RestoreXRegister
LDA CurrentSprites_Flags,X
EOR #$01
STA CurrentSprites_Flags,X

;============================================================================
; TODO: Document SpriteBehavior_RestoreXRegister
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG14__84f4
;     FUN_PRG14__8507
;============================================================================
SpriteBehavior_RestoreXRegister:; [$852e]
LDX a:CurrentSpriteIndex
RTS

;
; XREFS:
;     FUN_PRG14__854c
;
SPRITE_WALK_PIXEL_MOVEMENT_TABLE:; [$8532]
db $00; [0]: 0 pixel movement
db $0f; [1]: 15 pixel movement

;============================================================================
; TODO: Document Sprite_CanClimb
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG14__84f4
;============================================================================
Sprite_CanClimb:; [$8534]
LDY CurrentSprites_HitBoxTypes,X
LDA CurrentSprites_YPos,X
CLC
ADC #$b4d8,Y
CLC
ADC #$10
JMP FUN_PRG14__854c

;============================================================================
; TODO: Document Sprites_CanSpriteWalk
;
; INPUTS:
;     X
;
; OUTPUTS:
;     A
;
; XREFS:
;     FUN_PRG14__84f4
;     FUN_PRG14__8507
;     Sprites_SetCurrentSpriteCanMove
;============================================================================
Sprites_CanSpriteWalk:; [$8543]
LDY CurrentSprites_HitBoxTypes,X
LDA CurrentSprites_YPos,X
CLC
ADC #$b4d8,Y

;
; v-- Fall through --v
;

;============================================================================
; TODO: Document FUN_PRG14__854c
;
; INPUTS:
;     A
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     Sprite_CanClimb
;============================================================================
FUN_PRG14__854c:; [$854c]
STA Arg_PixelPosY
INC Arg_PixelPosY
LDA CurrentSprites_Flags,X
AND #$01
TAY
LDA CurrentSprites_XPos_Full,X
CLC
ADC #$8532,Y
STA Arg_PixelPosX
JSR #$e86c
JMP #$e887

;============================================================================
; TODO: Document Sprite_MoveVertAndFlipIfNeeded
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     SpriteBehavior_Bihoruda
;     SpriteBehavior_BuzzAround
;     SpriteBehavior_MoveVertically
;============================================================================
Sprite_MoveVertAndFlipIfNeeded:; [$8564]
JSR Sprite_CalculateNewVertPos
JSR MoveSpriteVerticalIfPossible
BCC @_return
LDA CurrentSprites_Flags,X
EOR #$80
STA CurrentSprites_Flags,X

@_return:; [$8574]
RTS

;============================================================================
; TODO: Document MoveSpriteVerticalIfPossible
;
; INPUTS:
;     X
;
; OUTPUTS:
;     C
;
; XREFS:
;     Sprite_MoveVertAndFlipIfNeeded
;     Sprite_MoveVertical
;============================================================================
MoveSpriteVerticalIfPossible:; [$8575]
LDA CurrentSprites_Flags,X
ROL A
ROL A
AND #$01
ORA #$02
TAX
JSR CurrentSprite_CanMoveInDirection
LDX a:CurrentSpriteIndex
LDA Blocks_Result
BEQ @_returnFalse
LDA CurrentSprites_Flags,X
ASL A
LDA CurrentSprites_YPos,X
AND #$f0
BCS @_returnTrue
CLC
ADC #$10

@_returnTrue:; [$8596]
STA CurrentSprites_YPos,X
SEC
RTS

@_returnFalse:; [$859a]
CLC
RTS

;============================================================================
; TODO: Document Sprite_Maybe_TurnAroundIfAtScreenEdgeVert
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     SpriteBehavior_ExecutionHood
;     SpriteBehavior_GiantBees
;     SpriteBehavior_SomethingEyeball_17
;     SpriteBehavior_Yuinaru
;============================================================================
Sprite_Maybe_TurnAroundIfAtScreenEdgeVert:; [$859c]
JSR Sprite_CalculateNewVertPos
JSR Sprite_CapToBlockOppositeFalling
BCC @_return
LDA CurrentSprites_Flags,X
EOR #$80
STA CurrentSprites_Flags,X

@_return:; [$85ac]
RTS

;============================================================================
; Move a sprite up or down based on the opposite of the falling flag.
;
; If the sprite is falling, the sprite's Y position will be
; kept on the same block, moving up if needed to the start
; of the block.
;
; If the sprite is rising, the sprite's Y position is moved
; to the top of the next block down.
;
; This is used in behavior code.
;
; INPUTS:
;     X:
;         The sprite index.
;
;     CurrentSprites_Flags:
;         The sprite flags.
;
;     CurrentSprites_YPos:
;         The sprite Y positions.
;
; OUTPUTS:
;     C:
;         0 = Sitting at bottom of the screen.
;         1 = Capped to a block position.
;
;     CurrentSprites_YPos:
;         The updated Y positions.
;
; XREFS:
;     Sprite_Maybe_TurnAroundIfAtScreenEdgeVert
;============================================================================
Sprite_CapToBlockOppositeFalling:; [$85ad]
;
; Check if the Y position is at the bottom of the screen.
;
LDA CurrentSprites_YPos,X; Load the sprite's Y position.
CMP #$e0; Is Y < 224?
BCC @_return; If so, return.

;
; There's room to fall. Check if the sprite is falling.
;
LDA CurrentSprites_Flags,X; Load the sprite's flags.
ASL A; Shift the Falling flag into C.
LDA CurrentSprites_YPos,X; A = Y position.
AND #$f0; Round (floor) to a block position.
BCS @_setY; If falling, jump to set the position as Y.

;
; The sprite is not falling. It's moving up.
;
CLC; Else, clear carry.
ADC #$10; A += 16 (Y position)

;
; Set the resulting Y position for the sprite, and
; set C = 1 for the result.
;
@_setY:; [$85c0]
STA CurrentSprites_YPos,X; Set as the new Y position.
SEC; Set C = 1.

@_return:; [$85c3]
RTS

;============================================================================
; TODO: Document Sprite_MoveVertical
;
; INPUTS:
;     X
;
; OUTPUTS:
;     C
;
; XREFS:
;     SpriteBehavior_BounceAndExpire
;     SpriteBehavior_EnemyUnused36
;     SpriteBehavior_EnemyUnused43
;     SpriteBehavior_Garbled3
;     SpriteBehavior_Hop
;     SpriteBehavior_KingGrieve
;     SpriteBehavior_KingGrieve_MoveDown
;     SpriteBehavior_Naga
;     SpriteBehavior_Ripasheiku
;     SpriteBehavior_SomethingZoradohna_18
;     SpriteBehavior_Unknown_29
;============================================================================
Sprite_MoveVertical:; [$85c4]
JSR Sprite_CalculateNewVertPos
JMP MoveSpriteVerticalIfPossible

;============================================================================
; TODO: Document Sprite_CalculateNewVertPos
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     SpriteBehavior_Lilith
;     SpriteBehavior_NecronAides
;     Sprite_Maybe_TurnAroundIfAtScreenEdgeVert
;     Sprite_MoveVertAndFlipIfNeeded
;     Sprite_MoveVertical
;============================================================================
Sprite_CalculateNewVertPos:; [$85ca]
LDA CurrentSprites_Flags,X; Load the sprite's flags.
BMI @LAB_PRG14__85e1
LDA CurrentSprites_SomethingY,X
SEC
SBC a:Arg_DeltaY_Frac
STA CurrentSprites_SomethingY,X
LDA CurrentSprites_YPos,X
SBC a:Arg_DeltaY_Full
STA CurrentSprites_YPos,X
RTS

@LAB_PRG14__85e1:; [$85e1]
LDA CurrentSprites_SomethingY,X
CLC
ADC a:Arg_DeltaY_Frac
STA CurrentSprites_SomethingY,X
LDA CurrentSprites_YPos,X
ADC a:Arg_DeltaY_Full
STA CurrentSprites_YPos,X
RTS
LDX a:CurrentSpriteIndex
LDA CurrentSprites_Flags,X
AND #$01
TAY
LDA CurrentSprites_XPos_Full,X
CLC
ADC #$861d,Y
STA Arg_PixelPosX
LDY CurrentSprites_HitBoxTypes,X
LDA CurrentSprites_YPos,X
CLC
ADC #$b4d8,Y
STA Arg_PixelPosY
INC Arg_PixelPosY
JSR #$e86c
JSR #$e87c
STA Blocks_Result
LDX a:CurrentSpriteIndex
RTS

BYTE_ARRAY_PRG14__861d:; [$861d]
db $00; [0]:
db $0f; [1]:

;============================================================================
; TODO: Document Sprites_SetCurrentSpriteCanMove
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     C
;
; XREFS:
;     FUN_PRG14__a91e
;     SpriteBehavior_EnemyUnused39
;     SpriteBehavior_Fall
;     SpriteBehavior_NecronAides
;     SpriteBehavior_SirGawaineWolfman
;     SpriteBehavior_WalkForward
;     Sprite_FallIfNeeded
;============================================================================
Sprites_SetCurrentSpriteCanMove:; [$861f]
LDX a:CurrentSpriteIndex; X = Currently active sprite.
LDA CurrentSprites_Flags,X; A = Current sprite's flags.
AND #$02
BNE @LAB_PRG14__863d
JSR Sprites_CanSpriteWalk
STA Blocks_Result
BNE @LAB_PRG14__863d
LDX a:CurrentSpriteIndex
LDA CurrentSprites_Flags,X
ORA #$04
STA CurrentSprites_Flags,X
SEC
RTS

@LAB_PRG14__863d:; [$863d]
LDX a:CurrentSpriteIndex
LDA CurrentSprites_Flags,X
AND #$fb
STA CurrentSprites_Flags,X
CLC
RTS

;============================================================================
; Handle the current sprite falling.
;
; If the sprite can move move it down a block. It will
; always be anchored to the top of the block.
;
; If it falls off the screen, it will be unset.
;
; INPUTS:
;     CurrentSpriteIndex:
;         The current sprite index.
;
;     CurrentSprites_Flags:
;         The sprite flags.
;
;     CurrentSprites_YPos:
;         The sprite Y positions.
;
; OUTPUTS:
;     CurrentSprites_YPos:
;         The sprite Y positions.
;
;     Blocks_Result:
;         Clobbered.
;
; CALLS:
;     CurrentSprite_CanMoveInDirection
;
; XREFS:
;     FUN_PRG14__a91e
;     SpriteBehavior_EnemyUnused39
;     SpriteBehavior_Fall
;     SpriteBehavior_NecronAides
;     SpriteBehavior_SirGawaineWolfman
;     SpriteBehavior_WalkForward
;     Sprite_FallIfNeeded
;============================================================================
CurrentSprite_HandleFall:; [$864a]
LDX a:CurrentSpriteIndex; X = Currently active sprite.
LDA CurrentSprites_Flags,X; A = Current sprite's flags.
AND #$04; Can the sprite move?
BEQ @_done; If not, prepare to return.

;
; This sprite can move.
;
LDA CurrentSprites_YPos,X; A = Sprite's Y position.
CLC
ADC #$08; A += 8
STA CurrentSprites_YPos,X; Store as the new position.
CMP #$c0; Is this at the bottom of the screen?
BCS @_clearSprite; If so, jump to clear the sprite.

;
; Make the sprite fall, if it can.
;
LDX #$03; X = 3 (down direction)
JSR CurrentSprite_CanMoveInDirection; Can the sprite move down?
LDA Blocks_Result; A = result of that check.
BEQ @_done; If not, prepare to return.

;
; Move the sprite down.
;
LDX a:CurrentSpriteIndex; X = Currently active sprite.
LDA CurrentSprites_YPos,X; A = Sprite's Y position.
AND #$f0; Round to a block position (after the above += 8).
STA CurrentSprites_YPos,X; Store as the new position.

@_done:; [$8671]
LDX a:CurrentSpriteIndex; Restore the current sprite index.
RTS

@_clearSprite:; [$8675]
LDA #$ff
STA CurrentSprites_Entities,X
RTS

;============================================================================
; TODO: Document SpriteAction_FacePlayerX
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     BSCRIPT_ACTIONS [$PRG14::a794]
;     LAB_PRG14__974e [$PRG14::974e]
;     SpriteBehavior_Borabohra
;     SpriteBehavior_EnemyUnused43
;     SpriteBehavior_ExecutionHood
;     SpriteBehavior_GiantBees
;     SpriteBehavior_Ishiisu
;     SpriteBehavior_KingGrieve_9f65
;     SpriteBehavior_Lilith
;     SpriteBehavior_Magman
;     SpriteBehavior_Naga
;     SpriteBehavior_Nash
;     SpriteBehavior_Ripasheiku
;     SpriteBehavior_Ripasheiku_CastMagicOrUpdatePos
;     SpriteBehavior_ShadowEura
;     SpriteBehavior_SirGawaineWolfman
;     SpriteBehavior_Tamazutsu
;     SpriteBehavior_Unknown_29_SomeSetup
;============================================================================
SpriteAction_FacePlayerX:; [$867b]
LDA Player_PosX_Block; Load the player's X position.

;
; Check if the player and sprite are in the same X position.
;
CMP CurrentSprites_XPos_Full,X; Compare to the sprite's X position.
BEQ @_return; If it's the same, return.

;
; Rotate the X position left one and take the right-most bit.
;
; This will effectively generate a flipping bit facing the
; left or right side of the screen, based on player position.
;
ROL A; Rotate the X position left.
AND #$01; And take the right-most bit for the facing bit.
STA Temp_00; Store it.

;
; Set the facing bit for the sprite.
;
LDA CurrentSprites_Flags,X; Load the sprite's flags.
AND #$fe; Clear the Facing Right bit.
ORA Temp_00; Set Facing Right depending on our rotate above.
STA CurrentSprites_Flags,X; Save it back out.

@_return:; [$8690]
RTS

;============================================================================
; TODO: Document SpriteAction_FacePlayerY
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     BSCRIPT_ACTIONS [$PRG14::a798]
;     SpriteBehavior_GiantBees
;     SpriteBehavior_Lilith
;     SpriteBehavior_Naga
;     SpriteBehavior_Unknown_29_SomeSetup
;============================================================================
SpriteAction_FacePlayerY:; [$8691]
LDA Player_PosY

;
; Check if the player and sprite are in the same Y position.
;
CMP CurrentSprites_YPos,X
BEQ @_return

;
; Rotate the Y position right one and take the left-most bit.
;
; This will effectively generate a flipping bit moving the Y
; direction up or down, based on player position.
;
ROR A
AND #$80
STA Temp_00

;
; Set the Y directinoal bit for the sprite.
;
LDA CurrentSprites_Flags,X; Load the sprite's flags.
AND #$7f; Clear the Falling bit.
ORA Temp_00; Set the Falling bit based on the rotate above.
STA CurrentSprites_Flags,X; Save it back out.

@_return:; [$86a6]
RTS

;============================================================================
; TODO: Document MoveRight
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     CurrentSprite_CanMoveInDirection
;============================================================================
MoveRight:; [$86a7]
LDX CurrentSprites_HitBoxTypes,Y
LDA CurrentSprites_XPos_Full,Y
CLC
ADC #$b4d1,X
STA Arg_PixelPosX
BCC FUN_PRG14__86c6

;
; v-- Fall through --v
;

;============================================================================
; TODO: Document Sprites_SetBlockIsMovingResult
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG14__86bd
;============================================================================
Sprites_SetBlockIsMovingResult:; [$86b5]
;
; Set the block as moving.
;
LDA #$01
STA Blocks_Result
LDX a:CurrentSpriteIndex
RTS

;============================================================================
; TODO: Document FUN_PRG14__86bd
;
; INPUTS:
;     Y
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     CurrentSprite_CanMoveInDirection
;============================================================================
FUN_PRG14__86bd:; [$86bd]
LDA CurrentSprites_XPos_Full,Y
CMP #$f1
BCS Sprites_SetBlockIsMovingResult
STA Arg_PixelPosX

;
; v-- Fall through --v
;

;============================================================================
; TODO: Document FUN_PRG14__86c6
;
; INPUTS:
;     Y
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     MoveRight
;============================================================================
FUN_PRG14__86c6:; [$86c6]
LDA CurrentSprites_YPos,Y
STA Arg_PixelPosY
JSR #$e86c
JSR #$e87c
STA Blocks_Result
BNE @LAB_PRG14__870c
LDY a:CurrentSpriteIndex
LDA CurrentSprites_HitBoxTypes,Y
TAY
LDA #$b4d8,Y
STA Temp_HitBoxValue

@LAB_PRG14__86e1:; [$86e1]
LDA Temp_HitBoxValue
SEC
SBC #$10
STA Temp_HitBoxValue
BCC @LAB_PRG14__86f8
TXA
CLC
ADC #$10
TAX
JSR #$e87c
STA Blocks_Result
BNE @LAB_PRG14__870c
BEQ @LAB_PRG14__86e1

@LAB_PRG14__86f8:; [$86f8]
LDY a:CurrentSpriteIndex
LDA CurrentSprites_YPos,Y
AND #$0f
BEQ @LAB_PRG14__870c
TXA
CLC
ADC #$10
TAX
JSR #$e87c
STA Blocks_Result

@LAB_PRG14__870c:; [$870c]
LDX a:CurrentSpriteIndex
RTS

;============================================================================
; TODO: Document CurrentSprite_CanMoveInDirection
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     CurrentSprite_HandleFall
;     MoveSpriteHorizIfPossible
;     MoveSpriteVerticalIfPossible
;============================================================================
CurrentSprite_CanMoveInDirection:; [$8710]
LDY a:CurrentSpriteIndex
TXA
BEQ FUN_PRG14__86bd
DEX
BEQ MoveRight
DEX
BEQ @LAB_PRG14__8731
LDX CurrentSprites_HitBoxTypes,Y
LDA CurrentSprites_YPos,Y
CLC
ADC #$b4d8,X
STA Arg_PixelPosY
CMP #$f0
BCC @LAB_PRG14__873a

@LAB_PRG14__872c:; [$872c]
LDA #$01
STA Blocks_Result
RTS

@LAB_PRG14__8731:; [$8731]
LDA CurrentSprites_YPos,Y
CMP #$f0
BCS @LAB_PRG14__872c
STA Arg_PixelPosY

@LAB_PRG14__873a:; [$873a]
LDA CurrentSprites_XPos_Full,Y
STA Arg_PixelPosX
JSR #$e86c
JSR #$e87c
STA Blocks_Result
BNE @LAB_PRG14__8778
LDY a:CurrentSpriteIndex
LDA CurrentSprites_HitBoxTypes,Y
TAY
LDA #$b4d1,Y
STA Temp_HitBoxValue

@LAB_PRG14__8755:; [$8755]
LDA Temp_HitBoxValue
SEC
SBC #$10
STA Temp_HitBoxValue
BCC @LAB_PRG14__8768
INX
JSR #$e87c
STA Blocks_Result
BNE @LAB_PRG14__8778
BEQ @LAB_PRG14__8755

@LAB_PRG14__8768:; [$8768]
LDY a:CurrentSpriteIndex
LDA CurrentSprites_XPos_Full,Y
AND #$0f
BEQ @LAB_PRG14__8778
INX
JSR #$e87c
STA Blocks_Result

@LAB_PRG14__8778:; [$8778]
LDX a:CurrentSpriteIndex
RTS

;============================================================================
; TODO: Document WasPlayerHitByMagic
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;============================================================================
WasPlayerHitByMagic:; [$877c]
LDA a:SelectedShield
CMP #$03
BCS RETURN_87CA
JSR Maybe_Player_CalcAnimFrame
SEC
SBC #$04
CMP #$03
BCC RETURN_87CA
LDX a:CurrentSpriteIndex
LDY CurrentSprites_Entities,X
CPY #$ff
BEQ RETURN_87CA
LDA #$b544,Y
CMP #$06
BNE RETURN_87CA
LDA a:SpriteBox_Width
CLC
ADC #$07
STA Temp_00
LDA a:Player_ShieldPositionX
CLC
ADC #$07
SEC
SBC a:SpriteBox_Left
CMP Temp_00
BCS RETURN_87CA
LDA a:SpriteBox_Height
CLC
ADC #$0f
STA Temp_00
LDA a:Player_ShieldPositionY
CLC
ADC #$0f
SEC
SBC a:SpriteBox_Top
CMP Temp_00
BCC FUN_PRG14__87cb

;
; XREFS:
;     Player_HitSpriteWithWeapon
;     WasPlayerHitByMagic
;
RETURN_87CA:; [$87ca]
RTS

;============================================================================
; TODO: Document FUN_PRG14__87cb
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     WasPlayerHitByMagic
;============================================================================
FUN_PRG14__87cb:; [$87cb]
JSR Player_HandleHitByMagic
LDX a:CurrentSpriteIndex
LDA #$ff
STA CurrentSprites_Entities,X
LDA #$0c
JSR #$d0e4
RTS

;============================================================================
; TODO: Document Player_HandleHitByMagic
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     FUN_PRG14__87cb
;============================================================================
Player_HandleHitByMagic:; [$87dc]
LDX a:CurrentSpriteIndex
LDY CurrentSprites_Entities,X
LDA #$b6d7,Y
LDY a:SelectedShield

@LAB_PRG14__87e8:; [$87e8]
LSR A
DEY
BPL @LAB_PRG14__87e8
STA a:Arg_PlayerHealthDelta_U
LDA #$00
STA a:Arg_PlayerHealthDelta_L
LDA a:Arg_PlayerHealthDelta_U
BNE @LAB_PRG14__87fa
RTS

@LAB_PRG14__87fa:; [$87fa]
JSR Player_SetDamagedBySprite
JMP #$c08e
DEC CurrentSprites_HitCounter,X
RTS

;============================================================================
; TODO: Document Player_HitSpriteWithWeapon
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;============================================================================
Player_HitSpriteWithWeapon:; [$8804]
JSR Sprites_IsSpriteHidden

;
; Check if the sprite is visible. If so, return.
;
BNE RETURN_87CA
LDA Player_Flags
BPL RETURN_87CA
LDY PlayerHitsPhaseCounter
DEY
CPY #$02
BCS RETURN_87CA

;
; Check if the player has a weapon. If not, return.
;
LDA a:Player_CurWeapon
BMI RETURN_87CA
LDX a:CurrentSpriteIndex
LDY CurrentSprites_Entities,X

;
; Check if the sprite being hit is an enemy. If not, return.
;
LDA #$b544,Y
BEQ @LAB_PRG14__8828
CMP #$07
BNE RETURN_87CA

@LAB_PRG14__8828:; [$8828]
LDA CurrentSprites_XPos_Full,X
STA a:Something_Maybe_WeaponDistanceX
LDA CurrentSprites_YPos,X
STA a:Something_Maybe_WeaponDistanceY
JSR Sprites_IsSpriteOutOfWeaponRange
BCC @LAB_PRG14__883a

;
; The sprite isn't within range. Return.
;
JMP @_return

@LAB_PRG14__883a:; [$883a]
LDA CurrentSprites_Entities,X
CMP #$05
BNE @LAB_PRG14__8849

;
; TODO: Figure out why Necron Aides get bit 7 set.
;
LDA CurrentSprites_Phases,X
ORA #$80
STA CurrentSprites_Phases,X

@LAB_PRG14__8849:; [$8849]
LDA #$02

;
; Play the Hit Enemy sound.
;
JSR #$d0e4

;
; Stop the player from walking.
;
LDA Player_Flags
AND #$df
STA Player_Flags

;
; Set the flags and hit counter for the sprite.
;
LDY #$00
AND #$40
BEQ @LAB_PRG14__885b
INY

@LAB_PRG14__885b:; [$885b]
STY Temp_00
LDA CurrentSprites_Flags,X
AND #$fe
ORA Temp_00
STA CurrentSprites_Flags,X
LDA #$08
STA CurrentSprites_HitCounter,X
LDY a:Player_CurWeapon

;
; Set the base strength of the equipped weapon.
;
LDA #$b7a5,Y
STA Temp_00
LDA a:SpecialItems

;
; If there's no pendant equipped, increase weapon strength by 25%.
;
; This is the famous Pendant Bug. This should have been inversed. Oops.
;
AND #$02
BNE @_checkGlove
LDA Temp_00
LSR A
LSR A
CLC
ADC Temp_00
STA Temp_00

;
; If the player has the glove, add the strength of the
; glove based on the weapon strength.
;
; This is:
;
;     Hand Dagger:   2HP
;     Long Sword:    4HP
;     Giant Blade:   8HP
;     Dragon Slayer: 10HP
;
@_checkGlove:; [$8884]
LDA a:DurationGlove; Load the glove duration.
BMI @_updateSpriteHP; If it's no longer active, jump.
LDA Temp_00; Load the calculated weapon strength.
CLC
ADC #$88c7,Y; Add the glove strength for the current weapon.
STA Temp_00; Store as the new damage counter.

;
; Calculate the number of HP remaining for the enemy.
;
; We'll take the current HP, remove what we've calculated
; for the weapon strength.
;
@_updateSpriteHP:; [$8891]
LDA CurrentSprites_HP,X; Load the current HP for this enemy.
SEC
SBC Temp_00; Subtract the current damage.
STA CurrentSprites_HP,X; Store back as the enemy HP.

;
; Check if the sprite is still alive. If so, we're done.
;
BCS @_return; If the enemy is dead, we're done here.

;
; The sprite is dead, so begin handling post-death logic.
;
; Start by checking if this is Sugata. This is handled specially.
; When dead, the screen flashes.
;
LDA CurrentSprites_Entities,X
CMP #$18; Compare to Sugata.
BNE @_handleEnemyGeneric; If not, jump.

;
; When Sugata dies, make sure we restore color.
;
; Sugata will flash the screen, and this prevents the screen
; from getting stuck in greyscale.
;
LDA ScreenColorMode; Load the current screen mode.
AND #$fe; Clear bit 0, setting to greyscale.
STA ScreenColorMode; Store back as the screen mode.

@_handleEnemyGeneric:; [$88a9]
LDA #$03; Play sound #3.

;
; Play a sound for the enemy kill, reset state, and add
; experience.
;
JSR #$d0e4
LDA #$00
STA CurrentSprites_HitCounter,X; Clear the hit counter for the dead enemy.
JSR Player_AddExperienceFromSprite; Add experience for the current sprite.

;
; Check if we killed a standard enemy or a boss.
;
LDY CurrentSprites_Entities,X; Load the type of this enemy.
LDA #$b544,Y
CMP #$07; Is this a big enemy?
BNE @LAB_PRG14__88c3; If not, jump.

;
; This was a big enemy (a boss).
;
JMP Sprite_ShowBigEnemyDeathByMagicOrWeapon; Handle big enemy death cleanup.

;
; This was a standard enemy.
;
@LAB_PRG14__88c3:; [$88c3]
JMP Sprite_ShowNormalEnemyDeathByWeapon; Handle standard enemy death cleanup.

@_return:; [$88c6]
RTS


;============================================================================
; A mapping of weapon types to additional hit power.
;============================================================================

;
; XREFS:
;     Player_HitSpriteWithWeapon
;
WEAPON_TO_GLOVE_STRENGTH:; [$88c7]
db $02; [0]: Hand Dagger -- 2HP
db $04; [1]: Long Sword -- 4HP
db $08; [2]: Giant Blade -- 8HP
db $0a; [3]: Dragon Slayer -- 10HP

;============================================================================
; Check if a sprite is out of the player's weapon range.
;
; Range will be checked in both an X and Y direction.
;
; INPUTS:
;     X:
;         The index of the sprite to check.
;
; OUTPUTS:
;     Temp_00:
;         This will be clobbered with the last distance
;         calculation.
;
;     C:
;         1 if out of range.
;         0 if within range.
;
; XREFS:
;     Player_HitSpriteWithWeapon
;============================================================================
Sprites_IsSpriteOutOfWeaponRange:; [$88cb]
;
; First check the distance in the X position between the
; weapon and the sprite.
;
LDA CurrentSprites_Entities,X
ASL A
TAY
LDA #$b407,Y
CLC
ADC Maybe_WeaponRange_X
STA Temp_00
LDA PlayerPosXPlus10
CLC

;
; If that wasn't in range...
;
ADC Maybe_WeaponRange_X
SEC
SBC a:Something_Maybe_WeaponDistanceX
CMP Temp_00
BCS @_return

;
; Check the distance in the Y direction between the
; weapon and the sprite.
;
LDA #$b408,Y
CLC
ADC Maybe_WeaponRange_Y
STA Temp_00
LDA Maybe_Something_WeaponPosY
CLC
ADC Maybe_WeaponRange_Y
SEC
SBC a:Something_Maybe_WeaponDistanceY
CMP Temp_00
BCS @_return

@_return:; [$88fa]
RTS

;============================================================================
; Handle touching an item.
;
; This will cause the player to pick up the sprite.
;
; INPUTS:
;     A:
;         The current sprite index.
;
;     CurrentSprites_Entities:
;         The entities of the sprites on the scren.
;
; OUTPUTS:
;     CurrentSprites_Entities:
;         The new entities of the sprites, with this
;         sprite cleared.
;
; CALLS:
;     Player_PickUp
;============================================================================
Player_HandleTouchItem:; [$88fb]
LDA CurrentSprites_Entities,X; Load the entity at the given index.
JSR #$c764; Pick up the item.
LDX a:CurrentSpriteIndex; X = current sprite index.

;
; Remove the item from the screen.
;
LDA #$ff; A = 0xFF (unset)
STA CurrentSprites_Entities,X; Set the entity at this sprite index as 0xFF.

;
; XREFS:
;     CurrentSprite_CheckHitPlayer
;
RETURN_8909:; [$8909]
RTS

;============================================================================
; TODO: Document CurrentSprite_CheckHitPlayer
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;============================================================================
CurrentSprite_CheckHitPlayer:; [$890a]
LDX a:CurrentSpriteIndex
LDA CurrentSprites_Entities,X
CMP #$ff
BEQ RETURN_8909
JSR Sprites_IsSpriteHidden
BNE RETURN_8998
LDA a:SpriteBox_Width
CLC
ADC #$0b
STA Temp_00
LDA Player_PosX_Block
CLC
ADC #$0b
SEC
SBC a:SpriteBox_Left
CMP Temp_00
BCS RETURN_8998
LDA a:SpriteBox_Height
CLC
ADC #$1b
STA Temp_00
LDA Player_PosY
CLC
ADC #$1b
SEC
SBC a:SpriteBox_Top
CMP Temp_00
BCS RETURN_8998
LDY CurrentSprites_Entities,X
LDA #$b544,Y
ASL A
TAY
CPY #$10
BCS @_return
LDA #$8959,Y
PHA
LDA #$8958,Y
PHA

@_return:; [$8957]
RTS


;============================================================================
; Handlers for touching entities in the game.
;============================================================================

;
; XREFS:
;     CurrentSprite_CheckHitPlayer
;
SPRITE_COLLISION_HANDLERS:; [$8958]
dw Player_HandleTouchEnemy-1
dw Player_HandleTouchBreadOrCoin-1; Coin/meat touched
dw Player_CheckHandlePressUpOnNPC-1; Press Up on NPC
dw $8956; Large animation. Just return.
dw Player_HandleTouchNPC-1; Collide with NPC
dw Player_HandleTouchItem-1; Item touched
dw Player_HandleTouchEnemyMagic-1; Enemy magic touched
dw Player_HandleTouchEnemy-1; Enemy touched

;============================================================================
; Handle touching bread or money.
;
; If touching either of these, the sprite will be removed
; and the handler will be invoked to add HP or gold.
;
; INPUTS:
;     X:
;         The index of the sprite.
;
;     CurrentSprites_Entities:
;         The current sprite entities on the screen.
;
; OUTPUTS:
;     None
;
; CALLS:
;     Player_HandleTouchCoin
;     Player_HandleTouchBread
;============================================================================
Player_HandleTouchBreadOrCoin:; [$8968]
;
; Check if this is a gold coin or bread.
;
LDA CurrentSprites_Entities,X; Load the entity for this sprite.
CMP #$01; Is it bread?
BEQ @_isBread; If so, jump.

;
; This is a gold coin.
;
LDA #$ff
STA CurrentSprites_Entities,X; Clear the sprite.
JMP Player_HandleTouchCoin; Handle touching the gold coin.

;
; This is bread.
;
@_isBread:; [$8977]
LDA #$ff
STA CurrentSprites_Entities,X; Clear the sprite.
JMP Player_HandleTouchBread; Handle touching the bread.

;============================================================================
; Handle pressing Up next to an NPC.
;
; This will invoke an IScript for the NPC if the player
; pressed Up.
;
; INPUTS:
;     X:
;         The index of the sprite.
;
;     Joy1_ChangedButtonMask:
;         The newly-changed button mask.
;
;     CurrentSprites_Values:
;         The values of the current sprites on screen.
;
; OUTPUTS:
;     CurrentSprite_Value:
;         The value of the sprite.
;
; CALLS:
;     MMC1_LoadBankAndJump
;============================================================================
Player_CheckHandlePressUpOnNPC:; [$897f]
;
; Check if Up is pressed.
;
LDA Joy1_ChangedButtonMask; Load the changed button mask.
CMP #$08; Is Up pressed?
BNE RETURN_8998; If not, return.

;
; Up was pressed. Get the value for this sprite. This will
; be used to invoke the sprite's associated IScript.
;
LDA CurrentSprites_Values,X; Load the value for the sprite.
STA a:CurrentSprite_Value; Store it as the current value.
CMP #$ff; Is it 0xFF?
BEQ RETURN_8998; If so, return.
JSR #$f859; Execute the handler.
db BANK_12_LOGIC; Bank = 12
dw IScripts_Begin-1; Address = IScripts_Begin

@_afterFarJump:; [$8995]
LDX a:CurrentSpriteIndex; X = current sprite index

;
; XREFS:
;     CurrentSprite_CheckHitPlayer
;     Player_CheckHandlePressUpOnNPC
;     Player_HandleTouchNPC
;
RETURN_8998:; [$8998]
RTS

;============================================================================
; Handle touching an enemy's magic.
;
; If the player is not invincible via iframes or Ointment,
; this will trigger the same damage process as if the
; player touched the enemy directly.
;
; INPUTS:
;     X:
;         The index of the sprite.
;
;     Player_InvincibilityPhase:
;         The current invincibility phase of the player.
;
;     DurationOintment:
;         The remaining duration of any ointment.
;
; OUTPUTS:
;     CurrentSprites_Entities:
;         The new entities map with this sprite unset.
;
; CALLS:
;     Player_HandleTouchEnemy
;============================================================================
Player_HandleTouchEnemyMagic:; [$8999]
LDA Player_InvincibilityPhase
BNE RETURN_89AD
LDA a:DurationOintment
BPL RETURN_89AD
JSR Player_HandleTouchEnemy
LDX a:CurrentSpriteIndex
LDA #$ff
STA CurrentSprites_Entities,X

;
; XREFS:
;     Player_HandleTouchEnemy
;     Player_HandleTouchEnemyMagic
;
RETURN_89AD:; [$89ad]
RTS

;============================================================================
; Handle touching an enemy.
;
; If the player is not currently invincible (via iframes or
; Ointment), this will cause the player to take damage.
;
; INPUTS:
;     X:
;         The index of the sprite.
;
;     Player_InvincibilityPhase:
;         The current invincibility phase of the player.
;
;     DurationOintment:
;         The remaining duration of any ointment.
;
;     CurrentSprites_Entities:
;         The entities of sprites on the screen.
;
;     CurrentSprites_Phases:
;         The state phases of the sprites on the screen.
;
; OUTPUTS:
;     CurrentSprites_Phases:
;         Resulting phase of sprites on the screen.
;
; CALLS:
;     Sound_PlayEffect
;     Player_SetDamagedBySprite
;     Player_ApplyDamage
;
; XREFS:
;     Player_HandleTouchEnemyMagic
;     SPRITE_COLLISION_HANDLERS [$PRG14::8958]
;============================================================================
Player_HandleTouchEnemy:; [$89ae]
;
; Check if the player currently has iframes.
;
LDA Player_InvincibilityPhase; Load the invincibility phase.
BEQ @_canTakeDamage; If no iframes are available, begin processing the hit.
RTS; Else, return.

;
; Check if the player has Ointment active.
;
@_canTakeDamage:; [$89b3]
LDA a:DurationOintment; Check the ointment duration.
BPL RETURN_89AD; If there's time left, no damage will be taken. Return.

;
; Process special enemy handling.
;
LDA CurrentSprites_Entities,X; Load the sprite entity that hit the player.
CMP #$05; Is it the Necron Aides?
BNE @_handleDamage; If not, perform standard damage handling.

;
; This is the Necron Aides enemy.
;
LDA CurrentSprites_Phases,X; Load the phase of the enemy.
ORA #$80; Set the 7th bit.
STA CurrentSprites_Phases,X; Store it.

;
; Play the sound effect and process damage.
;
@_handleDamage:; [$89c7]
LDA #$04
JSR #$d0e4; Play the Player Hit sound.
JSR Player_SetDamagedBySprite; Mark the player as damaged and set state.
JMP Player_ApplyDamage; Apply damage.
db $60; [$89d2] byte

;
; XREFS:
;     Player_SetDamagedBySprite
;
SPRITES_FACING_VALUE_TO_OPPOSITE_PLAYER_FACING_BITMASK:; [$89d3]
db $40; [0]:
db $00; [1]:

;============================================================================
; Set the player as damaged by another sprite.
;
; This will set the invincibility phase, giving the
; player iframes.
;
; It will also change the player direction to face
; the enemy, and apply knockback.
;
; INPUTS:
;     Player_Flags:
;         The player's current flags.
;
;     Player_StatusFlag:
;         The player's status flag.
;
; OUTPUTS:
;     Player_InvincibilityPhase:
;         The player's new invincibility phase (60).
;
;     Player_Flags:
;         The new player flags, with the facing direction
;         changed.
;
;     Player_StatusFlag:
;         The new status flag, with knockback applied.
;
; XREFS:
;     Player_HandleHitByMagic
;     Player_HandleTouchEnemy
;============================================================================
Player_SetDamagedBySprite:; [$89d5]
;
; Set the invincibility phase to 60.
;
LDA #$3c
STA Player_InvincibilityPhase; Set iframes to 60.

;
; Set the player's facing direction to face the enemy.
;
LDA CurrentSprites_Flags,X; Load the sprite's current flags.
AND #$01; Grab the direction bit.
TAY; Set to Y.
LDA Player_Flags; Load the player's flags.
AND #$bf; Unset the Facing Right bit.
ORA #$89d3,Y; Set facing to the opposite of the sprite's.
STA Player_Flags; Store it.

;
; Set knockback on the player.
;
LDA Player_StatusFlag; Load the player's status flag.
ORA #$02; Set knockback.
STA Player_StatusFlag; Store it.
RTS

;============================================================================
; Handle the player touching an NPC.
;
; This will invoke an IScript action when colliding
; with the NPC. It's used for the initial screen when
; approaching the walls of Eolis.
;
; INPUTS:
;     X:
;         The index of the sprite.
;
;     CurrentSprites_Values:
;         The values of the current sprites on screen.
;
; OUTPUTS:
;     CurrentSprite_Value:
;         The value of this sprite.
;
;     CurrentSprites_Entities:
;         The entities of the current sprites on screen.
;
; CALLS:
;     MMC1_LoadBankAndJump
;============================================================================
Player_HandleTouchNPC:; [$89ef]
LDA CurrentSprites_Values,X; Load the value for this sprite.
STA a:CurrentSprite_Value; Store as the current sprite's value.
CMP #$ff; Is it 0xFF (unset)?
BEQ RETURN_8998; If so, return.
JSR #$f859; Else, execute the IScript at that value.
db BANK_12_LOGIC; Bank = 12
dw IScripts_Begin-1; Address = IScripts_Begin

;
; Clear this sprite.
;
@_afterFarJump:; [$89ff]
LDX a:CurrentSpriteIndex; X = current sprite index.
LDA #$ff; A = 0xFF
STA CurrentSprites_Entities,X; Set the entity at that index to 0xFF.
RTS

;============================================================================
; TODO: Document Sprite_GetBounds
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;============================================================================
Sprite_GetBounds:; [$8a08]
LDA #$00
STA Temp_Addr_U
LDA CurrentSprites_Entities,X
ASL A
ROL Temp_Addr_U
ASL A
ROL Temp_Addr_U
ADC #$73
STA Temp_Addr_L
LDA Temp_Addr_U
ADC #$b2
STA Temp_Addr_U
LDA CurrentSprites_Entities,X
CMP #$1f
BEQ @LAB_PRG14__8a2e
CMP #$20
BEQ @LAB_PRG14__8a40
CMP #$21
BNE Sprite_SetBoundsFromTemp

@LAB_PRG14__8a2e:; [$8a2e]
LDA CurrentSprites_Phases,X
CMP #$02
BNE Sprite_SetBoundsFromTemp
LDA #$71
STA Temp_Addr_L
LDA #$8a
STA Temp_Addr_U
JMP Sprite_SetBoundsFromTemp

@LAB_PRG14__8a40:; [$8a40]
LDA CurrentSprites_Phases,X
BEQ @LAB_PRG14__8a49
CMP #$04
BNE Sprite_SetBoundsFromTemp

@LAB_PRG14__8a49:; [$8a49]
LDA #$75
STA Temp_Addr_L
LDA #$8a
STA Temp_Addr_U

;
; XREFS:
;     Sprite_GetBounds
;
Sprite_SetBoundsFromTemp:; [$8a51]
LDY #$00
LDA CurrentSprites_XPos_Full,X
CLC
ADC (Temp_Addr_L),Y
STA a:SpriteBox_Left
LDA CurrentSprites_YPos,X
CLC
INY
ADC (Temp_Addr_L),Y
STA a:SpriteBox_Top
INY
LDA (Temp_Addr_L),Y
STA a:SpriteBox_Width
INY
LDA (Temp_Addr_L),Y
STA a:SpriteBox_Height
RTS

SPRITE_GETBOUNDS_ADDR1:; [$8a71]
db $30; [0]:
db $08; [1]:
db $f0; [2]:
db $00; [3]:

SPRITE_GETBOUNDS_ADDR2:; [$8a75]
db $20; [0]:
db $10; [1]:
db $f8; [2]:
db $00; [3]:

;============================================================================
; TODO: Document Player_ApplyDamage
;
; INPUTS:
;     X
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     Player_HandleTouchEnemy
;============================================================================
Player_ApplyDamage:; [$8a79]
LDY CurrentSprites_Entities,X
LDA #$b6d7,Y
STA Temp_Addr_U
STA Temp_05
LDA #$00
STA Temp_Addr_L
STA Temp_04
LSR Temp_05
ROR Temp_04
LSR Temp_05
ROR Temp_04
LSR Temp_05
ROR Temp_04

;
; If the player is wearing any armor, apply damage reduction.
;
LDY a:SelectedArmor; Load the current armor.
BEQ @_applyDamage; If it's 0 (leather), then jump.
CPY #$04; Is it > 4 (Battle Suit)?
BCS @_applyDamage; Then jump.

;
; Apply the armor's defense multiplier.
;
LDA #$8ad8,Y; Load the multiplier for this armor.
TAY; Y = A

@LAB_PRG14__8aa2:; [$8aa2]
LDA Temp_Addr_L
SEC
SBC Temp_04
STA Temp_Addr_L
LDA Temp_Addr_U
SBC Temp_05
STA Temp_Addr_U
DEY
BNE @LAB_PRG14__8aa2

@_applyDamage:; [$8ab2]
LDA Temp_Addr_L
STA a:Arg_PlayerHealthDelta_L
LDA Temp_Addr_U
STA a:Arg_PlayerHealthDelta_U
LDA a:SpecialItems
AND #$01
BEQ @LAB_PRG14__8ad4
LDA a:Arg_PlayerHealthDelta_L
SEC
SBC Temp_04
STA a:Arg_PlayerHealthDelta_L
LDA a:Arg_PlayerHealthDelta_U
SBC Temp_05
STA a:Arg_PlayerHealthDelta_U

@LAB_PRG14__8ad4:; [$8ad4]
JMP #$c08e

;
; XREFS:
;     Sprite_CheckHitByCastMagic
;
RETURN_8AD7:; [$8ad7]
RTS


;============================================================================
; Defense multipliers for each armor.
;============================================================================

;
; XREFS:
;     Player_ApplyDamage
;
ARMOR_DEFENSE_MULTIPLIERS:; [$8ad8]
db $00; [0]: Leather (0)
db $01; [1]: Studded Mail (1)
db $02; [2]: Full Plate (2)
db $04; [3]: Battle Suit (4)

;============================================================================
; Check if the current sprite has been hit by player magic.
;
; If the player has cast magic, its hitbox will be matched
; against the sprite's.
;
; If there's overlap, the player's hit information will be
; updated.
;
; If the sprite dies, the player's state will be updated.
;
; INPUTS:
;     CastMagic_Type:
;         The currently-cast magic type.
;
;     CastMagic_XPos_Full:
;         The X position of the cast magic.
;
;     CastMagic_YPos_Full:
;         The Y position of the cast magic.
;
;     CastMagic_Flags:
;         The flags for the current magic type.
;
;     CurrentSpriteIndex:
;         The index of the currently-processed sprite.
;
;     CurrentSprites_Entities:
;         The entity types for the current sprites.
;
;     SPRITE_CATEGORIES_BY_ENTITY:
;         The category types for the sprite entity types.
;
;     CurrentSprites_Flags:
;         The flags for the current sprites.
;
;     CAST_MAGIC_HIT_BEHAVIORS:
;         The magic behavior functions for the magic types.
;
;     CurrentSprites_HitBoxTypes:
;         The hitbox types for the current sprites.
;
;     CAST_MAGIC_HIT_WIDTHS:
;         The hitbox widths for the cast magic types.
;
;     CAST_MAGIC_HIT_HEIGHTS:
;         The hitbox heights for the cast magic types.
;
;     SPRITE_HITBOX_WIDTHS:
;         The widths for the hitbox types.
;
;     SPRITE_HITBOX_HEIGHTS:
;         The heights for the hitbox types.
;
; OUTPUTS:
;     CurrentSprites_HitByMagicBehavior:
;         The magic hit behavior for the sprite, if hit.
;
;     CurrentSprites_Flags:
;         The updated flags for the sprite, if hit.
;
;     CurrentSprites_HitByMagicIFrames:
;        The new hit duration for the sprite, if hit.
;
;     Temp_00:
;     Temp_01:
;         Clobbered.
;
; CALLS:
;     Player_HitEnemyWithMagic
;============================================================================
Sprite_CheckHitByCastMagic:; [$8adc]
;
; Check if there's a valid cast magic type on screen.
;
LDA a:CastMagic_Type; Load the cast magic type.
CMP #$05; Check against the supported magic types.
BCS RETURN_8AD7; If not, then return.

;
; Check if the currently-processed sprite is visible on screen.
;
LDX a:CurrentSpriteIndex; Get the current sprite.
JSR Sprites_IsSpriteHidden; Check if the sprite is visible.
BNE RETURN_8AD7; If not, return.

;
; Check the sprite type.
;
LDA CurrentSprites_Entities,X; Get the type of this sprite.
CMP #$ff; Is it unset?
BEQ RETURN_8AD7; If so, return.

;
; Check if this is either a standard or big enemy.
;
TAY; Y = A (sprite type)
LDA #$b544,Y; A = Category type of this sprite
BEQ @_isEnemy; If it's a standard enemy, jump.
CMP #$07; Check if it's a big enemy.
BNE CastMagic_HitHandler_NoOp

;
; Check if the magic overlaps the sprite in the X direction.
;
@_isEnemy:; [$8afc]
LDY a:CastMagic_Type; Load the cast magic type.
LDA #$8b73,Y; Load the htbox width for the magic.
STA Temp_01; Store that.
LDY CurrentSprites_HitBoxTypes,X; Load the hitbox type for the sprite.
LDA #$b4d1,Y; Get the width of the sprite.
CLC
ADC Temp_01; Add the hitbox width for this.
STA Temp_00; Store that.
LDA a:CastMagic_XPos_Full; Load the cast magic X position.
CLC
ADC Temp_01; Add the hitbox width.
SEC
SBC CurrentSprites_XPos_Full,X; Subtract the sprite X position.
CMP Temp_00; Compare to the magic hitbox.
BCS CastMagic_HitHandler_NoOp; If it didn't overlap in the X position, return.

;
; Check if the magic overlaps the sprite in the Y direction.
;
LDY a:CastMagic_Type; Load the cast magic type.
LDA #$8b78,Y; Load the hitbox height of the magic.
STA Temp_01; Store that.
LDY CurrentSprites_HitBoxTypes,X; Load the hitbox type for the sprite.
LDA #$b4d8,Y; Get the height of the sprite.
CLC
ADC Temp_01; Add the hitbox height for this.
STA Temp_00; Store that.
LDA a:CastMagic_YPos_Full; Load the cast magic Y position.
CLC
ADC Temp_01; Add the hitbox height.
SEC
SBC CurrentSprites_YPos,X; Subtract the sprite Y position.
CMP Temp_00; Compare to the magic hitbox.
BCS CastMagic_HitHandler_NoOp; If it didn't overlap in the Y position, return.

;
; The magic hit the sprite. Update state on the sprite.
;
LDY a:CastMagic_Type; Load the cast magic type.
LDA #$8b7d,Y; Load the hit behavior for the magic.
STA CurrentSprites_HitByMagicBehavior,X; Store as the hit behavior for the sprite.
LDA #$8b82,Y; Load the hit behavior timeframe for the magic.
STA CurrentSprites_HitByMagicIFrames,X; Store for the sprite.

;
; Update the sprite to face the direction the magic is facing.
;
LDA a:CastMagic_Flags; Load the cast magic flags.
ROL A; Get the facing direction of the magic.
ROL A
ROL A
AND #$01
STA Temp_00; Store that.
LDA CurrentSprites_Flags,X; Load the sprite's flags.
AND #$fe; Clear the facing direction bit.
ORA Temp_00; Set it to match the magic's direction.
STA CurrentSprites_Flags,X; Store it back out.

;
; Give the player credit for hitting the enemy with magic.
;
LDY a:CastMagic_Type; Y = Cast magic type.
JSR Player_HitEnemyWithMagic; Update player state.

;
; Load the magic hit sprite handler for this magic type.
;
LDA a:CastMagic_Type; A = Cast magic type.
ASL A; Update to a word boundary for the lookup table.
TAY; Y = A
LDA #$bb10,Y; Load the next address from the lookup table.
PHA
LDA #$bb0f,Y
PHA

;============================================================================
; TODO: Document CastMagic_HitHandler_NoOp
;
; INPUTS:
;     None.
;
; OUTPUTS:
;     TODO
;
; XREFS:
;     CAST_MAGIC_HIT_HANDLERS [$PRG14::bb19]
;     CAST_MAGIC_HIT_HANDLERS [$PRG14::bb1b]
;     CAST_MAGIC_HIT_HANDLERS [$PRG14::bb1d]
;     CAST_MAGIC_HIT_HANDLERS [$PRG14::bb1f]
;     CAST_MAGIC_HIT_HANDLERS [$PRG14::bb21]
;     CAST_MAGIC_HIT_HANDLERS [$PRG14::bb23]
;     CAST_MAGIC_HIT_HANDLERS [$PRG14::bb25]
;     Sprite_CheckHitByCastMagic
;============================================================================
CastMagic_HitHandler_NoOp:; [$8b72]
RTS


;============================================================================
; Hitbox widths for each magic type.
;============================================================================

;
; XREFS:
;     Sprite_CheckHitByCastMagic
;
CAST_MAGIC_HIT_WIDTHS:; [$8b73]
db $0b; [0]: Deluge (11)
db $0b; [1]: Thunder (11)
db $1b; [2]: Fire (27)
db $0b; [3]: Death (11)
db $0b; [4]: Tilte (11)


;============================================================================
; Hitbox widths for each magic type.
;============================================================================

;
; XREFS:
;     Sprite_CheckHitByCastMagic
;
CAST_MAGIC_HIT_HEIGHTS:; [$8b78]
db $0b; [0]: Deluge (11)
db $1b; [1]: Thunder (27)
db $0b; [2]: Fire (11)
db $0b; [3]: Death (11)
db $0b; [4]: Tilte (11)


;============================================================================
; Magic behaviors for each magic type.
;============================================================================

;
; XREFS:
;     Sprite_CheckHitByCastMagic
;
CAST_MAGIC_HIT_BEHAVIORS:; [$8b7d]
db $00; [0]: Deluge (0)
db $01; [1]: Thunder (1)
db $02; [2]: Fire (2)
db $ff; [3]: Death (none)
db $ff; [4]: Tilte (none)


;============================================================================
; Hit iframe time for each magic type.
;============================================================================

;
; XREFS:
;     Sprite_CheckHitByCastMagic
;
CAST_MAGIC_HIT_IFRAMES:; [$8b82]
db $04; [0]: Deluge (4)
db $08; [1]: Thunder (8)
db $ff; [2]: Fire (none)
db $ff; [3]: Death (none)
db $ff; [4]: Tilte (none)