;============================================================================
; 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]INC a:SpriteUpdateCounter
;
; Begin the loop.
;
[800f]@_spritesLoop:; [$800f]
[800f]LDX #$07
;
; Process this sprite slot if it's populated with a
; valid sprite.
;
[8011]@_updateSpriteLoop:; [$8011]
[8011]STX a:CurrentSpriteIndex
[8014]LDA CurrentSprites_Entities,X
[8017]BMI @LAB_PRG14__8043
;
; The sprite at this index has a valid value, so proceed.
;
; We'll start by making sure that the elixir isn't set (again).
;
[8019]LDA a:Sprites_UpdatesPaused
[801c]BNE @_updateSpriteState
;
; The elixir is not active. Check if the sprite was hit.
;
[801e]LDA CurrentSprites_HitCounter,X
[8021]BNE @_handleHit
[8023]LDA CurrentSprites_HitByMagicBehavior,X
[8026]BMI @LAB_PRG14__802e
[8028]JSR Sprites_Maybe_UpdateHitByMagic
[802b]JMP @_updateSpriteState
[802e]@LAB_PRG14__802e:; [$802e]
[802e]JSR Sprites_UpdateBehavior
[8031]JSR Player_HitSpriteWithWeapon
[8034]JSR Sprite_CheckHitByCastMagic
[8037]JSR Sprite_GetBounds
[803a]JSR Player_CheckShieldHitByMagic
[803d]JSR CurrentSprite_CheckHitPlayer
[8040]@_updateSpriteState:; [$8040]
[8040]JSR CurrentSprite_UpdateState
[8043]@LAB_PRG14__8043:; [$8043]
[8043]LDX a:CurrentSpriteIndex
[8046]DEX
[8047]BPL @_updateSpriteLoop
[8049]LDA #$00
[804b]STA Sprites_PPUOffset
[804d]RTS
;
; 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]
[804e]DEC CurrentSprites_HitCounter,X
[8051]LDA CurrentSprites_Entities,X
;
; Check if this sprite is Tamazutsu, Pakukame, or Zorugeriru.
;
[8054]CMP #$2c
[8056]BEQ @_updateSpriteState
[8058]CMP #$30
[805a]BEQ @_updateSpriteState
[805c]CMP #$31
[805e]BEQ @_updateSpriteState
;
; It's not any of those.
;
[8060]LDA #$02
[8062]STA a:Arg_DeltaX_Full
[8065]LDA #$00
[8067]STA a:Arg_DeltaX_Frac
[806a]JSR Sprites_Something_SomethingAndMoveHoriz
[806d]JMP @_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]
[8151]LDY CurrentSprites_HitByMagicBehavior,X
[8154]BEQ @LAB_PRG14__8162
[8156]DEY
[8157]BEQ @LAB_PRG14__817a
[8159]DEY
[815a]BEQ @LAB_PRG14__8192
[815c]LDA #$ff
[815e]STA CurrentSprites_HitByMagicBehavior,X
[8161]RTS
[8162]@LAB_PRG14__8162:; [$8162]
[8162]LDA #$03
[8164]STA a:Arg_DeltaX_Full
[8167]LDA #$00
[8169]STA a:Arg_DeltaX_Frac
[816c]JSR Sprites_Something_SomethingAndMoveHoriz
[816f]DEC CurrentSprites_HitByMagicIFrames,X
[8172]BNE @LAB_PRG14__8179
[8174]LDA #$ff
[8176]STA CurrentSprites_HitByMagicBehavior,X
[8179]@LAB_PRG14__8179:; [$8179]
[8179]RTS
[817a]@LAB_PRG14__817a:; [$817a]
[817a]LDA #$02
[817c]STA a:Arg_DeltaX_Full
[817f]LDA #$00
[8181]STA a:Arg_DeltaX_Frac
[8184]JSR Sprites_Something_SomethingAndMoveHoriz
[8187]DEC CurrentSprites_HitByMagicIFrames,X
[818a]BNE @_return1
[818c]LDA #$ff
[818e]STA CurrentSprites_HitByMagicBehavior,X
[8191]@_return1:; [$8191]
[8191]RTS
[8192]@LAB_PRG14__8192:; [$8192]
[8192]LDA #$04
[8194]STA a:Arg_DeltaX_Full
[8197]LDA #$00
[8199]STA a:Arg_DeltaX_Frac
[819c]JSR Sprites_Something_SomethingAndMoveHoriz
[819f]BCC @_return2
[81a1]LDA #$ff
[81a3]STA CurrentSprites_HitByMagicBehavior,X
[81a6]@_return2:; [$81a6]
[81a6]RTS
;============================================================================
; TODO: Document Player_HitEnemyWithMagic
;
; INPUTS:
; X
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Sprite_CheckHitByCastMagic
;============================================================================
;
; This is Necron Aides. Set bit 7 on its phase.
;
[81ae]LDA CurrentSprites_Phases,X; Load the phase for Necron Aides.
[81b1]ORA #$80; Set bit 7.
[81b3]STA 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]
[81b6]LDA #$02; 2 == Enemy Hit With Magic sound effect
[81b8]JSR Sound_PlayEffect; Play it.
;
; Load the standard damage amount for the current spell.
;
[81bb]LDA MAGIC_DAMAGE,Y; Load the magic damage for the current spell.
[81be]STA Temp_00; Store it temporarily.
;
; Check if the player has the Magical Rod.
;
[81c0]LDA a:SpecialItems; Load the player's special items.
[81c3]AND #$04; Is the Magical Rod equipped?
[81c5]BEQ @_prepareCalcDefense
;
; The player has the Magical Rod.
;
; If they do, increase damage by 50%.
;
[81c7]LDA Temp_00; Load the magic damage for the spell.
[81c9]LSR A; Reduce that amount by half (we'll add it back).
[81ca]CLC
[81cb]ADC Temp_00; Now add it back to the magic damage (yielding a 50% increase).
[81cd]STA Temp_00; Store it.
[81cf]@_prepareCalcDefense:; [$81cf]
[81cf]LDA #$00
[81d1]STA Temp_Addr_L; Set the default magic defense flags to 0 (0%).
[81d3]STY 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]CPY #$00; Is the spell Deluge?
[81d7]BEQ @_reduceEnemyHP
;
; This is not the Deluge spell.
;
[81d9]LDY CurrentSprites_Entities,X; Load the entity that's been hit.
[81dc]LDA 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]
[81df]ASL A; Shift left, placing the most-significant bit into carry.
[81e0]ROL Temp_Addr_L; Rotate left, placing that into bit 0.
[81e2]ASL A; Shift left, placing the most-significant bit into carry.
[81e3]ROL Temp_Addr_L; Rotate left, placing that into bit 0.
[81e5]DEC Temp_01; Decrement the magic spell counter.
[81e7]BNE @_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]LDA Temp_Addr_L; Load the magic defense flags.
[81eb]AND #$03; Keep only bits 0 and 1.
[81ed]TAY; Transfer to Y.
[81ee]BEQ @_reduceEnemyHP; If flags are 0, there's no defense. Jump.
[81f0]LSR Temp_00; There's magic defense. Half the damage.
[81f2]DEY; Y-- (defense flags).
[81f3]BEQ @_reduceEnemyHP; If flags are 0, we're done. Jump.
[81f5]LSR Temp_00; Half the damage again (75% now).
[81f7]BEQ @_reduceEnemyHP; If 0 magic damage remains, we're done. Jump.
[81f9]LDA #$00; Ignore that 75%. Make it 100%. Why not.
[81fb]STA Temp_00; Save it.
;
; Subtract the magic damage from entity's HP.
;
[81fd]@_reduceEnemyHP:; [$81fd]
[81fd]LDA CurrentSprites_HP,X; Load the current HP for the entity being hit.
[8200]SEC
[8201]SBC Temp_00; Subtract the normalized magic damage.
[8203]STA CurrentSprites_HP,X; Store it back.
[8206]BCS RETURN_822D; If HP > 0, return.
;
; The entity is dead.
;
[8208]LDA CurrentSprites_Entities,X; Load the ID of this entity.
[820b]CMP #$18; Is this Sugata?
[820d]BNE @_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]LDA PPU_Mask; Load the screen color mode.
[8211]AND #$fe; Clear the greyscale bit.
[8213]STA PPU_Mask; Store it.
;
; Add experience from the sprite.
;
[8215]@_addExperience:; [$8215]
[8215]JSR Player_AddExperienceFromSprite; Add experience to the player.
;
; Play the killed enemy sound effect.
;
[8218]LDA #$03; 3 == Enemy Death sound effect
[821a]JSR Sound_PlayEffect; Play it.
;
; Check if this is a normal and big enemy. They need to be
; handled differently.
;
[821d]LDY CurrentSprites_Entities,X; Load the ID of this entity.
[8220]LDA SPRITE_CATEGORIES_BY_ENTITY,Y; Load the entity's category.
[8223]CMP #$07; Is it a boss?
[8225]BNE @_isSmallEnemy; If not, jump. It should be a small enemy.
;
; This is a big enemy. Handle cleanup specially.
;
[8227]JMP Sprite_ShowBigEnemyDeathByMagicOrWeapon; Show the boss death effect.
[822a]@_isSmallEnemy:; [$822a]
[822a]JMP Sprite_ShowNormalEnemyDeathByMagic; Show the standard enemy death effect.
[822d]RETURN_822D:; [$822d]
[822d]RTS
;============================================================================
; 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]
[82f8]LDA CurrentSprites_XPos_Full,X
[82fa]SEC
[82fb]SBC Player_PosX_Block
[82fd]BCS @LAB_PRG14__8312
[82ff]EOR #$ff
[8301]CLC
[8302]ADC #$01
[8304]CLC
[8305]LDY CurrentSprites_HitBoxTypes,X
[8308]SEC
[8309]SBC SPRITE_HITBOX_WIDTHS,Y
[830c]BCS @_returnTrue
[830e]LDA #$00
[8310]@_returnTrue:; [$8310]
[8310]CLC
[8311]RTS
[8312]@LAB_PRG14__8312:; [$8312]
[8312]SEC
[8313]SBC #$10
[8315]BCS @_return
[8317]LDA #$00
[8319]SEC
[831a]@_return:; [$831a]
[831a]RTS
[831b]Sprite_CalcDistanceYToPlayer:; [$831b]
[831b]LDA CurrentSprites_YPos,X
[831d]SEC
[831e]SBC Player_PosY
[8320]BCS @_return
[8322]EOR #$ff
[8324]CLC
[8325]ADC #$01
[8327]CLC
[8328]@_return:; [$8328]
[8328]RTS
;============================================================================
; 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]
[83a8]LDA CurrentSprites_BehaviorState_XFull,X
[83ab]STA a:Arg_DeltaX_Frac
[83ae]LDA CurrentSprites_BehaviorState_XFrac,X
[83b1]STA a:Arg_DeltaX_Full
[83b4]LDA CurrentSprites_BehaviorState_YFull,X
[83b7]STA a:Arg_DeltaY_Frac
[83ba]LDA CurrentSprites_BehaviorState_YFrac,X
[83bd]STA a:Arg_DeltaY_Full
[83c0]RTS
[83c1]Sprites_CalcHorizSpriteMovement:; [$83c1]
[83c1]STA a:Arg_DeltaX_Frac; Set pixels delta from A.
[83c4]LDA #$00; A = 0
[83c6]@_loop:; [$83c6]
[83c6]ASL a:Arg_DeltaX_Frac; Shift the pixels delta amount left.
[83c9]ROL A
[83ca]DEY
[83cb]BNE @_loop
[83cd]STA a:Arg_DeltaX_Full
[83d0]RTS
[83d1]Sprites_CalcVerticalSpriteMovement:; [$83d1]
[83d1]STA a:Arg_DeltaY_Frac
[83d4]LDA #$00
[83d6]@LAB_PRG14__83d6:; [$83d6]
[83d6]ASL a:Arg_DeltaY_Frac
[83d9]ROL A
[83da]DEY
[83db]BNE @LAB_PRG14__83d6
[83dd]STA a:Arg_DeltaY_Full
[83e0]RTS
[83e1]Sprites_CalcYFromGravity:; [$83e1]
[83e1]PHA
[83e2]AND SPRITE_BEHAVIOR_HOP_PEAK_TICKS,Y
[83e5]STA Temp_00
[83e7]PLA
[83e8]AND SPRITES_MAYBE_GRAVITY,Y
[83eb]BEQ @LAB_PRG14__83f4
[83ed]LDA SPRITE_BEHAVIOR_HOP_PEAK_TICKS,Y
[83f0]SEC
[83f1]SBC Temp_00
[83f3]RTS
[83f4]@LAB_PRG14__83f4:; [$83f4]
[83f4]LDA Temp_00
[83f6]RTS
[83f7]SPRITE_BEHAVIOR_HOP_PEAK_TICKS:; [$83f7]
[83f7].byte $ff; [0]:
[83f8].byte $7f; [1]:
[83f9].byte $3f; [2]:
[83fa].byte $1f; [3]:
[83fb].byte $0f; [4]:
[83fc].byte $07; [5]:
[83fd].byte $03; [6]:
[83fe].byte $01; [7]:
[83ff]SPRITES_MAYBE_GRAVITY:; [$83ff]
[83ff].byte $00; [0]:
[8400].byte $80; [1]:
[8401].byte $40; [2]:
[8402].byte $20; [3]:
[8403].byte $10; [4]:
[8404].byte $08; [5]:
[8405].byte $04; [6]:
[8406].byte $02; [7]:
;============================================================================
; TODO: Document BScript_Action_FlipXDirection
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
BSCRIPT_ACTIONS [$PRG14::a796]
;
SpriteBehavior_WalkForward
;============================================================================
[8410]BScript_Action_FlipYDirection:; [$8410]
[8410]LDA CurrentSprites_Flags,X
[8413]EOR #$80
[8415]STA CurrentSprites_Flags,X
[8418]RTS
[8419]Sprite_MoveHorizAndTurnAroundIfNeeded:; [$8419]
[8419]JSR Sprites_Something_SomethingAndMoveHoriz
[841c]BCC @_return
[841e]LDA CurrentSprites_Flags,X
[8421]EOR #$01
[8423]STA CurrentSprites_Flags,X
[8426]@_return:; [$8426]
[8426]RTS
[8427]Sprite_Maybe_TurnAroundIfAtScreenEdgeHoriz:; [$8427]
[8427]JSR Sprite_MoveForwardX
[842a]LDA CurrentSprites_XPos_Full,X
[842c]CMP #$f0
[842e]BCC @_returnFalse
[8430]LDA CurrentSprites_Flags,X
[8433]LSR A
[8434]LDA CurrentSprites_XPos_Full,X
[8436]AND #$f0
[8438]BCS @LAB_PRG14__843d
[843a]CLC
[843b]ADC #$10
[843d]@LAB_PRG14__843d:; [$843d]
[843d]STA CurrentSprites_XPos_Full,X
[843f]LDA CurrentSprites_Flags,X
[8442]EOR #$01
[8444]STA CurrentSprites_Flags,X
[8447]SEC
[8448]RTS
[8449]@_returnFalse:; [$8449]
[8449]CLC
[844a]RTS
;============================================================================
; MAYBE DEADCODE
;============================================================================
[844b]FUN_PRG14__844b:; [$844b]
[844b]JSR Sprite_Maybe_AddFacingPosX
[844e]LDA CurrentSprites_XPos_Full,X
[8450]CMP #$f0
[8452]BCC RETURN_846B
[8454]LDA CurrentSprites_Flags,X
[8457]LSR A
[8458]LDA CurrentSprites_XPos_Full,X
[845a]AND #$f0
[845c]BCS @LAB_PRG14__8461
[845e]CLC
[845f]ADC #$10
[8461]@LAB_PRG14__8461:; [$8461]
[8461]STA CurrentSprites_XPos_Full,X
[8463]LDA CurrentSprites_Flags,X
[8466]EOR #$01
[8468]STA CurrentSprites_Flags,X
[846b]RETURN_846B:; [$846b]
[846b]RTS
;============================================================================
; TODO: Document Sprite_Maybe_AddFacingPosX
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
FUN_PRG14__844b
;============================================================================
;============================================================================
; MAYBE DEADCODE
;============================================================================
[848a]FUN_PRG14__848a:; [$848a]
[848a]LDA #$00
[848c]STA a:Arg_DeltaX_Frac
[848f]LDA #$01
[8491]STA a:Arg_DeltaX_Full
;
; v-- Fall through --v
;
[8494]Sprites_Something_SomethingAndMoveHoriz:; [$8494]
[8494]JSR Sprite_MoveForwardX
[8497]JMP MoveSpriteHorizIfPossible
[849a]Sprite_MoveForwardX:; [$849a]
[849a]LDA CurrentSprites_Flags,X; Load the sprite's flags.
[849d]LSR A; Shift the "Facing Right" bit into Carry.
[849e]BCS Sprite_AddPosX; If Carry is set, add to X. Else, fall through to subtract.
;
; v-- Fall through --v
;
[84a0]Sprite_SubtractPosX:; [$84a0]
[84a0]LDA CurrentSprites_XPos_Frac,X; Load the fractional X position for the sprite entity.
[84a3]SEC
[84a4]SBC a:Arg_DeltaX_Frac; Subtract the provided value.
[84a7]STA CurrentSprites_XPos_Frac,X; Store it.
[84aa]LDA CurrentSprites_XPos_Full,X; Load the block X position for the sprite entity.
[84ac]SBC a:Arg_DeltaX_Full; Subtract the provided value.
[84af]STA CurrentSprites_XPos_Full,X; Store it.
[84b1]RTS
[84b2]Sprite_AddPosX:; [$84b2]
[84b2]LDA CurrentSprites_XPos_Frac,X; Load the fractional X position for the sprite entity.
[84b5]CLC
[84b6]ADC a:Arg_DeltaX_Frac; Add the provided value.
[84b9]STA CurrentSprites_XPos_Frac,X; Store it.
[84bc]LDA CurrentSprites_XPos_Full,X; Load the block X position for the sprite entity.
[84be]ADC a:Arg_DeltaX_Full; Add the provided value.
[84c1]STA CurrentSprites_XPos_Full,X; Store it.
[84c3]RTS
[84c4]MoveSpriteHorizIfPossible:; [$84c4]
[84c4]TYA
[84c5]PHA
[84c6]LDA CurrentSprites_Flags,X; Load the sprite flags.
[84c9]AND #$01
[84cb]TAX
[84cc]JSR CurrentSprite_CanMoveInDirection; Check if this sprite can move at all
[84cf]LDA Blocks_Result; Load the current block properties
[84d1]BEQ @_cannotMove; If 0, it cannot move
[84d3]LDX a:CurrentSpriteIndex; Load the current sprite
[84d6]LDA CurrentSprites_Flags,X; Load the sprite's flags.
[84d9]AND #$01
[84db]TAY
[84dc]LDA CurrentSprites_XPos_Full,X; Load the X coordinate of the sprite
[84de]AND #$f0; Grab the X pos (top nibble)
[84e0]CPY #$01
[84e2]BCS @_updateHorizPos
[84e4]CLC
[84e5]ADC #$10; Add 1 to the block X position
[84e7]@_updateHorizPos:; [$84e7]
[84e7]STA CurrentSprites_XPos_Full,X; Store the block position for the sprite.
[84e9]PLA; Restore the original Y register.
[84ea]TAY
[84eb]SEC; C = 1 (moved, true result)
[84ec]RTS
[84ed]@_cannotMove:; [$84ed]
[84ed]PLA; Restore the registers
[84ee]TAY
[84ef]LDX a:CurrentSpriteIndex
[84f2]CLC; C = 0 (could not move, false result)
[84f3]RTS
;============================================================================
; MAYBE DEADCODE
;============================================================================
[84f4]DEADCODE_FUN_PRG14__84f4:; [$84f4]
[84f4]JSR Sprites_CanMoveDownByHitbox
[84f7]TAX
[84f8]BNE SpriteBehavior_RestoreXRegister
[84fa]LDX a:CurrentSpriteIndex
[84fd]JSR DEADCODE_Sprites_CanMoveDownBelowHitbox
[8500]TAX
[8501]BEQ SpriteBehavior_Something_850d
[8503]LDX a:CurrentSpriteIndex
[8506]RTS
;============================================================================
; 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]
[852e]LDX a:CurrentSpriteIndex
[8531]RTS
[8532]SPRITE_CHECK_PLACEMENT_X_OFFSETS_BY_FACING:; [$8532]
[8532].byte $00; [0]: 0 pixel movement
[8533].byte $0f; [1]: 15 pixel movement
;============================================================================
; TODO: Document DEADCODE_Sprites_CanMoveDownBelowHitbox
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
DEADCODE_FUN_PRG14__84f4
;============================================================================
[8543]Sprites_CanMoveDownByHitbox:; [$8543]
[8543]LDY CurrentSprites_HitBoxTypes,X; Load the hitbox type for the current sprite.
[8546]LDA CurrentSprites_YPos,X; Load the sprite's Y position.
[8548]CLC
[8549]ADC SPRITE_HITBOX_HEIGHTS,Y; Add the hitbox height.
;
; v-- Fall through --v
;
[854c]Sprites_CheckPlacementInvalidAtY:; [$854c]
;
; 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]STA Arg_PixelPosY; Store A as the Y argument for placement checks.
[854e]INC 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]LDA CurrentSprites_Flags,X; Load the sprite's flags.
[8553]AND #$01; Keep the Facing bit.
[8555]TAY; Transfer to Y.
[8556]LDA CurrentSprites_XPos_Full,X; Load the sprite's X position.
[8558]CLC
[8559]ADC SPRITE_CHECK_PLACEMENT_X_OFFSETS_BY_FACING,Y; Add an offset based on the facing bit.
[855c]STA 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]JSR Area_ConvertPixelsToBlockPos; Convert the pixels to a block position.
[8561]JMP Area_IsBlockImpassableOrLadder; Check if the result is either impassable or a ladder.
[8564]Sprite_MoveVertAndFlipIfNeeded:; [$8564]
[8564]JSR Sprite_CalculateNewVertPos
[8567]JSR MoveSpriteVerticalIfPossible
[856a]BCC @_return
[856c]LDA CurrentSprites_Flags,X
[856f]EOR #$80
[8571]STA CurrentSprites_Flags,X
[8574]@_return:; [$8574]
[8574]RTS
;============================================================================
; TODO: Document MoveSpriteVerticalIfPossible
;
; INPUTS:
; X
;
; OUTPUTS:
; C
;
; XREFS:
;
Sprite_MoveVertAndFlipIfNeeded
;
Sprite_MoveVertical
;============================================================================
[859c]Sprite_Maybe_TurnAroundIfAtScreenEdgeVert:; [$859c]
[859c]JSR Sprite_CalculateNewVertPos
[859f]JSR Sprite_CapToBlockOppositeFalling
[85a2]BCC @_return
[85a4]LDA CurrentSprites_Flags,X
[85a7]EOR #$80
[85a9]STA CurrentSprites_Flags,X
[85ac]@_return:; [$85ac]
[85ac]RTS
;============================================================================
; Move a sprite up or down based on the opposite of the falling flag.
;
; If the sprite is falling, the sprite's Y position will be
; kept on the same block, moving up if needed to the start
; of the block.
;
; If the sprite is rising, the sprite's Y position is moved
; to the top of the next block down.
;
; This is used in behavior code.
;
; INPUTS:
; X:
; The sprite index.
;
;
CurrentSprites_Flags:
; The sprite flags.
;
;
CurrentSprites_YPos:
; The sprite Y positions.
;
; OUTPUTS:
; C:
; 0 = Sitting at bottom of the screen.
; 1 = Capped to a block position.
;
;
CurrentSprites_YPos:
; The updated Y positions.
;
; XREFS:
;
Sprite_Maybe_TurnAroundIfAtScreenEdgeVert
;============================================================================
;
; Check if the Y position is at the bottom of the screen.
;
[85ad]LDA CurrentSprites_YPos,X; Load the sprite's Y position.
[85af]CMP #$e0; Is Y < 224?
[85b1]BCC @_return; If so, return.
;
; There's room to fall. Check if the sprite is falling.
;
[85b3]LDA CurrentSprites_Flags,X; Load the sprite's flags.
[85b6]ASL A; Shift the Falling flag into C.
[85b7]LDA CurrentSprites_YPos,X; A = Y position.
[85b9]AND #$f0; Round (floor) to a block position.
[85bb]BCS @_setY; If falling, jump to set the position as Y.
;
; The sprite is not falling. It's moving up.
;
[85bd]CLC; Else, clear carry.
[85be]ADC #$10; A += 16 (Y position)
;
; Set the resulting Y position for the sprite, and
; set C = 1 for the result.
;
[85c0]@_setY:; [$85c0]
[85c0]STA CurrentSprites_YPos,X; Set as the new Y position.
[85c2]SEC; Set C = 1.
[85c3]@_return:; [$85c3]
[85c3]RTS
[85c4]Sprite_MoveVertical:; [$85c4]
[85c4]JSR Sprite_CalculateNewVertPos
[85c7]JMP MoveSpriteVerticalIfPossible
[85ca]Sprite_CalculateNewVertPos:; [$85ca]
[85ca]LDA CurrentSprites_Flags,X; Load the sprite's flags.
[85cd]BMI @LAB_PRG14__85e1
[85cf]LDA CurrentSprites_YPos_Frac,X
[85d2]SEC
[85d3]SBC a:Arg_DeltaY_Frac
[85d6]STA CurrentSprites_YPos_Frac,X
[85d9]LDA CurrentSprites_YPos,X
[85db]SBC a:Arg_DeltaY_Full
[85de]STA CurrentSprites_YPos,X
[85e0]RTS
[85e1]@LAB_PRG14__85e1:; [$85e1]
[85e1]LDA CurrentSprites_YPos_Frac,X
[85e4]CLC
[85e5]ADC a:Arg_DeltaY_Frac
[85e8]STA CurrentSprites_YPos_Frac,X
[85eb]LDA CurrentSprites_YPos,X
[85ed]ADC a:Arg_DeltaY_Full
[85f0]STA CurrentSprites_YPos,X
[85f2]RTS
[85f3]LDX a:CurrentSpriteIndex
[85f6]LDA CurrentSprites_Flags,X
[85f9]AND #$01
[85fb]TAY
[85fc]LDA CurrentSprites_XPos_Full,X
[85fe]CLC
[85ff]ADC BYTE_ARRAY_PRG14__861d,Y
[8602]STA Arg_PixelPosX
[8604]LDY CurrentSprites_HitBoxTypes,X
[8607]LDA CurrentSprites_YPos,X
[8609]CLC
[860a]ADC SPRITE_HITBOX_HEIGHTS,Y
[860d]STA Arg_PixelPosY
[860f]INC Arg_PixelPosY
[8611]JSR Area_ConvertPixelsToBlockPos
[8614]JSR ScreenBuffer_IsBlockImpassable
[8617]STA Blocks_Result
[8619]LDX a:CurrentSpriteIndex
[861c]RTS
[861d]BYTE_ARRAY_PRG14__861d:; [$861d]
[861d].byte $00; [0]:
[861e].byte $0f; [1]:
[861f]Sprites_SetCurrentSpriteCanMove:; [$861f]
[861f]LDX a:CurrentSpriteIndex; X = Currently active sprite.
[8622]LDA CurrentSprites_Flags,X; A = Current sprite's flags.
[8625]AND #$02
[8627]BNE @LAB_PRG14__863d
[8629]JSR Sprites_CanMoveDownByHitbox
[862c]STA Blocks_Result
[862e]BNE @LAB_PRG14__863d
[8630]LDX a:CurrentSpriteIndex
[8633]LDA CurrentSprites_Flags,X
[8636]ORA #$04
[8638]STA CurrentSprites_Flags,X
[863b]SEC
[863c]RTS
[863d]@LAB_PRG14__863d:; [$863d]
[863d]LDX a:CurrentSpriteIndex
[8640]LDA CurrentSprites_Flags,X
[8643]AND #$fb
[8645]STA CurrentSprites_Flags,X
[8648]CLC
[8649]RTS
[864a]CurrentSprite_HandleFall:; [$864a]
[864a]LDX a:CurrentSpriteIndex; X = Currently active sprite.
[864d]LDA CurrentSprites_Flags,X; A = Current sprite's flags.
[8650]AND #$04; Can the sprite move?
[8652]BEQ @_done; If not, prepare to return.
;
; This sprite can move.
;
[8654]LDA CurrentSprites_YPos,X; A = Sprite's Y position.
[8656]CLC
[8657]ADC #$08; A += 8
[8659]STA CurrentSprites_YPos,X; Store as the new position.
[865b]CMP #$c0; Is this at the bottom of the screen?
[865d]BCS @_clearSprite; If so, jump to clear the sprite.
;
; Make the sprite fall, if it can.
;
[865f]LDX #$03; X = 3 (down direction)
[8661]JSR CurrentSprite_CanMoveInDirection; Can the sprite move down?
[8664]LDA Blocks_Result; A = result of that check.
[8666]BEQ @_done; If not, prepare to return.
;
; Move the sprite down.
;
[8668]LDX a:CurrentSpriteIndex; X = Currently active sprite.
[866b]LDA CurrentSprites_YPos,X; A = Sprite's Y position.
[866d]AND #$f0; Round to a block position (after the above += 8).
[866f]STA CurrentSprites_YPos,X; Store as the new position.
[8671]@_done:; [$8671]
[8671]LDX a:CurrentSpriteIndex; Restore the current sprite index.
[8674]RTS
[8675]@_clearSprite:; [$8675]
[8675]LDA #$ff
[8677]STA CurrentSprites_Entities,X
[867a]RTS
[867b]BScript_Action_FacePlayerX:; [$867b]
[867b]LDA Player_PosX_Block; Load the player's X position.
;
; Check if the player and sprite are in the same X position.
;
[867d]CMP CurrentSprites_XPos_Full,X; Compare to the sprite's X position.
[867f]BEQ @_return; If it's the same, return.
;
; Rotate the X position left one and take the right-most bit.
;
; This will effectively generate a flipping bit facing the
; left or right side of the screen, based on player position.
;
[8681]ROL A; Rotate the X position left.
[8682]AND #$01; And take the right-most bit for the facing bit.
[8684]STA Temp_00; Store it.
;
; Set the facing bit for the sprite.
;
[8686]LDA CurrentSprites_Flags,X; Load the sprite's flags.
[8689]AND #$fe; Clear the Facing Right bit.
[868b]ORA Temp_00; Set Facing Right depending on our rotate above.
[868d]STA CurrentSprites_Flags,X; Save it back out.
[8690]@_return:; [$8690]
[8690]RTS
[8691]BScript_Action_FacePlayerY:; [$8691]
[8691]LDA Player_PosY
;
; Check if the player and sprite are in the same Y position.
;
[8693]CMP CurrentSprites_YPos,X
[8695]BEQ @_return
;
; Rotate the Y position right one and take the left-most bit.
;
; This will effectively generate a flipping bit moving the Y
; direction up or down, based on player position.
;
[8697]ROR A
[8698]AND #$80
[869a]STA Temp_00
;
; Set the Y directinoal bit for the sprite.
;
[869c]LDA CurrentSprites_Flags,X; Load the sprite's flags.
[869f]AND #$7f; Clear the Falling bit.
[86a1]ORA Temp_00; Set the Falling bit based on the rotate above.
[86a3]STA CurrentSprites_Flags,X; Save it back out.
[86a6]@_return:; [$86a6]
[86a6]RTS
;============================================================================
; 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]LDA #$01
[86b7]STA Blocks_Result
[86b9]LDX a:CurrentSpriteIndex
[86bc]RTS
;============================================================================
; 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]
[8710]LDY a:CurrentSpriteIndex
[8713]TXA
[8714]BEQ FUN_PRG14__86bd
[8716]DEX
[8717]BEQ Sprites_MoveRight
[8719]DEX
[871a]BEQ @LAB_PRG14__8731
[871c]LDX CurrentSprites_HitBoxTypes,Y
[871f]LDA CurrentSprites_YPos,Y
[8722]CLC
[8723]ADC SPRITE_HITBOX_HEIGHTS,X
[8726]STA Arg_PixelPosY
[8728]CMP #$f0
[872a]BCC @LAB_PRG14__873a
[872c]@LAB_PRG14__872c:; [$872c]
[872c]LDA #$01
[872e]STA Blocks_Result
[8730]RTS
[8731]@LAB_PRG14__8731:; [$8731]
[8731]LDA CurrentSprites_YPos,Y
[8734]CMP #$f0
[8736]BCS @LAB_PRG14__872c
[8738]STA Arg_PixelPosY
[873a]@LAB_PRG14__873a:; [$873a]
[873a]LDA CurrentSprites_XPos_Full,Y
[873d]STA Arg_PixelPosX
[873f]JSR Area_ConvertPixelsToBlockPos
[8742]JSR ScreenBuffer_IsBlockImpassable
[8745]STA Blocks_Result
[8747]BNE @LAB_PRG14__8778
[8749]LDY a:CurrentSpriteIndex
[874c]LDA CurrentSprites_HitBoxTypes,Y
[874f]TAY
[8750]LDA SPRITE_HITBOX_WIDTHS,Y
[8753]STA Temp_HitBoxValue
[8755]@LAB_PRG14__8755:; [$8755]
[8755]LDA Temp_HitBoxValue
[8757]SEC
[8758]SBC #$10
[875a]STA Temp_HitBoxValue
[875c]BCC @LAB_PRG14__8768
[875e]INX
[875f]JSR ScreenBuffer_IsBlockImpassable
[8762]STA Blocks_Result
[8764]BNE @LAB_PRG14__8778
[8766]BEQ @LAB_PRG14__8755
[8768]@LAB_PRG14__8768:; [$8768]
[8768]LDY a:CurrentSpriteIndex
[876b]LDA CurrentSprites_XPos_Full,Y
[876e]AND #$0f
[8770]BEQ @LAB_PRG14__8778
[8772]INX
[8773]JSR ScreenBuffer_IsBlockImpassable
[8776]STA Blocks_Result
[8778]@LAB_PRG14__8778:; [$8778]
[8778]LDX a:CurrentSpriteIndex
[877b]RTS
;============================================================================
; TODO: Document Player_CheckShieldHitByMagic
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[877c]Player_CheckShieldHitByMagic:; [$877c]
[877c]LDA a:SelectedShield
[877f]CMP #$03
[8781]BCS RETURN_87CA
[8783]JSR Maybe_Player_CalcAnimFrame
[8786]SEC
[8787]SBC #$04
[8789]CMP #$03
[878b]BCC RETURN_87CA
[878d]LDX a:CurrentSpriteIndex
[8790]LDY CurrentSprites_Entities,X
[8793]CPY #$ff
[8795]BEQ RETURN_87CA
[8797]LDA SPRITE_CATEGORIES_BY_ENTITY,Y
[879a]CMP #$06
[879c]BNE RETURN_87CA
[879e]LDA a:SpriteBox_Width
[87a1]CLC
[87a2]ADC #$07
[87a4]STA Temp_00
[87a6]LDA a:Player_ShieldPositionX
[87a9]CLC
[87aa]ADC #$07
[87ac]SEC
[87ad]SBC a:SpriteBox_Left
[87b0]CMP Temp_00
[87b2]BCS RETURN_87CA
[87b4]LDA a:SpriteBox_Height
[87b7]CLC
[87b8]ADC #$0f
[87ba]STA Temp_00
[87bc]LDA a:Player_ShieldPositionY
[87bf]CLC
[87c0]ADC #$0f
[87c2]SEC
[87c3]SBC a:SpriteBox_Top
[87c6]CMP Temp_00
[87c8]BCC Player_HandleShieldHitByMagic
[87ca]RETURN_87CA:; [$87ca]
[87ca]RTS
;============================================================================
; 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]
[8804]JSR Sprites_IsSpriteHidden
;
; Check if the sprite is visible. If so, return.
;
[8807]BNE RETURN_87CA
[8809]LDA Player_Flags
[880b]BPL RETURN_87CA
[880d]LDY PlayerHitsPhaseCounter
[880f]DEY
[8810]CPY #$02
[8812]BCS RETURN_87CA
;
; Check if the player has a weapon. If not, return.
;
[8814]LDA a:Player_CurWeapon
[8817]BMI RETURN_87CA
[8819]LDX a:CurrentSpriteIndex
[881c]LDY CurrentSprites_Entities,X
;
; Check if the sprite being hit is an enemy. If not, return.
;
[881f]LDA SPRITE_CATEGORIES_BY_ENTITY,Y
[8822]BEQ @LAB_PRG14__8828
[8824]CMP #$07
[8826]BNE RETURN_87CA
[8828]@LAB_PRG14__8828:; [$8828]
[8828]LDA CurrentSprites_XPos_Full,X
[882a]STA a:Something_Maybe_WeaponDistanceX
[882d]LDA CurrentSprites_YPos,X
[882f]STA a:Something_Maybe_WeaponDistanceY
[8832]JSR Sprites_IsSpriteOutOfWeaponRange
[8835]BCC @LAB_PRG14__883a
;
; The sprite isn't within range. Return.
;
[8837]JMP @_return
[883a]@LAB_PRG14__883a:; [$883a]
[883a]LDA CurrentSprites_Entities,X
[883d]CMP #$05
[883f]BNE @LAB_PRG14__8849
;
; TODO: Figure out why Necron Aides get bit 7 set.
;
[8841]LDA CurrentSprites_Phases,X
[8844]ORA #$80
[8846]STA CurrentSprites_Phases,X
[8849]@LAB_PRG14__8849:; [$8849]
[8849]LDA #$02
;
; Play the Hit Enemy sound.
;
[884b]JSR Sound_PlayEffect
;
; Stop the player from walking.
;
[884e]LDA Player_Flags
[8850]AND #$df
[8852]STA Player_Flags
;
; Set the flags and hit counter for the sprite.
;
[8854]LDY #$00
[8856]AND #$40
[8858]BEQ @LAB_PRG14__885b
[885a]INY
[885b]@LAB_PRG14__885b:; [$885b]
[885b]STY Temp_00
[885d]LDA CurrentSprites_Flags,X
[8860]AND #$fe
[8862]ORA Temp_00
[8864]STA CurrentSprites_Flags,X
[8867]LDA #$08
[8869]STA CurrentSprites_HitCounter,X
[886c]LDY a:Player_CurWeapon
;
; Set the base strength of the equipped weapon.
;
[886f]LDA WEAPON_STRENGTHS,Y
[8872]STA Temp_00
[8874]LDA a:SpecialItems
;
; If there's no pendant equipped, increase weapon strength by 25%.
;
; This is the famous Pendant Bug. This should have been inversed. Oops.
;
[8877]AND #$02
[8879]BNE @_checkGlove
[887b]LDA Temp_00
[887d]LSR A
[887e]LSR A
[887f]CLC
[8880]ADC Temp_00
[8882]STA Temp_00
;
; If the player has the glove, add the strength of the
; glove based on the weapon strength.
;
; This is:
;
; Hand Dagger: 2HP
; Long Sword: 4HP
; Giant Blade: 8HP
; Dragon Slayer: 10HP
;
[8884]@_checkGlove:; [$8884]
[8884]LDA a:DurationGlove; Load the glove duration.
[8887]BMI @_updateSpriteHP; If it's no longer active, jump.
[8889]LDA Temp_00; Load the calculated weapon strength.
[888b]CLC
[888c]ADC WEAPON_TO_GLOVE_STRENGTH,Y; Add the glove strength for the current weapon.
[888f]STA Temp_00; Store as the new damage counter.
;
; Calculate the number of HP remaining for the enemy.
;
; We'll take the current HP, remove what we've calculated
; for the weapon strength.
;
[8891]@_updateSpriteHP:; [$8891]
[8891]LDA CurrentSprites_HP,X; Load the current HP for this enemy.
[8894]SEC
[8895]SBC Temp_00; Subtract the current damage.
[8897]STA CurrentSprites_HP,X; Store back as the enemy HP.
;
; Check if the sprite is still alive. If so, we're done.
;
[889a]BCS @_return; If the enemy is dead, we're done here.
;
; The sprite is dead, so begin handling post-death logic.
;
; Start by checking if this is Sugata. This is handled specially.
; When dead, the screen flashes.
;
[889c]LDA CurrentSprites_Entities,X
[889f]CMP #$18; Compare to Sugata.
[88a1]BNE @_handleEnemyGeneric; If not, jump.
;
; When Sugata dies, make sure we restore color.
;
; Sugata will flash the screen, and this prevents the screen
; from getting stuck in greyscale.
;
[88a3]LDA PPU_Mask; Load the current screen mode.
[88a5]AND #$fe; Clear bit 0, setting to greyscale.
[88a7]STA PPU_Mask; Store back as the screen mode.
[88a9]@_handleEnemyGeneric:; [$88a9]
[88a9]LDA #$03; Play sound #3.
;
; Play a sound for the enemy kill, reset state, and add
; experience.
;
[88ab]JSR Sound_PlayEffect
[88ae]LDA #$00
[88b0]STA CurrentSprites_HitCounter,X; Clear the hit counter for the dead enemy.
[88b3]JSR Player_AddExperienceFromSprite; Add experience for the current sprite.
;
; Check if we killed a standard enemy or a boss.
;
[88b6]LDY CurrentSprites_Entities,X; Load the type of this enemy.
[88b9]LDA SPRITE_CATEGORIES_BY_ENTITY,Y
[88bc]CMP #$07; Is this a big enemy?
[88be]BNE @LAB_PRG14__88c3; If not, jump.
;
; This was a big enemy (a boss).
;
[88c0]JMP Sprite_ShowBigEnemyDeathByMagicOrWeapon; Handle big enemy death cleanup.
;
; This was a standard enemy.
;
[88c3]@LAB_PRG14__88c3:; [$88c3]
[88c3]JMP Sprite_ShowNormalEnemyDeathByWeapon; Handle standard enemy death cleanup.
[88c6]@_return:; [$88c6]
[88c6]RTS
;============================================================================
; 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]LDA CurrentSprites_Entities,X
[88ce]ASL A
[88cf]TAY
[88d0]LDA MAYBE_SPRITE_EXTENTS,Y
[88d3]CLC
[88d4]ADC Maybe_WeaponRange_X
[88d6]STA Temp_00
[88d8]LDA PlayerPosXPlus10
[88da]CLC
;
; If that wasn't in range...
;
[88db]ADC Maybe_WeaponRange_X
[88dd]SEC
[88de]SBC a:Something_Maybe_WeaponDistanceX
[88e1]CMP Temp_00
[88e3]BCS @_return
;
; Check the distance in the Y direction between the
; weapon and the sprite.
;
[88e5]LDA MAYBE_SPRITE_EXTENTS_1_,Y
[88e8]CLC
[88e9]ADC Maybe_WeaponRange_Y
[88eb]STA Temp_00
[88ed]LDA Maybe_Something_WeaponPosY
[88ef]CLC
[88f0]ADC Maybe_WeaponRange_Y
[88f2]SEC
[88f3]SBC a:Something_Maybe_WeaponDistanceY
[88f6]CMP Temp_00
[88f8]BCS @_return
[88fa]@_return:; [$88fa]
[88fa]RTS
;============================================================================
; Handle touching an item.
;
; This will cause the player to pick up the sprite.
;
; INPUTS:
; A:
; The current sprite index.
;
;
CurrentSprites_Entities:
; The entities of the sprites on the scren.
;
; OUTPUTS:
;
CurrentSprites_Entities:
; The new entities of the sprites, with this
; sprite cleared.
;
; CALLS:
; Player_PickUp
;
; XREFS:
;
SPRITE_COLLISION_HANDLERS [$PRG14::8962]
;============================================================================
;
; Remove the item from the screen.
;
[8904]LDA #$ff; A = 0xFF (unset)
[8906]STA CurrentSprites_Entities,X; Set the entity at this sprite index as 0xFF.
[8909]RETURN_8909:; [$8909]
[8909]RTS
;============================================================================
; TODO: Document CurrentSprite_CheckHitPlayer
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[890a]CurrentSprite_CheckHitPlayer:; [$890a]
[890a]LDX a:CurrentSpriteIndex
[890d]LDA CurrentSprites_Entities,X
[8910]CMP #$ff
[8912]BEQ RETURN_8909
[8914]JSR Sprites_IsSpriteHidden
[8917]BNE RETURN_8998
[8919]LDA a:SpriteBox_Width
[891c]CLC
[891d]ADC #$0b
[891f]STA Temp_00
[8921]LDA Player_PosX_Block
[8923]CLC
[8924]ADC #$0b
[8926]SEC
[8927]SBC a:SpriteBox_Left
[892a]CMP Temp_00
[892c]BCS RETURN_8998
[892e]LDA a:SpriteBox_Height
[8931]CLC
[8932]ADC #$1b
[8934]STA Temp_00
[8936]LDA Player_PosY
[8938]CLC
[8939]ADC #$1b
[893b]SEC
[893c]SBC a:SpriteBox_Top
[893f]CMP Temp_00
[8941]BCS RETURN_8998
[8943]LDY CurrentSprites_Entities,X
[8946]LDA SPRITE_CATEGORIES_BY_ENTITY,Y
[8949]ASL A
[894a]TAY
[894b]CPY #$10
[894d]BCS Player_HandleCollision_NoOp
[894f]LDA SPRITE_COLLISION_HANDLERS+1,Y
[8952]PHA
[8953]LDA SPRITE_COLLISION_HANDLERS,Y
[8956]PHA
[8957]Player_HandleCollision_NoOp:; [$8957]
[8957]RTS
;============================================================================
; 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]LDA CurrentSprites_Entities,X; Load the entity for this sprite.
[896b]CMP #$01; Is it bread?
[896d]BEQ @_isBread; If so, jump.
;
; This is a gold coin.
;
[896f]LDA #$ff
[8971]STA CurrentSprites_Entities,X; Clear the sprite.
[8974]JMP Player_HandleTouchCoin; Handle touching the gold coin.
;
; This is bread.
;
[8977]@_isBread:; [$8977]
[8977]LDA #$ff
[8979]STA CurrentSprites_Entities,X; Clear the sprite.
[897c]JMP Player_HandleTouchBread; Handle touching the bread.
;============================================================================
; Handle pressing Up next to an NPC.
;
; This will invoke an IScript for the NPC if the player
; pressed Up.
;
; INPUTS:
; X:
; The index of the sprite.
;
;
Joy1_ChangedButtonMask:
; The newly-changed button mask.
;
;
CurrentSprites_Values:
; The values of the current sprites on screen.
;
; OUTPUTS:
;
CurrentSprite_Value:
; The value of the sprite.
;
; CALLS:
;
MMC1_LoadBankAndJump
;
; XREFS:
;
SPRITE_COLLISION_HANDLERS [$PRG14::895c]
;============================================================================
;
; Check if Up is pressed.
;
[897f]LDA Joy1_ChangedButtonMask; Load the changed button mask.
[8981]CMP #$08; Is Up pressed?
[8983]BNE RETURN_8998; If not, return.
;
; Up was pressed. Get the value for this sprite. This will
; be used to invoke the sprite's associated IScript.
;
[8985]LDA CurrentSprites_Values,X; Load the value for the sprite.
[8988]STA a:CurrentSprite_Value; Store it as the current value.
[898b]CMP #$ff; Is it 0xFF?
[898d]BEQ RETURN_8998; If so, return.
[898f]JSR MMC1_LoadBankAndJump; Execute the handler.
[8992].byte BANK_12_LOGIC; Bank = 12
[8993]pointer IScripts_Begin-1; Address = IScripts_Begin
[8995]@_afterFarJump:; [$8995]
[8995]LDX a:CurrentSpriteIndex; X = current sprite index
[8998]RETURN_8998:; [$8998]
[8998]RTS
;============================================================================
; Handle touching an enemy's magic.
;
; If the player is not invincible via iframes or Ointment,
; this will trigger the same damage process as if the
; player touched the enemy directly.
;
; INPUTS:
; X:
; The index of the sprite.
;
;
Player_InvincibilityPhase:
; The current invincibility phase of the player.
;
;
DurationOintment:
; The remaining duration of any ointment.
;
; OUTPUTS:
;
CurrentSprites_Entities:
; The new entities map with this sprite unset.
;
; CALLS:
;
Player_HandleTouchEnemy
;
; XREFS:
;
SPRITE_COLLISION_HANDLERS [$PRG14::8964]
;============================================================================
[89ae]Player_HandleTouchEnemy:; [$89ae]
;
; Check if the player currently has iframes.
;
[89ae]LDA Player_InvincibilityPhase; Load the invincibility phase.
[89b0]BEQ @_canTakeDamage; If no iframes are available, begin processing the hit.
[89b2]RTS; Else, return.
;
; Check if the player has Ointment active.
;
[89b3]@_canTakeDamage:; [$89b3]
[89b3]LDA a:DurationOintment; Check the ointment duration.
[89b6]BPL RETURN_89AD; If there's time left, no damage will be taken. Return.
;
; Process special enemy handling.
;
[89b8]LDA CurrentSprites_Entities,X; Load the sprite entity that hit the player.
[89bb]CMP #$05; Is it the Necron Aides?
[89bd]BNE @_handleDamage; If not, perform standard damage handling.
;
; This is the Necron Aides enemy.
;
[89bf]LDA CurrentSprites_Phases,X; Load the phase of the enemy.
[89c2]ORA #$80; Set the 7th bit.
[89c4]STA CurrentSprites_Phases,X; Store it.
;
; Play the sound effect and process damage.
;
[89c7]@_handleDamage:; [$89c7]
[89c7]LDA #$04
[89c9]JSR Sound_PlayEffect; Play the Player Hit sound.
[89cc]JSR Player_SetDamagedBySprite; Mark the player as damaged and set state.
[89cf]JMP Player_ApplyDamage; Apply damage.
[89d2].byte $60; [$89d2] byte
[89d3]SPRITES_FACING_VALUE_TO_OPPOSITE_PLAYER_FACING_BITMASK:; [$89d3]
[89d3].byte $40; [0]:
[89d4].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]LDA #$3c
[89d7]STA Player_InvincibilityPhase; Set iframes to 60.
;
; Set the player's facing direction to face the enemy.
;
[89d9]LDA CurrentSprites_Flags,X; Load the sprite's current flags.
[89dc]AND #$01; Grab the direction bit.
[89de]TAY; Set to Y.
[89df]LDA Player_Flags; Load the player's flags.
[89e1]AND #$bf; Unset the Facing Right bit.
[89e3]ORA SPRITES_FACING_VALUE_TO_OPPOSITE_PLAYER_FACING_BITMASK,Y; Set facing to the opposite of the sprite's.
[89e6]STA Player_Flags; Store it.
;
; Set knockback on the player.
;
[89e8]LDA Player_StatusFlag; Load the player's status flag.
[89ea]ORA #$02; Set knockback.
[89ec]STA Player_StatusFlag; Store it.
[89ee]RTS
;============================================================================
; Handle the player touching an NPC.
;
; This will invoke an IScript action when colliding
; with the NPC. It's used for the initial screen when
; approaching the walls of Eolis.
;
; INPUTS:
; X:
; The index of the sprite.
;
;
CurrentSprites_Values:
; The values of the current sprites on screen.
;
; OUTPUTS:
;
CurrentSprite_Value:
; The value of this sprite.
;
;
CurrentSprites_Entities:
; The entities of the current sprites on screen.
;
; CALLS:
;
MMC1_LoadBankAndJump
;
; XREFS:
;
SPRITE_COLLISION_HANDLERS [$PRG14::8960]
;============================================================================
;
; Clear this sprite.
;
[89ff]@_afterFarJump:; [$89ff]
[89ff]LDX a:CurrentSpriteIndex; X = current sprite index.
[8a02]LDA #$ff; A = 0xFF
[8a04]STA CurrentSprites_Entities,X; Set the entity at that index to 0xFF.
[8a07]RTS
;============================================================================
; TODO: Document Sprite_GetBounds
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;============================================================================
[8a08]Sprite_GetBounds:; [$8a08]
[8a08]LDA #$00
[8a0a]STA Temp_Addr_U
[8a0c]LDA CurrentSprites_Entities,X
[8a0f]ASL A
[8a10]ROL Temp_Addr_U
[8a12]ASL A
[8a13]ROL Temp_Addr_U
[8a15]ADC #$73
[8a17]STA Temp_Addr_L
[8a19]LDA Temp_Addr_U
[8a1b]ADC #$b2
[8a1d]STA Temp_Addr_U
[8a1f]LDA CurrentSprites_Entities,X
[8a22]CMP #$1f
[8a24]BEQ @LAB_PRG14__8a2e
[8a26]CMP #$20
[8a28]BEQ @LAB_PRG14__8a40
[8a2a]CMP #$21
[8a2c]BNE Sprite_SetBoundsFromTemp
[8a2e]@LAB_PRG14__8a2e:; [$8a2e]
[8a2e]LDA CurrentSprites_Phases,X
[8a31]CMP #$02
[8a33]BNE Sprite_SetBoundsFromTemp
[8a35]LDA #$71
[8a37]STA Temp_Addr_L
[8a39]LDA #$8a
[8a3b]STA Temp_Addr_U
[8a3d]JMP Sprite_SetBoundsFromTemp
[8a40]@LAB_PRG14__8a40:; [$8a40]
[8a40]LDA CurrentSprites_Phases,X
[8a43]BEQ @LAB_PRG14__8a49
[8a45]CMP #$04
[8a47]BNE Sprite_SetBoundsFromTemp
[8a49]@LAB_PRG14__8a49:; [$8a49]
[8a49]LDA #$75
[8a4b]STA Temp_Addr_L
[8a4d]LDA #$8a
[8a4f]STA Temp_Addr_U
[8a51]Sprite_SetBoundsFromTemp:; [$8a51]
[8a51]LDY #$00
[8a53]LDA CurrentSprites_XPos_Full,X
[8a55]CLC
[8a56]ADC (Temp_Addr_L),Y
[8a58]STA a:SpriteBox_Left
[8a5b]LDA CurrentSprites_YPos,X
[8a5d]CLC
[8a5e]INY
[8a5f]ADC (Temp_Addr_L),Y
[8a61]STA a:SpriteBox_Top
[8a64]INY
[8a65]LDA (Temp_Addr_L),Y
[8a67]STA a:SpriteBox_Width
[8a6a]INY
[8a6b]LDA (Temp_Addr_L),Y
[8a6d]STA a:SpriteBox_Height
[8a70]RTS
[8a71]SPRITE_GETBOUNDS_COMMON:; [$8a71]
[8a71].byte $30; [0]:
[8a72].byte $08; [1]:
[8a73].byte $f0; [2]:
[8a74].byte $00; [3]:
[8a75]SPRITE_GETBOUNDS_MASKMAN:; [$8a75]
[8a75].byte $20; [0]:
[8a76].byte $10; [1]:
[8a77].byte $f8; [2]:
[8a78].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]LDY a:SelectedArmor; Load the current armor.
[8a98]BEQ @_applyDamage; If it's 0 (leather), then jump.
[8a9a]CPY #$04; Is it > 4 (Battle Suit)?
[8a9c]BCS @_applyDamage; Then jump.
;
; Apply the armor's defense multiplier.
;
[8a9e]LDA ARMOR_DEFENSE_MULTIPLIERS,Y; Load the multiplier for this armor.
[8aa1]TAY; Y = A
[8aa2]@LAB_PRG14__8aa2:; [$8aa2]
[8aa2]LDA Temp_Addr_L
[8aa4]SEC
[8aa5]SBC Temp_04
[8aa7]STA Temp_Addr_L
[8aa9]LDA Temp_Addr_U
[8aab]SBC Temp_05
[8aad]STA Temp_Addr_U
[8aaf]DEY
[8ab0]BNE @LAB_PRG14__8aa2
[8ab2]@_applyDamage:; [$8ab2]
[8ab2]LDA Temp_Addr_L
[8ab4]STA a:Arg_PlayerHealthDelta_L
[8ab7]LDA Temp_Addr_U
[8ab9]STA a:Arg_PlayerHealthDelta_U
[8abc]LDA a:SpecialItems
[8abf]AND #$01
[8ac1]BEQ @LAB_PRG14__8ad4
[8ac3]LDA a:Arg_PlayerHealthDelta_L
[8ac6]SEC
[8ac7]SBC Temp_04
[8ac9]STA a:Arg_PlayerHealthDelta_L
[8acc]LDA a:Arg_PlayerHealthDelta_U
[8acf]SBC Temp_05
[8ad1]STA a:Arg_PlayerHealthDelta_U
[8ad4]@LAB_PRG14__8ad4:; [$8ad4]
[8ad4]JMP Player_ReduceHP
[8ad7]RETURN_8AD7:; [$8ad7]
[8ad7]RTS
;============================================================================
; Defense multipliers for each armor.
;
; XREFS:
;
Player_ApplyDamage
;============================================================================
[8adc]Sprite_CheckHitByCastMagic:; [$8adc]
;
; Check if there's a valid cast magic type on screen.
;
[8adc]LDA a:CastMagic_Type; Load the cast magic type.
[8adf]CMP #$05; Check against the supported magic types.
[8ae1]BCS RETURN_8AD7; If not, then return.
;
; Check if the currently-processed sprite is visible on screen.
;
[8ae3]LDX a:CurrentSpriteIndex; Get the current sprite.
[8ae6]JSR Sprites_IsSpriteHidden; Check if the sprite is visible.
[8ae9]BNE RETURN_8AD7; If not, return.
;
; Check the sprite type.
;
[8aeb]LDA CurrentSprites_Entities,X; Get the type of this sprite.
[8aee]CMP #$ff; Is it unset?
[8af0]BEQ RETURN_8AD7; If so, return.
;
; Check if this is either a standard or big enemy.
;
[8af2]TAY; Y = A (sprite type)
[8af3]LDA SPRITE_CATEGORIES_BY_ENTITY,Y; A = Category type of this sprite
[8af6]BEQ @_isEnemy; If it's a standard enemy, jump.
[8af8]CMP #$07; Check if it's a big enemy.
[8afa]BNE CastMagic_HitHandler_NoOp
;
; Check if the magic overlaps the sprite in the X direction.
;
[8afc]@_isEnemy:; [$8afc]
[8afc]LDY a:CastMagic_Type; Load the cast magic type.
[8aff]LDA CAST_MAGIC_HIT_WIDTHS,Y; Load the htbox width for the magic.
[8b02]STA Temp_01; Store that.
[8b04]LDY CurrentSprites_HitBoxTypes,X; Load the hitbox type for the sprite.
[8b07]LDA SPRITE_HITBOX_WIDTHS,Y; Get the width of the sprite.
[8b0a]CLC
[8b0b]ADC Temp_01; Add the hitbox width for this.
[8b0d]STA Temp_00; Store that.
[8b0f]LDA a:CastMagic_XPos_Full; Load the cast magic X position.
[8b12]CLC
[8b13]ADC Temp_01; Add the hitbox width.
[8b15]SEC
[8b16]SBC CurrentSprites_XPos_Full,X; Subtract the sprite X position.
[8b18]CMP Temp_00; Compare to the magic hitbox.
[8b1a]BCS CastMagic_HitHandler_NoOp; If it didn't overlap in the X position, return.
;
; Check if the magic overlaps the sprite in the Y direction.
;
[8b1c]LDY a:CastMagic_Type; Load the cast magic type.
[8b1f]LDA CAST_MAGIC_HIT_HEIGHTS,Y; Load the hitbox height of the magic.
[8b22]STA Temp_01; Store that.
[8b24]LDY CurrentSprites_HitBoxTypes,X; Load the hitbox type for the sprite.
[8b27]LDA SPRITE_HITBOX_HEIGHTS,Y; Get the height of the sprite.
[8b2a]CLC
[8b2b]ADC Temp_01; Add the hitbox height for this.
[8b2d]STA Temp_00; Store that.
[8b2f]LDA a:CastMagic_YPos_Full; Load the cast magic Y position.
[8b32]CLC
[8b33]ADC Temp_01; Add the hitbox height.
[8b35]SEC
[8b36]SBC CurrentSprites_YPos,X; Subtract the sprite Y position.
[8b38]CMP Temp_00; Compare to the magic hitbox.
[8b3a]BCS CastMagic_HitHandler_NoOp; If it didn't overlap in the Y position, return.
;
; The magic hit the sprite. Update state on the sprite.
;
[8b3c]LDY a:CastMagic_Type; Load the cast magic type.
[8b3f]LDA CAST_MAGIC_HIT_BEHAVIORS,Y; Load the hit behavior for the magic.
[8b42]STA CurrentSprites_HitByMagicBehavior,X; Store as the hit behavior for the sprite.
[8b45]LDA CAST_MAGIC_HIT_IFRAMES,Y; Load the hit behavior timeframe for the magic.
[8b48]STA CurrentSprites_HitByMagicIFrames,X; Store for the sprite.
;
; Update the sprite to face the direction the magic is facing.
;
[8b4b]LDA a:CastMagic_Flags; Load the cast magic flags.
[8b4e]ROL A; Get the facing direction of the magic.
[8b4f]ROL A
[8b50]ROL A
[8b51]AND #$01
[8b53]STA Temp_00; Store that.
[8b55]LDA CurrentSprites_Flags,X; Load the sprite's flags.
[8b58]AND #$fe; Clear the facing direction bit.
[8b5a]ORA Temp_00; Set it to match the magic's direction.
[8b5c]STA CurrentSprites_Flags,X; Store it back out.
;
; Give the player credit for hitting the enemy with magic.
;
[8b5f]LDY a:CastMagic_Type; Y = Cast magic type.
[8b62]JSR Player_HitEnemyWithMagic; Update player state.
;
; Load the magic hit sprite handler for this magic type.
;
[8b65]LDA a:CastMagic_Type; A = Cast magic type.
[8b68]ASL A; Update to a word boundary for the lookup table.
[8b69]TAY; Y = A
[8b6a]LDA CAST_MAGIC_HIT_HANDLERS+1,Y; Load the next address from the lookup table.
[8b6d]PHA
[8b6e]LDA CAST_MAGIC_HIT_HANDLERS,Y
[8b71]PHA
[8b72]CastMagic_HitHandler_NoOp:; [$8b72]
[8b72]RTS
;============================================================================
; 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]LDA a:Gold; Load the lower byte of the gold.
[8ba2]CLC
[8ba3]ADC CurrentSprites_Values,X; Add the value of the coin;
Set Carry = overflow.
[8ba6]STA a:Gold; Store as the lower byte.
;
; Update the middle byte of the gold.
;
[8ba9]LDA a:Gold_M; Load the middle byte for the gold.
[8bac]ADC #$00; Add with carry, set the carry bit if overflow.
[8bae]STA a:Gold_M; Store as the middle byte.
;
; Update the upper byte of the gold.
;
[8bb1]LDA a:Gold_U; Load the upper byte for the gold.
[8bb4]ADC #$00; Add with carry, set carry bit if overflow.
[8bb6]STA a:Gold_U; Store as the upper byte.
;
; Render and prepare to return.
;
[8bb9]JSR UI_DrawGoldValue; Render the new gold amount.
[8bbc]LDX a:CurrentSpriteIndex; Set X = current sprite index.
[8bbf]RTS
;============================================================================
; 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]LDX a:CurrentSpriteIndex; X = Current sprite index
[8bda]LDY CurrentSprites_Entities,X; Y = Current sprite entity
[8bdd]BMI @_return; If unset, return.
;
; Check if this sprite is specifically Tamazutsu. It hides and
; won't be affected when hidden.
;
[8bdf]CPY #$2c; Check the sprite against Tamazutsu.
[8be1]BEQ @_notTamazutsu; If not, handle the enemy normally.
;
; This is Tamazutsu. Check if it's visible or hiding.
;
[8be3]JSR Sprites_IsSpriteHidden
[8be6]BNE @_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]
[8be8]LDA CurrentSprites_HitCounter,X
[8beb]AND #$02
[8bed]BNE @_return
;
; Update sprite state.
;
[8bef]LDA CurrentSprites_XPos_Full,X
[8bf1]STA Arg_DrawSprite_PosX
[8bf3]LDA CurrentSprites_YPos,X
[8bf5]STA Arg_DrawSprite_PosY
[8bf7]LDA Screen_Maybe_ScrollXCounter
[8bf9]STA Unused_Sprite_ScrollPosX
[8bfb]LDA Player_Something_ScrollPosY
[8bfd]STA Unused_Sprite_ScrollPosY
[8bff]LDA CurrentSprites_PPUOffsets,X
[8c02]STA Sprites_PPUOffset
[8c04]JSR CurrentSprite_CalculateVisibility
[8c07]LDX a:CurrentSpriteIndex
[8c0a]LDA CurrentSprites_Entities,X
[8c0d]ASL A
[8c0e]TAY
[8c0f]LDA SPRITE_UPDATE_HANDLERS+1,Y
[8c12]PHA
[8c13]LDA SPRITE_UPDATE_HANDLERS,Y
[8c16]PHA
[8c17]@_return:; [$8c17]
[8c17]RTS
;============================================================================
; 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]LDA CurrentSprites_YPos,X
[8c23]STA Arg_PixelPosY
;
; Get the X position of the current sprite and store
; as an argument for the ConvertPixelsToBlockPos() call.
;
[8c25]LDA CurrentSprites_XPos_Full,X
[8c27]CLC
[8c28]ADC #$04
[8c2a]STA Arg_PixelPosX
;
; Convert to a block position.
;
[8c2c]JSR Area_ConvertPixelsToBlockPos
[8c2f]JSR ScreenBuffer_LoadBlockProperty
[8c32]CMP #$04
[8c34]BEQ @LAB_PRG14__8c3e
[8c36]CMP #$0d
[8c38]BEQ @LAB_PRG14__8c3e
[8c3a]CMP #$09
[8c3c]BNE @LAB_PRG14__8c44
[8c3e]@LAB_PRG14__8c3e:; [$8c3e]
[8c3e]LDA Temp_MovingSpriteVisibility
[8c40]ORA #$01
[8c42]STA Temp_MovingSpriteVisibility
[8c44]@LAB_PRG14__8c44:; [$8c44]
[8c44]LDX a:CurrentSpriteIndex
[8c47]LDA CurrentSprites_XPos_Full,X
[8c49]CLC
[8c4a]ADC #$0c
[8c4c]STA Arg_PixelPosX
[8c4e]JSR Area_ConvertPixelsToBlockPos
[8c51]JSR ScreenBuffer_LoadBlockProperty
[8c54]CMP #$04
[8c56]BEQ @LAB_PRG14__8c60
[8c58]CMP #$0d
[8c5a]BEQ @LAB_PRG14__8c60
[8c5c]CMP #$09
[8c5e]BNE @LAB_PRG14__8c66
[8c60]@LAB_PRG14__8c60:; [$8c60]
[8c60]LDA Temp_MovingSpriteVisibility
[8c62]ORA #$02
[8c64]STA Temp_MovingSpriteVisibility
[8c66]@LAB_PRG14__8c66:; [$8c66]
[8c66]LDX a:CurrentSpriteIndex
[8c69]LDA CurrentSprites_Flags,X
[8c6c]AND #$01
[8c6e]BEQ @LAB_PRG14__8c7d
[8c70]LDA Temp_MovingSpriteVisibility
[8c72]BEQ Something_SetDAT26
[8c74]CMP #$03
[8c76]BEQ Something_SetDAT26
[8c78]EOR #$03
[8c7a]JMP Something_SetDAT26
[8c7d]@LAB_PRG14__8c7d:; [$8c7d]
[8c7d]LDA Temp_MovingSpriteVisibility
[8c7f]Something_SetDAT26:; [$8c7f]
[8c7f]STA MovingSpriteVisibility
[8c81]RTS
[8c82]CurrentSprite_UpdateFlipMask:; [$8c82]
[8c82]LDA CurrentSprites_Flags,X; Load flags for this sprite.
[8c85]AND #$01; AND for the facing bit.
[8c87]TAY; Y = result
[8c88]LDA SPRITES_FACING_TO_FLIPMASK,Y; Load the bitmask from the mapping table.
[8c8b]STA CurrentSprite_FlipMask; Store it.
[8c8d]RTS
[8c8e]Sprite_EnterNextAppearancePhase:; [$8c8e]
[8c8e]CLC
[8c8f]LDY CurrentSprites_Entities,X
[8c92]ADC SPRITE_APPEARANCE_PHASE_OFFSETS,Y
[8c95]JMP Sprite_SetAppearanceAddrFromOffset
[8c98]SpriteUpdateHandler_Invisible:; [$8c98]
[8c98]LDA #$00
[8c9a]STA Sprites_PPUOffset
[8c9c]STA MovingSpriteVisibility
[8c9e]RTS
[8c9f]SPRITE_APPEARANCE_PHASE_OFFSETS:; [$8c9f]
[8c9f].byte $00; [0]:
[8ca0].byte $db; [1]: Dropped: Bread
[8ca1].byte $93; [2]: Dropped: Coin
[8ca2].byte $83; [3]: Enemy: ?
[8ca3].byte $01; [4]: Enemy: Raiden
[8ca4].byte $05; [5]: Enemy: Necron Aides
[8ca5].byte $07; [6]: Enemy: Zombie
[8ca6].byte $0a; [7]: Enemy: Hornet
[8ca7].byte $0c; [8]: Enemy: Bihoruda
[8ca8].byte $0e; [9]: Enemy: Lilith
[8ca9].byte $ef; [10]: Magic: ?
[8caa].byte $13; [11]: Enemy: Yuinaru
[8cab].byte $15; [12]: Enemy: Snowman
[8cac].byte $17; [13]: Enemy: Nash
[8cad].byte $1a; [14]: Enemy: Fire Giant
[8cae].byte $1d; [15]: Enemy: Ishiisu
[8caf].byte $21; [16]: Enemy: Execution Hood
[8cb0].byte $71; [17]: Boss: Rokusutahn
[8cb1].byte $6c; [18]: Boss: unused (round body of snake boss)
[8cb2].byte $a9; [19]: Effect: Enemy death
[8cb3].byte $a9; [20]: Effect: Lightning ball
[8cb4].byte $23; [21]: Enemy: Charron
[8cb5].byte $00; [22]: Enemy: ? (Unused)
[8cb6].byte $26; [23]: Enemy: Geributa
[8cb7].byte $29; [24]: Enemy: Sugata
[8cb8].byte $2b; [25]: Enemy: Grimlock
[8cb9].byte $2f; [26]: Enemy: Giant Bees
[8cba].byte $31; [27]: Enemy: Myconid
[8cbb].byte $33; [28]: Enemy: Naga
[8cbc].byte $35; [29]: Enemy: Skeleton Knight (unused)
[8cbd].byte $39; [30]: Enemy: Giant Strider
[8cbe].byte $3c; [31]: Enemy: Sir Gawaine
[8cbf].byte $3f; [32]: Enemy: Maskman
[8cc0].byte $44; [33]: Enemy: Wolfman
[8cc1].byte $47; [34]: Enemy: Yareeka
[8cc2].byte $49; [35]: Enemy: Magman
[8cc3].byte $4b; [36]: Enemy: Curly-tailed guy with spear (unused)
[8cc4].byte $00; [37]: Enemy: ? (unused)
[8cc5].byte $4f; [38]: Enemy: Ikeda
[8cc6].byte $52; [39]: Enemy: Muppet guy (unused)
[8cc7].byte $54; [40]: Enemy: Lamprey
[8cc8].byte $00; [41]: Enemy: ? (unused)
[8cc9].byte $58; [42]: Enemy: Monodron
[8cca].byte $5b; [43]: Enemy: Winged skeleton (unused)
[8ccb].byte $5d; [44]: Enemy: Tamazutsu
[8ccc].byte $79; [45]: Boss: Ripasheiku
[8ccd].byte $75; [46]: Boss: Zoradohna
[8cce].byte $64; [47]: Boss: Borabohra
[8ccf].byte $7d; [48]: Boss: Pakukame
[8cd0].byte $83; [49]: Boss: Zorugeriru
[8cd1].byte $80; [50]: Boss: King Grieve
[8cd2].byte $89; [51]: Boss: Shadow Eura
[8cd3].byte $ae; [52]: NPC: Walking Man 1
[8cd4].byte $b1; [53]: NPC: Blue lady (unused)
[8cd5].byte $b4; [54]: NPC: Child (unused)
[8cd6].byte $b7; [55]: NPC: Armor Salesman
[8cd7].byte $b9; [56]: NPC: Martial Artist
[8cd8].byte $bb; [57]: NPC: Guru
[8cd9].byte $bd; [58]: NPC: King
[8cda].byte $c1; [59]: NPC: Magic Teacher
[8cdb].byte $c3; [60]: NPC: Key Salesman
[8cdc].byte $c5; [61]: NPC: Smoking Man
[8cdd].byte $c7; [62]: NPC: Man in Chair
[8cde].byte $c9; [63]: NPC: Sitting Man
[8cdf].byte $cb; [64]: NPC: Meat Salesman
[8ce0].byte $cd; [65]: NPC: Lady in Blue Dress with Cup
[8ce1].byte $cf; [66]: NPC: Guard
[8ce2].byte $d1; [67]: NPC: Doctor
[8ce3].byte $d3; [68]: NPC: Walking Woman 1
[8ce4].byte $d5; [69]: NPC: Walking Woman 2
[8ce5].byte $d7; [70]: Enemy: Eyeball (unused)
[8ce6].byte $d9; [71]: Enemy: Zozura
[8ce7].byte $dc; [72]: Item: Glove
[8ce8].byte $dd; [73]: Item: Black Onyx
[8ce9].byte $de; [74]: Item: Pendant
[8cea].byte $df; [75]: Item: Red Potion
[8ceb].byte $e0; [76]: Item: Poison
[8cec].byte $e1; [77]: Item: Elixir
[8ced].byte $e2; [78]: Item: Ointment
[8cee].byte $00; [79]: Trigger: Intro
[8cef].byte $e3; [80]: Item: Mattock
[8cf0].byte $f1; [81]: Magic: ?
[8cf1].byte $e8; [82]: Effect: Fountain
[8cf2].byte $f3; [83]: Magic: ?
[8cf3].byte $95; [84]: Magic: Enemy Fireball
[8cf4].byte $f6; [85]: Item: Wing Boots
[8cf5].byte $f7; [86]: Item: Hour Glass
[8cf6].byte $f8; [87]: Item: Magical Rod
[8cf7].byte $f9; [88]: Item: Battle Suit
[8cf8].byte $fa; [89]: Item: Battle Helmet
[8cf9].byte $fb; [90]: Item: Dragon Slayer
[8cfa].byte $e3; [91]: Item: Mattock
[8cfb].byte $f6; [92]: Item: Wing Boots (from quest)
[8cfc].byte $df; [93]: Item: Red Potion
[8cfd].byte $e0; [94]: Item: Poison
[8cfe].byte $dc; [95]: Item: Glove
[8cff].byte $e2; [96]: Item: Ointment
[8d00].byte $e8; [97]: Effect: Spring of Trunk
[8d01].byte $e8; [98]: Effect: Spring of Sky
[8d02].byte $e8; [99]: Effect: Spring of Tower
[8d03].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]
[8fd7]LDA #$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]
[9513]JSR CurrentSprite_UpdateFlipMask
[9516]LDA CurrentSprites_Phases,X
[9519]JMP 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]
[9ac6]LDA #$80
[9ac8]STA CurrentSprites_Phases,X
[9acb]LDA #$00
[9acd]STA CurrentSprites_BehaviorData2,X
[9ad0]STA CurrentSprites_BehaviorData3,X
[9ad3]LDA CurrentSprites_YPos,X
[9ad5]SEC
[9ad6]SBC #$30
[9ad8]STA a:Sprite12BodyPartHandler_5_
[9adb]RTS
;============================================================================
; 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]
[a0f6]JSR Sprites_HasMaxOnScreen
[a0f9]BCS @_return
[a0fb]LDA #$0a
[a0fd]STA CurrentSprites_Entities,Y
[a100]LDA a:CurrentSprite_Arg_CastMagicX
[a103]STA CurrentSprites_XPos_Full,Y
[a106]LDA a:CurrentSprite_Arg_CastMagicY
[a109]STA CurrentSprites_YPos,Y
[a10c]LDA CurrentSprites_Flags,X
[a10f]AND #$01
[a111]STA CurrentSprites_Flags,Y
[a114]LDA #$80
[a116]STA CurrentSprites_PPUOffsets,Y
[a119]JMP Sprite_Maybe_ResetState
[a11c]@_return:; [$a11c]
[a11c]RTS
;============================================================================
; 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]
[a1cc]JSR Sprites_HasMaxOnScreen
[a1cf]BCS @_return
[a1d1]LDA #$54
[a1d3]STA CurrentSprites_Entities,Y
[a1d6]LDA a:CurrentSprite_Arg_CastMagicX
[a1d9]STA CurrentSprites_XPos_Full,Y
[a1dc]LDA a:CurrentSprite_Arg_CastMagicY
[a1df]STA CurrentSprites_YPos,Y
[a1e2]LDA CurrentSprites_Flags,X
[a1e5]AND #$01
[a1e7]ORA #$80
[a1e9]STA CurrentSprites_Flags,Y
[a1ec]LDA #$00
[a1ee]STA CurrentSprites_PPUOffsets,Y
[a1f1]JMP Sprite_Maybe_ResetState
[a1f4]@_return:; [$a1f4]
[a1f4]RTS
;============================================================================
; TODO: Document SpriteUpdateHandler_EnemyMagic
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::812f]
;============================================================================
[a202]Sprite_Maybe_ResetState:; [$a202]
[a202]TXA
[a203]PHA
[a204]LDA CurrentSprites_Entities,Y
[a207]ASL A
[a208]TAX
[a209]LDA SPRITE_BSCRIPTS,X
[a20c]STA CurrentSprites_BehaviorAddrs_L,Y
[a20f]LDA SPRITE_BSCRIPTS+1,X
[a212]STA CurrentSprites_BehaviorAddrs_U,Y
[a215]LDA #$ff
[a217]STA CurrentSprites_Behaviors,Y
[a21a]STA CurrentSprites_HitByMagicBehavior,Y
[a21d]LDX CurrentSprites_Entities,Y
[a220]LDA SPRITE_ENTITIES_HITBOX_TYPES,X
[a223]STA CurrentSprites_HitBoxTypes,Y
[a226]LDA #$00
[a228]STA CurrentSprites_Phases,Y
[a22b]LDA CurrentSprites_Flags,Y
[a22e]AND #$bf
[a230]STA CurrentSprites_Flags,Y
[a233]PLA
[a234]TAX
[a235]RTS
[a236]Sprites_HasMaxOnScreen:; [$a236]
[a236]LDY #$07; Y = 7 (our loop counter)
[a238]@_loop:; [$a238]
[a238]LDA CurrentSprites_Entities,Y; A = sprite entity at X
[a23b]CMP #$ff; Is it 0xFF (unpopulated)?
[a23d]BNE @_isPopulated; If not, jump to prepare the next loop.
;
; There's an unpopulated sprite. Return a false result.
;
[a23f]CLC; Set C = 0
[a240]RTS; And return it.
[a241]@_isPopulated:; [$a241]
[a241]DEY; Y--
[a242]BPL @_loop; If >= 0, loop.
;
; All slots are populated. Return a true result.
;
[a244]SEC; Set C = 1
[a245]RTS; 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]
[a26b]JSR CurrentSprite_UpdateFlipMask
[a26e]LDY #$00
[a270]LDA CurrentSprites_Phases,X
[a273]CMP #$02
[a275]BEQ @LAB_PRG14__a280
[a277]LDA a:SpriteUpdateCounter
[a27a]LSR A
[a27b]LSR A
[a27c]LSR A
[a27d]AND #$03
[a27f]TAY
[a280]@LAB_PRG14__a280:; [$a280]
[a280]LDA BYTE_ARRAY_PRG14__a286,Y
[a283]JMP Sprite_EnterNextAppearancePhase
[a286]BYTE_ARRAY_PRG14__a286:; [$a286]
[a286].byte $00; [0]:
[a287].byte $01; [1]:
[a288].byte $00; [2]:
[a289].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]
[a2e7]LDA #$40
[a2e9]STA CurrentSprite_FlipMask
;
; v-- Fall through --v
;
[a2eb]FUN_PRG14__a2eb:; [$a2eb]
[a2eb]LDA a:SpriteUpdateCounter
[a2ee]LSR A
[a2ef]LSR A
[a2f0]LSR A
[a2f1]LSR A
[a2f2]AND #$01
[a2f4]JMP Sprite_EnterNextAppearancePhase
;============================================================================
; TODO: Document SpriteUpdateHandler_NPC_Doctor
;
; INPUTS:
; X
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SPRITE_UPDATE_HANDLERS [$PRG14::810d]
;============================================================================
[a2fe]SpriteUpdateHandler_NPC_MeatSalesman_Others:; [$a2fe]
[a2fe]JSR CurrentSprite_UpdateFlipMask
[a301]JMP 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]
[a30a]LDA #$00
[a30c]STA CurrentSprite_FlipMask
[a30e]LDA #$00
[a310]JMP 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]
[a34b]LDA #$00
[a34d]STA CurrentSprite_FlipMask
[a34f]LDA #$00
[a351]JMP 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]
[a3b4]LDY #$07
[a3b6]@_loop:; [$a3b6]
[a3b6]LDA #$ff
[a3b8]STA CurrentSprites_Entities,Y
[a3bb]DEY
[a3bc]BPL @_loop
[a3be]RTS
;============================================================================
; 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]
[a510]JSR Sprites_HasAnyEnemyOnScreen; Are there any enemies on screen?
[a513]BCC @_hideSprite; If so, jump to hide the sprite.
[a515]JMP Sprite_SetVisible; Else, show the sprite.
[a518]@_hideSprite:; [$a518]
[a518]JMP Sprites_HideSprite; Hide the sprite.
[a51b]Sprites_MaybeResetPhaseAndEnable:; [$a51b]
[a51b]LDA #$00
[a51d]STA CurrentSprites_Phases,X
[a520]JMP Sprite_SetBehaviorReady
[a523]Sprites_Remove:; [$a523]
[a523]LDA #$ff
[a525]STA CurrentSprites_Entities,X; Unset the sprite entity.
[a528]RTS
[a529]Screen_Is3Of4Visits:; [$a529]
[a529]INC a:Screen_TrackedVisitCount; Increment the visit count.
[a52c]LDA a:Screen_TrackedVisitCount; Load it.
[a52f]CMP #$04; Is it < 4?
[a531]BCC @_returnTrue; If so, jump to return true.
[a533]LDA #$00; Else, reset the track to 0.
[a535]STA a:Screen_TrackedVisitCount; And store as the new count.
[a538]CLC; Set C = 0 (false result).
[a539]RTS
[a53a]@_returnTrue:; [$a53a]
[a53a]SEC; Set C = 1 (true result).
[a53b]RTS
;============================================================================
; 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]
[a59d]JSR Sprites_HideSprite
[a5a0]LDA CurrentSprites_Phases,X
[a5a3]BNE @LAB_PRG14__a5b0
[a5a5]INC CurrentSprites_Phases,X
[a5a8]LDA #$00
[a5aa]STA CurrentSprites_BehaviorData2,X
[a5ad]STA CurrentSprites_BehaviorData3,X
[a5b0]@LAB_PRG14__a5b0:; [$a5b0]
[a5b0]LDA CurrentSprites_Phases,X
[a5b3]CMP #$01
[a5b5]BNE Sprite_SetPhase2
[a5b7]INC CurrentSprites_BehaviorData3,X
[a5ba]LDA CurrentSprites_BehaviorData3,X
[a5bd]AND #$03
[a5bf]BNE RETURN_A5CB
[a5c1]INC CurrentSprites_BehaviorData2,X
[a5c4]LDA CurrentSprites_BehaviorData2,X
[a5c7]CMP #$04
[a5c9]BCS Sprite_SetPhase2
[a5cb]RETURN_A5CB:; [$a5cb]
[a5cb]RTS
;============================================================================
; 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]RTS
;
; Set the currently-processing sprite behavior address to
; the one from the current sprites map.
;
[a679]@LAB_PRG14__a679:; [$a679]
[a679]LDX a:CurrentSpriteIndex
[a67c]LDA CurrentSprites_BehaviorAddrs_L,X
[a67f]STA Sprites_ReadInfoAddr
[a681]LDA CurrentSprites_BehaviorAddrs_U,X
[a684]STA Sprites_ReadInfoAddr_U
[a686]JSR BScripts_LoadNextOp
[a689]LDA CurrentSprites_Behaviors,X
[a68c]ASL A
[a68d]TAY
[a68e]CPY #$84
[a690]BCS @_updateCurrentSprites
[a692]LDA #$a6
[a694]PHA
[a695]LDA #$a0
[a697]PHA
[a698]LDA SPRITE_BEHAVIORS+1,Y
[a69b]PHA
[a69c]LDA SPRITE_BEHAVIORS,Y
[a69f]PHA
[a6a0]RTS
;
; Update the map of current sprites to sprite behavior addresses
; with the updated address.
;
[a6a1]@_updateCurrentSprites:; [$a6a1]
[a6a1]LDX a:CurrentSpriteIndex
[a6a4]LDA Sprites_ReadInfoAddr
[a6a6]STA CurrentSprites_BehaviorAddrs_L,X
[a6a9]LDA Sprites_ReadInfoAddr_U
[a6ab]STA 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]
[a6af]LDA CurrentSprites_BehaviorArg1,X
[a6b2]BEQ SpriteBehavior_Return
[a6b4]DEC CurrentSprites_BehaviorArg1,X
[a6b7]BNE SpriteBehavior_Return
[a6b9]JMP Sprite_FinishBehavior
[a6bc]BScripts_LoadNextOp:; [$a6bc]
[a6bc]LDY #$00
[a6be]LDA (Sprites_ReadInfoAddr),Y
[a6c0]CMP #$ff
[a6c2]BEQ @LAB_PRG14__a6cf
[a6c4]ASL A
[a6c5]TAY
[a6c6]LDA BSCRIPT_OP_HANDLERS+1,Y
[a6c9]PHA
[a6ca]LDA BSCRIPT_OP_HANDLERS,Y
[a6cd]PHA
[a6ce]RTS
[a6cf]@LAB_PRG14__a6cf:; [$a6cf]
[a6cf]LDA CurrentSprites_Behaviors,X
[a6d2]AND #$7f
[a6d4]STA CurrentSprites_Behaviors,X
[a6d7]RTS
[a6d8]BSCRIPT_OP_HANDLERS:; [$a6d8]
[a6d8]pointer BScript_Op_SwitchBehavior-1; [0]:
[a6da]pointer BScript_Op_MaybeDisableAndGoTo-1; [1]:
[a6dc]pointer BScript_Op_RunAction-1; [2]:
[a6de]pointer BScript_Op_CheckDistanceToPlayer-1; [3]:
[a6e0]pointer BScript_Op_FinishBehavior-1; [4]:
[a6e2]pointer BScript_Op_GoTo-1; [5]:
[a6e4]pointer BScript_Op_AddToSpriteData-1; [6]:
[a6e6]pointer 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]
[a78c]LDA #$02
[a78e]JSR Sprites_IncrementScriptAddr
[a791]JMP BScripts_LoadNextOp
[a794]BSCRIPT_ACTIONS:; [$a794]
[a794]pointer BScript_Action_FacePlayerX-1; [0]: Face Player (X)
[a796]pointer BScript_Action_FlipXDirection-1; [1]: Flip X Direction
[a798]pointer BScript_Action_FacePlayerY-1; [2]: Face Player (Y)
[a79a]pointer BScript_Action_FlipYDirection-1; [3]: Flip Y Direction
[a79c]pointer BScript_Action_RandomlyFlipXDirection-1; [4]: Randomly Flip X Direction
[a79e]pointer BScript_Action_RandomlyFlipYDirection-1; [5]: Randomly Flip Y Direction
[a7a0]pointer BScript_Action_RiseUp-1; [6]: Rise Up
[a7a2]pointer 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]
[a7f8]LDA CurrentSprites_Behaviors,X; A = Sprite behavior
[a7fb]BPL @_checkDistance; If the behavior is ready, jump to check.
;
; The behavior is not ready, so skip this check and all
; arguments.
;
[a7fd]LDA #$07; 7 = bytes to skip.
[a7ff]JSR Sprites_IncrementScriptAddr; Skip them.
[a802]JMP 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]
[a805]JSR Sprite_CalcDistanceXToPlayer; Calculate the distance between the sprite and player.
[a808]LDY #$02; Y = 2 (op distance argument)
[a80a]CMP (Sprites_ReadInfoAddr),Y; Is distance < argument?
[a80c]BCC @_isLessThan; If so, jump.
;
; The calculated distance is >= the distance argument.
; Choose the second address.
;
[a80e]LDY #$04; Y = 4
[a810]INY; Y++ (5)
[a811]LDA (Sprites_ReadInfoAddr),Y; A = lower byte of jump address.
[a813]PHA; Push to the stack.
[a814]INY; Y++ (6)
[a815]LDA (Sprites_ReadInfoAddr),Y; A = upper byte of jump address.
[a817]STA Sprites_ReadInfoAddr_U; Store as the new upper byte of the read address.
[a819]PLA; Pop the lower byte.
[a81a]STA Sprites_ReadInfoAddr; Store as the new lower byte of the read address.
[a81c]RTS; Return.
;
; The calculated distance is < the distance argument.
; Choose the first address.
;
[a81d]@_isLessThan:; [$a81d]
[a81d]INY; Y++ (3)
[a81e]LDA (Sprites_ReadInfoAddr),Y; A = lower byte of jump address.
[a820]PHA; Push to the stack.
[a821]INY; Y++ (4)
[a822]LDA (Sprites_ReadInfoAddr),Y; A = upper byte of jump address.
[a824]STA Sprites_ReadInfoAddr_U; Store as the new upper byte of the read address.
[a826]PLA; Pop the lower byte.
[a827]STA Sprites_ReadInfoAddr; Store as the new lower byte of the read address.
[a829]RTS; Return.
[a82a]SpriteOp_CheckDistanceToPlayer_Y:; [$a82a]
[a82a]LDA CurrentSprites_Behaviors,X; A = Sprite behavior
[a82d]BPL @_checkDistance; If the behavior is ready, jump to check.
;
; The behavior is not ready, so skip this check and all
; arguments.
;
[a82f]LDA #$07; 7 = bytes to skip.
[a831]JSR Sprites_IncrementScriptAddr; Skip them.
[a834]JMP 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]
[a837]JSR Sprite_CalcDistanceYToPlayer; Calculate the distance between the sprite and player.
[a83a]LDY #$02; Y = 2 (op distance argument)
[a83c]CMP (Sprites_ReadInfoAddr),Y; Is distance < argument?
[a83e]BCC @_isLessThan; If so, jump.
;
; The calculated distance is >= the distance argument.
; Choose the first address.
;
[a840]LDY #$04; Y = 4 (byte before second address)
;
; Load the jump address for the script based on Y above.
;
[a842]@_isLessThan:; [$a842]
[a842]INY; Y++ (target jump address)
[a843]LDA (Sprites_ReadInfoAddr),Y; A = lower byte of jump address.
[a845]PHA; Push to the stack.
[a846]INY; Y++
[a847]LDA (Sprites_ReadInfoAddr),Y; A = upper byte of jump address.
[a849]STA Sprites_ReadInfoAddr_U; Store as the new upper byte of the read address.
[a84b]PLA; Pop the lower byte.
[a84c]STA Sprites_ReadInfoAddr; Store as the new lower byte of the read address.
[a84e]RTS; 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]LDY #$01; Y = 1 (argument 1, byte 1)
[a851]LDA (Sprites_ReadInfoAddr),Y; Load the lower byte.
[a853]STA Temp_Addr_L; Store as the lower byte of the address to write to.
[a855]INY; Y++ (argument 1, byte 2)
[a856]LDA (Sprites_ReadInfoAddr),Y; Load the upper byte.
[a858]STA Temp_Addr_U; Store as the upper byte of the address to write to.
;
; Load the value to set from parameter 2.
;
[a85a]INY; Y++ (argument 2)
[a85b]LDA (Sprites_ReadInfoAddr),Y; Load the value.
;
; Set the value in the address.
;
[a85d]PHA; Push the new value to the stack.
[a85e]TXA; A = X (sprite index)
[a85f]TAY; Y = A
[a860]PLA; Pop the new value from the stack.
[a861]CLC
[a862]ADC (Temp_Addr_L),Y; Add the value from the address to our argument value.
[a864]STA (Temp_Addr_L),Y; Store it as the new value.
;
; Jump to the next op and load it.
;
[a866]LDA #$04; A = 4 (number of bytes to skip)
[a868]JSR Sprites_IncrementScriptAddr; Skip over those bytes.
[a86b]JMP 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]
[a879]CLC; C = 0
[a87a]ADC Sprites_ReadInfoAddr; A = offset + lower byte of the behavior address
If overflow, C = 1
[a87c]STA Sprites_ReadInfoAddr; Store it.
[a87e]LDA Sprites_ReadInfoAddr_U; A = upper byte of the behavior address
[a880]ADC #$00; Add carry, if set.
[a882]STA Sprites_ReadInfoAddr_U; Store it.
[a884]RTS
[a885]Sprite_IsBehaviorNotReady:; [$a885]
[a885]LDA CurrentSprites_Flags,X; Load the sprite's flags.
[a888]AND #$40; Set Z = ready not set.
[a88a]RTS
[a88b]Sprite_SetBehaviorNotReady:; [$a88b]
[a88b]LDA CurrentSprites_Flags,X; Load the sprite's flags.
[a88e]AND #$bf; Clear the Ready flag.
[a890]STA CurrentSprites_Flags,X; Store it.
[a893]RTS
[a894]Sprite_SetBehaviorReady:; [$a894]
[a894]LDA CurrentSprites_Flags,X; Load the sprite's flags.
[a897]ORA #$40; Set the Ready flag.
[a899]STA CurrentSprites_Flags,X; Store it.
[a89c]RTS
;============================================================================
; MAYBE DEADCODE
;============================================================================
[a89d]CurrentSpriteFlags_SetBit5:; [$a89d]
[a89d]LDA CurrentSprites_Flags,X
[a8a0]ORA #$20
[a8a2]STA CurrentSprites_Flags,X
[a8a5]RTS
;============================================================================
; MAYBE DEADCODE
;============================================================================
[a8a6]Sprite_ClearFlags:; [$a8a6]
[a8a6]LDA #$00
[a8a8]STA CurrentSprites_Flags,X
[a8ab]RTS
[a8ac]Sprite_FinishBehavior:; [$a8ac]
[a8ac]JSR Sprite_SetBehaviorNotReady
[a8af]LDA CurrentSprites_Behaviors,X
[a8b2]ORA #$80
[a8b4]STA CurrentSprites_Behaviors,X
[a8b7]RTS
[a8b8]Sprite_GetPreviousSpritePhase:; [$a8b8]
[a8b8]LDA CurrentSprites_Phases,X; Load the current phase.
[a8bb]SEC
[a8bc]SBC #$01; Subtract 1
[a8be]RTS; Return the value.
[a8bf]Sprite_SetVisible:; [$a8bf]
[a8bf]LDA CurrentSprites_Flags,X; Load the sprite's flags.
[a8c2]ORA #$10; Set the visibility flag.
[a8c4]STA CurrentSprites_Flags,X; And save it.
[a8c7]RTS
[a8c8]Sprites_IsSpriteHidden:; [$a8c8]
[a8c8]LDA CurrentSprites_Flags,X; Load the sprite's flags.
[a8cb]AND #$10; Check the visible flag.
[a8cd]RTS; And return Z.
[a8ce]Sprites_HideSprite:; [$a8ce]
[a8ce]LDA CurrentSprites_Flags,X; Load the flags for the given sprite.
[a8d1]AND #$ef; Clear the visible flag.
[a8d3]STA CurrentSprites_Flags,X; Set the new flags.
[a8d6]RTS
;============================================================================
; 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]JMP BScript_Action_FlipYDirection
[aa63]@LAB_PRG14__aa63:; [$aa63]
[aa63]LDY CurrentSprites_InternalBehaviorStates,X
[aa66]LDA CurrentSprites_BehaviorData3,X
[aa69]CMP SPRITE_BEHAVIOR_HOP_GROUND_TICKS,Y
[aa6c]BCC @_return
[aa6e]DEC CurrentSprites_BehaviorData3,X
[aa71]@_return:; [$aa71]
[aa71]RTS
[aa72]SPRITE_BEHAVIOUR_HOP_START_TICKS:; [$aa72]
[aa72].byte $40; [0]:
[aa73].byte $20; [1]:
[aa74].byte $10; [2]: Monodron
[aa75].byte $08; [3]:
[aa76].byte $10; [4]:
[aa77]SPRITE_BEHAVIOR_HOP_GRAVITY:; [$aa77]
[aa77].byte $02; [0]:
[aa78].byte $03; [1]:
[aa79].byte $04; [2]:
[aa7a].byte $05; [3]:
[aa7b].byte $04; [4]:
[aa7c]SPRITE_BEHAVIOR_HOP_JUMP_STRENGTH:; [$aa7c]
[aa7c].byte $04; [0]:
[aa7d].byte $05; [1]:
[aa7e].byte $06; [2]:
[aa7f].byte $07; [3]:
[aa80].byte $07; [4]:
[aa81]SPRITE_BEHAVIOR_HOP_GROUND_TICKS:; [$aa81]
[aa81].byte $c0; [0]:
[aa82].byte $60; [1]:
[aa83].byte $30; [2]:
[aa84].byte $18; [3]:
[aa85].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]
[abf8]PHA
[abf9]LDA CurrentSprites_Entities,X
[abfc]STA CurrentSprites_InternalBehaviorStates,X
[abff]PLA
[ac00]STA CurrentSprites_Entities,X
[ac03]ASL A
[ac04]TAY
[ac05]LDA SPRITE_BSCRIPTS,Y
[ac08]STA CurrentSprites_BehaviorAddrs_L,X
[ac0b]LDA SPRITE_BSCRIPTS+1,Y
[ac0e]STA CurrentSprites_BehaviorAddrs_U,X
[ac11]LDA #$ff
[ac13]STA CurrentSprites_Behaviors,X
[ac16]STA CurrentSprites_HitByMagicBehavior,X
[ac19]LDA #$00
[ac1b]STA CurrentSprites_BehaviorData2,X
[ac1e]JMP 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]
[ac75]LDA #$10
[ac77]JSR Sound_PlayEffect
[ac7a]TYA
[ac7b]TAX
[ac7c]LDA #$02
;
; v-- Fall through --v
;
[ac7e]Sprite_ReplaceWithDroppedItem:; [$ac7e]
;
; Set the sprite entity.
;
[ac7e]STA CurrentSprites_Entities,X; Set the provided sprite entity at the given index.
;
; Set the sprite behavior address.
;
[ac81]ASL A; Convert the sprite entity to a word boundary for the behavior addresses.
[ac82]TAY; Y = A
[ac83]LDA SPRITE_BSCRIPTS,Y; Load the lower byte of the sprite behavior for this entity.
[ac86]STA CurrentSprites_BehaviorAddrs_L,X; Set it as the current behavior for this sprite.
[ac89]LDA SPRITE_BSCRIPTS+1,Y; Load the upper byte.
[ac8c]STA CurrentSprites_BehaviorAddrs_U,X; And set that.
;
; Set the sprite subtype to 0xFF (unset).
;
[ac8f]LDA #$ff; A = 0xFF
[ac91]STA CurrentSprites_Behaviors,X; Set it as the subtype.
;
; Set the sprite hitbox.
;
[ac94]LDY #$02; Y = 2
[ac96]LDA SPRITE_ENTITIES_HITBOX_TYPES,Y; A = hitbox type for Y.
[ac99]STA CurrentSprites_HitBoxTypes,X; Set as the hitbox.
;
; Disable sprite behaviors.
;
[ac9c]JMP Sprite_SetBehaviorNotReady; Disable behaviors for this sprite.
[ac9f]Sprite_ReplaceWithBreadDrop:; [$ac9f]
[ac9f]TYA; A = Y (sprite index)
[aca0]TAX; X = A
[aca1]LDA #$01; A = 1
[aca3]JMP Sprite_ReplaceWithDroppedItem
;============================================================================
; MAYBE DEADCODE
;============================================================================
[aca6]Sprite_ReplaceWithMattock:; [$aca6]
[aca6]JSR @_Sprites_ReplaceWithMattock_HasMaxOnScreen; Check if all sprite slots are populated.
[aca9]BCS @_return; If so, return.
;
; There are unpopulated slots. Populate at the given index.
;
[acab]LDA #$50; A = Mattock sprite ID.
[acad]STA CurrentSprites_Entities,X; Store as the entity at this index.
[acb0]ASL A; Normalize to a word boundary.
[acb1]TAY; Y = A
[acb2]LDA SPRITE_BSCRIPTS,Y; A = 0x1B.
[acb5]STA CurrentSprites_BehaviorAddrs_L,X; Set as lower byte.
[acb8]LDA SPRITE_BSCRIPTS+1,Y; A = 0xB2.
[acbb]STA CurrentSprites_BehaviorAddrs_U,X; Set as upper byte.
;
; Set the subtype to 0xFF (unset).
;
[acbe]LDA #$ff; A = 0xFF
[acc0]STA CurrentSprites_Behaviors,X; Set subtype to A.
;
; Set the hitbox of the sprite.
;
[acc3]LDY CurrentSprites_Entities,X; Y = sprite entity.
[acc6]LDA SPRITE_ENTITIES_HITBOX_TYPES,Y; A = hitbox type for Y.
[acc9]STA CurrentSprites_HitBoxTypes,X; Store as the hitbox type.
;
; Set the Y position of the sprite to 32.
;
[accc]LDA #$20; A = 32
[acce]STA CurrentSprites_YPos,X; Set as X position.
;
; Set the X position of the sprite as 120.
;
[acd0]LDA #$78; A = 120
[acd2]STA CurrentSprites_XPos_Full,X; Set as X position.
;
; Set the PPU address for the sprite.
;
[acd4]LDA #$90; A = 0x90
[acd6]STA CurrentSprites_PPUOffsets,X; Set as the PPU address.
[acd9]JMP Sprite_SetBehaviorNotReady; Disable behaviors for the sprite.
[acdc]@_return:; [$acdc]
[acdc]RTS
;============================================================================
; 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]CLC; Set C = 0
[ace7]RTS; And return it.
[ace8]@_isPopulated:; [$ace8]
[ace8]DEX; X--
[ace9]BPL @_loop; If >= 0, loop.
;
; All slots are populated. Return a true result.
;
[aceb]SEC; Set C = 1
[acec]RTS; 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].byte SPRITE_OP_RUN_ACTION; Op: Run action
[aebc].byte SPRITE_ACTION_FACE_PLAYER_X; '- Face player (X)
[aebd].byte SPRITE_OP_SWITCH_BEHAVIOR; Op: Switch behavior
[aebe].byte SPRITE_BEHAVIOR_WALK_FORWARD; |- Walk forward
[aebf].byte $3c; |- For 60 ticks
[aec0].byte $60; |- 96 pixels
[aec1].byte $00; '- 0 blocks
[aec2].byte SPRITE_OP_RUN_ACTION; Op: Run action
[aec3].byte SPRITE_ACTION_RANDOMLY_FLIP_X_DIRECTION; '- Randomly flip X direction
[aec4].byte SPRITE_OP_SWITCH_BEHAVIOR; Op: Switch behavior
[aec5].byte SPRITE_BEHAVIOR_WALK_FORWARD; |- Walk forward
[aec6].byte $14; |- For 20 ticks
[aec7].byte $60; |- 96 pixels
[aec8].byte $00; '- 0 blocks
[aec9].byte SPRITE_OP_GOTO; Op: Goto
[aeca]pointer 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]
[b180].byte SPRITE_OP_CHECK_DISTANCE; Op: Check distance to player
[b181].byte $00; |- For 0 ticks
[b182].byte $40; |- If < 64 pixels
[b183]pointer @_nearPlayer; |- Then @_nearPlayer
[b185]pointer @_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]
[b187].byte SPRITE_OP_FINISH_BEHAVIOR; Op: Finish behavior
[b188].byte SPRITE_OP_ADD_TO_SPRITE_DATA; Op: Add value to
[b189]pointer CurrentSprites_XPos_Full; |- Sprite X position
[b18b].byte $08; '- Plus 8
[b18c].byte SPRITE_OP_SWITCH_BEHAVIOR; Op: Switch behavior
[b18d].byte SPRITE_BEHAVIOR_FALL; |- Fall/wait
[b18e].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]
[b18f].byte SPRITE_OP_CHECK_DISTANCE; Op: Check distance to player
[b190].byte $00; |- For 0 ticks
[b191].byte $48; |- If < 72 pixels
[b192]pointer @_waitAwayFromPlayerLoop; |- Then @_waitAwayFromPlayerLoop
[b194]pointer @_awayFromPlayer; '- Else @_awayFromPlayer
;
; The player is now far enough away from the King.
; The King can sit down.
;
[b196]@_awayFromPlayer:; [$b196]
[b196].byte SPRITE_OP_FINISH_BEHAVIOR; Op: Finish behavior
[b197].byte SPRITE_OP_ADD_TO_SPRITE_DATA; Op: Add value to
[b198]pointer CurrentSprites_XPos_Full; |- Sprite X position
[b19a].byte $f8; '- Minus 8
[b19b].byte SPRITE_OP_GOTO; Op: Goto
[b19c]pointer 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]
[b7ae]LDA #$00
[b7b0]STA a:NumberOfWeapons; Set the number of weapons to 0.
[b7b3]STA a:NumberOfShields; Set the number of shields to 0.
[b7b6]STA a:NumberOfMagicSpells; Set the number of magic spells to 0.
[b7b9]STA a:NumberOfItems; Set the number of items to 0.
[b7bc]STA a:NumberOfArmors; Set the number of armors to 0.
;
; v-- Fall through --v
;
[b7bf]PlayerDeath_ResetSelectedItemState:; [$b7bf]
[b7bf]LDA #$00
[b7c1]STA a:SelectedArmor; Set armor to Leather.
[b7c4]LDA #$ff
[b7c6]STA a:SelectedWeapon; Set weapon to None.
[b7c9]STA a:Player_CurWeapon; Set current weapon to None.
[b7cc]STA a:SelectedShield; Set shield to None.
[b7cf]STA a:SelectedMagic; Set magic to None.
[b7d2]STA a:SelectedItem; Set item to None.
[b7d5]RETURN_B7D5:; [$b7d5]
[b7d5]RTS
;============================================================================
; 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]
[b9ed]LDA #$00
[b9ef]STA Temp_MovingSpriteVisibility
[b9f1]LDA Arg_DrawSprite_PosY
[b9f3]STA Arg_PixelPosY
[b9f5]LDA Arg_DrawSprite_PosX
[b9f7]CLC
[b9f8]ADC #$04
[b9fa]STA Arg_PixelPosX
[b9fc]JSR Area_ConvertPixelsToBlockPos
[b9ff]JSR ScreenBuffer_LoadBlockProperty
[ba02]CMP #$04
[ba04]BEQ @LAB_PRG14__ba0e
[ba06]CMP #$0d
[ba08]BEQ @LAB_PRG14__ba0e
[ba0a]CMP #$09
[ba0c]BNE @LAB_PRG14__ba14
[ba0e]@LAB_PRG14__ba0e:; [$ba0e]
[ba0e]LDA Temp_MovingSpriteVisibility
[ba10]ORA #$01
[ba12]STA Temp_MovingSpriteVisibility
[ba14]@LAB_PRG14__ba14:; [$ba14]
[ba14]LDA Arg_DrawSprite_PosX
[ba16]CLC
[ba17]ADC #$0c
[ba19]STA Arg_PixelPosX
[ba1b]JSR Area_ConvertPixelsToBlockPos
[ba1e]JSR ScreenBuffer_LoadBlockProperty
[ba21]CMP #$04
[ba23]BEQ @LAB_PRG14__ba2d
[ba25]CMP #$0d
[ba27]BEQ @LAB_PRG14__ba2d
[ba29]CMP #$09
[ba2b]BNE @LAB_PRG14__ba33
[ba2d]@LAB_PRG14__ba2d:; [$ba2d]
[ba2d]LDA Temp_MovingSpriteVisibility
[ba2f]ORA #$02
[ba31]STA Temp_MovingSpriteVisibility
[ba33]@LAB_PRG14__ba33:; [$ba33]
[ba33]LDA Player_Flags
[ba35]AND #$40
[ba37]BEQ @LAB_PRG14__ba46
[ba39]LDA Temp_MovingSpriteVisibility
[ba3b]BEQ SUB_PRG14__ba48
[ba3d]CMP #$03
[ba3f]BEQ SUB_PRG14__ba48
[ba41]EOR #$03
[ba43]JMP SUB_PRG14__ba48
[ba46]@LAB_PRG14__ba46:; [$ba46]
[ba46]LDA Temp_MovingSpriteVisibility
[ba48]SUB_PRG14__ba48:; [$ba48]
[ba48]STA MovingSpriteVisibility
[ba4a]RTS
;============================================================================
; 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:; [$ba5b]
;
; Check if there's any visible magic on the screen.
;
; If so, run its handler and return.
;
[ba5b]LDA a:CastMagic_Type; Load the visible magic.
[ba5e]BPL CastMagic_RunSpellHandler; If unset, jump to the next function in the spell cast logic.
;
; Check if the player is climbing a ladder.
;
[ba60]JSR Player_IsClimbing; Check if the player can cast magic.
[ba63]BCS @_return2; If not, we're done.
;
; Check if the player has pressed Up-B to cast magic.
;
[ba65]LDA Joy1_ButtonMask; Load the current button mask.
[ba67]AND #$08; Has Up been pressed?
[ba69]BEQ @_return1; If not, return.
[ba6b]LDA Joy1_ChangedButtonMask; Load the newly-changed button mask.
[ba6d]AND #$40; Has B been pressed?
[ba6f]BEQ @_return1; If not, return.
;
; Load the currently-selected magic spell.
;
; Only the primary spells (not extra stages of the spells)
; are supported.
;
[ba71]LDA a:SelectedMagic; Load the magic spell.
[ba74]CMP #$05; Compare against 5 (Tilte -- last spell).
[ba76]BCC @LAB_PRG14__ba79; If a valid spell, then jump.
[ba78]@_return1:; [$ba78]
[ba78]RTS; We're done.
;
; If the player has enough MP for the spell, reduce the MP
; for the spell cost.
;
[ba79]@LAB_PRG14__ba79:; [$ba79]
[ba79]JSR Player_ReduceMP; Reduce the MP.
[ba7c]BCS @_return1; If there's not enough, we're done.
;
; Load the magic spell again.
;
[ba7e]LDA a:SelectedMagic; Load the magic spell.
[ba81]CMP #$04; Compare it to 4 (Fire).
[ba83]BEQ @_playTilteSound
;
; This is any magic spell other than Tilte, which
; has its own sound.
;
[ba85]LDA #$05
[ba87]JSR Sound_PlayEffect; Play the standard magic sound effect.
[ba8a]JMP @_placeMagic
;
; This is Tilte magic. Play its sound effect.
;
[ba8d]@_playTilteSound:; [$ba8d]
[ba8d]LDA #$14
[ba8f]JSR Sound_PlayEffect; Play the Tilte magic sound effect.
;
; Begin placing the magic spell on the screen.
;
[ba92]@_placeMagic:; [$ba92]
[ba92]LDA a:SelectedMagic; Load the magic spell.
[ba95]STA 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]LDA Player_Flags; Load the player's flags.
[ba9a]AND #$40; Pull out the Facing Right bit.
[ba9c]STA a:CastMagic_Flags; Store as the direction.
;
; Set the initial X position of the magic.
;
[ba9f]LDY a:CastMagic_Type; Y = visible magic
[baa2]LDA Player_PosX_Block; A = player X position
[baa4]ADC CAST_MAGIC_START_X,Y; Load the relative starting X position for the spell.
[baa7]STA a:CastMagic_XPos_Full; Set it as the full X start position.
[baaa]LDA Player_PosY; A = player Y position
[baac]CLC
;
; Set the initial Y position of the magic.
;
[baad]ADC CAST_MAGIC_START_Y,Y; Load the relative starting Y position for the spell.
[bab0]STA a:CastMagic_YPos_Full; Set it as the full Y start position.
;
; Clear the rest of the default state.
;
[bab3]LDA #$00
[bab5]STA a:CastMagic_XPos_Frac; Fractional X = 0
[bab8]STA a:CastMagic_YPos_Frac; Fraction Y = 0
[babb]STA a:CastMagic_Counter; Counter = 0
[babe]STA a:CastMagic_Phase; Phase = 0
;
; Tilte behaves differently, so check which spell's being cast.
;
[bac1]LDA a:CastMagic_Type; Load the magic spell.
[bac4]CMP #$04; Compare against Tilte.
[bac6]BNE 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]LDA a:CastMagic_Flags; Load the magic's flags.
[bacb]ORA #$80; Set the Falling bit.
[bacd]STA a:CastMagic_Flags; Store it back out.
;
; Set the magic counter to a default of 33.
;
[bad0]LDA #$21; A = 0x21
[bad2]STA a:CastMagic_Counter; Store as the magic's counter.
[bad5]JMP CastMagic_RunSpellHandler; Jump to the next function in the spell cast logic.
[bad8]@_return2:; [$bad8]
[bad8]RTS
;============================================================================
; 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]LDA #$c2
[badb]PHA
[badc]LDA #$e8
[bade]PHA
;
; 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]LDA a:CastMagic_Type; A = Current spell
[bae2]ASL A; Multiply by 2.
[bae3]TAY; Y = A
[bae4]LDA CAST_MAGIC_UPDATE_HANDLERS+1,Y; Load the upper nibble of the address
[bae7]PHA; Push onto A
[bae8]LDA CAST_MAGIC_UPDATE_HANDLERS,Y; Load the lower nibble of the address
[baeb]PHA; 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]
[bb3f]LDA #$ff
[bb41]STA a:CastMagic_Type
[bb44]RTS
[bb45]CastMagic_UpdateDeluge:; [$bb45]
;
; Update the position by X +/- 3 and check if the
; magic flew off-screen.
;
[bb45]LDA #$03
[bb47]STA a:Arg_DeltaX_Full; Set delta X block argument to 3.
[bb4a]LDA #$00
[bb4c]STA a:Arg_DeltaX_Frac; Set delta X pixel argument to 0.
[bb4f]JSR CastMagic_UpdateXPosition; Update position.
[bb52]BCC @_checkCollision; If not off-screen, check for collision.
;
; It's off-screen. Clear the magic.
;
[bb54]JMP CastMagic_Clear; Clear the magic.
;
; Check if the magic is on a block other than air.
;
[bb57]@_checkCollision:; [$bb57]
[bb57]LDA Blocks_Result; Check which block the magic is on.
[bb59]BEQ @_return; If air, we're done.
;
; It hit a block. Play the sound effect.
;
[bb5b]LDA #$0a
[bb5d]JSR 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]LDX a:CurrentSpriteIndex; X = current sprite index
[bb78]LDA CurrentSprites_XPos_Full,X; A = current sprite X position.
[bb7a]STA a:CastMagic_XPos_Full; Store as the X position.
[bb7d]RTS
[bb7e]CastMagic_UpdateThunderOrDeath:; [$bb7e]
;
; Update the position by X +/- 2 and check if the
; magic flew off-screen.
;
[bb7e]LDA #$02
[bb80]STA a:Arg_DeltaX_Full; Set the delta X position to check to 2.
[bb83]LDA #$00
[bb85]STA a:Arg_DeltaX_Frac; Set the delta fractional X position to 0.
[bb88]JSR CastMagic_UpdateXPosition; Update the X position and check if it stayed on-screen.
[bb8b]BCC @_return; If still on-screen, jump.
;
; It's off-screen. Clear the magic.
;
[bb8d]JMP CastMagic_Clear; Clear the magic.
[bb90]@_return:; [$bb90]
[bb90]RTS
;============================================================================
; 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:; [$bb9c]
;
; Update X +/- 4 and check if the magic flew off-screen.
;
[bb9c]LDA #$04
[bb9e]STA a:Arg_DeltaX_Full; Full Delta X = 4
[bba1]LDA #$00
[bba3]STA a:Arg_DeltaX_Frac; Fractional Delta X = 0
[bba6]JSR CastMagic_UpdateXPosition; Update the X position.
[bba9]BCC @_checkCollision; If not off-screen, check for collision.
;
; It's off-screen. Clear the magic.
;
[bbab]JMP CastMagic_Clear; Clear the magic.
;
; Check if the magic is on a block other than air.
;
[bbae]@_checkCollision:; [$bbae]
[bbae]LDA Blocks_Result; Check which block the magic is on.
[bbb0]BEQ @_return; If air, we're done.
;
; It hit a block. Play the sound effect.
;
[bbb2]LDA #$0a
[bbb4]JSR 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]LDA a:CastMagic_Flags; Load the magic's flags.
[bbc4]AND #$40; Check the direction bit.
[bbc6]LSR A; If set, divide by 8 (resulting in 16).
[bbc7]LSR A
[bbc8]ADC a:CastMagic_XPos_Full; Add to the current position.
[bbcb]STA a:CastMagic_XPos_Full; And set it.
;
; Switch the direction of the spell.
;
[bbce]LDA a:CastMagic_Flags; Load the flags.
[bbd1]AND #$7f; Clear the Attacking bit.
[bbd3]EOR #$40; Toggle the Facing Right bit.
[bbd5]STA a:CastMagic_Flags; Store it.
[bbd8]@_return:; [$bbd8]
[bbd8]RTS
;============================================================================
; 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]LDA a:CastMagic_Phase; Check the phase.
[bbf6]LSR A; Check bit 0 for even/odd.
[bbf7]BCS @_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]LDA #$01
[bbfb]STA a:Arg_DeltaX_Full; Full Delta X = 1
[bbfe]LDA #$00
[bc00]STA a:Arg_DeltaX_Frac; Fractional Delta X = 0
[bc03]JSR CastMagic_UpdateXPosition; Update position.
[bc06]BCS CastMagic_ClearTilte; If off-screen, jump to clear.
;
; Calculate the next movement behavior.
;
[bc08]LDA a:CastMagic_Counter; Load the magic tick counter.
[bc0b]LDY #$03; Y = 3
[bc0d]JSR Sprites_CalcYFromGravity; Calculate the movement behavior (delta Y).
[bc10]LDY #$03; Y = 3 (count)
[bc12]JSR Sprites_CalcVerticalSpriteMovement; Calculate vertical movement.
[bc15]LDA #$00
[bc17]STA a:Arg_DeltaY_Full; Full Delta Y = 0
[bc1a]JSR CastMagic_UpdateYPosition; Update the Y position.
[bc1d]BCS 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]LDA a:CastMagic_Counter; A = counter.
[bc22]AND #$1f; Check against anything but 32, 64, or 128.
[bc24]BNE @_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]LDA a:CastMagic_Flags; Load the magic flags.
[bc29]EOR #$80; Toggle the Falling phase.
[bc2b]STA a:CastMagic_Flags; Store the updated flags.
[bc2e]BPL @_incAndReturn; If attacking is clear, jump to finish up.
;
; Switch to the missile phase.
;
[bc30]INC a:CastMagic_Phase; Increment the phase.
;
; Clear the falling flag, moving back up.
;
[bc33]LDA a:CastMagic_Flags; Load the magic flags.
[bc36]AND #$7f; Clear attacking.
[bc38]STA a:CastMagic_Flags; Store it.
[bc3b]RTS
[bc3c]@_incAndReturn:; [$bc3c]
[bc3c]INC a:CastMagic_Counter; Increment the tick counter.
[bc3f]RTS
;
; 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]
[bc40]LDA #$04
[bc42]STA a:Arg_DeltaX_Full; Full Delta X = 4
[bc45]STA a:Arg_DeltaY_Full; Full Delta Y = 4
[bc48]LDA #$00
[bc4a]STA a:Arg_DeltaX_Frac; Fractional Delta X = 0
[bc4d]STA a:Arg_DeltaY_Frac; Fractional Delta Y = 0
[bc50]JSR CastMagic_UpdateXPosition; Update the X position.
[bc53]BCS CastMagic_ClearTilte; If off-screen, jump to clear.
[bc55]JSR CastMagic_UpdateYPosition; Update the Y position.
[bc58]BCS CastMagic_ClearTilte; If off-screen, jump to clear.
[bc5a]RTS
;============================================================================
; 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]LDA #$ff
[bc70]STA a:CastMagic_Type; Clear the active magic spell.
[bc73]@_return:; [$bc73]
[bc73]RTS
;============================================================================
; 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]LDA #$ff
[bc7e]STA a:CastMagic_Type; Clear the active magic spell.
[bc81]@_return:; [$bc81]
[bc81]RTS
;============================================================================
; 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]LDA #$ff
[bc8c]STA a:CastMagic_Type; Clear the active magic spell.
[bc8f]@_return:; [$bc8f]
[bc8f]RTS
;============================================================================
; 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]JMP 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]LDA #$ff
[bcab]STA a:CastMagic_Type; Clear the active magic spell.
[bcae]@_return:; [$bcae]
[bcae]RTS
[bcaf]CastMagic_UpdateXPosition:; [$bcaf]
[bcaf]LDA a:CastMagic_Flags; Load the magic's flags.
[bcb2]AND #$40; Check the Facing Right bit.
[bcb4]BNE @_isRight; If it's set, jump.
;
; The magic is moving left.
;
; Update the fractional X value based on the provided delta.
;
[bcb6]LDA a:CastMagic_XPos_Frac; Load the fractional X position.
[bcb9]SEC
[bcba]SBC a:Arg_DeltaX_Frac; Subtract the provided delta.
[bcbd]STA a:CastMagic_XPos_Frac; Store it.
;
; Now update the full X position.
;
[bcc0]LDA a:CastMagic_XPos_Full; Load the full X position.
[bcc3]SBC a:Arg_DeltaX_Full; Subtract the provided delta.
[bcc6]STA a:CastMagic_XPos_Full; Store it.
;
; Check for collision/off-screen in the Left direction.
;
[bcc9]LDX #$00; 0 = Left
[bccb]JSR CastMagic_CheckDirection; Check for collision/off-screen in the left direction.
[bcce]LDA a:CastMagic_XPos_Full; Load the block X coordinate.
[bcd1]CMP #$f0; Set C=0 if on-screen, 1 if off-screen (wrapped around).
[bcd3]RTS
;
; The magic is moving right.
;
; Update the fractional X value based on the provided delta.
;
[bcd4]@_isRight:; [$bcd4]
[bcd4]LDA a:CastMagic_XPos_Frac; Load the fractional X coordinate.
[bcd7]CLC
[bcd8]ADC a:Arg_DeltaX_Frac; Add the provided delta.
[bcdb]STA a:CastMagic_XPos_Frac; Store it.
;
; Now update the full X position.
;
[bcde]LDA a:CastMagic_XPos_Full; Load the full X coordinate.
[bce1]ADC a:Arg_DeltaX_Full; Add the delta.
[bce4]STA a:CastMagic_XPos_Full; Store it.
;
; Check for collision/off-screen in the Right direction.
;
[bce7]LDX #$01; X = Right
[bce9]JSR CastMagic_CheckDirection; Check for collision/off-screen in the right direction.
[bcec]LDX a:CastMagic_Type; X = Magic type.
[bcef]LDA a:CastMagic_XPos_Full; A = Full X position.
[bcf2]CMP CAST_MAGIC_MAX_SCREEN_WIDTHS,X; Compare the X position to the off-screen X position, and set C as the result.
[bcf5]RTS
[bcf6]CAST_MAGIC_MAX_SCREEN_WIDTHS:; [$bcf6]
[bcf6].byte $f0; [0]:
[bcf7].byte $f0; [1]:
[bcf8].byte $e0; [2]:
[bcf9].byte $f0; [3]:
[bcfa].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]LDA a:CastMagic_YPos_Frac; Load the fractional Y coordinate.
[bd03]SEC
[bd04]SBC a:Arg_DeltaY_Frac; Subtract the provided delta value.
[bd07]STA a:CastMagic_YPos_Frac; Store as the new fractional Y coordinate.
;
; Now update the block Y value.
;
[bd0a]LDA a:CastMagic_YPos_Full; Load the block Y coordinate.
[bd0d]SBC a:Arg_DeltaY_Full; Subtract the provided delta value.
[bd10]STA a:CastMagic_YPos_Full; Store it.
;
; Check for collision/off-screen in the Up direction.
;
[bd13]LDX #$02; X = 2 (up)
[bd15]JSR CastMagic_CheckDirection; Check for collision/off-screen in the up direction.
[bd18]LDA a:CastMagic_YPos_Full; Load the block Y coordiante.
[bd1b]CMP #$f0; Set C=0 if on-screen, 1 if off-screen.
[bd1d]RTS
;
; The magic is moving downward.
;
; Update the fractional Y value based on the provided delta.
;
[bd1e]@_isMovingDown:; [$bd1e]
[bd1e]LDA a:CastMagic_YPos_Frac; Load the fractional Y coordinate.
[bd21]CLC
[bd22]ADC a:Arg_DeltaY_Frac; Add the provided delta value.
[bd25]STA a:CastMagic_YPos_Frac; Store as the new fractional Y coordinate.
;
; Now update the block Y value.
;
[bd28]LDA a:CastMagic_YPos_Full; Load the block Y coordinate.
[bd2b]ADC a:Arg_DeltaY_Full; Subtract the provided delta value.
[bd2e]STA a:CastMagic_YPos_Full; Store it.
;
; Check for collision/off-screen in the Up direction.
;
[bd31]LDA a:Arg_DeltaY_Frac; Load the provided fractional Y delta.
[bd34]PHP; Push flags to the stack.
[bd35]LDX #$03; X = 3 (down)
[bd37]JSR CastMagic_CheckDirection; Check for collision/off-screen in the down direction.
[bd3a]PLP; Pop flags from the stack.
[bd3b]RTS
;============================================================================
; 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]LDA a:CastMagic_YPos_Full; A = Magic full Y position
[bd5b]STA Arg_PixelPosY; Store as the Y argument.
[bd5d]JSR Area_ConvertPixelsToBlockPos; Convert the pixels to a screen block lookup position.
[bd60]JSR ScreenBuffer_IsBlockImpassable; Check if the block is impassable.
[bd63]STA Blocks_Result; Set the tentative result accordingly.
[bd65]BNE @_return; If not passable, return the result.
;
; The block was passable. Check the block at the bottom
; of the magic's bounding box.
;
[bd67]LDY a:CastMagic_Type; Load the magic type.
[bd6a]LDA CAST_MAGIC_HEIGHTS,Y; Load the magic's height.
[bd6d]CMP #$10; Is the height >= 16 (more than one block)?
[bd6f]BCC @_checkTop; If so, jump.
[bd71]TXA; A = X (block position).
[bd72]CLC
[bd73]ADC #$10; Add 16 (next block).
[bd75]TAX; X = A (result)
[bd76]JSR ScreenBuffer_IsBlockImpassable; Check if the block is impassable.
[bd79]STA Blocks_Result; Store the tentative result.
[bd7b]BNE @_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]
[bd7d]LDA a:CastMagic_YPos_Full; Load the full Y position again.
[bd80]AND #$0f; Keep the lower nibble.
[bd82]BEQ @_return; If it's 0, return the existing result.
[bd84]TXA; A = X (block position).
[bd85]CLC
[bd86]ADC #$10; Add 16 (next block).
[bd88]TAX; X = A (result)
[bd89]JSR ScreenBuffer_IsBlockImpassable; Check if the block is impassable.
[bd8c]STA Blocks_Result; Store the result.
[bd8e]@_return:; [$bd8e]
[bd8e]RTS
;============================================================================
; 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]TXA; A = X (direction)
[bd90]BEQ CastMagic_CheckDirection_Left; If moving left, jump to check.
;
; See if we're checking magic moving right.
;
[bd92]DEX; X-- (shift the Right direction into Left for comparison).
[bd93]BEQ 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]DEX; X-- (shift Up into Left).
[bd96]BEQ @_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]
[bd98]LDA #$00; A = 0 (false result)
[bd9a]STA Blocks_Result; Store as the result.
[bd9c]RTS
[bd9d]CAST_MAGIC_WIDTHS:; [$bd9d]
[bd9d].byte $0f; [0]: Deluge
[bd9e].byte $0f; [1]: Thunder
[bd9f].byte $1f; [2]: Fire
[bda0].byte $0f; [3]: Death
[bda1].byte $0f; [4]: Tilte
[bda2].byte $0f; [5]: Deluge after hit
[bda3].byte $0f; [6]: Thunder after hit
[bda4].byte $1f; [7]: Fire after hit
[bda5].byte $0f; [8]: Death after hit
[bda6].byte $0f; [9]: Unknown
[bda7].byte $0f; [10]: Hit Wall effect (unused)
[bda8].byte $0f; [11]: Tilte after hit
[bda9]CAST_MAGIC_HEIGHTS:; [$bda9]
[bda9].byte $0f; [0]: Deluge
[bdaa].byte $1f; [1]: Thunder
[bdab].byte $0f; [2]: Fire
[bdac].byte $0f; [3]: Death
[bdad].byte $0f; [4]: Tilte
[bdae].byte $0f; [5]: Deluge after hit
[bdaf].byte $1f; [6]: Thunder after hit
[bdb0].byte $0f; [7]: Fire after hit
[bdb1].byte $0f; [8]: Death after hit
[bdb2].byte $0f; [9]: Unknown
[bdb3].byte $0f; [10]: Hit Wall effect (unused)
[bdb4].byte $0f; [11]: Tilte after hit
[bdb5]UNUSED_SPACE_PRG14:; [$bdb5]
[bdb5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bdb5] undefined
[bdbd].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bdbd] undefined
[bdc5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bdc5] undefined
[bdcd].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bdcd] undefined
[bdd5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bdd5] undefined
[bddd].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bddd] undefined
[bde5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bde5] undefined
[bded].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bded] undefined
[bdf5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bdf5] undefined
[bdfd].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bdfd] undefined
[be05].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be05] undefined
[be0d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be0d] undefined
[be15].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be15] undefined
[be1d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be1d] undefined
[be25].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be25] undefined
[be2d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be2d] undefined
[be35].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be35] undefined
[be3d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be3d] undefined
[be45].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be45] undefined
[be4d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be4d] undefined
[be55].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be55] undefined
[be5d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be5d] undefined
[be65].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be65] undefined
[be6d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be6d] undefined
[be75].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be75] undefined
[be7d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be7d] undefined
[be85].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be85] undefined
[be8d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be8d] undefined
[be95].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be95] undefined
[be9d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$be9d] undefined
[bea5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bea5] undefined
[bead].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bead] undefined
[beb5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$beb5] undefined
[bebd].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bebd] undefined
[bec5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bec5] undefined
[becd].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$becd] undefined
[bed5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bed5] undefined
[bedd].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bedd] undefined
[bee5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bee5] undefined
[beed].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$beed] undefined
[bef5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bef5] undefined
[befd].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$befd] undefined
[bf05].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf05] undefined
[bf0d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf0d] undefined
[bf15].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf15] undefined
[bf1d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf1d] undefined
[bf25].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf25] undefined
[bf2d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf2d] undefined
[bf35].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf35] undefined
[bf3d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf3d] undefined
[bf45].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf45] undefined
[bf4d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf4d] undefined
[bf55].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf55] undefined
[bf5d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf5d] undefined
[bf65].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf65] undefined
[bf6d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf6d] undefined
[bf75].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf75] undefined
[bf7d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf7d] undefined
[bf85].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf85] undefined
[bf8d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf8d] undefined
[bf95].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf95] undefined
[bf9d].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bf9d] undefined
[bfa5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bfa5] undefined
[bfad].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bfad] undefined
[bfb5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bfb5] undefined
[bfbd].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bfbd] undefined
[bfc5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bfc5] undefined
[bfcd].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bfcd] undefined
[bfd5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bfd5] undefined
[bfdd].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bfdd] undefined
[bfe5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bfe5] undefined
[bfed].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bfed] undefined
[bff5].byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff; [$bff5] undefined
[bffd].byte $ff,$ff,$ff; [$bffd] undefined