;============================================================================
; Faxanadu (U).nes
;
; PRG14 ($8000 - $bfff)
;============================================================================
.segment "PRG14"
.reloc
;============================================================================
; TODO: Document Sprites_UpdateAll
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
EndGame_MainLoop
;
Game_MainLoop
;
GetRandom
;============================================================================
;
; The Hour Glass isn't being used and sprites aren't paused,
; so sprites can be updated.
;
[800c]ee 83 03INC a:SpriteUpdateCounter
;
; Begin the loop.
;
[800f]@_spritesLoop:
[800f]a2 07LDX #$07
;
; Process this sprite slot if it's populated with a
; valid sprite.
;
[8011]@_updateSpriteLoop:
[8011]8e 78 03STX a:CurrentSpriteIndex
[8014]bd cc 02LDA a:CurrentSprites_Entities,X
[8017]30 2aBMI @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).
;
[8019]ad 26 04LDA a:Sprites_UpdatesPaused
[801c]d0 22BNE @_updateSpriteState
;
; The elixir is not active. Check if the sprite was hit.
;
[801e]bd 4c 03LDA a:CurrentSprites_HitCounter,X
[8021]d0 2bBNE @_handleHit
[8023]bd 34 03LDA a:CurrentSprites_HitByMagicBehavior,X
[8026]30 06BMI @LAB_PRG14__802e
[8028]20 51 81JSR Sprites_Maybe_UpdateHitByMagic
[802b]4c 40 80JMP @_updateSpriteState
[802e]@LAB_PRG14__802e:
[802e]20 6b a6JSR Sprites_UpdateBehavior
[8031]20 04 88JSR Player_HitSpriteWithWeapon
[8034]20 dc 8aJSR Sprite_CheckHitByCastMagic
[8037]20 08 8aJSR Sprite_GetBounds
[803a]20 7c 87JSR Player_CheckShieldHitByMagic
[803d]20 0a 89JSR CurrentSprite_CheckHitPlayer
[8040]@_updateSpriteState:
[8040]20 d2 8bJSR CurrentSprite_UpdateState
[8043]@LAB_PRG14__8043:
[8043]ae 78 03LDX a:CurrentSpriteIndex
[8046]caDEX
[8047]10 c8BPL @_updateSpriteLoop
[8049]a9 00LDA #$00
[804b]85 33STA Sprites_PPUOffset
[804d]60RTS
;
; The sprite has been hit. Reduce the hit counter. It'll
; eventually get to 0 if it's not hit again recently.
;
[804e]@_handleHit:
[804e]de 4c 03DEC a:CurrentSprites_HitCounter,X
[8051]bd cc 02LDA a:CurrentSprites_Entities,X
;
; Check if this sprite is Tamazutsu, Pakukame, or Zorugeriru.
;
[8054]c9 2cCMP #$2c
[8056]f0 e8BEQ @_updateSpriteState
[8058]c9 30CMP #$30
[805a]f0 e4BEQ @_updateSpriteState
[805c]c9 31CMP #$31
[805e]f0 e0BEQ @_updateSpriteState
;
; It's not any of those.
;
[8060]a9 02LDA #$02
[8062]8d 75 03STA a:Arg_DeltaX_Full
[8065]a9 00LDA #$00
[8067]8d 74 03STA a:Arg_DeltaX_Frac
[806a]20 94 84JSR Sprites_Something_SomethingAndMoveHoriz
[806d]4c 40 80JMP @_updateSpriteState
;============================================================================
; TODO: Document Sprites_UpdateAllStates
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Game_DrawScreenInFrozenState
;============================================================================
;============================================================================
; TODO: Document Sprites_Maybe_UpdateHitByMagic
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;============================================================================
[8151]Sprites_Maybe_UpdateHitByMagic:
[8151]bc 34 03LDY a:CurrentSprites_HitByMagicBehavior,X
[8154]f0 0cBEQ @LAB_PRG14__8162
[8156]88DEY
[8157]f0 21BEQ @LAB_PRG14__817a
[8159]88DEY
[815a]f0 36BEQ @LAB_PRG14__8192
[815c]a9 ffLDA #$ff
[815e]9d 34 03STA a:CurrentSprites_HitByMagicBehavior,X
[8161]60RTS
[8162]@LAB_PRG14__8162:
[8162]a9 03LDA #$03
[8164]8d 75 03STA a:Arg_DeltaX_Full
[8167]a9 00LDA #$00
[8169]8d 74 03STA a:Arg_DeltaX_Frac
[816c]20 94 84JSR Sprites_Something_SomethingAndMoveHoriz
[816f]de 3c 03DEC a:CurrentSprites_HitByMagicIFrames,X
[8172]d0 05BNE @LAB_PRG14__8179
[8174]a9 ffLDA #$ff
[8176]9d 34 03STA a:CurrentSprites_HitByMagicBehavior,X
[8179]@LAB_PRG14__8179:
[8179]60RTS
[817a]@LAB_PRG14__817a:
[817a]a9 02LDA #$02
[817c]8d 75 03STA a:Arg_DeltaX_Full
[817f]a9 00LDA #$00
[8181]8d 74 03STA a:Arg_DeltaX_Frac
[8184]20 94 84JSR Sprites_Something_SomethingAndMoveHoriz
[8187]de 3c 03DEC a:CurrentSprites_HitByMagicIFrames,X
[818a]d0 05BNE @_return1
[818c]a9 ffLDA #$ff
[818e]9d 34 03STA a:CurrentSprites_HitByMagicBehavior,X
[8191]@_return1:
[8191]60RTS
[8192]@LAB_PRG14__8192:
[8192]a9 04LDA #$04
[8194]8d 75 03STA a:Arg_DeltaX_Full
[8197]a9 00LDA #$00
[8199]8d 74 03STA a:Arg_DeltaX_Frac
[819c]20 94 84JSR Sprites_Something_SomethingAndMoveHoriz
[819f]90 05BCC @_return2
[81a1]a9 ffLDA #$ff
[81a3]9d 34 03STA a:CurrentSprites_HitByMagicBehavior,X
[81a6]@_return2:
[81a6]60RTS
;============================================================================
; TODO: Document Player_HitEnemyWithMagic
;
; INPUTS:
; X
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Sprite_CheckHitByCastMagic
;============================================================================
;
; This is Necron Aides. Set bit 7 on its phase.
;
[81ae]bd e4 02LDA a:CurrentSprites_Phases,X; Load the phase for Necron Aides.
[81b1]09 80ORA #$80; Set bit 7.
[81b3]9d e4 02STA a:CurrentSprites_Phases,X; Save it.
;
; Handle hitting the enemy with magic.
;
; This will first play the sound effect, and then begin
; calculating damage to the enemy, factoring in the spell
; and the enemy's magic defense.
;
[81b6]@_handleHitWithMagic:
[81b6]a9 02LDA #$02; 2 == Enemy Hit With Magic sound effect
[81b8]20 e4 d0JSR Sound_PlayEffect; Play it.
;
; Load the standard damage amount for the current spell.
;
[81bb]b9 a0 b7LDA a:MAGIC_DAMAGE,Y; Load the magic damage for the current spell.
[81be]85 00STA Temp_00; Store it temporarily.
;
; Check if the player has the Magical Rod.
;
[81c0]ad 2c 04LDA a:SpecialItems; Load the player's special items.
[81c3]29 04AND #$04; Is the Magical Rod equipped?
[81c5]f0 08BEQ @_prepareCalcDefense
;
; The player has the Magical Rod.
;
; If they do, increase damage by 50%.
;
[81c7]a5 00LDA Temp_00; Load the magic damage for the spell.
[81c9]4aLSR A; Reduce that amount by half (we'll add it back).
[81ca]18CLC
[81cb]65 00ADC Temp_00; Now add it back to the magic damage (yielding a 50% increase).
[81cd]85 00STA Temp_00; Store it.
[81cf]@_prepareCalcDefense:
[81cf]a9 00LDA #$00
[81d1]85 02STA Temp_Addr_L; Set the default magic defense flags to 0 (0%).
[81d3]84 01STY Temp_01; Store the current magic spell ID as a loop counter.
;
; Check if we're hitting the enemy with Deluge or another
; spell.
;
[81d5]c0 00CPY #$00; Is the spell Deluge?
[81d7]f0 24BEQ @_reduceEnemyHP
;
; This is not the Deluge spell.
;
[81d9]bc cc 02LDY a:CurrentSprites_Entities,X; Load the entity that's been hit.
[81dc]b9 3b b7LDA a:SPRITE_ENTITY_MAGIC_DEFENSE,Y; Load the enemy's magic defenses.
;
; Begin calculating the magic defense.
;
; This is only called for Thunder, Fire, Death, and Tilte.
;
; Starting with the current magic spell ID, we'll rotate the
; most-significant bits into bits 0 and 1 until the current
; spell's magic defense stats are placed there.
;
; Effectively, this makes sure we can operate on the right
; defense flags for the given magic spell as bits 0-1.
;
[81df]@_calcDefenseLoop:
[81df]0aASL A; Shift left, placing the most-significant bit into carry.
[81e0]26 02ROL Temp_Addr_L; Rotate left, placing that into bit 0.
[81e2]0aASL A; Shift left, placing the most-significant bit into carry.
[81e3]26 02ROL Temp_Addr_L; Rotate left, placing that into bit 0.
[81e5]c6 01DEC Temp_01; Decrement the magic spell counter.
[81e7]d0 f6BNE @_calcDefenseLoop; If the current spell's defense flags aren't in bits 0 and 1, loop.
;
; Process those defense stats.
;
; This applies the following logic:
;
; If flags are not empty:
; Reduce damage by 50%.
;
; Flags--; // 11 => 10, 10 => 01, 01 => 0
;
; If flags are not empty:
; Reduce damage by another 50% (75% total).
;
; If damage hasn't been reduced to 0:
; Change that to 100%.
;
; NOTE: This is kind of weird. It seems to specially handle 75%
; reduction, and then just throws that out and turns it
; into 100%. Maybe they just patched that in to simplify
; later.
;
[81e9]a5 02LDA Temp_Addr_L; Load the magic defense flags.
[81eb]29 03AND #$03; Keep only bits 0 and 1.
[81ed]a8TAY; Transfer to Y.
[81ee]f0 0dBEQ @_reduceEnemyHP; If flags are 0, there's no defense. Jump.
[81f0]46 00LSR Temp_00; There's magic defense. Half the damage.
[81f2]88DEY; Y-- (defense flags).
[81f3]f0 08BEQ @_reduceEnemyHP; If flags are 0, we're done. Jump.
[81f5]46 00LSR Temp_00; Half the damage again (75% now).
[81f7]f0 04BEQ @_reduceEnemyHP; If 0 magic damage remains, we're done. Jump.
[81f9]a9 00LDA #$00; Ignore that 75%. Make it 100%. Why not.
[81fb]85 00STA Temp_00; Save it.
;
; Subtract the magic damage from entity's HP.
;
[81fd]@_reduceEnemyHP:
[81fd]bd 44 03LDA a:CurrentSprites_HP,X; Load the current HP for the entity being hit.
[8200]38SEC
[8201]e5 00SBC Temp_00; Subtract the normalized magic damage.
[8203]9d 44 03STA a:CurrentSprites_HP,X; Store it back.
[8206]b0 25BCS RETURN_822D; If HP > 0, return.
;
; The entity is dead.
;
[8208]bd cc 02LDA a:CurrentSprites_Entities,X; Load the ID of this entity.
[820b]c9 18CMP #$18; Is this Sugata?
[820d]d0 06BNE @_addExperience; If not, jump.
;
; The enemy is Sugata. Clear the greyscale set when it
; attacked so we don't get stuck in greyscale forever.
;
[820f]a5 0bLDA PPU_Mask; Load the screen color mode.
[8211]29 feAND #$fe; Clear the greyscale bit.
[8213]85 0bSTA PPU_Mask; Store it.
;
; Add experience from the sprite.
;
[8215]@_addExperience:
[8215]20 87 8bJSR Player_AddExperienceFromSprite; Add experience to the player.
;
; Play the killed enemy sound effect.
;
[8218]a9 03LDA #$03; 3 == Enemy Death sound effect
[821a]20 e4 d0JSR Sound_PlayEffect; Play it.
;
; Check if this is a normal and big enemy. They need to be
; handled differently.
;
[821d]bc cc 02LDY a:CurrentSprites_Entities,X; Load the ID of this entity.
[8220]b9 44 b5LDA a:SPRITE_CATEGORIES_BY_ENTITY,Y; Load the entity's category.
[8223]c9 07CMP #$07; Is it a boss?
[8225]d0 03BNE @_isSmallEnemy; If not, jump. It should be a small enemy.
;
; This is a big enemy. Handle cleanup specially.
;
[8227]4c ec abJMP Sprite_ShowBigEnemyDeathByMagicOrWeapon; Show the boss death effect.
[822a]@_isSmallEnemy:
[822a]4c f6 abJMP Sprite_ShowNormalEnemyDeathByMagic; Show the standard enemy death effect.
[822d]RETURN_822D:
[822d]60RTS
;============================================================================
; TODO: Document SpriteUpdateHandler_Effect_EnemyDeath
;
; INPUTS:
; X
;
; OUTPUTS:
; A
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80ad]
;
SpriteUpdateHandler_Effect_BossDeath
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Effect_BossDeath
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::814f]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Effect_LightningBall20
;
; INPUTS:
; X
;
; OUTPUTS:
; A
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80af]
;
SpriteUpdateHandler_Effect_BossDeath
;============================================================================
[82f8]Sprite_CalcDistanceXToPlayer:
[82f8]b5 baLDA CurrentSprites_XPos_Full,X
[82fa]38SEC
[82fb]e5 9eSBC Player_PosX_Block
[82fd]b0 13BCS @LAB_PRG14__8312
[82ff]49 ffEOR #$ff
[8301]18CLC
[8302]69 01ADC #$01
[8304]18CLC
[8305]bc 04 03LDY a:CurrentSprites_HitBoxTypes,X
[8308]38SEC
[8309]f9 d1 b4SBC a:SPRITE_HITBOX_WIDTHS,Y
[830c]b0 02BCS @_returnTrue
[830e]a9 00LDA #$00
[8310]@_returnTrue:
[8310]18CLC
[8311]60RTS
[8312]@LAB_PRG14__8312:
[8312]38SEC
[8313]e9 10SBC #$10
[8315]b0 03BCS @_return
[8317]a9 00LDA #$00
[8319]38SEC
[831a]@_return:
[831a]60RTS
[831b]Sprite_CalcDistanceYToPlayer:
[831b]b5 c2LDA CurrentSprites_YPos,X
[831d]38SEC
[831e]e5 a1SBC Player_PosY
[8320]b0 06BCS @_return
[8322]49 ffEOR #$ff
[8324]18CLC
[8325]69 01ADC #$01
[8327]18CLC
[8328]@_return:
[8328]60RTS
;============================================================================
; TODO: Document SpriteBehavior_Unknown_29_SomeSetup
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_Unknown_29
;============================================================================
;============================================================================
; MAYBE DEADCODE
;
; XREFS:
;
FUN_PRG14__8398
;============================================================================
;============================================================================
; MAYBE DEADCODE
;============================================================================
[83a8]FUN_PRG14__83a8:
[83a8]bd 0c 03LDA a:CurrentSprites_BehaviorState_XFull,X
[83ab]8d 74 03STA a:Arg_DeltaX_Frac
[83ae]bd 1c 03LDA a:CurrentSprites_BehaviorState_XFrac,X
[83b1]8d 75 03STA a:Arg_DeltaX_Full
[83b4]bd 14 03LDA a:CurrentSprites_BehaviorState_YFull,X
[83b7]8d 76 03STA a:Arg_DeltaY_Frac
[83ba]bd 24 03LDA a:CurrentSprites_BehaviorState_YFrac,X
[83bd]8d 77 03STA a:Arg_DeltaY_Full
[83c0]60RTS
[83c1]Sprites_CalcHorizSpriteMovement:
[83c1]8d 74 03STA a:Arg_DeltaX_Frac; Set pixels delta from A.
[83c4]a9 00LDA #$00; A = 0
[83c6]@_loop:
[83c6]0e 74 03ASL a:Arg_DeltaX_Frac; Shift the pixels delta amount left.
[83c9]2aROL A
[83ca]88DEY
[83cb]d0 f9BNE @_loop
[83cd]8d 75 03STA a:Arg_DeltaX_Full
[83d0]60RTS
[83d1]Sprites_CalcVerticalSpriteMovement:
[83d1]8d 76 03STA a:Arg_DeltaY_Frac
[83d4]a9 00LDA #$00
[83d6]@LAB_PRG14__83d6:
[83d6]0e 76 03ASL a:Arg_DeltaY_Frac
[83d9]2aROL A
[83da]88DEY
[83db]d0 f9BNE @LAB_PRG14__83d6
[83dd]8d 77 03STA a:Arg_DeltaY_Full
[83e0]60RTS
[83e1]Sprites_CalcYFromGravity:
[83e1]48PHA
[83e2]39 f7 83AND a:SPRITE_BEHAVIOR_HOP_PEAK_TICKS,Y
[83e5]85 00STA Temp_00
[83e7]68PLA
[83e8]39 ff 83AND a:SPRITES_MAYBE_GRAVITY,Y
[83eb]f0 07BEQ @LAB_PRG14__83f4
[83ed]b9 f7 83LDA a:SPRITE_BEHAVIOR_HOP_PEAK_TICKS,Y
[83f0]38SEC
[83f1]e5 00SBC Temp_00
[83f3]60RTS
[83f4]@LAB_PRG14__83f4:
[83f4]a5 00LDA Temp_00
[83f6]60RTS
[83f7]SPRITE_BEHAVIOR_HOP_PEAK_TICKS:
[83f7]ff.byte $ff; [0]:
[83f8]7f.byte $7f; [1]:
[83f9]3f.byte $3f; [2]:
[83fa]1f.byte $1f; [3]:
[83fb]0f.byte $0f; [4]:
[83fc]07.byte $07; [5]:
[83fd]03.byte $03; [6]:
[83fe]01.byte $01; [7]:
[83ff]SPRITES_MAYBE_GRAVITY:
[83ff]00.byte $00; [0]:
[8400]80.byte $80; [1]:
[8401]40.byte $40; [2]:
[8402]20.byte $20; [3]:
[8403]10.byte $10; [4]:
[8404]08.byte $08; [5]:
[8405]04.byte $04; [6]:
[8406]02.byte $02; [7]:
;============================================================================
; TODO: Document BScript_Action_FlipXDirection
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
BSCRIPT_ACTIONS [$PRG14::a796]
;
SpriteBehavior_WalkForward
;============================================================================
[8410]BScript_Action_FlipYDirection:
[8410]bd dc 02LDA a:CurrentSprites_Flags,X
[8413]49 80EOR #$80
[8415]9d dc 02STA a:CurrentSprites_Flags,X
[8418]60RTS
[8419]Sprite_MoveHorizAndTurnAroundIfNeeded:
[8419]20 94 84JSR Sprites_Something_SomethingAndMoveHoriz
[841c]90 08BCC @_return
[841e]bd dc 02LDA a:CurrentSprites_Flags,X
[8421]49 01EOR #$01
[8423]9d dc 02STA a:CurrentSprites_Flags,X
[8426]@_return:
[8426]60RTS
[8427]Sprite_Maybe_TurnAroundIfAtScreenEdgeHoriz:
[8427]20 9a 84JSR Sprite_MoveForwardX
[842a]b5 baLDA CurrentSprites_XPos_Full,X
[842c]c9 f0CMP #$f0
[842e]90 19BCC @_returnFalse
[8430]bd dc 02LDA a:CurrentSprites_Flags,X
[8433]4aLSR A
[8434]b5 baLDA CurrentSprites_XPos_Full,X
[8436]29 f0AND #$f0
[8438]b0 03BCS @LAB_PRG14__843d
[843a]18CLC
[843b]69 10ADC #$10
[843d]@LAB_PRG14__843d:
[843d]95 baSTA CurrentSprites_XPos_Full,X
[843f]bd dc 02LDA a:CurrentSprites_Flags,X
[8442]49 01EOR #$01
[8444]9d dc 02STA a:CurrentSprites_Flags,X
[8447]38SEC
[8448]60RTS
[8449]@_returnFalse:
[8449]18CLC
[844a]60RTS
;============================================================================
; MAYBE DEADCODE
;============================================================================
[844b]FUN_PRG14__844b:
[844b]20 6c 84JSR Sprite_Maybe_AddFacingPosX
[844e]b5 baLDA CurrentSprites_XPos_Full,X
[8450]c9 f0CMP #$f0
[8452]90 17BCC RETURN_846B
[8454]bd dc 02LDA a:CurrentSprites_Flags,X
[8457]4aLSR A
[8458]b5 baLDA CurrentSprites_XPos_Full,X
[845a]29 f0AND #$f0
[845c]b0 03BCS @LAB_PRG14__8461
[845e]18CLC
[845f]69 10ADC #$10
[8461]@LAB_PRG14__8461:
[8461]95 baSTA CurrentSprites_XPos_Full,X
[8463]bd dc 02LDA a:CurrentSprites_Flags,X
[8466]49 01EOR #$01
[8468]9d dc 02STA a:CurrentSprites_Flags,X
[846b]RETURN_846B:
[846b]60RTS
;============================================================================
; TODO: Document Sprite_Maybe_AddFacingPosX
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
FUN_PRG14__844b
;============================================================================
;============================================================================
; MAYBE DEADCODE
;============================================================================
[848a]FUN_PRG14__848a:
[848a]a9 00LDA #$00
[848c]8d 74 03STA a:Arg_DeltaX_Frac
[848f]a9 01LDA #$01
[8491]8d 75 03STA a:Arg_DeltaX_Full
;
; v-- Fall through --v
;
[8494]Sprites_Something_SomethingAndMoveHoriz:
[8494]20 9a 84JSR Sprite_MoveForwardX
[8497]4c c4 84JMP MoveSpriteHorizIfPossible
[849a]Sprite_MoveForwardX:
[849a]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite's flags.
[849d]4aLSR A; Shift the "Facing Right" bit into Carry.
[849e]b0 12BCS Sprite_AddPosX; If Carry is set, add to X. Else, fall through to subtract.
;
; v-- Fall through --v
;
[84a0]Sprite_SubtractPosX:
[84a0]bd bc 02LDA a:CurrentSprites_XPos_Frac,X; Load the fractional X position for the sprite entity.
[84a3]38SEC
[84a4]ed 74 03SBC a:Arg_DeltaX_Frac; Subtract the provided value.
[84a7]9d bc 02STA a:CurrentSprites_XPos_Frac,X; Store it.
[84aa]b5 baLDA CurrentSprites_XPos_Full,X; Load the block X position for the sprite entity.
[84ac]ed 75 03SBC a:Arg_DeltaX_Full; Subtract the provided value.
[84af]95 baSTA CurrentSprites_XPos_Full,X; Store it.
[84b1]60RTS
[84b2]Sprite_AddPosX:
[84b2]bd bc 02LDA a:CurrentSprites_XPos_Frac,X; Load the fractional X position for the sprite entity.
[84b5]18CLC
[84b6]6d 74 03ADC a:Arg_DeltaX_Frac; Add the provided value.
[84b9]9d bc 02STA a:CurrentSprites_XPos_Frac,X; Store it.
[84bc]b5 baLDA CurrentSprites_XPos_Full,X; Load the block X position for the sprite entity.
[84be]6d 75 03ADC a:Arg_DeltaX_Full; Add the provided value.
[84c1]95 baSTA CurrentSprites_XPos_Full,X; Store it.
[84c3]60RTS
[84c4]MoveSpriteHorizIfPossible:
[84c4]98TYA
[84c5]48PHA
[84c6]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite flags.
[84c9]29 01AND #$01
[84cb]aaTAX
[84cc]20 10 87JSR CurrentSprite_CanMoveInDirection; Check if this sprite can move at all
[84cf]a5 b7LDA Blocks_Result; Load the current block properties
[84d1]f0 1aBEQ @_cannotMove; If 0, it cannot move
[84d3]ae 78 03LDX a:CurrentSpriteIndex; Load the current sprite
[84d6]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite's flags.
[84d9]29 01AND #$01
[84db]a8TAY
[84dc]b5 baLDA CurrentSprites_XPos_Full,X; Load the X coordinate of the sprite
[84de]29 f0AND #$f0; Grab the X pos (top nibble)
[84e0]c0 01CPY #$01
[84e2]b0 03BCS @_updateHorizPos
[84e4]18CLC
[84e5]69 10ADC #$10; Add 1 to the block X position
[84e7]@_updateHorizPos:
[84e7]95 baSTA CurrentSprites_XPos_Full,X; Store the block position for the sprite.
[84e9]68PLA; Restore the original Y register.
[84ea]a8TAY
[84eb]38SEC; C = 1 (moved, true result)
[84ec]60RTS
[84ed]@_cannotMove:
[84ed]68PLA; Restore the registers
[84ee]a8TAY
[84ef]ae 78 03LDX a:CurrentSpriteIndex
[84f2]18CLC; C = 0 (could not move, false result)
[84f3]60RTS
;============================================================================
; MAYBE DEADCODE
;============================================================================
[84f4]DEADCODE_FUN_PRG14__84f4:
[84f4]20 43 85JSR Sprites_CanMoveDownByHitbox
[84f7]aaTAX
[84f8]d0 34BNE SpriteBehavior_RestoreXRegister
[84fa]ae 78 03LDX a:CurrentSpriteIndex
[84fd]20 34 85JSR DEADCODE_Sprites_CanMoveDownBelowHitbox
[8500]aaTAX
[8501]f0 0aBEQ SpriteBehavior_Something_850d
[8503]ae 78 03LDX a:CurrentSpriteIndex
[8506]60RTS
;============================================================================
; TODO: Document SpriteBehavior_Ishiisu_Something_915b
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_Ishiisu
;============================================================================
;
; v-- Fall through --v
;
;============================================================================
; MAYBE DEADCODE
;
; XREFS:
;
DEADCODE_FUN_PRG14__84f4
;============================================================================
;
; v-- Fall through --v
;
[852e]SpriteBehavior_RestoreXRegister:
[852e]ae 78 03LDX a:CurrentSpriteIndex
[8531]60RTS
[8532]SPRITE_CHECK_PLACEMENT_X_OFFSETS_BY_FACING:
[8532]00.byte $00; [0]: 0 pixel movement
[8533]0f.byte $0f; [1]: 15 pixel movement
;============================================================================
; TODO: Document DEADCODE_Sprites_CanMoveDownBelowHitbox
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
DEADCODE_FUN_PRG14__84f4
;============================================================================
[8543]Sprites_CanMoveDownByHitbox:
[8543]bc 04 03LDY a:CurrentSprites_HitBoxTypes,X; Load the hitbox type for the current sprite.
[8546]b5 c2LDA CurrentSprites_YPos,X; Load the sprite's Y position.
[8548]18CLC
[8549]79 d8 b4ADC a:SPRITE_HITBOX_HEIGHTS,Y; Add the hitbox height.
;
; v-- Fall through --v
;
[854c]Sprites_CheckPlacementInvalidAtY:
;
; Take the provided Y value (as the A register) and
; increment it by 1 for the block position check. It's
; dropped by 1 in order to check the next block down if
; it's anywhere but at the very top of its current block.
;
[854c]85 b6STA Arg_PixelPosY; Store A as the Y argument for placement checks.
[854e]e6 b6INC Arg_PixelPosY; Increment by 1.
;
; Calculate the X position to check.
;
; If the sprite is facing right, we'll add 15, which is 1
; less than the block width. This keeps it on the same block
; if at the left-most edge, but checks the next block if
; overlapping.
;
; If the sprite is facing left, nothing will be added. We
; can safely assume it's on the right block for checking
; purposes.
;
[8550]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite's flags.
[8553]29 01AND #$01; Keep the Facing bit.
[8555]a8TAY; Transfer to Y.
[8556]b5 baLDA CurrentSprites_XPos_Full,X; Load the sprite's X position.
[8558]18CLC
[8559]79 32 85ADC a:SPRITE_CHECK_PLACEMENT_X_OFFSETS_BY_FACING,Y; Add an offset based on the facing bit.
[855c]85 b5STA Arg_PixelPosX; Store as the X argument for checks.
;
; Convert the pixel positions to a block position, and
; then set a result based on whether the resulting block is
; impassable/a ladder (in other words, the entity can't move
; there).
;
[855e]20 6c e8JSR Area_ConvertPixelsToBlockPos; Convert the pixels to a block position.
[8561]4c 87 e8JMP Area_IsBlockImpassableOrLadder; Check if the result is either impassable or a ladder.
[8564]Sprite_MoveVertAndFlipIfNeeded:
[8564]20 ca 85JSR Sprite_CalculateNewVertPos
[8567]20 75 85JSR MoveSpriteVerticalIfPossible
[856a]90 08BCC @_return
[856c]bd dc 02LDA a:CurrentSprites_Flags,X
[856f]49 80EOR #$80
[8571]9d dc 02STA a:CurrentSprites_Flags,X
[8574]@_return:
[8574]60RTS
;============================================================================
; TODO: Document MoveSpriteVerticalIfPossible
;
; INPUTS:
; X
;
; OUTPUTS:
; C
;
; XREFS:
;
Sprite_MoveVertAndFlipIfNeeded
;
Sprite_MoveVertical
;============================================================================
[859c]Sprite_Maybe_TurnAroundIfAtScreenEdgeVert:
[859c]20 ca 85JSR Sprite_CalculateNewVertPos
[859f]20 ad 85JSR Sprite_CapToBlockOppositeFalling
[85a2]90 08BCC @_return
[85a4]bd dc 02LDA a:CurrentSprites_Flags,X
[85a7]49 80EOR #$80
[85a9]9d dc 02STA a:CurrentSprites_Flags,X
[85ac]@_return:
[85ac]60RTS
;============================================================================
; 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
;============================================================================
;
; Check if the Y position is at the bottom of the screen.
;
[85ad]b5 c2LDA CurrentSprites_YPos,X; Load the sprite's Y position.
[85af]c9 e0CMP #$e0; Is Y < 224?
[85b1]90 10BCC @_return; If so, return.
;
; There's room to fall. Check if the sprite is falling.
;
[85b3]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite's flags.
[85b6]0aASL A; Shift the Falling flag into C.
[85b7]b5 c2LDA CurrentSprites_YPos,X; A = Y position.
[85b9]29 f0AND #$f0; Round (floor) to a block position.
[85bb]b0 03BCS @_setY; If falling, jump to set the position as Y.
;
; The sprite is not falling. It's moving up.
;
[85bd]18CLC; Else, clear carry.
[85be]69 10ADC #$10; A += 16 (Y position)
;
; Set the resulting Y position for the sprite, and
; set C = 1 for the result.
;
[85c0]@_setY:
[85c0]95 c2STA CurrentSprites_YPos,X; Set as the new Y position.
[85c2]38SEC; Set C = 1.
[85c3]@_return:
[85c3]60RTS
[85c4]Sprite_MoveVertical:
[85c4]20 ca 85JSR Sprite_CalculateNewVertPos
[85c7]4c 75 85JMP MoveSpriteVerticalIfPossible
[85ca]Sprite_CalculateNewVertPos:
[85ca]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite's flags.
[85cd]30 12BMI @LAB_PRG14__85e1
[85cf]bd c4 02LDA a:CurrentSprites_YPos_Frac,X
[85d2]38SEC
[85d3]ed 76 03SBC a:Arg_DeltaY_Frac
[85d6]9d c4 02STA a:CurrentSprites_YPos_Frac,X
[85d9]b5 c2LDA CurrentSprites_YPos,X
[85db]ed 77 03SBC a:Arg_DeltaY_Full
[85de]95 c2STA CurrentSprites_YPos,X
[85e0]60RTS
[85e1]@LAB_PRG14__85e1:
[85e1]bd c4 02LDA a:CurrentSprites_YPos_Frac,X
[85e4]18CLC
[85e5]6d 76 03ADC a:Arg_DeltaY_Frac
[85e8]9d c4 02STA a:CurrentSprites_YPos_Frac,X
[85eb]b5 c2LDA CurrentSprites_YPos,X
[85ed]6d 77 03ADC a:Arg_DeltaY_Full
[85f0]95 c2STA CurrentSprites_YPos,X
[85f2]60RTS
[85f3]ae 78 03LDX a:CurrentSpriteIndex
[85f6]bd dc 02LDA a:CurrentSprites_Flags,X
[85f9]29 01AND #$01
[85fb]a8TAY
[85fc]b5 baLDA CurrentSprites_XPos_Full,X
[85fe]18CLC
[85ff]79 1d 86ADC a:BYTE_ARRAY_PRG14__861d,Y
[8602]85 b5STA Arg_PixelPosX
[8604]bc 04 03LDY a:CurrentSprites_HitBoxTypes,X
[8607]b5 c2LDA CurrentSprites_YPos,X
[8609]18CLC
[860a]79 d8 b4ADC a:SPRITE_HITBOX_HEIGHTS,Y
[860d]85 b6STA Arg_PixelPosY
[860f]e6 b6INC Arg_PixelPosY
[8611]20 6c e8JSR Area_ConvertPixelsToBlockPos
[8614]20 7c e8JSR ScreenBuffer_IsBlockImpassable
[8617]85 b7STA Blocks_Result
[8619]ae 78 03LDX a:CurrentSpriteIndex
[861c]60RTS
[861d]BYTE_ARRAY_PRG14__861d:
[861d]00.byte $00; [0]:
[861e]0f.byte $0f; [1]:
[861f]Sprites_SetCurrentSpriteCanMove:
[861f]ae 78 03LDX a:CurrentSpriteIndex; X = Currently active sprite.
[8622]bd dc 02LDA a:CurrentSprites_Flags,X; A = Current sprite's flags.
[8625]29 02AND #$02
[8627]d0 14BNE @LAB_PRG14__863d
[8629]20 43 85JSR Sprites_CanMoveDownByHitbox
[862c]85 b7STA Blocks_Result
[862e]d0 0dBNE @LAB_PRG14__863d
[8630]ae 78 03LDX a:CurrentSpriteIndex
[8633]bd dc 02LDA a:CurrentSprites_Flags,X
[8636]09 04ORA #$04
[8638]9d dc 02STA a:CurrentSprites_Flags,X
[863b]38SEC
[863c]60RTS
[863d]@LAB_PRG14__863d:
[863d]ae 78 03LDX a:CurrentSpriteIndex
[8640]bd dc 02LDA a:CurrentSprites_Flags,X
[8643]29 fbAND #$fb
[8645]9d dc 02STA a:CurrentSprites_Flags,X
[8648]18CLC
[8649]60RTS
[864a]CurrentSprite_HandleFall:
[864a]ae 78 03LDX a:CurrentSpriteIndex; X = Currently active sprite.
[864d]bd dc 02LDA a:CurrentSprites_Flags,X; A = Current sprite's flags.
[8650]29 04AND #$04; Can the sprite move?
[8652]f0 1dBEQ @_done; If not, prepare to return.
;
; This sprite can move.
;
[8654]b5 c2LDA CurrentSprites_YPos,X; A = Sprite's Y position.
[8656]18CLC
[8657]69 08ADC #$08; A += 8
[8659]95 c2STA CurrentSprites_YPos,X; Store as the new position.
[865b]c9 c0CMP #$c0; Is this at the bottom of the screen?
[865d]b0 16BCS @_clearSprite; If so, jump to clear the sprite.
;
; Make the sprite fall, if it can.
;
[865f]a2 03LDX #$03; X = 3 (down direction)
[8661]20 10 87JSR CurrentSprite_CanMoveInDirection; Can the sprite move down?
[8664]a5 b7LDA Blocks_Result; A = result of that check.
[8666]f0 09BEQ @_done; If not, prepare to return.
;
; Move the sprite down.
;
[8668]ae 78 03LDX a:CurrentSpriteIndex; X = Currently active sprite.
[866b]b5 c2LDA CurrentSprites_YPos,X; A = Sprite's Y position.
[866d]29 f0AND #$f0; Round to a block position (after the above += 8).
[866f]95 c2STA CurrentSprites_YPos,X; Store as the new position.
[8671]@_done:
[8671]ae 78 03LDX a:CurrentSpriteIndex; Restore the current sprite index.
[8674]60RTS
[8675]@_clearSprite:
[8675]a9 ffLDA #$ff
[8677]9d cc 02STA a:CurrentSprites_Entities,X
[867a]60RTS
[867b]BScript_Action_FacePlayerX:
[867b]a5 9eLDA Player_PosX_Block; Load the player's X position.
;
; Check if the player and sprite are in the same X position.
;
[867d]d5 baCMP CurrentSprites_XPos_Full,X; Compare to the sprite's X position.
[867f]f0 0fBEQ @_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.
;
[8681]2aROL A; Rotate the X position left.
[8682]29 01AND #$01; And take the right-most bit for the facing bit.
[8684]85 00STA Temp_00; Store it.
;
; Set the facing bit for the sprite.
;
[8686]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite's flags.
[8689]29 feAND #$fe; Clear the Facing Right bit.
[868b]05 00ORA Temp_00; Set Facing Right depending on our rotate above.
[868d]9d dc 02STA a:CurrentSprites_Flags,X; Save it back out.
[8690]@_return:
[8690]60RTS
[8691]BScript_Action_FacePlayerY:
[8691]a5 a1LDA Player_PosY
;
; Check if the player and sprite are in the same Y position.
;
[8693]d5 c2CMP CurrentSprites_YPos,X
[8695]f0 0fBEQ @_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.
;
[8697]6aROR A
[8698]29 80AND #$80
[869a]85 00STA Temp_00
;
; Set the Y directinoal bit for the sprite.
;
[869c]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite's flags.
[869f]29 7fAND #$7f; Clear the Falling bit.
[86a1]05 00ORA Temp_00; Set the Falling bit based on the rotate above.
[86a3]9d dc 02STA a:CurrentSprites_Flags,X; Save it back out.
[86a6]@_return:
[86a6]60RTS
;============================================================================
; TODO: Document Sprites_MoveRight
;
; INPUTS:
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
CurrentSprite_CanMoveInDirection
;============================================================================
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document Sprites_SetBlockIsMovingResult
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
FUN_PRG14__86bd
;============================================================================
;
; Set the block as moving.
;
[86b5]a9 01LDA #$01
[86b7]85 b7STA Blocks_Result
[86b9]ae 78 03LDX a:CurrentSpriteIndex
[86bc]60RTS
;============================================================================
; TODO: Document FUN_PRG14__86bd
;
; INPUTS:
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
CurrentSprite_CanMoveInDirection
;============================================================================
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document Sprites_MoveRight__86c6
;
; INPUTS:
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Sprites_MoveRight
;============================================================================
[8710]CurrentSprite_CanMoveInDirection:
[8710]ac 78 03LDY a:CurrentSpriteIndex
[8713]8aTXA
[8714]f0 a7BEQ FUN_PRG14__86bd
[8716]caDEX
[8717]f0 8eBEQ Sprites_MoveRight
[8719]caDEX
[871a]f0 15BEQ @LAB_PRG14__8731
[871c]be 04 03LDX a:CurrentSprites_HitBoxTypes,Y
[871f]b9 c2 00LDA a:CurrentSprites_YPos,Y
[8722]18CLC
[8723]7d d8 b4ADC a:SPRITE_HITBOX_HEIGHTS,X
[8726]85 b6STA Arg_PixelPosY
[8728]c9 f0CMP #$f0
[872a]90 0eBCC @LAB_PRG14__873a
[872c]@LAB_PRG14__872c:
[872c]a9 01LDA #$01
[872e]85 b7STA Blocks_Result
[8730]60RTS
[8731]@LAB_PRG14__8731:
[8731]b9 c2 00LDA a:CurrentSprites_YPos,Y
[8734]c9 f0CMP #$f0
[8736]b0 f4BCS @LAB_PRG14__872c
[8738]85 b6STA Arg_PixelPosY
[873a]@LAB_PRG14__873a:
[873a]b9 ba 00LDA a:CurrentSprites_XPos_Full,Y
[873d]85 b5STA Arg_PixelPosX
[873f]20 6c e8JSR Area_ConvertPixelsToBlockPos
[8742]20 7c e8JSR ScreenBuffer_IsBlockImpassable
[8745]85 b7STA Blocks_Result
[8747]d0 2fBNE @LAB_PRG14__8778
[8749]ac 78 03LDY a:CurrentSpriteIndex
[874c]b9 04 03LDA a:CurrentSprites_HitBoxTypes,Y
[874f]a8TAY
[8750]b9 d1 b4LDA a:SPRITE_HITBOX_WIDTHS,Y
[8753]85 b9STA Temp_HitBoxValue
[8755]@LAB_PRG14__8755:
[8755]a5 b9LDA Temp_HitBoxValue
[8757]38SEC
[8758]e9 10SBC #$10
[875a]85 b9STA Temp_HitBoxValue
[875c]90 0aBCC @LAB_PRG14__8768
[875e]e8INX
[875f]20 7c e8JSR ScreenBuffer_IsBlockImpassable
[8762]85 b7STA Blocks_Result
[8764]d0 12BNE @LAB_PRG14__8778
[8766]f0 edBEQ @LAB_PRG14__8755
[8768]@LAB_PRG14__8768:
[8768]ac 78 03LDY a:CurrentSpriteIndex
[876b]b9 ba 00LDA a:CurrentSprites_XPos_Full,Y
[876e]29 0fAND #$0f
[8770]f0 06BEQ @LAB_PRG14__8778
[8772]e8INX
[8773]20 7c e8JSR ScreenBuffer_IsBlockImpassable
[8776]85 b7STA Blocks_Result
[8778]@LAB_PRG14__8778:
[8778]ae 78 03LDX a:CurrentSpriteIndex
[877b]60RTS
;============================================================================
; TODO: Document Player_CheckShieldHitByMagic
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[877c]Player_CheckShieldHitByMagic:
[877c]ad bf 03LDA a:SelectedShield
[877f]c9 03CMP #$03
[8781]b0 47BCS RETURN_87CA
[8783]20 27 b9JSR Maybe_Player_CalcAnimFrame
[8786]38SEC
[8787]e9 04SBC #$04
[8789]c9 03CMP #$03
[878b]90 3dBCC RETURN_87CA
[878d]ae 78 03LDX a:CurrentSpriteIndex
[8790]bc cc 02LDY a:CurrentSprites_Entities,X
[8793]c0 ffCPY #$ff
[8795]f0 33BEQ RETURN_87CA
[8797]b9 44 b5LDA a:SPRITE_CATEGORIES_BY_ENTITY,Y
[879a]c9 06CMP #$06
[879c]d0 2cBNE RETURN_87CA
[879e]ad e4 03LDA a:SpriteBox_Width
[87a1]18CLC
[87a2]69 07ADC #$07
[87a4]85 00STA Temp_00
[87a6]ad 9b 03LDA a:Player_ShieldPositionX
[87a9]18CLC
[87aa]69 07ADC #$07
[87ac]38SEC
[87ad]ed e2 03SBC a:SpriteBox_Left
[87b0]c5 00CMP Temp_00
[87b2]b0 16BCS RETURN_87CA
[87b4]ad e5 03LDA a:SpriteBox_Height
[87b7]18CLC
[87b8]69 0fADC #$0f
[87ba]85 00STA Temp_00
[87bc]ad 9c 03LDA a:Player_ShieldPositionY
[87bf]18CLC
[87c0]69 0fADC #$0f
[87c2]38SEC
[87c3]ed e3 03SBC a:SpriteBox_Top
[87c6]c5 00CMP Temp_00
[87c8]90 01BCC Player_HandleShieldHitByMagic
[87ca]RETURN_87CA:
[87ca]60RTS
;============================================================================
; TODO: Document Player_HandleShieldHitByMagic
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Player_CheckShieldHitByMagic
;============================================================================
;============================================================================
; TODO: Document Player_HandleHitByMagic
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Player_HandleShieldHitByMagic
;============================================================================
;============================================================================
; TODO: Document Player_HitSpriteWithWeapon
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;============================================================================
[8804]Player_HitSpriteWithWeapon:
[8804]20 c8 a8JSR Sprites_IsSpriteHidden
;
; Check if the sprite is visible. If so, return.
;
[8807]d0 c1BNE RETURN_87CA
[8809]a5 a4LDA Player_Flags
[880b]10 bdBPL RETURN_87CA
[880d]a4 aeLDY Player_AttackPhaseAnimFrame
[880f]88DEY
[8810]c0 02CPY #$02
[8812]b0 b6BCS RETURN_87CA
;
; Check if the player has a weapon. If not, return.
;
[8814]ad c8 03LDA a:Player_CurWeapon
[8817]30 b1BMI RETURN_87CA
[8819]ae 78 03LDX a:CurrentSpriteIndex
[881c]bc cc 02LDY a:CurrentSprites_Entities,X
;
; Check if the sprite being hit is an enemy. If not, return.
;
[881f]b9 44 b5LDA a:SPRITE_CATEGORIES_BY_ENTITY,Y
[8822]f0 04BEQ @LAB_PRG14__8828
[8824]c9 07CMP #$07
[8826]d0 a2BNE RETURN_87CA
[8828]@LAB_PRG14__8828:
[8828]b5 baLDA CurrentSprites_XPos_Full,X
[882a]8d 7f 03STA a:Something_Maybe_WeaponDistanceX
[882d]b5 c2LDA CurrentSprites_YPos,X
[882f]8d 80 03STA a:Something_Maybe_WeaponDistanceY
[8832]20 cb 88JSR Sprites_IsSpriteOutOfWeaponRange
[8835]90 03BCC @LAB_PRG14__883a
;
; The sprite isn't within range. Return.
;
[8837]4c c6 88JMP @_return
[883a]@LAB_PRG14__883a:
[883a]bd cc 02LDA a:CurrentSprites_Entities,X
[883d]c9 05CMP #$05
[883f]d0 08BNE @LAB_PRG14__8849
;
; TODO: Figure out why Necron Aides get bit 7 set.
;
[8841]bd e4 02LDA a:CurrentSprites_Phases,X
[8844]09 80ORA #$80
[8846]9d e4 02STA a:CurrentSprites_Phases,X
[8849]@LAB_PRG14__8849:
[8849]a9 02LDA #$02
;
; Play the Hit Enemy sound.
;
[884b]20 e4 d0JSR Sound_PlayEffect
;
; Stop the player from walking.
;
[884e]a5 a4LDA Player_Flags
[8850]29 dfAND #$df
[8852]85 a4STA Player_Flags
;
; Set the flags and hit counter for the sprite.
;
[8854]a0 00LDY #$00
[8856]29 40AND #$40
[8858]f0 01BEQ @LAB_PRG14__885b
[885a]c8INY
[885b]@LAB_PRG14__885b:
[885b]84 00STY Temp_00
[885d]bd dc 02LDA a:CurrentSprites_Flags,X
[8860]29 feAND #$fe
[8862]05 00ORA Temp_00
[8864]9d dc 02STA a:CurrentSprites_Flags,X
[8867]a9 08LDA #$08
[8869]9d 4c 03STA a:CurrentSprites_HitCounter,X
[886c]ac c8 03LDY a:Player_CurWeapon
;
; Set the base strength of the equipped weapon.
;
[886f]b9 a5 b7LDA a:WEAPON_STRENGTHS,Y
[8872]85 00STA Temp_00
[8874]ad 2c 04LDA 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.
;
[8877]29 02AND #$02
[8879]d0 09BNE @_checkGlove
[887b]a5 00LDA Temp_00
[887d]4aLSR A
[887e]4aLSR A
[887f]18CLC
[8880]65 00ADC Temp_00
[8882]85 00STA 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
;
[8884]@_checkGlove:
[8884]ad 28 04LDA a:DurationGlove; Load the glove duration.
[8887]30 08BMI @_updateSpriteHP; If it's no longer active, jump.
[8889]a5 00LDA Temp_00; Load the calculated weapon strength.
[888b]18CLC
[888c]79 c7 88ADC a:WEAPON_TO_GLOVE_STRENGTH,Y; Add the glove strength for the current weapon.
[888f]85 00STA 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.
;
[8891]@_updateSpriteHP:
[8891]bd 44 03LDA a:CurrentSprites_HP,X; Load the current HP for this enemy.
[8894]38SEC
[8895]e5 00SBC Temp_00; Subtract the current damage.
[8897]9d 44 03STA a:CurrentSprites_HP,X; Store back as the enemy HP.
;
; Check if the sprite is still alive. If so, we're done.
;
[889a]b0 2aBCS @_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.
;
[889c]bd cc 02LDA a:CurrentSprites_Entities,X
[889f]c9 18CMP #$18; Compare to Sugata.
[88a1]d0 06BNE @_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.
;
[88a3]a5 0bLDA PPU_Mask; Load the current screen mode.
[88a5]29 feAND #$fe; Clear bit 0, setting to greyscale.
[88a7]85 0bSTA PPU_Mask; Store back as the screen mode.
[88a9]@_handleEnemyGeneric:
[88a9]a9 03LDA #$03; Play sound #3.
;
; Play a sound for the enemy kill, reset state, and add
; experience.
;
[88ab]20 e4 d0JSR Sound_PlayEffect
[88ae]a9 00LDA #$00
[88b0]9d 4c 03STA a:CurrentSprites_HitCounter,X; Clear the hit counter for the dead enemy.
[88b3]20 87 8bJSR Player_AddExperienceFromSprite; Add experience for the current sprite.
;
; Check if we killed a standard enemy or a boss.
;
[88b6]bc cc 02LDY a:CurrentSprites_Entities,X; Load the type of this enemy.
[88b9]b9 44 b5LDA a:SPRITE_CATEGORIES_BY_ENTITY,Y
[88bc]c9 07CMP #$07; Is this a big enemy?
[88be]d0 03BNE @LAB_PRG14__88c3; If not, jump.
;
; This was a big enemy (a boss).
;
[88c0]4c ec abJMP Sprite_ShowBigEnemyDeathByMagicOrWeapon; Handle big enemy death cleanup.
;
; This was a standard enemy.
;
[88c3]@LAB_PRG14__88c3:
[88c3]4c f1 abJMP Sprite_ShowNormalEnemyDeathByWeapon; Handle standard enemy death cleanup.
[88c6]@_return:
[88c6]60RTS
;============================================================================
; A mapping of weapon types to additional hit power.
;
; XREFS:
;
Player_HitSpriteWithWeapon
;============================================================================
;============================================================================
; 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
;============================================================================
;
; First check the distance in the X position between the
; weapon and the sprite.
;
[88cb]bd cc 02LDA a:CurrentSprites_Entities,X
[88ce]0aASL A
[88cf]a8TAY
[88d0]b9 07 b4LDA a:MAYBE_SPRITE_EXTENTS,Y
[88d3]18CLC
[88d4]65 d2ADC Maybe_WeaponRange_X
[88d6]85 00STA Temp_00
[88d8]a5 ceLDA PlayerPosXPlus10
[88da]18CLC
;
; If that wasn't in range...
;
[88db]65 d2ADC Maybe_WeaponRange_X
[88dd]38SEC
[88de]ed 7f 03SBC a:Something_Maybe_WeaponDistanceX
[88e1]c5 00CMP Temp_00
[88e3]b0 15BCS @_return
;
; Check the distance in the Y direction between the
; weapon and the sprite.
;
[88e5]b9 08 b4LDA a:MAYBE_SPRITE_EXTENTS_1_,Y
[88e8]18CLC
[88e9]65 d3ADC Maybe_WeaponRange_Y
[88eb]85 00STA Temp_00
[88ed]a5 d0LDA Maybe_Something_WeaponPosY
[88ef]18CLC
[88f0]65 d3ADC Maybe_WeaponRange_Y
[88f2]38SEC
[88f3]ed 80 03SBC a:Something_Maybe_WeaponDistanceY
[88f6]c5 00CMP Temp_00
[88f8]b0 00BCS @_return
[88fa]@_return:
[88fa]60RTS
;============================================================================
; 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
;
; XREFS:
;
SPRITE_COLLISION_HANDLERS [$PRG14::8962]
;============================================================================
;
; Remove the item from the screen.
;
[8904]a9 ffLDA #$ff; A = 0xFF (unset)
[8906]9d cc 02STA a:CurrentSprites_Entities,X; Set the entity at this sprite index as 0xFF.
[8909]RETURN_8909:
[8909]60RTS
;============================================================================
; TODO: Document CurrentSprite_CheckHitPlayer
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[890a]CurrentSprite_CheckHitPlayer:
[890a]ae 78 03LDX a:CurrentSpriteIndex
[890d]bd cc 02LDA a:CurrentSprites_Entities,X
[8910]c9 ffCMP #$ff
[8912]f0 f5BEQ RETURN_8909
[8914]20 c8 a8JSR Sprites_IsSpriteHidden
[8917]d0 7fBNE RETURN_8998
[8919]ad e4 03LDA a:SpriteBox_Width
[891c]18CLC
[891d]69 0bADC #$0b
[891f]85 00STA Temp_00
[8921]a5 9eLDA Player_PosX_Block
[8923]18CLC
[8924]69 0bADC #$0b
[8926]38SEC
[8927]ed e2 03SBC a:SpriteBox_Left
[892a]c5 00CMP Temp_00
[892c]b0 6aBCS RETURN_8998
[892e]ad e5 03LDA a:SpriteBox_Height
[8931]18CLC
[8932]69 1bADC #$1b
[8934]85 00STA Temp_00
[8936]a5 a1LDA Player_PosY
[8938]18CLC
[8939]69 1bADC #$1b
[893b]38SEC
[893c]ed e3 03SBC a:SpriteBox_Top
[893f]c5 00CMP Temp_00
[8941]b0 55BCS RETURN_8998
[8943]bc cc 02LDY a:CurrentSprites_Entities,X
[8946]b9 44 b5LDA a:SPRITE_CATEGORIES_BY_ENTITY,Y
[8949]0aASL A
[894a]a8TAY
[894b]c0 10CPY #$10
[894d]b0 08BCS Player_HandleCollision_NoOp
[894f]b9 59 89LDA a:SPRITE_COLLISION_HANDLERS+1,Y
[8952]48PHA
[8953]b9 58 89LDA a:SPRITE_COLLISION_HANDLERS,Y
[8956]48PHA
[8957]Player_HandleCollision_NoOp:
[8957]60RTS
;============================================================================
; Handlers for touching entities in the game.
;
; XREFS:
;
CurrentSprite_CheckHitPlayer
;============================================================================
;============================================================================
; 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
;
; XREFS:
;
SPRITE_COLLISION_HANDLERS [$PRG14::895a]
;============================================================================
;
; Check if this is a gold coin or bread.
;
[8968]bd cc 02LDA a:CurrentSprites_Entities,X; Load the entity for this sprite.
[896b]c9 01CMP #$01; Is it bread?
[896d]f0 08BEQ @_isBread; If so, jump.
;
; This is a gold coin.
;
[896f]a9 ffLDA #$ff
[8971]9d cc 02STA a:CurrentSprites_Entities,X; Clear the sprite.
[8974]4c 9a 8bJMP Player_HandleTouchCoin; Handle touching the gold coin.
;
; This is bread.
;
[8977]@_isBread:
[8977]a9 ffLDA #$ff
[8979]9d cc 02STA a:CurrentSprites_Entities,X; Clear the sprite.
[897c]4c c0 8bJMP 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
;
; XREFS:
;
SPRITE_COLLISION_HANDLERS [$PRG14::895c]
;============================================================================
;
; Check if Up is pressed.
;
[897f]a5 19LDA Joy1_ChangedButtonMask; Load the changed button mask.
[8981]c9 08CMP #$08; Is Up pressed?
[8983]d0 13BNE 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.
;
[8985]bd 6c 03LDA a:CurrentSprites_Values,X; Load the value for the sprite.
[8988]8d 8c 03STA a:CurrentSprite_Value; Store it as the current value.
[898b]c9 ffCMP #$ff; Is it 0xFF?
[898d]f0 09BEQ RETURN_8998; If so, return.
[898f]20 59 f8JSR MMC1_LoadBankAndJump; Execute the handler.
[8992]0c.byte BANK_12_LOGIC; Bank = 12
[8993]41 82pointer IScripts_Begin-1; Address = IScripts_Begin
[8995]@_afterFarJump:
[8995]ae 78 03LDX a:CurrentSpriteIndex; X = current sprite index
[8998]RETURN_8998:
[8998]60RTS
;============================================================================
; 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
;
; XREFS:
;
SPRITE_COLLISION_HANDLERS [$PRG14::8964]
;============================================================================
[89ae]Player_HandleTouchEnemy:
;
; Check if the player currently has iframes.
;
[89ae]a5 adLDA Player_InvincibilityPhase; Load the invincibility phase.
[89b0]f0 01BEQ @_canTakeDamage; If no iframes are available, begin processing the hit.
[89b2]60RTS; Else, return.
;
; Check if the player has Ointment active.
;
[89b3]@_canTakeDamage:
[89b3]ad 27 04LDA a:DurationOintment; Check the ointment duration.
[89b6]10 f5BPL RETURN_89AD; If there's time left, no damage will be taken. Return.
;
; Process special enemy handling.
;
[89b8]bd cc 02LDA a:CurrentSprites_Entities,X; Load the sprite entity that hit the player.
[89bb]c9 05CMP #$05; Is it the Necron Aides?
[89bd]d0 08BNE @_handleDamage; If not, perform standard damage handling.
;
; This is the Necron Aides enemy.
;
[89bf]bd e4 02LDA a:CurrentSprites_Phases,X; Load the phase of the enemy.
[89c2]09 80ORA #$80; Set the 7th bit.
[89c4]9d e4 02STA a:CurrentSprites_Phases,X; Store it.
;
; Play the sound effect and process damage.
;
[89c7]@_handleDamage:
[89c7]a9 04LDA #$04
[89c9]20 e4 d0JSR Sound_PlayEffect; Play the Player Hit sound.
[89cc]20 d5 89JSR Player_SetDamagedBySprite; Mark the player as damaged and set state.
[89cf]4c 79 8aJMP Player_ApplyDamage; Apply damage.
[89d2]60.byte $60; byte
[89d3]SPRITES_FACING_VALUE_TO_OPPOSITE_PLAYER_FACING_BITMASK:
[89d3]40.byte $40; [0]:
[89d4]00.byte $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
;============================================================================
;
; Set the invincibility phase to 60.
;
[89d5]a9 3cLDA #$3c
[89d7]85 adSTA Player_InvincibilityPhase; Set iframes to 60.
;
; Set the player's facing direction to face the enemy.
;
[89d9]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite's current flags.
[89dc]29 01AND #$01; Grab the direction bit.
[89de]a8TAY; Set to Y.
[89df]a5 a4LDA Player_Flags; Load the player's flags.
[89e1]29 bfAND #$bf; Unset the Facing Right bit.
[89e3]19 d3 89ORA a:SPRITES_FACING_VALUE_TO_OPPOSITE_PLAYER_FACING_BITMASK,Y; Set facing to the opposite of the sprite's.
[89e6]85 a4STA Player_Flags; Store it.
;
; Set knockback on the player.
;
[89e8]a5 a5LDA Player_StatusFlag; Load the player's status flag.
[89ea]09 02ORA #$02; Set knockback.
[89ec]85 a5STA Player_StatusFlag; Store it.
[89ee]60RTS
;============================================================================
; 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
;
; XREFS:
;
SPRITE_COLLISION_HANDLERS [$PRG14::8960]
;============================================================================
;
; Clear this sprite.
;
[89ff]@_afterFarJump:
[89ff]ae 78 03LDX a:CurrentSpriteIndex; X = current sprite index.
[8a02]a9 ffLDA #$ff; A = 0xFF
[8a04]9d cc 02STA a:CurrentSprites_Entities,X; Set the entity at that index to 0xFF.
[8a07]60RTS
;============================================================================
; TODO: Document Sprite_GetBounds
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;============================================================================
[8a08]Sprite_GetBounds:
[8a08]a9 00LDA #$00
[8a0a]85 03STA Temp_Addr_U
[8a0c]bd cc 02LDA a:CurrentSprites_Entities,X
[8a0f]0aASL A
[8a10]26 03ROL Temp_Addr_U
[8a12]0aASL A
[8a13]26 03ROL Temp_Addr_U
[8a15]69 73ADC #$73
[8a17]85 02STA Temp_Addr_L
[8a19]a5 03LDA Temp_Addr_U
[8a1b]69 b2ADC #$b2
[8a1d]85 03STA Temp_Addr_U
[8a1f]bd cc 02LDA a:CurrentSprites_Entities,X
[8a22]c9 1fCMP #$1f
[8a24]f0 08BEQ @LAB_PRG14__8a2e
[8a26]c9 20CMP #$20
[8a28]f0 16BEQ @LAB_PRG14__8a40
[8a2a]c9 21CMP #$21
[8a2c]d0 23BNE Sprite_SetBoundsFromTemp
[8a2e]@LAB_PRG14__8a2e:
[8a2e]bd e4 02LDA a:CurrentSprites_Phases,X
[8a31]c9 02CMP #$02
[8a33]d0 1cBNE Sprite_SetBoundsFromTemp
[8a35]a9 71LDA #<SPRITE_GETBOUNDS_COMMON
[8a37]85 02STA Temp_Addr_L
[8a39]a9 8aLDA #>SPRITE_GETBOUNDS_COMMON
[8a3b]85 03STA Temp_Addr_U
[8a3d]4c 51 8aJMP Sprite_SetBoundsFromTemp
[8a40]@LAB_PRG14__8a40:
[8a40]bd e4 02LDA a:CurrentSprites_Phases,X
[8a43]f0 04BEQ @LAB_PRG14__8a49
[8a45]c9 04CMP #$04
[8a47]d0 08BNE Sprite_SetBoundsFromTemp
[8a49]@LAB_PRG14__8a49:
[8a49]a9 75LDA #<SPRITE_GETBOUNDS_MASKMAN
[8a4b]85 02STA Temp_Addr_L
[8a4d]a9 8aLDA #>SPRITE_GETBOUNDS_MASKMAN
[8a4f]85 03STA Temp_Addr_U
[8a51]Sprite_SetBoundsFromTemp:
[8a51]a0 00LDY #$00
[8a53]b5 baLDA CurrentSprites_XPos_Full,X
[8a55]18CLC
[8a56]71 02ADC (Temp_Addr_L),Y
[8a58]8d e2 03STA a:SpriteBox_Left
[8a5b]b5 c2LDA CurrentSprites_YPos,X
[8a5d]18CLC
[8a5e]c8INY
[8a5f]71 02ADC (Temp_Addr_L),Y
[8a61]8d e3 03STA a:SpriteBox_Top
[8a64]c8INY
[8a65]b1 02LDA (Temp_Addr_L),Y
[8a67]8d e4 03STA a:SpriteBox_Width
[8a6a]c8INY
[8a6b]b1 02LDA (Temp_Addr_L),Y
[8a6d]8d e5 03STA a:SpriteBox_Height
[8a70]60RTS
[8a71]SPRITE_GETBOUNDS_COMMON:
[8a71]30.byte $30; [0]:
[8a72]08.byte $08; [1]:
[8a73]f0.byte $f0; [2]:
[8a74]00.byte $00; [3]:
[8a75]SPRITE_GETBOUNDS_MASKMAN:
[8a75]20.byte $20; [0]:
[8a76]10.byte $10; [1]:
[8a77]f8.byte $f8; [2]:
[8a78]00.byte $00; [3]:
;============================================================================
; TODO: Document Player_ApplyDamage
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Player_HandleTouchEnemy
;============================================================================
;
; If the player is wearing any armor, apply damage reduction.
;
[8a95]ac be 03LDY a:SelectedArmor; Load the current armor.
[8a98]f0 18BEQ @_applyDamage; If it's 0 (leather), then jump.
[8a9a]c0 04CPY #$04; Is it > 4 (Battle Suit)?
[8a9c]b0 14BCS @_applyDamage; Then jump.
;
; Apply the armor's defense multiplier.
;
[8a9e]b9 d8 8aLDA a:ARMOR_DEFENSE_MULTIPLIERS,Y; Load the multiplier for this armor.
[8aa1]a8TAY; Y = A
[8aa2]@LAB_PRG14__8aa2:
[8aa2]a5 02LDA Temp_Addr_L
[8aa4]38SEC
[8aa5]e5 04SBC Temp_04
[8aa7]85 02STA Temp_Addr_L
[8aa9]a5 03LDA Temp_Addr_U
[8aab]e5 05SBC Temp_05
[8aad]85 03STA Temp_Addr_U
[8aaf]88DEY
[8ab0]d0 f0BNE @LAB_PRG14__8aa2
[8ab2]@_applyDamage:
[8ab2]a5 02LDA Temp_Addr_L
[8ab4]8d bc 04STA a:Arg_PlayerHealthDelta_L
[8ab7]a5 03LDA Temp_Addr_U
[8ab9]8d bd 04STA a:Arg_PlayerHealthDelta_U
[8abc]ad 2c 04LDA a:SpecialItems
[8abf]29 01AND #$01
[8ac1]f0 11BEQ @LAB_PRG14__8ad4
[8ac3]ad bc 04LDA a:Arg_PlayerHealthDelta_L
[8ac6]38SEC
[8ac7]e5 04SBC Temp_04
[8ac9]8d bc 04STA a:Arg_PlayerHealthDelta_L
[8acc]ad bd 04LDA a:Arg_PlayerHealthDelta_U
[8acf]e5 05SBC Temp_05
[8ad1]8d bd 04STA a:Arg_PlayerHealthDelta_U
[8ad4]@LAB_PRG14__8ad4:
[8ad4]4c 8e c0JMP Player_ReduceHP
[8ad7]RETURN_8AD7:
[8ad7]60RTS
;============================================================================
; Defense multipliers for each armor.
;
; XREFS:
;
Player_ApplyDamage
;============================================================================
[8adc]Sprite_CheckHitByCastMagic:
;
; Check if there's a valid cast magic type on screen.
;
[8adc]ad b3 02LDA a:CastMagic_Type; Load the cast magic type.
[8adf]c9 05CMP #$05; Check against the supported magic types.
[8ae1]b0 f4BCS RETURN_8AD7; If not, then return.
;
; Check if the currently-processed sprite is visible on screen.
;
[8ae3]ae 78 03LDX a:CurrentSpriteIndex; Get the current sprite.
[8ae6]20 c8 a8JSR Sprites_IsSpriteHidden; Check if the sprite is visible.
[8ae9]d0 ecBNE RETURN_8AD7; If not, return.
;
; Check the sprite type.
;
[8aeb]bd cc 02LDA a:CurrentSprites_Entities,X; Get the type of this sprite.
[8aee]c9 ffCMP #$ff; Is it unset?
[8af0]f0 e5BEQ RETURN_8AD7; If so, return.
;
; Check if this is either a standard or big enemy.
;
[8af2]a8TAY; Y = A (sprite type)
[8af3]b9 44 b5LDA a:SPRITE_CATEGORIES_BY_ENTITY,Y; A = Category type of this sprite
[8af6]f0 04BEQ @_isEnemy; If it's a standard enemy, jump.
[8af8]c9 07CMP #$07; Check if it's a big enemy.
[8afa]d0 76BNE CastMagic_HitHandler_NoOp
;
; Check if the magic overlaps the sprite in the X direction.
;
[8afc]@_isEnemy:
[8afc]ac b3 02LDY a:CastMagic_Type; Load the cast magic type.
[8aff]b9 73 8bLDA a:CAST_MAGIC_HIT_WIDTHS,Y; Load the htbox width for the magic.
[8b02]85 01STA Temp_01; Store that.
[8b04]bc 04 03LDY a:CurrentSprites_HitBoxTypes,X; Load the hitbox type for the sprite.
[8b07]b9 d1 b4LDA a:SPRITE_HITBOX_WIDTHS,Y; Get the width of the sprite.
[8b0a]18CLC
[8b0b]65 01ADC Temp_01; Add the hitbox width for this.
[8b0d]85 00STA Temp_00; Store that.
[8b0f]ad b6 02LDA a:CastMagic_XPos_Full; Load the cast magic X position.
[8b12]18CLC
[8b13]65 01ADC Temp_01; Add the hitbox width.
[8b15]38SEC
[8b16]f5 baSBC CurrentSprites_XPos_Full,X; Subtract the sprite X position.
[8b18]c5 00CMP Temp_00; Compare to the magic hitbox.
[8b1a]b0 56BCS CastMagic_HitHandler_NoOp; If it didn't overlap in the X position, return.
;
; Check if the magic overlaps the sprite in the Y direction.
;
[8b1c]ac b3 02LDY a:CastMagic_Type; Load the cast magic type.
[8b1f]b9 78 8bLDA a:CAST_MAGIC_HIT_HEIGHTS,Y; Load the hitbox height of the magic.
[8b22]85 01STA Temp_01; Store that.
[8b24]bc 04 03LDY a:CurrentSprites_HitBoxTypes,X; Load the hitbox type for the sprite.
[8b27]b9 d8 b4LDA a:SPRITE_HITBOX_HEIGHTS,Y; Get the height of the sprite.
[8b2a]18CLC
[8b2b]65 01ADC Temp_01; Add the hitbox height for this.
[8b2d]85 00STA Temp_00; Store that.
[8b2f]ad b8 02LDA a:CastMagic_YPos_Full; Load the cast magic Y position.
[8b32]18CLC
[8b33]65 01ADC Temp_01; Add the hitbox height.
[8b35]38SEC
[8b36]f5 c2SBC CurrentSprites_YPos,X; Subtract the sprite Y position.
[8b38]c5 00CMP Temp_00; Compare to the magic hitbox.
[8b3a]b0 36BCS CastMagic_HitHandler_NoOp; If it didn't overlap in the Y position, return.
;
; The magic hit the sprite. Update state on the sprite.
;
[8b3c]ac b3 02LDY a:CastMagic_Type; Load the cast magic type.
[8b3f]b9 7d 8bLDA a:CAST_MAGIC_HIT_BEHAVIORS,Y; Load the hit behavior for the magic.
[8b42]9d 34 03STA a:CurrentSprites_HitByMagicBehavior,X; Store as the hit behavior for the sprite.
[8b45]b9 82 8bLDA a:CAST_MAGIC_HIT_IFRAMES,Y; Load the hit behavior timeframe for the magic.
[8b48]9d 3c 03STA a:CurrentSprites_HitByMagicIFrames,X; Store for the sprite.
;
; Update the sprite to face the direction the magic is facing.
;
[8b4b]ad b4 02LDA a:CastMagic_Flags; Load the cast magic flags.
[8b4e]2aROL A; Get the facing direction of the magic.
[8b4f]2aROL A
[8b50]2aROL A
[8b51]29 01AND #$01
[8b53]85 00STA Temp_00; Store that.
[8b55]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite's flags.
[8b58]29 feAND #$fe; Clear the facing direction bit.
[8b5a]05 00ORA Temp_00; Set it to match the magic's direction.
[8b5c]9d dc 02STA a:CurrentSprites_Flags,X; Store it back out.
;
; Give the player credit for hitting the enemy with magic.
;
[8b5f]ac b3 02LDY a:CastMagic_Type; Y = Cast magic type.
[8b62]20 a7 81JSR Player_HitEnemyWithMagic; Update player state.
;
; Load the magic hit sprite handler for this magic type.
;
[8b65]ad b3 02LDA a:CastMagic_Type; A = Cast magic type.
[8b68]0aASL A; Update to a word boundary for the lookup table.
[8b69]a8TAY; Y = A
[8b6a]b9 10 bbLDA a:CAST_MAGIC_HIT_HANDLERS+1,Y; Load the next address from the lookup table.
[8b6d]48PHA
[8b6e]b9 0f bbLDA a:CAST_MAGIC_HIT_HANDLERS,Y
[8b71]48PHA
[8b72]CastMagic_HitHandler_NoOp:
[8b72]60RTS
;============================================================================
; Hitbox widths for each magic type.
;
; XREFS:
;
Sprite_CheckHitByCastMagic
;============================================================================
;============================================================================
; Hitbox widths for each magic type.
;
; XREFS:
;
Sprite_CheckHitByCastMagic
;============================================================================
;============================================================================
; Magic behaviors for each magic type.
;
; XREFS:
;
Sprite_CheckHitByCastMagic
;============================================================================
;============================================================================
; Hit iframe time for each magic type.
;
; XREFS:
;
Sprite_CheckHitByCastMagic
;============================================================================
;============================================================================
; Add player experience based on the current sprite.
;
; This will calculate the 24-bit enemy experience for a
; sprite and add it to the player's experience.
;
; INPUTS:
; X:
; The index of the sprite whose experience will be
; added.
;
; OUTPUTS:
; X:
; The current sprite index.
;
;
Temp_Int24:
;
Temp_Int24+1:
; Clobbered.
;
; XREFS:
;
Player_HitEnemyWithMagic
;
Player_HitSpriteWithWeapon
;============================================================================
;============================================================================
; Handle touching a gold coin.
;
; This will play the sound when picking up a coin,
; update the 24-bit gold amount, and then render to the
; screen.
;
; INPUTS:
; A:
; The index of the coin sprite.
;
; OUTPUTS:
; X:
; The current sprite index.
;
;
Gold_M:
; The new middle byte for the gold.
;
;
Gold:
; The new lower byte for the gold.
;
; CALLS:
;
Sound_PlayEffect
;
UI_DrawGoldValue
;
; XREFS:
;
Player_HandleTouchBreadOrCoin
;============================================================================
;
; Update the lower byte of the gold.
;
[8b9f]ad 92 03LDA a:Gold; Load the lower byte of the gold.
[8ba2]18CLC
[8ba3]7d 6c 03ADC a:CurrentSprites_Values,X; Add the value of the coin;
Set Carry = overflow.
[8ba6]8d 92 03STA a:Gold; Store as the lower byte.
;
; Update the middle byte of the gold.
;
[8ba9]ad 93 03LDA a:Gold_M; Load the middle byte for the gold.
[8bac]69 00ADC #$00; Add with carry, set the carry bit if overflow.
[8bae]8d 93 03STA a:Gold_M; Store as the middle byte.
;
; Update the upper byte of the gold.
;
[8bb1]ad 94 03LDA a:Gold_U; Load the upper byte for the gold.
[8bb4]69 00ADC #$00; Add with carry, set carry bit if overflow.
[8bb6]8d 94 03STA a:Gold_U; Store as the upper byte.
;
; Render and prepare to return.
;
[8bb9]20 e7 f9JSR UI_DrawGoldValue; Render the new gold amount.
[8bbc]ae 78 03LDX a:CurrentSpriteIndex; Set X = current sprite index.
[8bbf]60RTS
;============================================================================
; Handle touching bread.
;
; This will play the sound when picking up bread and
; update the player's health.
;
; INPUTS:
; @{symbol CurrentSpriteValues}:
; The values of the current sprites on the screen.
;
; OUTPUTS:
; None.
;
; CALLS:
;
Sound_PlayEffect
;
Player_AddHP
;
; XREFS:
;
Player_HandleTouchBreadOrCoin
;============================================================================
;============================================================================
; TODO: Document CurrentSprite_UpdateState
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Sprites_UpdateAllStates
;
_updateSpriteState [$PRG14::8040]
;============================================================================
;
; Check if this sprite is set.
;
[8bd7]ae 78 03LDX a:CurrentSpriteIndex; X = Current sprite index
[8bda]bc cc 02LDY a:CurrentSprites_Entities,X; Y = Current sprite entity
[8bdd]30 38BMI @_return; If unset, return.
;
; Check if this sprite is specifically Tamazutsu. It hides and
; won't be affected when hidden.
;
[8bdf]c0 2cCPY #$2c; Check the sprite against Tamazutsu.
[8be1]f0 05BEQ @_notTamazutsu; If not, handle the enemy normally.
;
; This is Tamazutsu. Check if it's visible or hiding.
;
[8be3]20 c8 a8JSR Sprites_IsSpriteHidden
[8be6]d0 2fBNE @_return
;
; Check the sprites hit counter. We'll do further updating
; for 2 frames, then stop for 2 frames, and rinse and repeat.
;
[8be8]@_notTamazutsu:
[8be8]bd 4c 03LDA a:CurrentSprites_HitCounter,X
[8beb]29 02AND #$02
[8bed]d0 28BNE @_return
;
; Update sprite state.
;
[8bef]b5 baLDA CurrentSprites_XPos_Full,X
[8bf1]85 27STA Arg_DrawSprite_PosX
[8bf3]b5 c2LDA CurrentSprites_YPos,X
[8bf5]85 28STA Arg_DrawSprite_PosY
[8bf7]a5 9fLDA Screen_Maybe_ScrollXCounter
[8bf9]85 2bSTA Unused_Sprite_ScrollPosX
[8bfb]a5 a2LDA Player_Something_ScrollPosY
[8bfd]85 2aSTA Unused_Sprite_ScrollPosY
[8bff]bd 2c 03LDA a:CurrentSprites_PPUOffsets,X
[8c02]85 33STA Sprites_PPUOffset
[8c04]20 1a 8cJSR CurrentSprite_CalculateVisibility
[8c07]ae 78 03LDX a:CurrentSpriteIndex
[8c0a]bd cc 02LDA a:CurrentSprites_Entities,X
[8c0d]0aASL A
[8c0e]a8TAY
[8c0f]b9 88 80LDA a:SPRITE_UPDATE_HANDLERS+1,Y
[8c12]48PHA
[8c13]b9 87 80LDA a:SPRITE_UPDATE_HANDLERS,Y
[8c16]48PHA
[8c17]@_return:
[8c17]60RTS
;============================================================================
; A mapping between a sprite's facing bit to a flipmask.
;
; Sprites store a facing bit in bit 0.
;
; Flipmasks store a flip bit in bit 7.
;
; XREFS:
;
CurrentSprite_UpdateFlipMask
;============================================================================
;============================================================================
; TODO: Document CurrentSprite_CalculateVisibility
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
CurrentSprite_UpdateState
;============================================================================
;
; Get the Y position of the current sprite and store
; as an argument for the ConvertPixelsToBlockPos() call.
;
[8c21]b5 c2LDA CurrentSprites_YPos,X
[8c23]85 b6STA Arg_PixelPosY
;
; Get the X position of the current sprite and store
; as an argument for the ConvertPixelsToBlockPos() call.
;
[8c25]b5 baLDA CurrentSprites_XPos_Full,X
[8c27]18CLC
[8c28]69 04ADC #$04
[8c2a]85 b5STA Arg_PixelPosX
;
; Convert to a block position.
;
[8c2c]20 6c e8JSR Area_ConvertPixelsToBlockPos
[8c2f]20 c3 e8JSR ScreenBuffer_LoadBlockProperty
[8c32]c9 04CMP #$04
[8c34]f0 08BEQ @LAB_PRG14__8c3e
[8c36]c9 0dCMP #$0d
[8c38]f0 04BEQ @LAB_PRG14__8c3e
[8c3a]c9 09CMP #$09
[8c3c]d0 06BNE @LAB_PRG14__8c44
[8c3e]@LAB_PRG14__8c3e:
[8c3e]a5 b8LDA Temp_MovingSpriteVisibility
[8c40]09 01ORA #$01
[8c42]85 b8STA Temp_MovingSpriteVisibility
[8c44]@LAB_PRG14__8c44:
[8c44]ae 78 03LDX a:CurrentSpriteIndex
[8c47]b5 baLDA CurrentSprites_XPos_Full,X
[8c49]18CLC
[8c4a]69 0cADC #$0c
[8c4c]85 b5STA Arg_PixelPosX
[8c4e]20 6c e8JSR Area_ConvertPixelsToBlockPos
[8c51]20 c3 e8JSR ScreenBuffer_LoadBlockProperty
[8c54]c9 04CMP #$04
[8c56]f0 08BEQ @LAB_PRG14__8c60
[8c58]c9 0dCMP #$0d
[8c5a]f0 04BEQ @LAB_PRG14__8c60
[8c5c]c9 09CMP #$09
[8c5e]d0 06BNE @LAB_PRG14__8c66
[8c60]@LAB_PRG14__8c60:
[8c60]a5 b8LDA Temp_MovingSpriteVisibility
[8c62]09 02ORA #$02
[8c64]85 b8STA Temp_MovingSpriteVisibility
[8c66]@LAB_PRG14__8c66:
[8c66]ae 78 03LDX a:CurrentSpriteIndex
[8c69]bd dc 02LDA a:CurrentSprites_Flags,X
[8c6c]29 01AND #$01
[8c6e]f0 0dBEQ @LAB_PRG14__8c7d
[8c70]a5 b8LDA Temp_MovingSpriteVisibility
[8c72]f0 0bBEQ Something_SetDAT26
[8c74]c9 03CMP #$03
[8c76]f0 07BEQ Something_SetDAT26
[8c78]49 03EOR #$03
[8c7a]4c 7f 8cJMP Something_SetDAT26
[8c7d]@LAB_PRG14__8c7d:
[8c7d]a5 b8LDA Temp_MovingSpriteVisibility
[8c7f]Something_SetDAT26:
[8c7f]85 26STA MovingSpriteVisibility
[8c81]60RTS
[8c82]CurrentSprite_UpdateFlipMask:
[8c82]bd dc 02LDA a:CurrentSprites_Flags,X; Load flags for this sprite.
[8c85]29 01AND #$01; AND for the facing bit.
[8c87]a8TAY; Y = result
[8c88]b9 18 8cLDA a:SPRITES_FACING_TO_FLIPMASK,Y; Load the bitmask from the mapping table.
[8c8b]85 29STA CurrentSprite_FlipMask; Store it.
[8c8d]60RTS
[8c8e]Sprite_EnterNextAppearancePhase:
[8c8e]18CLC
[8c8f]bc cc 02LDY a:CurrentSprites_Entities,X
[8c92]79 9f 8cADC a:SPRITE_APPEARANCE_PHASE_OFFSETS,Y
[8c95]4c 57 f0JMP Sprite_SetAppearanceAddrFromOffset
[8c98]SpriteUpdateHandler_Invisible:
[8c98]a9 00LDA #$00
[8c9a]85 33STA Sprites_PPUOffset
[8c9c]85 26STA MovingSpriteVisibility
[8c9e]60RTS
[8c9f]SPRITE_APPEARANCE_PHASE_OFFSETS:
[8c9f]00.byte $00; [0]:
[8ca0]db.byte $db; [1]: Dropped: Bread
[8ca1]93.byte $93; [2]: Dropped: Coin
[8ca2]83.byte $83; [3]: Enemy: ?
[8ca3]01.byte $01; [4]: Enemy: Raiden
[8ca4]05.byte $05; [5]: Enemy: Necron Aides
[8ca5]07.byte $07; [6]: Enemy: Zombie
[8ca6]0a.byte $0a; [7]: Enemy: Hornet
[8ca7]0c.byte $0c; [8]: Enemy: Bihoruda
[8ca8]0e.byte $0e; [9]: Enemy: Lilith
[8ca9]ef.byte $ef; [10]: Magic: ?
[8caa]13.byte $13; [11]: Enemy: Yuinaru
[8cab]15.byte $15; [12]: Enemy: Snowman
[8cac]17.byte $17; [13]: Enemy: Nash
[8cad]1a.byte $1a; [14]: Enemy: Fire Giant
[8cae]1d.byte $1d; [15]: Enemy: Ishiisu
[8caf]21.byte $21; [16]: Enemy: Execution Hood
[8cb0]71.byte $71; [17]: Boss: Rokusutahn
[8cb1]6c.byte $6c; [18]: Boss: unused (round body of snake boss)
[8cb2]a9.byte $a9; [19]: Effect: Enemy death
[8cb3]a9.byte $a9; [20]: Effect: Lightning ball
[8cb4]23.byte $23; [21]: Enemy: Charron
[8cb5]00.byte $00; [22]: Enemy: ? (Unused)
[8cb6]26.byte $26; [23]: Enemy: Geributa
[8cb7]29.byte $29; [24]: Enemy: Sugata
[8cb8]2b.byte $2b; [25]: Enemy: Grimlock
[8cb9]2f.byte $2f; [26]: Enemy: Giant Bees
[8cba]31.byte $31; [27]: Enemy: Myconid
[8cbb]33.byte $33; [28]: Enemy: Naga
[8cbc]35.byte $35; [29]: Enemy: Skeleton Knight (unused)
[8cbd]39.byte $39; [30]: Enemy: Giant Strider
[8cbe]3c.byte $3c; [31]: Enemy: Sir Gawaine
[8cbf]3f.byte $3f; [32]: Enemy: Maskman
[8cc0]44.byte $44; [33]: Enemy: Wolfman
[8cc1]47.byte $47; [34]: Enemy: Yareeka
[8cc2]49.byte $49; [35]: Enemy: Magman
[8cc3]4b.byte $4b; [36]: Enemy: Curly-tailed guy with spear (unused)
[8cc4]00.byte $00; [37]: Enemy: ? (unused)
[8cc5]4f.byte $4f; [38]: Enemy: Ikeda
[8cc6]52.byte $52; [39]: Enemy: Muppet guy (unused)
[8cc7]54.byte $54; [40]: Enemy: Lamprey
[8cc8]00.byte $00; [41]: Enemy: ? (unused)
[8cc9]58.byte $58; [42]: Enemy: Monodron
[8cca]5b.byte $5b; [43]: Enemy: Winged skeleton (unused)
[8ccb]5d.byte $5d; [44]: Enemy: Tamazutsu
[8ccc]79.byte $79; [45]: Boss: Ripasheiku
[8ccd]75.byte $75; [46]: Boss: Zoradohna
[8cce]64.byte $64; [47]: Boss: Borabohra
[8ccf]7d.byte $7d; [48]: Boss: Pakukame
[8cd0]83.byte $83; [49]: Boss: Zorugeriru
[8cd1]80.byte $80; [50]: Boss: King Grieve
[8cd2]89.byte $89; [51]: Boss: Shadow Eura
[8cd3]ae.byte $ae; [52]: NPC: Walking Man 1
[8cd4]b1.byte $b1; [53]: NPC: Blue lady (unused)
[8cd5]b4.byte $b4; [54]: NPC: Child (unused)
[8cd6]b7.byte $b7; [55]: NPC: Armor Salesman
[8cd7]b9.byte $b9; [56]: NPC: Martial Artist
[8cd8]bb.byte $bb; [57]: NPC: Guru
[8cd9]bd.byte $bd; [58]: NPC: King
[8cda]c1.byte $c1; [59]: NPC: Magic Teacher
[8cdb]c3.byte $c3; [60]: NPC: Key Salesman
[8cdc]c5.byte $c5; [61]: NPC: Smoking Man
[8cdd]c7.byte $c7; [62]: NPC: Man in Chair
[8cde]c9.byte $c9; [63]: NPC: Sitting Man
[8cdf]cb.byte $cb; [64]: NPC: Meat Salesman
[8ce0]cd.byte $cd; [65]: NPC: Lady in Blue Dress with Cup
[8ce1]cf.byte $cf; [66]: NPC: Guard
[8ce2]d1.byte $d1; [67]: NPC: Doctor
[8ce3]d3.byte $d3; [68]: NPC: Walking Woman 1
[8ce4]d5.byte $d5; [69]: NPC: Walking Woman 2
[8ce5]d7.byte $d7; [70]: Enemy: Eyeball (unused)
[8ce6]d9.byte $d9; [71]: Enemy: Zozura
[8ce7]dc.byte $dc; [72]: Item: Glove
[8ce8]dd.byte $dd; [73]: Item: Black Onyx
[8ce9]de.byte $de; [74]: Item: Pendant
[8cea]df.byte $df; [75]: Item: Red Potion
[8ceb]e0.byte $e0; [76]: Item: Poison
[8cec]e1.byte $e1; [77]: Item: Elixir
[8ced]e2.byte $e2; [78]: Item: Ointment
[8cee]00.byte $00; [79]: Trigger: Intro
[8cef]e3.byte $e3; [80]: Item: Mattock
[8cf0]f1.byte $f1; [81]: Magic: ?
[8cf1]e8.byte $e8; [82]: Effect: Fountain
[8cf2]f3.byte $f3; [83]: Magic: ?
[8cf3]95.byte $95; [84]: Magic: Enemy Fireball
[8cf4]f6.byte $f6; [85]: Item: Wing Boots
[8cf5]f7.byte $f7; [86]: Item: Hour Glass
[8cf6]f8.byte $f8; [87]: Item: Magical Rod
[8cf7]f9.byte $f9; [88]: Item: Battle Suit
[8cf8]fa.byte $fa; [89]: Item: Battle Helmet
[8cf9]fb.byte $fb; [90]: Item: Dragon Slayer
[8cfa]e3.byte $e3; [91]: Item: Mattock
[8cfb]f6.byte $f6; [92]: Item: Wing Boots (from quest)
[8cfc]df.byte $df; [93]: Item: Red Potion
[8cfd]e0.byte $e0; [94]: Item: Poison
[8cfe]dc.byte $dc; [95]: Item: Glove
[8cff]e2.byte $e2; [96]: Item: Ointment
[8d00]e8.byte $e8; [97]: Effect: Spring of Trunk
[8d01]e8.byte $e8; [98]: Effect: Spring of Sky
[8d02]e8.byte $e8; [99]: Effect: Spring of Tower
[8d03]a9.byte $a9; [100]: Effect: Boss Death
;============================================================================
; TODO: Document SpriteBehavior_MaybeFallingRocks__ClearEntity
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_BounceAndExpire
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_BounceAndExpire
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a5eb]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Coin
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::808b]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Raiden
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::808f]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_NecronAides
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a613]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_NecronAides
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::8091]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Zombie
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::8093]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_BuzzAround
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a665]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Hornet
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::8095]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Bihoruda
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a615]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Bihoruda
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::8097]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Lilith
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a617]
;============================================================================
;============================================================================
; MAYBE DEADCODE
;============================================================================
[8fd7]FUN_PRG14__8fd7:
[8fd7]a9 00LDA #$00
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Lilith
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::8099]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Yuinaru
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a619]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Yuinaru
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::809d]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Snowman
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::809f]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Nash
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a61b]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Nash
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80a1]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_FireGiant
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80a3]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Ishiisu
;
; INPUTS:
; X
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a667]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Ishiisu
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80a5]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_ExecutionHood
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a669]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_ExecutionHood
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80a7]
;============================================================================
;============================================================================
; TODO: Document BScript_Action_CastMagic
;
; INPUTS:
; X
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
BSCRIPT_ACTIONS [$PRG14::a7a2]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Charron
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80b1]
;============================================================================
;============================================================================
; TODO: Document _thunk_Sprite_ClearBehaviorReadyAndSetSubtypeBit7
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a623]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Geributa
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80b5]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Sugata
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80b7]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Grimlock
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80b9]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_GiantBees
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a627]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_GiantBees
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80bb]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Myconid
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80bd]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Naga
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a629]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Naga
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80bf]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Unused29
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80c1]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_GiantStrider
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80c3]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_SirGawaineWolfman
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a637]
;============================================================================
[9513]SpriteUpdateHandler_Enemy_SirGawaine_Wolfman:
[9513]20 82 8cJSR CurrentSprite_UpdateFlipMask
[9516]bd e4 02LDA a:CurrentSprites_Phases,X
[9519]4c 8e 8cJMP Sprite_EnterNextAppearancePhase
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Maskman
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80c7]
;============================================================================
;============================================================================
; TODO: Document thunk_SpriteUpdateHandler_Enemy_SirGawaine_Wolfman
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80c9]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Yareeka
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a62b]
;============================================================================
;============================================================================
; TODO: Document FUN_PRG14__9593
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
FUN_PRG14__9699
;
LAB_PRG14__96d5 [$PRG14::96d5]
;
SpriteBehavior_Yareeka
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Yareeka
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80cb]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Magman
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a62d]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Magman
;
; INPUTS:
; X
;
; OUTPUTS:
; A
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80cd]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_EnemyUnused36
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a62f]
;============================================================================
;============================================================================
; TODO: Document FUN_PRG14__9693
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
FUN_PRG14__9699
;============================================================================
;============================================================================
; TODO: Document FUN_PRG14__9699
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_EnemyUnused36
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Unused_CurlyTail
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80cf]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Ikeda
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80d3]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_EnemyUnused39
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a631]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_MuppetGuy
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80d5]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Lamprey
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80d7]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Monodron
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80db]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_EnemyUnused43
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a633]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Unused_WingedSkeleton
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80dd]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Tamazutsu
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a635]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Tamazutsu
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80df]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Boss_Rokusutahn
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80a9]
;============================================================================
;============================================================================
; TODO: Document FUN_PRG14__9917
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
BScript_Op_SwitchBehavior
;============================================================================
;============================================================================
; TODO: Document thunk_FUN_PRG14__9a3c
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_EnemyUnused18__994a
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_EnemyUnused18__994a
;
; INPUTS:
; X
;
; OUTPUTS:
; A
;
; XREFS:
;
CALL_FUN_PRG14__994a [$PRG14::9a2c]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_EnemyUnused18__9991
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
CALL_FUN_PRG14__9a2f [$PRG14::9a2f]
;============================================================================
;============================================================================
; TODO: Document Maybe_SpriteBody__99f3
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_EnemyUnused18__9991
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_EnemyUnused18
;
; INPUTS:
; X
;
; OUTPUTS:
; A
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a5f3]
;============================================================================
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document FUN_PRG14__9a3c
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
thunk_FUN_PRG14__9a3c
;============================================================================
;============================================================================
; TODO: Document Maybe_BodyHandler__9a57
;
; INPUTS:
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
MAYBE_BODY_HANDLERS [$PRG14::9a4f]
;
MAYBE_BODY_HANDLERS [$PRG14::9a55]
;============================================================================
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document FUN_PRG14__9a61
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Maybe_BodyHandler__9a7a
;============================================================================
;============================================================================
; TODO: Document Maybe_BodyHandler__9a7a
;
; INPUTS:
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
MAYBE_BODY_HANDLERS [$PRG14::9a51]
;
MAYBE_BODY_HANDLERS [$PRG14::9a53]
;============================================================================
;============================================================================
; TODO: Document FUN_PRG14__9a87
;
; INPUTS:
; X
;
; OUTPUTS:
; A
;
; XREFS:
;
Maybe_BodyHandler__9a57
;
Maybe_BodyHandler__9a7a
;============================================================================
;============================================================================
; TODO: Document FUN_PRG14__9aa1
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
FUN_PRG14__9a61
;============================================================================
;============================================================================
; TODO: Document FUN_PRG14__9ac6
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;============================================================================
[9ac6]FUN_PRG14__9ac6:
[9ac6]a9 80LDA #$80
[9ac8]9d e4 02STA a:CurrentSprites_Phases,X
[9acb]a9 00LDA #$00
[9acd]9d ec 02STA a:CurrentSprites_BehaviorData2,X
[9ad0]9d f4 02STA a:CurrentSprites_BehaviorData3,X
[9ad3]b5 c2LDA CurrentSprites_YPos,X
[9ad5]38SEC
[9ad6]e9 30SBC #$30
[9ad8]8d 7e 03STA a:Sprite12BodyPartHandler_5_
[9adb]60RTS
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_Unused_SnakeRoundPart
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80ab]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Ripasheiku_CastMagicOrUpdatePos
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_Ripasheiku
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Ripasheiku
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a5fb]
;============================================================================
;============================================================================
; TODO: Document Sprite_MoveHorizOneBlockOrTurnAround
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_Ripasheiku
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Boss_Ripasheiku
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80e1]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Boss_Zoradohna
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80e3]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Borabohra
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a5ff]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Boss_Borabohra
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80e5]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Pakukame
;
; INPUTS:
; X
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a601]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Pakukame__9d78
;
; INPUTS:
; None.
;
; OUTPUTS:
; C
;
; XREFS:
;
SpriteBehavior_Pakukame
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Boss_Pakukame
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80e7]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Zorugeriru
;
; INPUTS:
; X
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a603]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Zorugeriru__9df7
;
; INPUTS:
; None.
;
; OUTPUTS:
; C
;
; XREFS:
;
SpriteBehavior_Zorugeriru
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Zorugeriru__9e13
;
; INPUTS:
; X
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_Zorugeriru
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Boss_Zorugeriru
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80e9]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Garbled3
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a5ed]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Garbled03
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::808d]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_KingGrieve
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a605]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_KingGrieve_9f65
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_KingGrieve
;============================================================================
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SpriteBehavior_KingGrieve_9f86
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_KingGrieve
;
SpriteBehavior_KingGrieve_9f65
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_KingGrieve_MoveDown
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_KingGrieve
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Boss_KingGrieve
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80eb]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_ShadowEura
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a607]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Boss_ShadowEura
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80ed]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_ShadowEura__a077
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_ShadowEura
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_ExecutionHood__a093
;
; INPUTS:
; X
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_ExecutionHood
;============================================================================
;============================================================================
; TODO: Document FUN_PRG14__a0a0
;
; INPUTS:
; X
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
LAB_PRG14__974b [$PRG14::974b]
;
SpriteBehavior_Ishiisu
;
SpriteBehavior_Nash
;============================================================================
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SpriteBehavior_ExecutionHood__a0ad
;
; INPUTS:
; X
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_ExecutionHood__a093
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_EnemyMagic
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a61d]
;
_thunk_SpriteBehavior__a0cb
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Magic_81
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::8129]
;============================================================================
[a0f6]Sprite_CastMagic:
[a0f6]20 36 a2JSR Sprites_HasMaxOnScreen
[a0f9]b0 21BCS @_return
[a0fb]a9 0aLDA #$0a
[a0fd]99 cc 02STA a:CurrentSprites_Entities,Y
[a100]ad 84 03LDA a:CurrentSprite_Arg_CastMagicX
[a103]99 ba 00STA a:CurrentSprites_XPos_Full,Y
[a106]ad 85 03LDA a:CurrentSprite_Arg_CastMagicY
[a109]99 c2 00STA a:CurrentSprites_YPos,Y
[a10c]bd dc 02LDA a:CurrentSprites_Flags,X
[a10f]29 01AND #$01
[a111]99 dc 02STA a:CurrentSprites_Flags,Y
[a114]a9 80LDA #$80
[a116]99 2c 03STA a:CurrentSprites_PPUOffsets,Y
[a119]4c 02 a2JMP Sprite_Maybe_ResetState
[a11c]@_return:
[a11c]60RTS
;============================================================================
; TODO: Document _thunk_SpriteBehavior__a0cb
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a61f]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_TODO_Garbled10
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::809b]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_ShadowEura__a12d
;
; INPUTS:
; X
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_ShadowEura__a077
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Unknown_29
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a621]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Magic_83
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::812d]
;============================================================================
;============================================================================
; TODO: Document FUN_PRG14__a1cc
;
; INPUTS:
; X
; Y
;
; OUTPUTS:
; TODO
;============================================================================
[a1cc]FUN_PRG14__a1cc:
[a1cc]20 36 a2JSR Sprites_HasMaxOnScreen
[a1cf]b0 23BCS @_return
[a1d1]a9 54LDA #$54
[a1d3]99 cc 02STA a:CurrentSprites_Entities,Y
[a1d6]ad 84 03LDA a:CurrentSprite_Arg_CastMagicX
[a1d9]99 ba 00STA a:CurrentSprites_XPos_Full,Y
[a1dc]ad 85 03LDA a:CurrentSprite_Arg_CastMagicY
[a1df]99 c2 00STA a:CurrentSprites_YPos,Y
[a1e2]bd dc 02LDA a:CurrentSprites_Flags,X
[a1e5]29 01AND #$01
[a1e7]09 80ORA #$80
[a1e9]99 dc 02STA a:CurrentSprites_Flags,Y
[a1ec]a9 00LDA #$00
[a1ee]99 2c 03STA a:CurrentSprites_PPUOffsets,Y
[a1f1]4c 02 a2JMP Sprite_Maybe_ResetState
[a1f4]@_return:
[a1f4]60RTS
;============================================================================
; TODO: Document SpriteUpdateHandler_EnemyMagic
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::812f]
;============================================================================
[a202]Sprite_Maybe_ResetState:
[a202]8aTXA
[a203]48PHA
[a204]b9 cc 02LDA a:CurrentSprites_Entities,Y
[a207]0aASL A
[a208]aaTAX
[a209]bd 2d adLDA a:SPRITE_BSCRIPTS,X
[a20c]99 54 03STA a:CurrentSprites_BehaviorAddrs_L,Y
[a20f]bd 2e adLDA a:SPRITE_BSCRIPTS+1,X
[a212]99 5c 03STA a:CurrentSprites_BehaviorAddrs_U,Y
[a215]a9 ffLDA #$ff
[a217]99 d4 02STA a:CurrentSprites_Behaviors,Y
[a21a]99 34 03STA a:CurrentSprites_HitByMagicBehavior,Y
[a21d]be cc 02LDX a:CurrentSprites_Entities,Y
[a220]bd df b4LDA a:SPRITE_ENTITIES_HITBOX_TYPES,X
[a223]99 04 03STA a:CurrentSprites_HitBoxTypes,Y
[a226]a9 00LDA #$00
[a228]99 e4 02STA a:CurrentSprites_Phases,Y
[a22b]b9 dc 02LDA a:CurrentSprites_Flags,Y
[a22e]29 bfAND #$bf
[a230]99 dc 02STA a:CurrentSprites_Flags,Y
[a233]68PLA
[a234]aaTAX
[a235]60RTS
[a236]Sprites_HasMaxOnScreen:
[a236]a0 07LDY #$07; Y = 7 (our loop counter)
[a238]@_loop:
[a238]b9 cc 02LDA a:CurrentSprites_Entities,Y; A = sprite entity at X
[a23b]c9 ffCMP #$ff; Is it 0xFF (unpopulated)?
[a23d]d0 02BNE @_isPopulated; If not, jump to prepare the next loop.
;
; There's an unpopulated sprite. Return a false result.
;
[a23f]18CLC; Set C = 0
[a240]60RTS; And return it.
[a241]@_isPopulated:
[a241]88DEY; Y--
[a242]10 f4BPL @_loop; If >= 0, loop.
;
; All slots are populated. Return a true result.
;
[a244]38SEC; Set C = 1
[a245]60RTS; And return it.
;============================================================================
; TODO: Document SpriteBehavior_Ointment
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a639]
;============================================================================
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SpriteBehavior_a25f_ClearEntity
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_Glove
;============================================================================
;============================================================================
; TODO: Document Sprite_SetReadyAndFallIfNeeded
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_Glove
;
SpriteBehavior_Ointment
;============================================================================
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document Sprite_FallIfNeeded
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_Glove
;
SpriteBehavior_Ointment
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Glove
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a63b]
;============================================================================
;
; v-- Fall through --v
;
[a26b]SpriteUpdateHandler_NPC_Walking:
[a26b]20 82 8cJSR CurrentSprite_UpdateFlipMask
[a26e]a0 00LDY #$00
[a270]bd e4 02LDA a:CurrentSprites_Phases,X
[a273]c9 02CMP #$02
[a275]f0 09BEQ @LAB_PRG14__a280
[a277]ad 83 03LDA a:SpriteUpdateCounter
[a27a]4aLSR A
[a27b]4aLSR A
[a27c]4aLSR A
[a27d]29 03AND #$03
[a27f]a8TAY
[a280]@LAB_PRG14__a280:
[a280]b9 86 a2LDA a:BYTE_ARRAY_PRG14__a286,Y
[a283]4c 8e 8cJMP Sprite_EnterNextAppearancePhase
[a286]BYTE_ARRAY_PRG14__a286:
[a286]00.byte $00; [0]:
[a287]01.byte $01; [1]:
[a288]00.byte $00; [2]:
[a289]02.byte $02; [3]:
;============================================================================
; TODO: Document thunk1_SpriteUpdateHandler_NPC_Walking
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80f1]
;============================================================================
;============================================================================
; TODO: Document thunk2_SpriteUpdateHandler_NPC_Walking
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80f3]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_NPC_ArmorSalesman
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80f5]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_NPC_MartialArts
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80f7]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_NPC_Priest
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80f9]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_NPC_King
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80fb]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_NPC_MagicTeacher
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::80fd]
;============================================================================
[a2e7]SpriteUpdateHandler_NPC_KeySalesman_Others:
[a2e7]a9 40LDA #$40
[a2e9]85 29STA CurrentSprite_FlipMask
;
; v-- Fall through --v
;
[a2eb]FUN_PRG14__a2eb:
[a2eb]ad 83 03LDA a:SpriteUpdateCounter
[a2ee]4aLSR A
[a2ef]4aLSR A
[a2f0]4aLSR A
[a2f1]4aLSR A
[a2f2]29 01AND #$01
[a2f4]4c 8e 8cJMP Sprite_EnterNextAppearancePhase
;============================================================================
; TODO: Document SpriteUpdateHandler_NPC_Doctor
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::810d]
;============================================================================
[a2fe]SpriteUpdateHandler_NPC_MeatSalesman_Others:
[a2fe]20 82 8cJSR CurrentSprite_UpdateFlipMask
[a301]4c eb a2JMP FUN_PRG14__a2eb
;============================================================================
; TODO: Document SpriteUpdateHandler_Enemy_UnusedEyeball_Zozura
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::8113]
;
SPRITE_UPDATE_HANDLERS [$PRG14::8115]
;============================================================================
[a30a]SpriteUpdateHandler_Item_Standard:
[a30a]a9 00LDA #$00
[a30c]85 29STA CurrentSprite_FlipMask
[a30e]a9 00LDA #$00
[a310]4c 8e 8cJMP Sprite_EnterNextAppearancePhase
;============================================================================
; TODO: Document SpriteUpdateHandler_Bread
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::8089]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Fountain
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a659]
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Effect_Fountain
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::812b]
;
SpriteUpdateHandler_Effect_Spring
;============================================================================
[a34b]SpriteUpdateHandler_Item_Special:
[a34b]a9 00LDA #$00
[a34d]85 29STA CurrentSprite_FlipMask
[a34f]a9 00LDA #$00
[a351]4c 8e 8cJMP Sprite_EnterNextAppearancePhase
;============================================================================
; TODO: Document SpriteBehavior_BattleSuitDroppedByZoradohna
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a63d]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_BattleHelmetDroppedByZoradohna
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a63f]
;============================================================================
[a3b4]Sprites_ClearAllEntities:
[a3b4]a0 07LDY #$07
[a3b6]@_loop:
[a3b6]a9 ffLDA #$ff
[a3b8]99 cc 02STA a:CurrentSprites_Entities,Y
[a3bb]88DEY
[a3bc]10 f8BPL @_loop
[a3be]60RTS
;============================================================================
; TODO: Document SpriteBehavior_DragonSlayerDroppedByKingGrieve
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a641]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_MattockDroppedFromRipasheiku
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a643]
;============================================================================
;============================================================================
; ## Behavior $2F: Wing Boots Dropped by Zorugeriru
;
; Shows the sprite on screen only if all conditions are met:
;
; 1. The player has not retrieved the Wingboots from Zorugeriru
; 2. Zorugeriru is not on the screen
;
; Parameters:
; 1. Unused (1 byte)
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a645]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_BlackOnyxDropFromZoradohna
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a647]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_PendantDroppedFromRipasheiku
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a649]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_ShowMagicalRod
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a661]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_RandomlyShowItem_50
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a64b]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_RandomlyShowItem_51
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a64d]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_RandomlyShowItem_52
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a64f]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_RandomlyShowItem_53
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a651]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_RandomlyShowItem_54
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a653]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_RandomlyShowItem_56
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a657]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_RandomlyShowItem_55
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a655]
;============================================================================
[a510]Sprite_ShowIfNoEnemies:
[a510]20 3c a5JSR Sprites_HasAnyEnemyOnScreen; Are there any enemies on screen?
[a513]90 03BCC @_hideSprite; If so, jump to hide the sprite.
[a515]4c bf a8JMP Sprite_SetVisible; Else, show the sprite.
[a518]@_hideSprite:
[a518]4c ce a8JMP Sprites_HideSprite; Hide the sprite.
[a51b]Sprites_MaybeResetPhaseAndEnable:
[a51b]a9 00LDA #$00
[a51d]9d e4 02STA a:CurrentSprites_Phases,X
[a520]4c 94 a8JMP Sprite_SetBehaviorReady
[a523]Sprites_Remove:
[a523]a9 ffLDA #$ff
[a525]9d cc 02STA a:CurrentSprites_Entities,X; Unset the sprite entity.
[a528]60RTS
[a529]Screen_Is3Of4Visits:
[a529]ee 3a 04INC a:Screen_TrackedVisitCount; Increment the visit count.
[a52c]ad 3a 04LDA a:Screen_TrackedVisitCount; Load it.
[a52f]c9 04CMP #$04; Is it < 4?
[a531]90 07BCC @_returnTrue; If so, jump to return true.
[a533]a9 00LDA #$00; Else, reset the track to 0.
[a535]8d 3a 04STA a:Screen_TrackedVisitCount; And store as the new count.
[a538]18CLC; Set C = 0 (false result).
[a539]60RTS
[a53a]@_returnTrue:
[a53a]38SEC; Set C = 1 (true result).
[a53b]60RTS
;============================================================================
; Return whether there are any enemies on screen.
;
; This will check for all current sprites on screen.
; If any are an enemy, this will set Carry to 1.
; Otherwise, Carry will be set to 0.
;
; INPUTS:
;
CurrentSprites_Entities:
; The sprite entities currently on screen.
;
;
SPRITE_CATEGORIES_BY_ENTITY:
; The mapping of sprite entities to categories.
;
; OUTPUTS:
; C:
; 1 = One or more enemies on screen.
; 0 = No enemies on screen.
;
; XREFS:
;
Sprite_ShowIfNoEnemies
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_SpringOfFortress
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a65b]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_SpringOfSky
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a65d]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_SpringOfJoker
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a65f]
;============================================================================
[a59d]SpriteBehavior_Springs_UpdateFlowing:
[a59d]20 ce a8JSR Sprites_HideSprite
[a5a0]bd e4 02LDA a:CurrentSprites_Phases,X
[a5a3]d0 0bBNE @LAB_PRG14__a5b0
[a5a5]fe e4 02INC a:CurrentSprites_Phases,X
[a5a8]a9 00LDA #$00
[a5aa]9d ec 02STA a:CurrentSprites_BehaviorData2,X
[a5ad]9d f4 02STA a:CurrentSprites_BehaviorData3,X
[a5b0]@LAB_PRG14__a5b0:
[a5b0]bd e4 02LDA a:CurrentSprites_Phases,X
[a5b3]c9 01CMP #$01
[a5b5]d0 15BNE Sprite_SetPhase2
[a5b7]fe f4 02INC a:CurrentSprites_BehaviorData3,X
[a5ba]bd f4 02LDA a:CurrentSprites_BehaviorData3,X
[a5bd]29 03AND #$03
[a5bf]d0 0aBNE RETURN_A5CB
[a5c1]fe ec 02INC a:CurrentSprites_BehaviorData2,X
[a5c4]bd ec 02LDA a:CurrentSprites_BehaviorData2,X
[a5c7]c9 04CMP #$04
[a5c9]b0 01BCS Sprite_SetPhase2
[a5cb]RETURN_A5CB:
[a5cb]60RTS
;============================================================================
; TODO: Document Sprite_SetPhase2
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_Springs_UpdateFlowing
;============================================================================
;============================================================================
; TODO: Document SpriteUpdateHandler_Effect_Spring
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::8149]
;
SPRITE_UPDATE_HANDLERS [$PRG14::814b]
;
SPRITE_UPDATE_HANDLERS [$PRG14::814d]
;============================================================================
;============================================================================
; TODO: Document Sprites_UpdateBehavior
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
LAB_PRG14__802e [$PRG14::802e]
;============================================================================
;
; This is an enemy sprite, and the Hour Glass is active.
; Don't run any behavior updates.
;
[a678]60RTS
;
; Set the currently-processing sprite behavior address to
; the one from the current sprites map.
;
[a679]@LAB_PRG14__a679:
[a679]ae 78 03LDX a:CurrentSpriteIndex
[a67c]bd 54 03LDA a:CurrentSprites_BehaviorAddrs_L,X
[a67f]85 caSTA Sprites_ReadInfoAddr
[a681]bd 5c 03LDA a:CurrentSprites_BehaviorAddrs_U,X
[a684]85 cbSTA Sprites_ReadInfoAddr_U
[a686]20 bc a6JSR BScripts_LoadNextOp
[a689]bd d4 02LDA a:CurrentSprites_Behaviors,X
[a68c]0aASL A
[a68d]a8TAY
[a68e]c0 84CPY #$84
[a690]b0 0fBCS @_updateCurrentSprites
[a692]a9 a6LDA #$a6
[a694]48PHA
[a695]a9 a0LDA #$a0
[a697]48PHA
[a698]b9 e8 a5LDA a:SPRITE_BEHAVIORS+1,Y
[a69b]48PHA
[a69c]b9 e7 a5LDA a:SPRITE_BEHAVIORS,Y
[a69f]48PHA
[a6a0]60RTS
;
; Update the map of current sprites to sprite behavior addresses
; with the updated address.
;
[a6a1]@_updateCurrentSprites:
[a6a1]ae 78 03LDX a:CurrentSpriteIndex
[a6a4]a5 caLDA Sprites_ReadInfoAddr
[a6a6]9d 54 03STA a:CurrentSprites_BehaviorAddrs_L,X
[a6a9]a5 cbLDA Sprites_ReadInfoAddr_U
[a6ab]9d 5c 03STA a:CurrentSprites_BehaviorAddrs_U,X
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SpriteBehavior_Return
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a5f1]
;
SPRITE_BEHAVIORS [$PRG14::a5fd]
;
Sprites_CountdownBehavior
;============================================================================
[a6af]Sprites_CountdownBehavior:
[a6af]bd 64 03LDA a:CurrentSprites_BehaviorArg1,X
[a6b2]f0 faBEQ SpriteBehavior_Return
[a6b4]de 64 03DEC a:CurrentSprites_BehaviorArg1,X
[a6b7]d0 f5BNE SpriteBehavior_Return
[a6b9]4c ac a8JMP Sprite_FinishBehavior
[a6bc]BScripts_LoadNextOp:
[a6bc]a0 00LDY #$00
[a6be]b1 caLDA (Sprites_ReadInfoAddr),Y
[a6c0]c9 ffCMP #$ff
[a6c2]f0 0bBEQ @LAB_PRG14__a6cf
[a6c4]0aASL A
[a6c5]a8TAY
[a6c6]b9 d9 a6LDA a:BSCRIPT_OP_HANDLERS+1,Y
[a6c9]48PHA
[a6ca]b9 d8 a6LDA a:BSCRIPT_OP_HANDLERS,Y
[a6cd]48PHA
[a6ce]60RTS
[a6cf]@LAB_PRG14__a6cf:
[a6cf]bd d4 02LDA a:CurrentSprites_Behaviors,X
[a6d2]29 7fAND #$7f
[a6d4]9d d4 02STA a:CurrentSprites_Behaviors,X
[a6d7]60RTS
[a6d8]BSCRIPT_OP_HANDLERS:
[a6d8]fe a6pointer BScript_Op_SwitchBehavior-1; [0]:
[a6da]2b a7pointer BScript_Op_MaybeDisableAndGoTo-1; [1]:
[a6dc]71 a7pointer BScript_Op_RunAction-1; [2]:
[a6de]e4 a7pointer BScript_Op_CheckDistanceToPlayer-1; [3]:
[a6e0]6d a8pointer BScript_Op_FinishBehavior-1; [4]:
[a6e2]4b a7pointer BScript_Op_GoTo-1; [5]:
[a6e4]4e a8pointer BScript_Op_AddToSpriteData-1; [6]:
[a6e6]e7 a6pointer BScript_Op_SetPhase-1; [7]:
;============================================================================
; TODO: Document BScript_Op_SetPhase
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
BSCRIPT_OP_HANDLERS [$PRG14::a6e6]
;============================================================================
;============================================================================
; TODO: Document BScript_Op_SwitchBehavior
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
BSCRIPT_OP_HANDLERS [$PRG14::a6d8]
;============================================================================
;============================================================================
; TODO: Document BScript_Op_MaybeDisableAndGoTo
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
BSCRIPT_OP_HANDLERS [$PRG14::a6da]
;============================================================================
;============================================================================
; TODO: Document Sprites_MaybeDisableAndGoTo
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
BScript_Op_MaybeDisableAndGoTo
;============================================================================
;============================================================================
; TODO: Document BScript_Op_GoTo
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
BSCRIPT_OP_HANDLERS [$PRG14::a6e2]
;============================================================================
;============================================================================
; TODO: Document BScript_Op_RunAction
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
BSCRIPT_OP_HANDLERS [$PRG14::a6dc]
;============================================================================
;============================================================================
; TODO: Document Sprites_Maybe_Skip2AndLoadNextAction
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;============================================================================
[a78c]Sprites_Maybe_Skip2AndLoadNextAction:
[a78c]a9 02LDA #$02
[a78e]20 79 a8JSR Sprites_IncrementScriptAddr
[a791]4c bc a6JMP BScripts_LoadNextOp
[a794]BSCRIPT_ACTIONS:
[a794]7a 86pointer BScript_Action_FacePlayerX-1; [0]: Face Player (X)
[a796]06 84pointer BScript_Action_FlipXDirection-1; [1]: Flip X Direction
[a798]90 86pointer BScript_Action_FacePlayerY-1; [2]: Face Player (Y)
[a79a]0f 84pointer BScript_Action_FlipYDirection-1; [3]: Flip Y Direction
[a79c]ac a7pointer BScript_Action_RandomlyFlipXDirection-1; [4]: Randomly Flip X Direction
[a79e]c8 a7pointer BScript_Action_RandomlyFlipYDirection-1; [5]: Randomly Flip Y Direction
[a7a0]a3 a7pointer BScript_Action_RiseUp-1; [6]: Rise Up
[a7a2]38 92pointer BScript_Action_CastMagic-1; [7]: Cast Magic
;============================================================================
; BScript Action $06: Rise Up
;
; This will clear the Falling flag for the sprite, causing it to rise up.
;
; XREFS:
;
BSCRIPT_ACTIONS [$PRG14::a7a0]
;============================================================================
;============================================================================
; BScript Action $04: Randomly flip the X direction.
;
; This will generate a random number. If it's < 128, the sprite will face
; right. Otherwise it will face left.
;
; XREFS:
;
BSCRIPT_ACTIONS [$PRG14::a79c]
;
SpriteBehavior_Lilith
;============================================================================
;============================================================================
; BScript Action $05: Randomly flip the Y direction.
;
; This will generate a random number. If it's < 128, the sprite will fall.
; Otherwise it will rise.
;
; XREFS:
;
BSCRIPT_ACTIONS [$PRG14::a79e]
;============================================================================
;============================================================================
; BScript Op $03: Check Distance to Player.
;
; Check if the distance between the player and sprite is
; within or outside the given value.
;
; This can check in either the X or Y direction. Depending
; on the result, this will jump to one of two addresses
; defined in the arguments.
;
; Arguments:
; 1. Check direction (0=X, 1=Y) (1 byte)
; 2. Distance value (1 byte)
; 3. Address to jump to if distance < value (2 bytes)
; 4. Address to jump to if distance >= value (2 bytes)
;
; XREFS:
;
BSCRIPT_OP_HANDLERS [$PRG14::a6de]
;============================================================================
;============================================================================
; Subcommand table for the Check Distance to Player op.
;
; Keys correspond to the first argument to the op.
;
; XREFS:
;
BScript_Op_CheckDistanceToPlayer
;============================================================================
[a7f8]SpriteOp_CheckDistanceToPlayer_X:
[a7f8]bd d4 02LDA a:CurrentSprites_Behaviors,X; A = Sprite behavior
[a7fb]10 08BPL @_checkDistance; If the behavior is ready, jump to check.
;
; The behavior is not ready, so skip this check and all
; arguments.
;
[a7fd]a9 07LDA #$07; 7 = bytes to skip.
[a7ff]20 79 a8JSR Sprites_IncrementScriptAddr; Skip them.
[a802]4c bc a6JMP BScripts_LoadNextOp; Load the next operation.
;
; Check the distance to the player. This will result in
; jumping to code that sets the address for one of the
; script jump address destinations.
;
[a805]@_checkDistance:
[a805]20 f8 82JSR Sprite_CalcDistanceXToPlayer; Calculate the distance between the sprite and player.
[a808]a0 02LDY #$02; Y = 2 (op distance argument)
[a80a]d1 caCMP (Sprites_ReadInfoAddr),Y; Is distance < argument?
[a80c]90 0fBCC @_isLessThan; If so, jump.
;
; The calculated distance is >= the distance argument.
; Choose the second address.
;
[a80e]a0 04LDY #$04; Y = 4
[a810]c8INY; Y++ (5)
[a811]b1 caLDA (Sprites_ReadInfoAddr),Y; A = lower byte of jump address.
[a813]48PHA; Push to the stack.
[a814]c8INY; Y++ (6)
[a815]b1 caLDA (Sprites_ReadInfoAddr),Y; A = upper byte of jump address.
[a817]85 cbSTA Sprites_ReadInfoAddr_U; Store as the new upper byte of the read address.
[a819]68PLA; Pop the lower byte.
[a81a]85 caSTA Sprites_ReadInfoAddr; Store as the new lower byte of the read address.
[a81c]60RTS; Return.
;
; The calculated distance is < the distance argument.
; Choose the first address.
;
[a81d]@_isLessThan:
[a81d]c8INY; Y++ (3)
[a81e]b1 caLDA (Sprites_ReadInfoAddr),Y; A = lower byte of jump address.
[a820]48PHA; Push to the stack.
[a821]c8INY; Y++ (4)
[a822]b1 caLDA (Sprites_ReadInfoAddr),Y; A = upper byte of jump address.
[a824]85 cbSTA Sprites_ReadInfoAddr_U; Store as the new upper byte of the read address.
[a826]68PLA; Pop the lower byte.
[a827]85 caSTA Sprites_ReadInfoAddr; Store as the new lower byte of the read address.
[a829]60RTS; Return.
[a82a]SpriteOp_CheckDistanceToPlayer_Y:
[a82a]bd d4 02LDA a:CurrentSprites_Behaviors,X; A = Sprite behavior
[a82d]10 08BPL @_checkDistance; If the behavior is ready, jump to check.
;
; The behavior is not ready, so skip this check and all
; arguments.
;
[a82f]a9 07LDA #$07; 7 = bytes to skip.
[a831]20 79 a8JSR Sprites_IncrementScriptAddr; Skip them.
[a834]4c bc a6JMP BScripts_LoadNextOp; Load the next operation.
;
; Check the distance to the player. This will result in
; a value for Y, which will be the offset to the jump address
; - 1.
;
[a837]@_checkDistance:
[a837]20 1b 83JSR Sprite_CalcDistanceYToPlayer; Calculate the distance between the sprite and player.
[a83a]a0 02LDY #$02; Y = 2 (op distance argument)
[a83c]d1 caCMP (Sprites_ReadInfoAddr),Y; Is distance < argument?
[a83e]90 02BCC @_isLessThan; If so, jump.
;
; The calculated distance is >= the distance argument.
; Choose the first address.
;
[a840]a0 04LDY #$04; Y = 4 (byte before second address)
;
; Load the jump address for the script based on Y above.
;
[a842]@_isLessThan:
[a842]c8INY; Y++ (target jump address)
[a843]b1 caLDA (Sprites_ReadInfoAddr),Y; A = lower byte of jump address.
[a845]48PHA; Push to the stack.
[a846]c8INY; Y++
[a847]b1 caLDA (Sprites_ReadInfoAddr),Y; A = upper byte of jump address.
[a849]85 cbSTA Sprites_ReadInfoAddr_U; Store as the new upper byte of the read address.
[a84b]68PLA; Pop the lower byte.
[a84c]85 caSTA Sprites_ReadInfoAddr; Store as the new lower byte of the read address.
[a84e]60RTS; Return.
;============================================================================
; Op $06: Add Value To Sprite Data
;
; Add a value to the existing value in a Current Sprites
; data block of RAM, as in:
;
; existing_value += new_value
;
; This is valid for several collections of Current
; Sprite data in RAM, including:
;
; *
CurrentSprites_Flags
; *
CurrentSprites_XPos_Full
; *
CurrentSprites_YPos
; *
CurrentSprites_HitCounter
; *
CurrentSprites_Values
;
;
; The value will be set for the current sprite in that array.
;
; Arguments:
; 1. Sprites data RAM address (2 bytes)
; 2. Value to set (1 byte)
;
; XREFS:
;
BSCRIPT_OP_HANDLERS [$PRG14::a6e4]
;============================================================================
;
; Load the address from parameter 1.
;
[a84f]a0 01LDY #$01; Y = 1 (argument 1, byte 1)
[a851]b1 caLDA (Sprites_ReadInfoAddr),Y; Load the lower byte.
[a853]85 02STA Temp_Addr_L; Store as the lower byte of the address to write to.
[a855]c8INY; Y++ (argument 1, byte 2)
[a856]b1 caLDA (Sprites_ReadInfoAddr),Y; Load the upper byte.
[a858]85 03STA Temp_Addr_U; Store as the upper byte of the address to write to.
;
; Load the value to set from parameter 2.
;
[a85a]c8INY; Y++ (argument 2)
[a85b]b1 caLDA (Sprites_ReadInfoAddr),Y; Load the value.
;
; Set the value in the address.
;
[a85d]48PHA; Push the new value to the stack.
[a85e]8aTXA; A = X (sprite index)
[a85f]a8TAY; Y = A
[a860]68PLA; Pop the new value from the stack.
[a861]18CLC
[a862]71 02ADC (Temp_Addr_L),Y; Add the value from the address to our argument value.
[a864]91 02STA (Temp_Addr_L),Y; Store it as the new value.
;
; Jump to the next op and load it.
;
[a866]a9 04LDA #$04; A = 4 (number of bytes to skip)
[a868]20 79 a8JSR Sprites_IncrementScriptAddr; Skip over those bytes.
[a86b]4c bc a6JMP BScripts_LoadNextOp; Load the next op.
;============================================================================
; Op $04: Finish Behavior
;
; Immediately finish a behavior.
;
; This will unset the behavior ID and continue on with the next operation.
;
; Arguments: None
;
; XREFS:
;
BSCRIPT_OP_HANDLERS [$PRG14::a6e0]
;============================================================================
[a879]Sprites_IncrementScriptAddr:
[a879]18CLC; C = 0
[a87a]65 caADC Sprites_ReadInfoAddr; A = offset + lower byte of the behavior address
If overflow, C = 1
[a87c]85 caSTA Sprites_ReadInfoAddr; Store it.
[a87e]a5 cbLDA Sprites_ReadInfoAddr_U; A = upper byte of the behavior address
[a880]69 00ADC #$00; Add carry, if set.
[a882]85 cbSTA Sprites_ReadInfoAddr_U; Store it.
[a884]60RTS
[a885]Sprite_IsBehaviorNotReady:
[a885]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite's flags.
[a888]29 40AND #$40; Set Z = ready not set.
[a88a]60RTS
[a88b]Sprite_SetBehaviorNotReady:
[a88b]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite's flags.
[a88e]29 bfAND #$bf; Clear the Ready flag.
[a890]9d dc 02STA a:CurrentSprites_Flags,X; Store it.
[a893]60RTS
[a894]Sprite_SetBehaviorReady:
[a894]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite's flags.
[a897]09 40ORA #$40; Set the Ready flag.
[a899]9d dc 02STA a:CurrentSprites_Flags,X; Store it.
[a89c]60RTS
;============================================================================
; MAYBE DEADCODE
;============================================================================
[a89d]CurrentSpriteFlags_SetBit5:
[a89d]bd dc 02LDA a:CurrentSprites_Flags,X
[a8a0]09 20ORA #$20
[a8a2]9d dc 02STA a:CurrentSprites_Flags,X
[a8a5]60RTS
;============================================================================
; MAYBE DEADCODE
;============================================================================
[a8a6]Sprite_ClearFlags:
[a8a6]a9 00LDA #$00
[a8a8]9d dc 02STA a:CurrentSprites_Flags,X
[a8ab]60RTS
[a8ac]Sprite_FinishBehavior:
[a8ac]20 8b a8JSR Sprite_SetBehaviorNotReady
[a8af]bd d4 02LDA a:CurrentSprites_Behaviors,X
[a8b2]09 80ORA #$80
[a8b4]9d d4 02STA a:CurrentSprites_Behaviors,X
[a8b7]60RTS
[a8b8]Sprite_GetPreviousSpritePhase:
[a8b8]bd e4 02LDA a:CurrentSprites_Phases,X; Load the current phase.
[a8bb]38SEC
[a8bc]e9 01SBC #$01; Subtract 1
[a8be]60RTS; Return the value.
[a8bf]Sprite_SetVisible:
[a8bf]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite's flags.
[a8c2]09 10ORA #$10; Set the visibility flag.
[a8c4]9d dc 02STA a:CurrentSprites_Flags,X; And save it.
[a8c7]60RTS
[a8c8]Sprites_IsSpriteHidden:
[a8c8]bd dc 02LDA a:CurrentSprites_Flags,X; Load the sprite's flags.
[a8cb]29 10AND #$10; Check the visible flag.
[a8cd]60RTS; And return Z.
[a8ce]Sprites_HideSprite:
[a8ce]bd dc 02LDA a:CurrentSprites_Flags,X; Load the flags for the given sprite.
[a8d1]29 efAND #$ef; Clear the visible flag.
[a8d3]9d dc 02STA a:CurrentSprites_Flags,X; Set the new flags.
[a8d6]60RTS
;============================================================================
; TODO: Document SpriteBehavior__a8d7
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a60f]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_MoveTowardPlayer
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a5e7]
;============================================================================
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SpriteBehavior__a91e
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SpriteBehavior_MoveTowardPlayer
;
SpriteBehavior__a8d7
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_WalkForward
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a5ef]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Fall
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a611]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Wait
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a5e9]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_SomethingEyeball_17
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a609]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_Hop
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a5f9]
;============================================================================
;
; Begin falling.
;
[aa60]4c 10 84JMP BScript_Action_FlipYDirection
[aa63]@LAB_PRG14__aa63:
[aa63]bc fc 02LDY a:CurrentSprites_InternalBehaviorStates,X
[aa66]bd f4 02LDA a:CurrentSprites_BehaviorData3,X
[aa69]d9 81 aaCMP a:SPRITE_BEHAVIOR_HOP_GROUND_TICKS,Y
[aa6c]90 03BCC @_return
[aa6e]de f4 02DEC a:CurrentSprites_BehaviorData3,X
[aa71]@_return:
[aa71]60RTS
[aa72]SPRITE_BEHAVIOUR_HOP_START_TICKS:
[aa72]40.byte $40; [0]:
[aa73]20.byte $20; [1]:
[aa74]10.byte $10; [2]: Monodron
[aa75]08.byte $08; [3]:
[aa76]10.byte $10; [4]:
[aa77]SPRITE_BEHAVIOR_HOP_GRAVITY:
[aa77]02.byte $02; [0]:
[aa78]03.byte $03; [1]:
[aa79]04.byte $04; [2]:
[aa7a]05.byte $05; [3]:
[aa7b]04.byte $04; [4]:
[aa7c]SPRITE_BEHAVIOR_HOP_JUMP_STRENGTH:
[aa7c]04.byte $04; [0]:
[aa7d]05.byte $05; [1]:
[aa7e]06.byte $06; [2]:
[aa7f]07.byte $07; [3]:
[aa80]07.byte $07; [4]:
[aa81]SPRITE_BEHAVIOR_HOP_GROUND_TICKS:
[aa81]c0.byte $c0; [0]:
[aa82]60.byte $60; [1]:
[aa83]30.byte $30; [2]:
[aa84]18.byte $18; [3]:
[aa85]30.byte $30; [4]:
;============================================================================
; TODO: Document SpriteBehavior_SomethingZoradohna_18
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a60b]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_MoveVertically
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a60d]
;============================================================================
;============================================================================
; Behavior $1F: Flashes the screen and hit player.
;
; This turns the screen greyscale for a frame and damages the player for
; 10HP.
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a625]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_BossDeath
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a663]
;============================================================================
;============================================================================
; TODO: Document SpriteBehavior_EnemyDeath
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_BEHAVIORS [$PRG14::a5f5]
;
SPRITE_BEHAVIORS [$PRG14::a5f7]
;============================================================================
;============================================================================
; Show an effect for the death of a big enemy.
;
; This will replace the sprite with a big enemy death effect.
;
; INPUTS:
; X:
; The index of the enemy sprite.
;
; OUTPUTS:
; None
;
; XREFS:
;
Player_HitEnemyWithMagic
;
Player_HitSpriteWithWeapon
;============================================================================
;============================================================================
; Show an effect for the death of a normal enemy by weapon.
;
; This will replace the sprite with an enemy death effect.
;
; INPUTS:
; X:
; The index of the enemy sprite.
;
; OUTPUTS:
; None
;
; XREFS:
;
Player_HitSpriteWithWeapon
;============================================================================
;============================================================================
; Show an effect for the death of a normal enemy by magic.
;
; This will clear sprite state, stop the sprite behavior,
; and set an explosion animation.
;
; INPUTS:
; X:
; The index of the enemy sprite.
;
; OUTPUTS:
; None
;
; XREFS:
;
Player_HitEnemyWithMagic
;============================================================================
;
; v-- Fall through --v
;
[abf8]Sprite_SetDeathEntity:
[abf8]48PHA
[abf9]bd cc 02LDA a:CurrentSprites_Entities,X
[abfc]9d fc 02STA a:CurrentSprites_InternalBehaviorStates,X
[abff]68PLA
[ac00]9d cc 02STA a:CurrentSprites_Entities,X
[ac03]0aASL A
[ac04]a8TAY
[ac05]b9 2d adLDA a:SPRITE_BSCRIPTS,Y
[ac08]9d 54 03STA a:CurrentSprites_BehaviorAddrs_L,X
[ac0b]b9 2e adLDA a:SPRITE_BSCRIPTS+1,Y
[ac0e]9d 5c 03STA a:CurrentSprites_BehaviorAddrs_U,X
[ac11]a9 ffLDA #$ff
[ac13]9d d4 02STA a:CurrentSprites_Behaviors,X
[ac16]9d 34 03STA a:CurrentSprites_HitByMagicBehavior,X
[ac19]a9 00LDA #$00
[ac1b]9d ec 02STA a:CurrentSprites_BehaviorData2,X
[ac1e]4c 8b a8JMP Sprite_SetBehaviorNotReady
;============================================================================
; Check and handle dropping an item on an enemy's death.
;
; This will check if there's room on the screen for a
; drop and, if so, run the drop handler. That will then
; check if a drop should be spawned by the enemy and, if
; so, spawn one.
;
; INPUTS:
; ...
;
; OUTPUTS:
;
CurrentSpriteIndex:
; The new current sprite index, reflecting the
; dropped item or dead sprite.
;
; CALLS:
;
Sprites_HasMaxOnScreen
;
Sprite_RunDeathDropHandler
;
; XREFS:
;
SpriteBehavior_BossDeath
;
SpriteBehavior_EnemyDeath
;============================================================================
;============================================================================
; TODO: Document Sprite_RunDeathDropHandler
;
; INPUTS:
; X
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Sprite_HandleDeathDropIfPossible
;============================================================================
;============================================================================
; XXX Address lookup table for next handlers
;
;
; XREFS:
;
Sprite_RunDeathDropHandler
;============================================================================
[ac75]Sprites_ReplaceWithCoinDrop:
[ac75]a9 10LDA #$10
[ac77]20 e4 d0JSR Sound_PlayEffect
[ac7a]98TYA
[ac7b]aaTAX
[ac7c]a9 02LDA #$02
;
; v-- Fall through --v
;
[ac7e]Sprite_ReplaceWithDroppedItem:
;
; Set the sprite entity.
;
[ac7e]9d cc 02STA a:CurrentSprites_Entities,X; Set the provided sprite entity at the given index.
;
; Set the sprite behavior address.
;
[ac81]0aASL A; Convert the sprite entity to a word boundary for the behavior addresses.
[ac82]a8TAY; Y = A
[ac83]b9 2d adLDA a:SPRITE_BSCRIPTS,Y; Load the lower byte of the sprite behavior for this entity.
[ac86]9d 54 03STA a:CurrentSprites_BehaviorAddrs_L,X; Set it as the current behavior for this sprite.
[ac89]b9 2e adLDA a:SPRITE_BSCRIPTS+1,Y; Load the upper byte.
[ac8c]9d 5c 03STA a:CurrentSprites_BehaviorAddrs_U,X; And set that.
;
; Set the sprite subtype to 0xFF (unset).
;
[ac8f]a9 ffLDA #$ff; A = 0xFF
[ac91]9d d4 02STA a:CurrentSprites_Behaviors,X; Set it as the subtype.
;
; Set the sprite hitbox.
;
[ac94]a0 02LDY #$02; Y = 2
[ac96]b9 df b4LDA a:SPRITE_ENTITIES_HITBOX_TYPES,Y; A = hitbox type for Y.
[ac99]9d 04 03STA a:CurrentSprites_HitBoxTypes,X; Set as the hitbox.
;
; Disable sprite behaviors.
;
[ac9c]4c 8b a8JMP Sprite_SetBehaviorNotReady; Disable behaviors for this sprite.
[ac9f]Sprite_ReplaceWithBreadDrop:
[ac9f]98TYA; A = Y (sprite index)
[aca0]aaTAX; X = A
[aca1]a9 01LDA #$01; A = 1
[aca3]4c 7e acJMP Sprite_ReplaceWithDroppedItem
;============================================================================
; MAYBE DEADCODE
;============================================================================
[aca6]Sprite_ReplaceWithMattock:
[aca6]20 dd acJSR @_Sprites_ReplaceWithMattock_HasMaxOnScreen; Check if all sprite slots are populated.
[aca9]b0 31BCS @_return; If so, return.
;
; There are unpopulated slots. Populate at the given index.
;
[acab]a9 50LDA #$50; A = Mattock sprite ID.
[acad]9d cc 02STA a:CurrentSprites_Entities,X; Store as the entity at this index.
[acb0]0aASL A; Normalize to a word boundary.
[acb1]a8TAY; Y = A
[acb2]b9 2d adLDA a:SPRITE_BSCRIPTS,Y; A = 0x1B.
[acb5]9d 54 03STA a:CurrentSprites_BehaviorAddrs_L,X; Set as lower byte.
[acb8]b9 2e adLDA a:SPRITE_BSCRIPTS+1,Y; A = 0xB2.
[acbb]9d 5c 03STA a:CurrentSprites_BehaviorAddrs_U,X; Set as upper byte.
;
; Set the subtype to 0xFF (unset).
;
[acbe]a9 ffLDA #$ff; A = 0xFF
[acc0]9d d4 02STA a:CurrentSprites_Behaviors,X; Set subtype to A.
;
; Set the hitbox of the sprite.
;
[acc3]bc cc 02LDY a:CurrentSprites_Entities,X; Y = sprite entity.
[acc6]b9 df b4LDA a:SPRITE_ENTITIES_HITBOX_TYPES,Y; A = hitbox type for Y.
[acc9]9d 04 03STA a:CurrentSprites_HitBoxTypes,X; Store as the hitbox type.
;
; Set the Y position of the sprite to 32.
;
[accc]a9 20LDA #$20; A = 32
[acce]95 c2STA CurrentSprites_YPos,X; Set as X position.
;
; Set the X position of the sprite as 120.
;
[acd0]a9 78LDA #$78; A = 120
[acd2]95 baSTA CurrentSprites_XPos_Full,X; Set as X position.
;
; Set the PPU address for the sprite.
;
[acd4]a9 90LDA #$90; A = 0x90
[acd6]9d 2c 03STA a:CurrentSprites_PPUOffsets,X; Set as the PPU address.
[acd9]4c 8b a8JMP Sprite_SetBehaviorNotReady; Disable behaviors for the sprite.
[acdc]@_return:
[acdc]60RTS
;============================================================================
; Return whether all sprite slots are populated.
;
; This is similar to
Sprites_HasMaxOnScreen, but
; is specific to
Sprite_ReplaceWithMattock.
;
; It differs in that the counter variable is X instead of Y.
;
; INPUTS:
;
CurrentSprites_Entities:
; All populated sprite entities on the screen.
;
; OUTPUTS:
; C:
; 1 if all sprite slot are populated.
; 0 if any are unpopulated.
;
; XREFS:
;
Sprite_ReplaceWithMattock
;============================================================================
;
; There's an unpopulated sprite. Return a false result.
;
[ace6]18CLC; Set C = 0
[ace7]60RTS; And return it.
[ace8]@_isPopulated:
[ace8]caDEX; X--
[ace9]10 f4BPL @_loop; If >= 0, loop.
;
; All slots are populated. Return a true result.
;
[aceb]38SEC; Set C = 1
[acec]60RTS; And return it.
;============================================================================
; XXX Seems related to
SPRITE_ENTITY_DROP_VALUES_INDEX.
;
; That table's values are indexes into here.
;
; XREFS:
;
Sprite_RunDeathDropHandler
;============================================================================
;============================================================================
; A mapping of sprite entity IDs to behavior state addresses.
;
; XREFS:
;
Sprites_PopulateNextAvailableSprite
;============================================================================
;============================================================================
; No-op sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad2d]
;
SPRITE_BSCRIPTS [$PRG14::ad59]
;
SPRITE_BSCRIPTS [$PRG14::ad77]
;
SPRITE_BSCRIPTS [$PRG14::ad7f]
;============================================================================
;============================================================================
; Bread drop sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad2f]
;============================================================================
;============================================================================
; Garbled 3 sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad33]
;============================================================================
;============================================================================
; Unknown 83 sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::add3]
;============================================================================
;============================================================================
; Hornet enemy sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad3b]
;============================================================================
;============================================================================
; Bihoruda enemy sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad3d]
;============================================================================
;============================================================================
; Lilith enemy sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad3f]
;============================================================================
;============================================================================
; Raiden enemy sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad35]
;============================================================================
;============================================================================
; Unused eyeball enemy sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adb9]
;============================================================================
;============================================================================
; Ikedia sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad79]
;============================================================================
;============================================================================
; Zozura sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adbb]
;============================================================================
;
; DEADCODE: Unused logic for Zozura.
;
; In this version, Zozura would still walk toward the player,
; but would randomly change the X direction and continue
; walking.
;
[aebb]02.byte SPRITE_OP_RUN_ACTION; Op: Run action
[aebc]00.byte SPRITE_ACTION_FACE_PLAYER_X; '- Face player (X)
[aebd]00.byte SPRITE_OP_SWITCH_BEHAVIOR; Op: Switch behavior
[aebe]04.byte SPRITE_BEHAVIOR_WALK_FORWARD; |- Walk forward
[aebf]3c.byte $3c; |- For 60 ticks
[aec0]60.byte $60; |- 96 pixels
[aec1]00.byte $00; '- 0 blocks
[aec2]02.byte SPRITE_OP_RUN_ACTION; Op: Run action
[aec3]04.byte SPRITE_ACTION_RANDOMLY_FLIP_X_DIRECTION; '- Randomly flip X direction
[aec4]00.byte SPRITE_OP_SWITCH_BEHAVIOR; Op: Switch behavior
[aec5]04.byte SPRITE_BEHAVIOR_WALK_FORWARD; |- Walk forward
[aec6]14.byte $14; |- For 20 ticks
[aec7]60.byte $60; |- 96 pixels
[aec8]00.byte $00; '- 0 blocks
[aec9]05.byte SPRITE_OP_GOTO; Op: Goto
[aeca]b1 aepointer BSCRIPTS_ENEMY_ZOZURA; '- BSCRIPTS_ENEMY_ZOZURA
;============================================================================
; Monodron sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad81]
;============================================================================
;============================================================================
; Snowman sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad45]
;============================================================================
;============================================================================
; Coin sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad31]
;============================================================================
;============================================================================
; Zombie sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad39]
;============================================================================
;============================================================================
; Necron Aides sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad37]
;============================================================================
;============================================================================
; Yuinaru sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad43]
;============================================================================
;============================================================================
; Nash sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad47]
;============================================================================
;============================================================================
; Fire Giant sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad49]
;============================================================================
;============================================================================
; Ishiisu sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad4b]
;============================================================================
;============================================================================
; Execution Hood sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad4d]
;============================================================================
;============================================================================
; Lightning ball sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad53]
;============================================================================
;============================================================================
; Charron sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad55]
;============================================================================
;============================================================================
; Boss death effect sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adf5]
;============================================================================
;============================================================================
; Unused 21 sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad57]
;============================================================================
;============================================================================
; Geributa sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad5b]
;============================================================================
;============================================================================
; Sugata enemy behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad5d]
;============================================================================
;============================================================================
; Grimlock enemy behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad5f]
;============================================================================
;============================================================================
; Giant Bees sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad61]
;============================================================================
;============================================================================
; Myconid sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad63]
;============================================================================
;============================================================================
; Naga sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad65]
;============================================================================
;============================================================================
; Giant Strider sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad69]
;============================================================================
;============================================================================
; Yareeka sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad71]
;============================================================================
;============================================================================
; Magman sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad73]
;============================================================================
;============================================================================
; Unused 36 sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad75]
;============================================================================
;============================================================================
; Unused 39 sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad7b]
;============================================================================
;============================================================================
; Lamprey sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad7d]
;============================================================================
;============================================================================
; Unused 43 sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad83]
;============================================================================
;============================================================================
; Tamazutsu sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad85]
;============================================================================
;============================================================================
; Sir Gawaine/Wolfman sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad6b]
;
SPRITE_BSCRIPTS [$PRG14::ad6f]
;============================================================================
;============================================================================
; Maskman sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad6d]
;============================================================================
;============================================================================
; Unused 29 sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad67]
;============================================================================
;============================================================================
; Rokusutahn sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad4f]
;============================================================================
;============================================================================
; Unused 18 sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad51]
;============================================================================
;============================================================================
; Ripasheiku sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad87]
;============================================================================
;============================================================================
; Zoradohna sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad89]
;============================================================================
;============================================================================
; Borabohra sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad8b]
;============================================================================
;============================================================================
; Pakukame sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad8d]
;============================================================================
;============================================================================
; Zorugeriru sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad8f]
;============================================================================
;============================================================================
; King Grieve sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad91]
;============================================================================
;============================================================================
; Shadow Eura sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad93]
;============================================================================
;============================================================================
; Enemy magic spell sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adcf]
;
SPRITE_BSCRIPTS [$PRG14::add5]
;============================================================================
;============================================================================
; Unused garbled 10 sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad41]
;============================================================================
;============================================================================
; Walking Man NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad95]
;============================================================================
;============================================================================
; Unused blue day NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad97]
;============================================================================
;============================================================================
; Unused child NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad99]
;============================================================================
;============================================================================
; Armor salesman NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad9b]
;============================================================================
;============================================================================
; Martial Artist NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad9d]
;============================================================================
;============================================================================
; Priest NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ad9f]
;============================================================================
;============================================================================
; King NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ada1]
;============================================================================
;
; Wait until the King and the player are within 64 pixels
; of each other.
;
[b180]@_waitNearPlayerLoop:
[b180]03.byte SPRITE_OP_CHECK_DISTANCE; Op: Check distance to player
[b181]00.byte $00; |- For 0 ticks
[b182]40.byte $40; |- If < 64 pixels
[b183]87 b1pointer @_nearPlayer; |- Then @_nearPlayer
[b185]80 b1pointer @_waitNearPlayerLoop; '- Else @_waitNearPlayerLoop
;
; The player is now near the King. The King will step forward
; 8 pixels and stand on the ground.
;
[b187]@_nearPlayer:
[b187]04.byte SPRITE_OP_FINISH_BEHAVIOR; Op: Finish behavior
[b188]06.byte SPRITE_OP_ADD_TO_SPRITE_DATA; Op: Add value to
[b189]ba 00pointer CurrentSprites_XPos_Full; |- Sprite X position
[b18b]08.byte $08; '- Plus 8
[b18c]00.byte SPRITE_OP_SWITCH_BEHAVIOR; Op: Switch behavior
[b18d]15.byte SPRITE_BEHAVIOR_FALL; |- Fall/wait
[b18e]00.byte $00; '- For 0 ticks
;
; Wait until the player has moved away from the King.
;
; This has a longer distance check, since the King's
; position incremented when standing up.
;
[b18f]@_waitAwayFromPlayerLoop:
[b18f]03.byte SPRITE_OP_CHECK_DISTANCE; Op: Check distance to player
[b190]00.byte $00; |- For 0 ticks
[b191]48.byte $48; |- If < 72 pixels
[b192]8f b1pointer @_waitAwayFromPlayerLoop; |- Then @_waitAwayFromPlayerLoop
[b194]96 b1pointer @_awayFromPlayer; '- Else @_awayFromPlayer
;
; The player is now far enough away from the King.
; The King can sit down.
;
[b196]@_awayFromPlayer:
[b196]04.byte SPRITE_OP_FINISH_BEHAVIOR; Op: Finish behavior
[b197]06.byte SPRITE_OP_ADD_TO_SPRITE_DATA; Op: Add value to
[b198]ba 00pointer CurrentSprites_XPos_Full; |- Sprite X position
[b19a]f8.byte $f8; '- Minus 8
[b19b]05.byte SPRITE_OP_GOTO; Op: Goto
[b19c]7d b1pointer BSCRIPTS_NPC_KING; '- BSCRIPTS_NPC_KING
;============================================================================
; Magic Teacher NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ada3]
;============================================================================
;============================================================================
; Doctor NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adb3]
;============================================================================
;============================================================================
; Key Salesman NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ada5]
;============================================================================
;============================================================================
; Smoking Man NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ada7]
;============================================================================
;============================================================================
; Man in chair NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ada9]
;============================================================================
;============================================================================
; Sitting man NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adab]
;============================================================================
;============================================================================
; Meat Salesman NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adad]
;============================================================================
;============================================================================
; Blue lady in dress with cup NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adaf]
;============================================================================
;============================================================================
; King's Guard NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adb1]
;============================================================================
;============================================================================
; Walking woman 1 NPC sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adb5]
;============================================================================
;============================================================================
; Walking woman 2 sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adb7]
;============================================================================
;============================================================================
; Ointment item sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adc9]
;============================================================================
;============================================================================
; Glove item sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adbd]
;============================================================================
;============================================================================
; Wingboots item sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::add7]
;============================================================================
;============================================================================
; Potion-like item sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adc3]
;
SPRITE_BSCRIPTS [$PRG14::adc5]
;
SPRITE_BSCRIPTS [$PRG14::adc7]
;
SPRITE_BSCRIPTS [$PRG14::adcb]
;============================================================================
;============================================================================
; Mattock item sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adcd]
;============================================================================
;============================================================================
; Hour Glass item sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::add9]
;============================================================================
;============================================================================
; Fountain sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::add1]
;============================================================================
;============================================================================
; Spring of Trunk sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adef]
;============================================================================
;============================================================================
; Spring of Sky sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adf1]
;============================================================================
;============================================================================
; Spring of Joker sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adf3]
;============================================================================
;============================================================================
; Battle Suit item sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::addd]
;============================================================================
;============================================================================
; Battle Helmet item sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::addf]
;============================================================================
;============================================================================
; Dragon Slayer item sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ade1]
;============================================================================
;============================================================================
; Magical Rod item sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::addb]
;============================================================================
;============================================================================
; Black Onyx dropped by Zoradohna sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adbf]
;============================================================================
;============================================================================
; Pendant dropped from Ripasheiku sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adc1]
;============================================================================
;============================================================================
; Mattock dropped by Ripasheiku sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ade3]
;============================================================================
;============================================================================
; Wing Boots dropped by Zorugeriru sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ade5]
;============================================================================
;============================================================================
; Red Potion 2 item sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ade7]
;============================================================================
;============================================================================
; Poison item sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::ade9]
;============================================================================
;============================================================================
; Glove 2 item sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::adeb]
;============================================================================
;============================================================================
; Ointment 2 item sprite behavior script.
;
; XREFS:
;
SPRITE_BSCRIPTS [$PRG14::aded]
;============================================================================
;============================================================================
; A mapping of sprite entity IDs to hitbox types.
;
; XREFS:
;
Sprites_PopulateNextAvailableSprite
;============================================================================
;============================================================================
; Starting HP for each entity type.
;
; XREFS:
;
Sprites_PopulateNextAvailableSprite
;============================================================================
;============================================================================
; Experience gained from defeating each entity type.
;
; XREFS:
;
Player_AddExperienceFromSprite
;============================================================================
;============================================================================
; Per-entity indexes into the
SPRITE_DROP_VALUES table.
;
; This maps entities that may drop gold or bread to an index
; into a drop values table, which determines how much gold
; or how much HP the drop will be worth.
;
; If the value is 0xFF, the entity will not drop anything.
;
; XREFS:
;
Sprite_RunDeathDropHandler
;============================================================================
;============================================================================
; Attack damage from each sprite entity type.
;
; XREFS:
;
Player_ApplyDamage
;
Player_HandleHitByMagic
;============================================================================
;============================================================================
; A mapping of entity types to magic defense values.
;
; Each value defines the magic reduction for each spell as pairs
; of 2 bits in the following order:
;
; 00 00 00 00
; | | | '- Tilte
; | | '- Death
; | '- Fire
; '- Thunder
;
; Each pair can have the following values:
;
; 00 = 0% reduction
; 01 = 50% reduction
; 10 = 100% reduction
; 11 = 100% reduction
;
; Note that the Deluge spell is always set at 0% reduction.
;
; XREFS:
;
Player_HitEnemyWithMagic
;============================================================================
;============================================================================
; Magic damage.
;
; XREFS:
;
Player_HitEnemyWithMagic
;============================================================================
;============================================================================
; Weapon damage.
;
; XREFS:
;
Player_HitSpriteWithWeapon
;============================================================================
;============================================================================
; MP costs for magic spells.
;
; XREFS:
;
Player_ReduceMP
;============================================================================
[b7ae]Player_InitInventoryState:
[b7ae]a9 00LDA #$00
[b7b0]8d c2 03STA a:NumberOfWeapons; Set the number of weapons to 0.
[b7b3]8d c4 03STA a:NumberOfShields; Set the number of shields to 0.
[b7b6]8d c5 03STA a:NumberOfMagicSpells; Set the number of magic spells to 0.
[b7b9]8d c6 03STA a:NumberOfItems; Set the number of items to 0.
[b7bc]8d c3 03STA a:NumberOfArmors; Set the number of armors to 0.
;
; v-- Fall through --v
;
[b7bf]PlayerDeath_ResetSelectedItemState:
[b7bf]a9 00LDA #$00
[b7c1]8d be 03STA a:SelectedArmor; Set armor to Leather.
[b7c4]a9 ffLDA #$ff
[b7c6]8d bd 03STA a:SelectedWeapon; Set weapon to None.
[b7c9]8d c8 03STA a:Player_CurWeapon; Set current weapon to None.
[b7cc]8d bf 03STA a:SelectedShield; Set shield to None.
[b7cf]8d c0 03STA a:SelectedMagic; Set magic to None.
[b7d2]8d c1 03STA a:SelectedItem; Set item to None.
[b7d5]RETURN_B7D5:
[b7d5]60RTS
;============================================================================
; TODO: Document Player_DrawWeapon
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
EndGame_MainLoop
;
Game_DrawScreenInFrozenState
;
Game_MainLoop
;============================================================================
;============================================================================
; Sprite addresses for each weapon type.
;
; XREFS:
;
Player_DrawWeapon
;============================================================================
;============================================================================
; TODO: Document Player_CalcValueAndFFForNeg
;
; INPUTS:
; A
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Player_DrawWeapon
;
FUN_PRG15_MIRROR__ec58
;============================================================================
;============================================================================
; TODO: Document Maybe_Player_CalcAnimFrame
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;
; XREFS:
;
Player_CheckShieldHitByMagic
;
Player_DrawShield
;
Player_DrawWeapon
;============================================================================
;============================================================================
; TODO: Document Player_DrawShield
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
EndGame_MainLoop
;
Game_DrawScreenInFrozenState
;
Game_MainLoop
;============================================================================
[b9ed]Player_CalculateVisibility:
[b9ed]a9 00LDA #$00
[b9ef]85 b8STA Temp_MovingSpriteVisibility
[b9f1]a5 28LDA Arg_DrawSprite_PosY
[b9f3]85 b6STA Arg_PixelPosY
[b9f5]a5 27LDA Arg_DrawSprite_PosX
[b9f7]18CLC
[b9f8]69 04ADC #$04
[b9fa]85 b5STA Arg_PixelPosX
[b9fc]20 6c e8JSR Area_ConvertPixelsToBlockPos
[b9ff]20 c3 e8JSR ScreenBuffer_LoadBlockProperty
[ba02]c9 04CMP #$04
[ba04]f0 08BEQ @LAB_PRG14__ba0e
[ba06]c9 0dCMP #$0d
[ba08]f0 04BEQ @LAB_PRG14__ba0e
[ba0a]c9 09CMP #$09
[ba0c]d0 06BNE @LAB_PRG14__ba14
[ba0e]@LAB_PRG14__ba0e:
[ba0e]a5 b8LDA Temp_MovingSpriteVisibility
[ba10]09 01ORA #$01
[ba12]85 b8STA Temp_MovingSpriteVisibility
[ba14]@LAB_PRG14__ba14:
[ba14]a5 27LDA Arg_DrawSprite_PosX
[ba16]18CLC
[ba17]69 0cADC #$0c
[ba19]85 b5STA Arg_PixelPosX
[ba1b]20 6c e8JSR Area_ConvertPixelsToBlockPos
[ba1e]20 c3 e8JSR ScreenBuffer_LoadBlockProperty
[ba21]c9 04CMP #$04
[ba23]f0 08BEQ @LAB_PRG14__ba2d
[ba25]c9 0dCMP #$0d
[ba27]f0 04BEQ @LAB_PRG14__ba2d
[ba29]c9 09CMP #$09
[ba2b]d0 06BNE @LAB_PRG14__ba33
[ba2d]@LAB_PRG14__ba2d:
[ba2d]a5 b8LDA Temp_MovingSpriteVisibility
[ba2f]09 02ORA #$02
[ba31]85 b8STA Temp_MovingSpriteVisibility
[ba33]@LAB_PRG14__ba33:
[ba33]a5 a4LDA Player_Flags
[ba35]29 40AND #$40
[ba37]f0 0dBEQ @LAB_PRG14__ba46
[ba39]a5 b8LDA Temp_MovingSpriteVisibility
[ba3b]f0 0bBEQ SUB_PRG14__ba48
[ba3d]c9 03CMP #$03
[ba3f]f0 07BEQ SUB_PRG14__ba48
[ba41]49 03EOR #$03
[ba43]4c 48 baJMP SUB_PRG14__ba48
[ba46]@LAB_PRG14__ba46:
[ba46]a5 b8LDA Temp_MovingSpriteVisibility
[ba48]SUB_PRG14__ba48:
[ba48]85 26STA MovingSpriteVisibility
[ba4a]60RTS
;============================================================================
; Return the player's current weapon.
;
; If the weapon is unset, it will be normalized to a
; hand dagger.
;
; INPUTS:
;
Player_CurWeapon:
; The current weapon.
;
; OUTPUTS:
; A:
; The normalized weapon.
;
; XREFS:
;
Player_DrawWeapon
;============================================================================
;============================================================================
; Clear the visible magic on the screen.
;
; INPUTS:
; None.
;
; OUTPUTS:
;
CastMagic_Type:
; The magic, unset.
;
; XREFS:
;
Game_InitStateForSpawn
;============================================================================
[ba5b]Player_CastMagic:
;
; Check if there's any visible magic on the screen.
;
; If so, run its handler and return.
;
[ba5b]ad b3 02LDA a:CastMagic_Type; Load the visible magic.
[ba5e]10 79BPL CastMagic_RunSpellHandler; If unset, jump to the next function in the spell cast logic.
;
; Check if the player is climbing a ladder.
;
[ba60]20 f6 ecJSR Player_IsClimbing; Check if the player can cast magic.
[ba63]b0 73BCS @_return2; If not, we're done.
;
; Check if the player has pressed Up-B to cast magic.
;
[ba65]a5 16LDA Joy1_ButtonMask; Load the current button mask.
[ba67]29 08AND #$08; Has Up been pressed?
[ba69]f0 0dBEQ @_return1; If not, return.
[ba6b]a5 19LDA Joy1_ChangedButtonMask; Load the newly-changed button mask.
[ba6d]29 40AND #$40; Has B been pressed?
[ba6f]f0 07BEQ @_return1; If not, return.
;
; Load the currently-selected magic spell.
;
; Only the primary spells (not extra stages of the spells)
; are supported.
;
[ba71]ad c0 03LDA a:SelectedMagic; Load the magic spell.
[ba74]c9 05CMP #$05; Compare against 5 (Tilte -- last spell).
[ba76]90 01BCC @LAB_PRG14__ba79; If a valid spell, then jump.
[ba78]@_return1:
[ba78]60RTS; We're done.
;
; If the player has enough MP for the spell, reduce the MP
; for the spell cost.
;
[ba79]@LAB_PRG14__ba79:
[ba79]20 c3 c0JSR Player_ReduceMP; Reduce the MP.
[ba7c]b0 faBCS @_return1; If there's not enough, we're done.
;
; Load the magic spell again.
;
[ba7e]ad c0 03LDA a:SelectedMagic; Load the magic spell.
[ba81]c9 04CMP #$04; Compare it to 4 (Fire).
[ba83]f0 08BEQ @_playTilteSound
;
; This is any magic spell other than Tilte, which
; has its own sound.
;
[ba85]a9 05LDA #$05
[ba87]20 e4 d0JSR Sound_PlayEffect; Play the standard magic sound effect.
[ba8a]4c 92 baJMP @_placeMagic
;
; This is Tilte magic. Play its sound effect.
;
[ba8d]@_playTilteSound:
[ba8d]a9 14LDA #$14
[ba8f]20 e4 d0JSR Sound_PlayEffect; Play the Tilte magic sound effect.
;
; Begin placing the magic spell on the screen.
;
[ba92]@_placeMagic:
[ba92]ad c0 03LDA a:SelectedMagic; Load the magic spell.
[ba95]8d b3 02STA a:CastMagic_Type; Set it as the visible magic.
;
; Calculate the direction the player is facing in order
; to know which direction to send the spell.
;
[ba98]a5 a4LDA Player_Flags; Load the player's flags.
[ba9a]29 40AND #$40; Pull out the Facing Right bit.
[ba9c]8d b4 02STA a:CastMagic_Flags; Store as the direction.
;
; Set the initial X position of the magic.
;
[ba9f]ac b3 02LDY a:CastMagic_Type; Y = visible magic
[baa2]a5 9eLDA Player_PosX_Block; A = player X position
[baa4]79 f2 baADC a:CAST_MAGIC_START_X,Y; Load the relative starting X position for the spell.
[baa7]8d b6 02STA a:CastMagic_XPos_Full; Set it as the full X start position.
[baaa]a5 a1LDA Player_PosY; A = player Y position
[baac]18CLC
;
; Set the initial Y position of the magic.
;
[baad]79 ed baADC a:CAST_MAGIC_START_Y,Y; Load the relative starting Y position for the spell.
[bab0]8d b8 02STA a:CastMagic_YPos_Full; Set it as the full Y start position.
;
; Clear the rest of the default state.
;
[bab3]a9 00LDA #$00
[bab5]8d b5 02STA a:CastMagic_XPos_Frac; Fractional X = 0
[bab8]8d b7 02STA a:CastMagic_YPos_Frac; Fraction Y = 0
[babb]8d b9 02STA a:CastMagic_Counter; Counter = 0
[babe]8d ba 02STA a:CastMagic_Phase; Phase = 0
;
; Tilte behaves differently, so check which spell's being cast.
;
[bac1]ad b3 02LDA a:CastMagic_Type; Load the magic spell.
[bac4]c9 04CMP #$04; Compare against Tilte.
[bac6]d0 11BNE CastMagic_RunSpellHandler; If Tilte, jump to the next function in the spell cast logic.
;
; This is Tilte. Set the flags as initially falling for the
; downward arc.
;
[bac8]ad b4 02LDA a:CastMagic_Flags; Load the magic's flags.
[bacb]09 80ORA #$80; Set the Falling bit.
[bacd]8d b4 02STA a:CastMagic_Flags; Store it back out.
;
; Set the magic counter to a default of 33.
;
[bad0]a9 21LDA #$21; A = 0x21
[bad2]8d b9 02STA a:CastMagic_Counter; Store as the magic's counter.
[bad5]4c d9 baJMP CastMagic_RunSpellHandler; Jump to the next function in the spell cast logic.
[bad8]@_return2:
[bad8]60RTS
;============================================================================
; Run the handler for spawning or updating the current spell.
;
; This will fetch the address of the method used to handle
; a spell and put it on the stack, running it once this
; function has finished.
;
; NOTES:
; This is pushing two addresses onto the stack for A:
;
; 1.
CastMagic_RunUpdateSpellHandler as the
; finish
; handler.
;
; 2. The address of the handler.
;
; INPUTS:
; VisiblePlayerMagic:
; The magic spell currently set.
;
; OUTPUTS:
; A:
; The address of the handler.
;
; XREFS:
;
Player_CastMagic
;============================================================================
;
; Push PRG15_MIRROR:C2E9 to the stack as the result
; after our magic function.
;
[bad9]a9 c2LDA #$c2
[badb]48PHA
[badc]a9 e8LDA #$e8
[bade]48PHA
;
; Load the current spell into A and shift left 1 for lookup.
;
; Transfer that to Y as the index into the lookup table for
; the address.
;
[badf]ad b3 02LDA a:CastMagic_Type; A = Current spell
[bae2]0aASL A; Multiply by 2.
[bae3]a8TAY; Y = A
[bae4]b9 f8 baLDA a:CAST_MAGIC_UPDATE_HANDLERS+1,Y; Load the upper nibble of the address
[bae7]48PHA; Push onto A
[bae8]b9 f7 baLDA a:CAST_MAGIC_UPDATE_HANDLERS,Y; Load the lower nibble of the address
[baeb]48PHA; Push onto A
;============================================================================
; TODO: Document CastMagic_Noop
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
CAST_MAGIC_UPDATE_FINISH_HANDLERS [$PRG14::bb39]
;
CAST_MAGIC_UPDATE_HANDLERS [$PRG14::bb09]
;============================================================================
;============================================================================
; Handlers for finishing casting a magic spell.
;
; XREFS:
;
CastMagic_RunUpdateSpellHandler
;============================================================================
[bb3f]CastMagic_Clear:
[bb3f]a9 ffLDA #$ff
[bb41]8d b3 02STA a:CastMagic_Type
[bb44]60RTS
[bb45]CastMagic_UpdateDeluge:
;
; Update the position by X +/- 3 and check if the
; magic flew off-screen.
;
[bb45]a9 03LDA #$03
[bb47]8d 75 03STA a:Arg_DeltaX_Full; Set delta X block argument to 3.
[bb4a]a9 00LDA #$00
[bb4c]8d 74 03STA a:Arg_DeltaX_Frac; Set delta X pixel argument to 0.
[bb4f]20 af bcJSR CastMagic_UpdateXPosition; Update position.
[bb52]90 03BCC @_checkCollision; If not off-screen, check for collision.
;
; It's off-screen. Clear the magic.
;
[bb54]4c 3f bbJMP CastMagic_Clear; Clear the magic.
;
; Check if the magic is on a block other than air.
;
[bb57]@_checkCollision:
[bb57]a5 b7LDA Blocks_Result; Check which block the magic is on.
[bb59]f0 0fBEQ @_return; If air, we're done.
;
; It hit a block. Play the sound effect.
;
[bb5b]a9 0aLDA #$0a
[bb5d]20 e4 d0JSR Sound_PlayEffect; Play the Magic Hit Obstacle sound effect.
;
; Clear the magic spell.
;
; NOTE:
; Originally, it seems this was meant to set a
; Hit Wall effect instead. This can be re-enabled
; by changing
CastMagic_Type to 10.
;
;============================================================================
; Handle the Deluge magic hitting something.
;
; This will set an animation counter, clear out the magic
; type, and update the X position based on the sprite's
; X position.
;
; INPUTS:
;
CurrentSpriteIndex:
; The current sprite index of the entity that
; was hit.
;
; OUTPUTS:
;
CastMagic_Counter:
; Set to 4.
;
;
CastMagic_Type:
; Unset (0xFF).
;
;
CastMagic_XPos_Full:
; The same position as the sprite that was hit.
;
; XREFS:
;
CAST_MAGIC_HIT_HANDLERS [$PRG14::bb0f]
;============================================================================
;
; Update the X position of the cast magic to the sprite's
; x position.
;
[bb75]ae 78 03LDX a:CurrentSpriteIndex; X = current sprite index
[bb78]b5 baLDA CurrentSprites_XPos_Full,X; A = current sprite X position.
[bb7a]8d b6 02STA a:CastMagic_XPos_Full; Store as the X position.
[bb7d]60RTS
[bb7e]CastMagic_UpdateThunderOrDeath:
;
; Update the position by X +/- 2 and check if the
; magic flew off-screen.
;
[bb7e]a9 02LDA #$02
[bb80]8d 75 03STA a:Arg_DeltaX_Full; Set the delta X position to check to 2.
[bb83]a9 00LDA #$00
[bb85]8d 74 03STA a:Arg_DeltaX_Frac; Set the delta fractional X position to 0.
[bb88]20 af bcJSR CastMagic_UpdateXPosition; Update the X position and check if it stayed on-screen.
[bb8b]90 03BCC @_return; If still on-screen, jump.
;
; It's off-screen. Clear the magic.
;
[bb8d]4c 3f bbJMP CastMagic_Clear; Clear the magic.
[bb90]@_return:
[bb90]60RTS
;============================================================================
; Handle the Thunder magic hitting something.
;
; This will reset the animation counter (as it will
; still go through the enemy) and set a Thunder Explosion
; effect.
;
; INPUTS:
; None.
;
; OUTPUTS:
;
CastMagic_Counter:
; Set to 0x18.
;
;
CastMagic_Type:
; Set to the Thunder Explosion state.
;
; XREFS:
;
CAST_MAGIC_HIT_HANDLERS [$PRG14::bb11]
;============================================================================
[bb9c]CastMagic_UpdateFire:
;
; Update X +/- 4 and check if the magic flew off-screen.
;
[bb9c]a9 04LDA #$04
[bb9e]8d 75 03STA a:Arg_DeltaX_Full; Full Delta X = 4
[bba1]a9 00LDA #$00
[bba3]8d 74 03STA a:Arg_DeltaX_Frac; Fractional Delta X = 0
[bba6]20 af bcJSR CastMagic_UpdateXPosition; Update the X position.
[bba9]90 03BCC @_checkCollision; If not off-screen, check for collision.
;
; It's off-screen. Clear the magic.
;
[bbab]4c 3f bbJMP CastMagic_Clear; Clear the magic.
;
; Check if the magic is on a block other than air.
;
[bbae]@_checkCollision:
[bbae]a5 b7LDA Blocks_Result; Check which block the magic is on.
[bbb0]f0 26BEQ @_return; If air, we're done.
;
; It hit a block. Play the sound effect.
;
[bbb2]a9 0aLDA #$0a
[bbb4]20 e4 d0JSR Sound_PlayEffect; Play the Magic Hit Obstacle sound effect.
;
; Clear the magic spell.
;
; NOTE:
; Originally, it seems this was meant to set a
; Hit Wall effect instead. This can be re-enabled
; by changing
CastMagic_Type to 10.
;
;
; Set the final X position.
;
; If facing right, this will add 16 to the position, letting
; it appear to go off-screen.
;
[bbc1]ad b4 02LDA a:CastMagic_Flags; Load the magic's flags.
[bbc4]29 40AND #$40; Check the direction bit.
[bbc6]4aLSR A; If set, divide by 8 (resulting in 16).
[bbc7]4aLSR A
[bbc8]6d b6 02ADC a:CastMagic_XPos_Full; Add to the current position.
[bbcb]8d b6 02STA a:CastMagic_XPos_Full; And set it.
;
; Switch the direction of the spell.
;
[bbce]ad b4 02LDA a:CastMagic_Flags; Load the flags.
[bbd1]29 7fAND #$7f; Clear the Attacking bit.
[bbd3]49 40EOR #$40; Toggle the Facing Right bit.
[bbd5]8d b4 02STA a:CastMagic_Flags; Store it.
[bbd8]@_return:
[bbd8]60RTS
;============================================================================
; Handle the Fire magic hitting something.
;
; This will clear out the animation counter and then
; set the type to a Fire magic that will disappear
; after hitting 255 enemies (which won't happen).
;
; INPUTS:
;
CurrentSpriteIndex:
; The current sprite index of the entity that
; was hit.
;
; OUTPUTS:
;
CastMagic_Counter:
; Set to 0xFF.
;
;
CastMagic_Type:
; Set to the next type of Fire spell.
;
; XREFS:
;
CAST_MAGIC_HIT_HANDLERS [$PRG14::bb13]
;============================================================================
;============================================================================
; Handle casting Thunder or Death magic.
;
; This is a thunking function that forwards to
;
CastMagic_UpdateThunderOrDeath.
;
; XREFS:
;
CAST_MAGIC_UPDATE_HANDLERS [$PRG14::bafd]
;============================================================================
;============================================================================
; Handle the Death magic hitting something.
;
; This will unset the magic from the screen.
;
; INPUTS:
; None
;
; OUTPUTS:
;
CastMagic_Type:
; Unset (0xFF).
;
; XREFS:
;
CAST_MAGIC_HIT_HANDLERS [$PRG14::bb15]
;============================================================================
;============================================================================
; Handle casting or updating the Tilte spell.
;
; This spell has two phases:
;
; 1. A slow-moving curved phase
; 2. A fast-moving missile phase
;
; During phase 1, this will control the X/Y positions in a
; curved form. Depending on the tick count, it will move
; downward toward the bottom of the arc, horizontal at
; the bottom, back up, or begin a transition to phase 2.
;
; In phase 2, it will simply move in a single diagonal
; direction.
;
; The block won't collide with anything on the screen,
; and will move through enemies.
;
; INPUTS:
; None
;
; OUTPUTS:
;
CastMagic_Unused_HitWallDeltaPosY:
; Set to 0 if the magic hit an obstacle.
;
;
CastMagic_Flags:
; Cleared attack flags.
;
;
CastMagic_XPos_Full:
; The new X position.
;
;
CastMagic_Type:
; Unset if clearing the magic.
;
;
Arg_DeltaX_Frac:
;
Arg_DeltaX_Full:
; Clobbered.
;
; CALLS:
;
CastMagic_Clear
;
CastMagic_UpdateXPosition
;
Sound_PlayEffect
;
; XREFS:
;
CAST_MAGIC_UPDATE_HANDLERS [$PRG14::baff]
;============================================================================
;
; Update based on the phase of this magic.
;
[bbf3]ad ba 02LDA a:CastMagic_Phase; Check the phase.
[bbf6]4aLSR A; Check bit 0 for even/odd.
[bbf7]b0 47BCS @_curveMagicPhase; If odd, jump.
;
; We're in the initial, curved magic phase. It dips down and
; then back up.
;
; Update X +/- 1 and check if the magic flew off the screen.
; We'll calculate gravity-based Y movement next.
;
[bbf9]a9 01LDA #$01
[bbfb]8d 75 03STA a:Arg_DeltaX_Full; Full Delta X = 1
[bbfe]a9 00LDA #$00
[bc00]8d 74 03STA a:Arg_DeltaX_Frac; Fractional Delta X = 0
[bc03]20 af bcJSR CastMagic_UpdateXPosition; Update position.
[bc06]b0 e8BCS CastMagic_ClearTilte; If off-screen, jump to clear.
;
; Calculate the next movement behavior.
;
[bc08]ad b9 02LDA a:CastMagic_Counter; Load the magic tick counter.
[bc0b]a0 03LDY #$03; Y = 3
[bc0d]20 e1 83JSR Sprites_CalcYFromGravity; Calculate the movement behavior (delta Y).
[bc10]a0 03LDY #$03; Y = 3 (count)
[bc12]20 d1 83JSR Sprites_CalcVerticalSpriteMovement; Calculate vertical movement.
[bc15]a9 00LDA #$00
[bc17]8d 77 03STA a:Arg_DeltaY_Full; Full Delta Y = 0
[bc1a]20 fb bcJSR CastMagic_UpdateYPosition; Update the Y position.
[bc1d]b0 d1BCS CastMagic_ClearTilte; If off-screen, jump to clear.
;
; It's on-screen. Manage cycle of the magic.
;
; First, check if we're on tick 32, 64, 96, or 128.
;
[bc1f]ad b9 02LDA a:CastMagic_Counter; A = counter.
[bc22]29 1fAND #$1f; Check against anything but 32, 64, or 128.
[bc24]d0 16BNE @_incAndReturn; If 32, 64, or 128, jump to finish up.
;
; We're on a non-32/64/128 phase, dictating curve movement
; and possibly phase transition.
;
; When 32 is hit, the magic will appear and move downward.
;
; When 64 is hit, it will begin moving horizontally at the
; bottom of the arc.
;
; When 96 is hit, it will begin moving upward toward the
; top of the arc.
;
; When 128 is hit, it will transition to the missile phase.
;
[bc26]ad b4 02LDA a:CastMagic_Flags; Load the magic flags.
[bc29]49 80EOR #$80; Toggle the Falling phase.
[bc2b]8d b4 02STA a:CastMagic_Flags; Store the updated flags.
[bc2e]10 0cBPL @_incAndReturn; If attacking is clear, jump to finish up.
;
; Switch to the missile phase.
;
[bc30]ee ba 02INC a:CastMagic_Phase; Increment the phase.
;
; Clear the falling flag, moving back up.
;
[bc33]ad b4 02LDA a:CastMagic_Flags; Load the magic flags.
[bc36]29 7fAND #$7f; Clear attacking.
[bc38]8d b4 02STA a:CastMagic_Flags; Store it.
[bc3b]60RTS
[bc3c]@_incAndReturn:
[bc3c]ee b9 02INC a:CastMagic_Counter; Increment the tick counter.
[bc3f]60RTS
;
; The magic is in the fast-moving diagonal missile phase.
;
; We'll update X +/- 4 and Y + 4 for the movement, annd check
; if it's off-screen.
;
[bc40]@_curveMagicPhase:
[bc40]a9 04LDA #$04
[bc42]8d 75 03STA a:Arg_DeltaX_Full; Full Delta X = 4
[bc45]8d 77 03STA a:Arg_DeltaY_Full; Full Delta Y = 4
[bc48]a9 00LDA #$00
[bc4a]8d 74 03STA a:Arg_DeltaX_Frac; Fractional Delta X = 0
[bc4d]8d 76 03STA a:Arg_DeltaY_Frac; Fractional Delta Y = 0
[bc50]20 af bcJSR CastMagic_UpdateXPosition; Update the X position.
[bc53]b0 9bBCS CastMagic_ClearTilte; If off-screen, jump to clear.
[bc55]20 fb bcJSR CastMagic_UpdateYPosition; Update the Y position.
[bc58]b0 96BCS CastMagic_ClearTilte; If off-screen, jump to clear.
[bc5a]60RTS
;============================================================================
; Handle Tilte magic hitting something.
;
; This will turn off the transition counter and
; set the type to be the Tilte explosion effect.
;
; INPUTS:
; None
;
; OUTPUTS:
;
CastMagic_Counter:
; Reset to 0.
;
;
CastMagic_Type:
; Set to the Tilte Explosion type.
;
; XREFS:
;
CAST_MAGIC_HIT_HANDLERS [$PRG14::bb17]
;============================================================================
;============================================================================
; UNUSED: Handle updating a Deluge spell that has collided at least once.
;
; This would update the Deluge spell as normal, and then
; decrement a tick counter. Once that counter hits 0, the
; spell will clear.
;
; However, this never actually gets run. Instead, the spell
; is cleared as soon as the first hit occurs.
;
; INPUTS:
;
CastMagic_Counter:
; The counter indicating the max number of ticks
; before disappearing.
;
; OUTPUTS:
;
CastMagic_Counter:
; The decremented counter value.
;
;
CastMagic_Type:
; The cleared magic type, if the counter reaches 0.
;
; CALLS:
;
CastMagic_UpdateDeluge
;
; XREFS:
;
CAST_MAGIC_UPDATE_HANDLERS [$PRG14::bb01]
;============================================================================
;
; The magic spell has dissipated. Clear it.
;
[bc6e]a9 ffLDA #$ff
[bc70]8d b3 02STA a:CastMagic_Type; Clear the active magic spell.
[bc73]@_return:
[bc73]60RTS
;============================================================================
; Handle updating a Thunder spell that has collided at least once.
;
; This will update the Thunder spell as normal, and then
; decrement a tick counter. Once that counter hits 0, the
; spell will clear.
;
; INPUTS:
;
CastMagic_Counter:
; The counter indicating the max number of ticks
; before disappearing.
;
; OUTPUTS:
;
CastMagic_Counter:
; The decremented counter value.
;
;
CastMagic_Type:
; The cleared magic type, if the counter reaches 0.
;
; CALLS:
;
CastMagic_UpdateThunderOrDeath
;
; XREFS:
;
CAST_MAGIC_UPDATE_HANDLERS [$PRG14::bb03]
;============================================================================
;
; The magic spell has dissipated. Clear it.
;
[bc7c]a9 ffLDA #$ff
[bc7e]8d b3 02STA a:CastMagic_Type; Clear the active magic spell.
[bc81]@_return:
[bc81]60RTS
;============================================================================
; Handle updating a Fire spell that has collided at least once.
;
; This will update the Fire spell as normal, and then
; decrement a tick counter. Once that counter hits 0, the
; spell will clear.
;
; INPUTS:
;
CastMagic_Counter:
; The counter indicating the max number of ticks
; before disappearing.
;
; OUTPUTS:
;
CastMagic_Counter:
; The decremented counter value.
;
;
CastMagic_Type:
; The cleared magic type, if the counter reaches 0.
;
; CALLS:
;
CastMagic_UpdateFire
;
; XREFS:
;
CAST_MAGIC_UPDATE_HANDLERS [$PRG14::bb05]
;============================================================================
;
; The magic spell has dissipated. Clear it.
;
[bc8a]a9 ffLDA #$ff
[bc8c]8d b3 02STA a:CastMagic_Type; Clear the active magic spell.
[bc8f]@_return:
[bc8f]60RTS
;============================================================================
; Handle updating a Death spell that has collided at least once.
;
; This will immediately clear the current magic type.
;
; INPUTS:
; None.
;
; OUTPUTS:
; None.
;
; XREFS:
;
CAST_MAGIC_UPDATE_HANDLERS [$PRG14::bb07]
;============================================================================
;============================================================================
; UNUSED
;============================================================================
[bc96]4c 3f bbJMP CastMagic_Clear
;============================================================================
; UNUSED: Handle updating magic type 10.
;
; This isn't a type used in the game. If called, this
; would clear the current magic type.
;
; INPUTS:
; None.
;
; OUTPUTS:
;
CastMagic_Type:
; Unset.
;
; XREFS:
;
CAST_MAGIC_UPDATE_HANDLERS [$PRG14::bb0b]
;============================================================================
;============================================================================
; Handle updating a Tilte spell that has collided at least once.
;
; This will simply increment the tick counter. Once that is >= 16,
; the spell will clear.
;
; INPUTS:
;
CastMagic_Counter:
; The counter indicating the max number of ticks
; before disappearing.
;
; OUTPUTS:
;
CastMagic_Counter:
; The incremented counter value.
;
;
CastMagic_Type:
; The cleared magic type, if the counter reaches 16 or
; higher.
;
; XREFS:
;
CAST_MAGIC_UPDATE_HANDLERS [$PRG14::bb0d]
;============================================================================
;
; The magic spell has dissipated. Clear it.
;
[bca9]a9 ffLDA #$ff
[bcab]8d b3 02STA a:CastMagic_Type; Clear the active magic spell.
[bcae]@_return:
[bcae]60RTS
[bcaf]CastMagic_UpdateXPosition:
[bcaf]ad b4 02LDA a:CastMagic_Flags; Load the magic's flags.
[bcb2]29 40AND #$40; Check the Facing Right bit.
[bcb4]d0 1eBNE @_isRight; If it's set, jump.
;
; The magic is moving left.
;
; Update the fractional X value based on the provided delta.
;
[bcb6]ad b5 02LDA a:CastMagic_XPos_Frac; Load the fractional X position.
[bcb9]38SEC
[bcba]ed 74 03SBC a:Arg_DeltaX_Frac; Subtract the provided delta.
[bcbd]8d b5 02STA a:CastMagic_XPos_Frac; Store it.
;
; Now update the full X position.
;
[bcc0]ad b6 02LDA a:CastMagic_XPos_Full; Load the full X position.
[bcc3]ed 75 03SBC a:Arg_DeltaX_Full; Subtract the provided delta.
[bcc6]8d b6 02STA a:CastMagic_XPos_Full; Store it.
;
; Check for collision/off-screen in the Left direction.
;
[bcc9]a2 00LDX #$00; 0 = Left
[bccb]20 8f bdJSR CastMagic_CheckDirection; Check for collision/off-screen in the left direction.
[bcce]ad b6 02LDA a:CastMagic_XPos_Full; Load the block X coordinate.
[bcd1]c9 f0CMP #$f0; Set C=0 if on-screen, 1 if off-screen (wrapped around).
[bcd3]60RTS
;
; The magic is moving right.
;
; Update the fractional X value based on the provided delta.
;
[bcd4]@_isRight:
[bcd4]ad b5 02LDA a:CastMagic_XPos_Frac; Load the fractional X coordinate.
[bcd7]18CLC
[bcd8]6d 74 03ADC a:Arg_DeltaX_Frac; Add the provided delta.
[bcdb]8d b5 02STA a:CastMagic_XPos_Frac; Store it.
;
; Now update the full X position.
;
[bcde]ad b6 02LDA a:CastMagic_XPos_Full; Load the full X coordinate.
[bce1]6d 75 03ADC a:Arg_DeltaX_Full; Add the delta.
[bce4]8d b6 02STA a:CastMagic_XPos_Full; Store it.
;
; Check for collision/off-screen in the Right direction.
;
[bce7]a2 01LDX #$01; X = Right
[bce9]20 8f bdJSR CastMagic_CheckDirection; Check for collision/off-screen in the right direction.
[bcec]ae b3 02LDX a:CastMagic_Type; X = Magic type.
[bcef]ad b6 02LDA a:CastMagic_XPos_Full; A = Full X position.
[bcf2]dd f6 bcCMP a:CAST_MAGIC_MAX_SCREEN_WIDTHS,X; Compare the X position to the off-screen X position, and set C as the result.
[bcf5]60RTS
[bcf6]CAST_MAGIC_MAX_SCREEN_WIDTHS:
[bcf6]f0.byte $f0; [0]:
[bcf7]f0.byte $f0; [1]:
[bcf8]e0.byte $e0; [2]:
[bcf9]f0.byte $f0; [3]:
[bcfa]f0.byte $f0; [4]:
;============================================================================
; Update magic's position in the Y direction.
;
; This will take the delta Y values and update the position
; accordingly.
;
; If the resulting position is off-screen or collides with
; something, the magic will be set to disperse.
;
; INPUTS:
;
Arg_DeltaY_Full:
; The full delta Y value to add/subtract.
;
;
Arg_DeltaY_Frac:
; The fractional delta Y value to add/subtract.
;
;
CastMagic_YPos_Full:
; The current block Y position.
;
;
CastMagic_YPos_Frac:
; The current fractional Y position.
;
;
CastMagic_Flags:
; Flag for the magic.
;
; OUTPUTS:
; C:
; 0 = The magic is on-screen
; 1 = The magic if off-scren.
;
;
CastMagic_YPos_Full:
; The updated block Y position.
;
;
CastMagic_YPos_Frac:
; The updated fractional Y position.
;
; CALLS:
;
CastMagic_CheckDirection
;
; XREFS:
;
CastMagic_UpdateTilte
;============================================================================
;
; The magic is moving upward.
;
; Update the fractional Y value based on the provided delta.
;
[bd00]ad b7 02LDA a:CastMagic_YPos_Frac; Load the fractional Y coordinate.
[bd03]38SEC
[bd04]ed 76 03SBC a:Arg_DeltaY_Frac; Subtract the provided delta value.
[bd07]8d b7 02STA a:CastMagic_YPos_Frac; Store as the new fractional Y coordinate.
;
; Now update the block Y value.
;
[bd0a]ad b8 02LDA a:CastMagic_YPos_Full; Load the block Y coordinate.
[bd0d]ed 77 03SBC a:Arg_DeltaY_Full; Subtract the provided delta value.
[bd10]8d b8 02STA a:CastMagic_YPos_Full; Store it.
;
; Check for collision/off-screen in the Up direction.
;
[bd13]a2 02LDX #$02; X = 2 (up)
[bd15]20 8f bdJSR CastMagic_CheckDirection; Check for collision/off-screen in the up direction.
[bd18]ad b8 02LDA a:CastMagic_YPos_Full; Load the block Y coordiante.
[bd1b]c9 f0CMP #$f0; Set C=0 if on-screen, 1 if off-screen.
[bd1d]60RTS
;
; The magic is moving downward.
;
; Update the fractional Y value based on the provided delta.
;
[bd1e]@_isMovingDown:
[bd1e]ad b7 02LDA a:CastMagic_YPos_Frac; Load the fractional Y coordinate.
[bd21]18CLC
[bd22]6d 76 03ADC a:Arg_DeltaY_Frac; Add the provided delta value.
[bd25]8d b7 02STA a:CastMagic_YPos_Frac; Store as the new fractional Y coordinate.
;
; Now update the block Y value.
;
[bd28]ad b8 02LDA a:CastMagic_YPos_Full; Load the block Y coordinate.
[bd2b]6d 77 03ADC a:Arg_DeltaY_Full; Subtract the provided delta value.
[bd2e]8d b8 02STA a:CastMagic_YPos_Full; Store it.
;
; Check for collision/off-screen in the Up direction.
;
[bd31]ad 76 03LDA a:Arg_DeltaY_Frac; Load the provided fractional Y delta.
[bd34]08PHP; Push flags to the stack.
[bd35]a2 03LDX #$03; X = 3 (down)
[bd37]20 8f bdJSR CastMagic_CheckDirection; Check for collision/off-screen in the down direction.
[bd3a]28PLP; Pop flags from the stack.
[bd3b]60RTS
;============================================================================
; Check if magic moving left should disperse.
;
; If the magic is off the screen, or hits something.
; magic will be set to disperse.
;
; INPUTS:
;
CastMagic_XPos_Full:
; The block X position of the magic spell.
;
; OUTPUTS:
;
Blocks_Result:
; 1 if magic should disperse.
; 0 if it can remain on screen.
;
;
Arg_PixelPosX:
; Clobbered.
;
; CALLS:
;
CastMagic_CheckDirection_CheckImpassable
;
; XREFS:
;
CastMagic_CheckDirection
;============================================================================
;
; v-- Fall through --v
;
;============================================================================
; Set a result stating magic should disperse.
;
; This is used as a utility by magic position checking
; functions.
;
; INPUTS:
; None.
;
; OUTPUTS:
;
Blocks_Result:
; Set to 1.
;
; XREFS:
;
CastMagic_CheckDirection_Right
;============================================================================
;============================================================================
; Check if magic moving right should disperse.
;
; If the magic is off the screen, or hits something.
; magic will be set to disperse.
;
; INPUTS:
;
CastMagic_XPos_Full:
; The block X position of the magic spell.
;
; OUTPUTS:
;
Blocks_Result:
; 1 if magic should disperse.
; 0 if it can remain on screen.
;
;
Arg_PixelPosX:
; Clobbered.
;
; CALLS:
;
CastMagic_CheckDirection_CheckImpassable
;
; XREFS:
;
CastMagic_CheckDirection
;============================================================================
;
; v-- Fall through --v
;
;============================================================================
; Check if the magic spell has hit an impassable block.
;
; This is called after checking a magic in an X direction.
; It will check the blocks overlapping the magic's sprite
; (middle block, then lower block, then upper, as
; appropriate) and set state if the spell has hit something.
;
; INPUTS:
;
Arg_PixelPosX:
; The previously-calculated pixel X position of the
; magic spell.
;
;
CastMagic_YPos_Full:
; The magic's full Y position.
;
; OUTPUTS:
;
Blocks_Result:
; 1 = The spell hit an impassable block.
; 0 = The spell did not.
;
;
Arg_PixelPosY:
; Clobbered.
;
; CALLS:
;
Area_ConvertPixelsToBlockPos
;
ScreenBuffer_IsBlockImpassable
;
; XREFS:
;
CastMagic_CheckDirection_Left
;============================================================================
;
; First, check if the block at middle Y position (at the
; previously-calculated X) is passable.
;
[bd58]ad b8 02LDA a:CastMagic_YPos_Full; A = Magic full Y position
[bd5b]85 b6STA Arg_PixelPosY; Store as the Y argument.
[bd5d]20 6c e8JSR Area_ConvertPixelsToBlockPos; Convert the pixels to a screen block lookup position.
[bd60]20 7c e8JSR ScreenBuffer_IsBlockImpassable; Check if the block is impassable.
[bd63]85 b7STA Blocks_Result; Set the tentative result accordingly.
[bd65]d0 27BNE @_return; If not passable, return the result.
;
; The block was passable. Check the block at the bottom
; of the magic's bounding box.
;
[bd67]ac b3 02LDY a:CastMagic_Type; Load the magic type.
[bd6a]b9 a9 bdLDA a:CAST_MAGIC_HEIGHTS,Y; Load the magic's height.
[bd6d]c9 10CMP #$10; Is the height >= 16 (more than one block)?
[bd6f]90 0cBCC @_checkTop; If so, jump.
[bd71]8aTXA; A = X (block position).
[bd72]18CLC
[bd73]69 10ADC #$10; Add 16 (next block).
[bd75]aaTAX; X = A (result)
[bd76]20 7c e8JSR ScreenBuffer_IsBlockImpassable; Check if the block is impassable.
[bd79]85 b7STA Blocks_Result; Store the tentative result.
[bd7b]d0 11BNE @_return; If not passable, return the result.
;
; The block was passable. Check the block at the top of
; the magic's bounding box.
;
[bd7d]@_checkTop:
[bd7d]ad b8 02LDA a:CastMagic_YPos_Full; Load the full Y position again.
[bd80]29 0fAND #$0f; Keep the lower nibble.
[bd82]f0 0aBEQ @_return; If it's 0, return the existing result.
[bd84]8aTXA; A = X (block position).
[bd85]18CLC
[bd86]69 10ADC #$10; Add 16 (next block).
[bd88]aaTAX; X = A (result)
[bd89]20 7c e8JSR ScreenBuffer_IsBlockImpassable; Check if the block is impassable.
[bd8c]85 b7STA Blocks_Result; Store the result.
[bd8e]@_return:
[bd8e]60RTS
;============================================================================
; Check for magic movement in a given direction.
;
; This will check if the magic spell is off-screen or has
; collided in a given direction.
;
; This really only checks left or right. While there is
; some (potentially left-over) logic for checking up or
; down, only left/right movement will trigger an off-screen
; or collide result.
;
; INPUTS:
; X:
; The direction to check:
;
; 0 = Left
; 1 = Right
; 2 = Up
; 3 = Down
;
; OUTPUTS:
;
Blocks_Result:
; 0 = Magic can remain on-screen.
; 1 = Magic should disperse.
;
; CALLS:
;
CastMagic_CheckDirection_Left
;
CastMagic_CheckDirection_Right
;
; XREFS:
;
CastMagic_UpdateXPosition
;
CastMagic_UpdateYPosition
;============================================================================
;
; See if we're checking magic moving left.
;
[bd8f]8aTXA; A = X (direction)
[bd90]f0 aaBEQ CastMagic_CheckDirection_Left; If moving left, jump to check.
;
; See if we're checking magic moving right.
;
[bd92]caDEX; X-- (shift the Right direction into Left for comparison).
[bd93]f0 b5BEQ CastMagic_CheckDirection_Right; If moving right, jump to check.
;
; See if we're checking magic moving up.
;
; But really, up or down gives the same result. Looks like
; there was intended to be code here handling Up and Down
; differently.
;
[bd95]caDEX; X-- (shift Up into Left).
[bd96]f0 00BEQ @_isUpOrDown; If up, jump to the very next instruction.
;
; The magic is moving up. Or down.
;
; It will never collide, so return a false result.
;
[bd98]@_isUpOrDown:
[bd98]a9 00LDA #$00; A = 0 (false result)
[bd9a]85 b7STA Blocks_Result; Store as the result.
[bd9c]60RTS
[bd9d]CAST_MAGIC_WIDTHS:
[bd9d]0f.byte $0f; [0]: Deluge
[bd9e]0f.byte $0f; [1]: Thunder
[bd9f]1f.byte $1f; [2]: Fire
[bda0]0f.byte $0f; [3]: Death
[bda1]0f.byte $0f; [4]: Tilte
[bda2]0f.byte $0f; [5]: Deluge after hit
[bda3]0f.byte $0f; [6]: Thunder after hit
[bda4]1f.byte $1f; [7]: Fire after hit
[bda5]0f.byte $0f; [8]: Death after hit
[bda6]0f.byte $0f; [9]: Unknown
[bda7]0f.byte $0f; [10]: Hit Wall effect (unused)
[bda8]0f.byte $0f; [11]: Tilte after hit
[bda9]CAST_MAGIC_HEIGHTS:
[bda9]0f.byte $0f; [0]: Deluge
[bdaa]1f.byte $1f; [1]: Thunder
[bdab]0f.byte $0f; [2]: Fire
[bdac]0f.byte $0f; [3]: Death
[bdad]0f.byte $0f; [4]: Tilte
[bdae]0f.byte $0f; [5]: Deluge after hit
[bdaf]1f.byte $1f; [6]: Thunder after hit
[bdb0]0f.byte $0f; [7]: Fire after hit
[bdb1]0f.byte $0f; [8]: Death after hit
[bdb2]0f.byte $0f; [9]: Unknown
[bdb3]0f.byte $0f; [10]: Hit Wall effect (unused)
[bdb4]0f.byte $0f; [11]: Tilte after hit
[bdb5]UNUSED_SPACE_PRG14:
[bdb5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bdbd]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bdc5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bdcd]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bdd5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bddd]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bde5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bded]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bdf5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bdfd]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be05]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be0d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be15]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be1d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be25]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be2d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be35]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be3d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be45]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be4d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be55]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be5d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be65]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be6d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be75]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be7d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be85]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be8d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be95]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[be9d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bea5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bead]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[beb5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bebd]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bec5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[becd]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bed5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bedd]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bee5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[beed]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bef5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[befd]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf05]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf0d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf15]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf1d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf25]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf2d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf35]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf3d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf45]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf4d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf55]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf5d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf65]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf6d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf75]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf7d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf85]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf8d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf95]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bf9d]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bfa5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bfad]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bfb5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bfbd]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bfc5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bfcd]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bfd5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bfdd]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bfe5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bfed]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bff5]ff ff ff ff ff ff ff ff.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; undefined
[bffd]ff ff ff.byte $ff,$ff,$ff; undefined