ref: 8af06f3cc2961f085cb8d0328f6d7c2093323132
dir: /battle/effect_commands.asm/
DoPlayerTurn: ; 34000 call SetPlayerTurn ld a, [$d0ec] and a ret nz jr DoTurn ; 3400a DoEnemyTurn: ; 3400a call SetEnemyTurn ld a, [InLinkBattle] and a jr z, DoTurn ld a, [$d430] cp $e jr z, DoTurn cp $4 ret nc ; fallthrough ; 3401d DoTurn: ; 3401d ; Read in and execute the user's move effects for this turn. xor a ld [$c6b4], a ; Effect command checkturn is called for every move. call CheckTurn ld a, [$c6b4] and a ret nz call UpdateMoveData ; 3402c DoMove: ; 3402c ; Get the user's move effect. ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair ld c, a ld b, 0 ld hl, MoveEffectsPointers add hl, bc add hl, bc ld a, BANK(MoveEffectsPointers) call GetFarHalfword ld de, BattleScriptBuffer .GetMoveEffect ld a, BANK(MoveEffects) call GetFarByte inc hl ld [de], a inc de cp $ff jr nz, .GetMoveEffect ; Start at the first command. ld hl, BattleScriptBuffer ld a, l ld [BattleScriptBufferLoc], a ld a, h ld [BattleScriptBufferLoc + 1], a .ReadMoveEffectCommand ; ld a, [BattleScriptBufferLoc++] ld a, [BattleScriptBufferLoc] ld l, a ld a, [BattleScriptBufferLoc + 1] ld h, a ld a, [hli] push af ld a, l ld [BattleScriptBufferLoc], a ld a, h ld [BattleScriptBufferLoc + 1], a pop af ; $fe is used to terminate branches without ending the read cycle. cp $fe ret nc ; The rest of the commands (01-af) are read from BattleCommandPointers. push bc dec a ld c, a ld b, 0 ld hl, BattleCommandPointers add hl, bc add hl, bc pop bc ld a, BANK(BattleCommandPointers) call GetFarHalfword call .DoMoveEffectCommand jr .ReadMoveEffectCommand .DoMoveEffectCommand jp [hl] ; 34084 CheckTurn: BattleCommand01: ; 34084 ; checkturn ; Repurposed as hardcoded turn handling. Useless as a command. ; Move $ff immediately ends the turn. ld a, BATTLE_VARS_MOVE call CleanGetBattleVarPair inc a jp z, Function0x34385 xor a ld [AttackMissed], a ld [EffectFailed], a ld [$c689], a ld [AlreadyDisobeyed], a ld [AlreadyFailed], a ld [$c73e], a ld a, 10 ; 1.0 ld [TypeModifier], a ld a, [hBattleTurn] and a jp nz, CheckEnemyTurn CheckPlayerTurn: ; check recharge ld hl, PlayerSubStatus4 bit 5, [hl] jr z, .CheckSleep res 5, [hl] ; 'must recharge!' ld hl, MustRechargeText call FarBattleTextBox call CantMove jp Function0x34385 .CheckSleep ld hl, BattleMonStatus ld a, [hl] and $7 jr z, .CheckFrozen dec a ld [BattleMonStatus], a and $7 jr z, .WokeUp xor a ld [$cfca], a ld de, ANIM_SLEEP call FarPlayBattleAnimation jr .FastAsleep .WokeUp ; 'woke up!' ld hl, WokeUpText call FarBattleTextBox call CantMove call UpdateBattleMonInParty ld hl, $5f48 call CallBankF ld a, $1 ld [$ffd4], a ld hl, PlayerSubStatus1 res 0, [hl] jr .CheckFrozen .FastAsleep ; 'fast asleep!' ld hl, FastAsleepText call FarBattleTextBox ; Snore and Sleep Talk bypass sleep. ld a, [CurPlayerMove] cp SNORE jr z, .CheckFrozen cp SLEEP_TALK jr z, .CheckFrozen call CantMove jp Function0x34385 .CheckFrozen ld hl, BattleMonStatus bit 5, [hl] jr z, .CheckFlinch ; Flame Wheel and Sacred Fire thaw the user. ld a, [CurPlayerMove] cp FLAME_WHEEL jr z, .CheckFlinch cp SACRED_FIRE jr z, .CheckFlinch ; 'frozen solid!' ld hl, FrozenSolidText call FarBattleTextBox call CantMove jp Function0x34385 .CheckFlinch ld hl, PlayerSubStatus3 bit 3, [hl] ; flinch jr z, .CheckDisabled res 3, [hl] ; 'flinched!' ld hl, FlinchedText call FarBattleTextBox call CantMove jp Function0x34385 .CheckDisabled ld hl, PlayerDisableCount ld a, [hl] and a jr z, .CheckConfused dec a ld [hl], a and $f jr nz, .CheckConfused ld [hl], a ld [DisabledMove], a ; 'disabled no more!' ld hl, DisabledNoMoreText call FarBattleTextBox .CheckConfused ld a, [PlayerSubStatus3] add a jr nc, .CheckAttract ld hl, PlayerConfuseCount dec [hl] jr nz, .Confused ld hl, PlayerSubStatus3 res 7, [hl] ; 'confused no more!' ld hl, ConfusedNoMoreText call FarBattleTextBox jr .CheckAttract .Confused ; 'confused!' ld hl, IsConfusedText call FarBattleTextBox xor a ld [$cfca], a ld de, ANIM_CONFUSED call FarPlayBattleAnimation ; 50% chance of hitting itself call FarBattleRNG cp $80 jr nc, .CheckAttract ld hl, PlayerSubStatus3 ld a, [hl] and $80 ld [hl], a call HitConfusion call CantMove jp Function0x34385 .CheckAttract ld a, [PlayerSubStatus1] add a ; check bit 7 jr nc, .CheckDisabledMove ; 'in love with' ld hl, InLoveWithText call FarBattleTextBox xor a ld [$cfca], a ld de, ANIM_INLOVE call FarPlayBattleAnimation ; 50% chance of infatuation call FarBattleRNG cp $80 jr c, .CheckDisabledMove ; 'infatuation kept it from attacking!' ld hl, InfatuationText call FarBattleTextBox call CantMove jp Function0x34385 .CheckDisabledMove ; We can't disable a move that doesn't exist. ld a, [DisabledMove] and a jr z, .CheckParalyzed ; Are we using the disabled move? ld hl, CurPlayerMove cp [hl] jr nz, .CheckParalyzed call MoveDisabled call CantMove jp Function0x34385 .CheckParalyzed ld hl, BattleMonStatus bit 6, [hl] ret z ; 25% chance to be fully paralyzed call FarBattleRNG cp $3f ret nc ; 'fully paralyzed!' ld hl, FullyParalyzedText call FarBattleTextBox call CantMove jp Function0x34385 ; 341f0 CantMove: ; 341f0 ld a, BATTLE_VARS_SUBSTATUS1 call GetBattleVarPair res 6, [hl] ld a, BATTLE_VARS_SUBSTATUS3 call GetBattleVarPair ld a, [hl] and $ec ld [hl], a call ResetFuryCutterCount ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair cp FLY jr z, .asm_3420f cp $5b ret nz .asm_3420f res 5, [hl] res 6, [hl] jp Function0x37ece ; 34216 Function0x34216: ; 34216 call SwitchTurn call CantMove jp SwitchTurn ; 3421f CheckEnemyTurn: ; 3421f ; check recharge ld hl, EnemySubStatus4 bit 5, [hl] jr z, .CheckSleep res 5, [hl] ; 'must recharge!' ld hl, MustRechargeText call FarBattleTextBox call CantMove jp Function0x34385 .CheckSleep ld hl, EnemyMonStatus ld a, [hl] and $7 jr z, .CheckFrozen dec a ld [EnemyMonStatus], a and a jr z, .WokeUp ; 'fast asleep!' ld hl, FastAsleepText call FarBattleTextBox xor a ld [$cfca], a ld de, ANIM_SLEEP call FarPlayBattleAnimation jr .FastAsleep .WokeUp ; 'woke up!' ld hl, WokeUpText call FarBattleTextBox call CantMove call UpdateEnemyMonInParty ld hl, $6036 call CallBankF ld a, $1 ld [$ffd4], a ld hl, EnemySubStatus1 res 0, [hl] jr .CheckFrozen .FastAsleep ; Snore and Sleep Talk bypass sleep. ld a, [CurEnemyMove] cp SNORE jr z, .CheckFrozen cp SLEEP_TALK jr z, .CheckFrozen call CantMove jp Function0x34385 .CheckFrozen ld hl, EnemyMonStatus bit 5, [hl] jr z, .CheckFlinch ld a, [CurEnemyMove] cp $ac jr z, .CheckFlinch cp $dd jr z, .CheckFlinch ; 'frozen solid!' ld hl, FrozenSolidText call FarBattleTextBox call CantMove jp Function0x34385 .CheckFlinch ld hl, EnemySubStatus3 bit 3, [hl] jr z, .CheckDisabled res 3, [hl] ; 'flinched!' ld hl, FlinchedText call FarBattleTextBox call CantMove jp Function0x34385 .CheckDisabled ld hl, EnemyDisableCount ld a, [hl] and a jr z, .CheckConfused dec a ld [hl], a and $f jr nz, .CheckConfused ld [hl], a ld [EnemyDisabledMove], a ; 'disabled no more!' ld hl, DisabledNoMoreText call FarBattleTextBox .CheckConfused ld a, [EnemySubStatus3] add a jr nc, .CheckAttract ld hl, $c67b dec [hl] jr nz, .Confused ld hl, EnemySubStatus3 res 7, [hl] ; 'confused no more!' ld hl, ConfusedNoMoreText call FarBattleTextBox jr .CheckAttract .Confused ; 'confused!' ld hl, IsConfusedText call FarBattleTextBox xor a ld [$cfca], a ld de, ANIM_CONFUSED call FarPlayBattleAnimation ; 50% chance of hitting itself call FarBattleRNG cp $80 jr nc, .CheckAttract ld hl, EnemySubStatus3 ld a, [hl] and %10000000 ld [hl], a ; 'hurt itself in its confusion!' ld hl, HurtItselfText call FarBattleTextBox call Function0x355dd call BattleCommand62 call BattleCommand0a xor a ld [$cfca], a ; Flicker the monster pic unless flying or underground. ld de, $0115 ld a, BATTLE_VARS_SUBSTATUS3_OPP call CleanGetBattleVarPair and $60 call z, PlayFXAnimID ld c, $1 call Function0x35d1c call BattleCommand0c call CantMove jp Function0x34385 .CheckAttract ld a, [EnemySubStatus1] add a ; check bit 7 jr nc, .CheckDisabledMove ; 'in love with' ld hl, InLoveWithText call FarBattleTextBox xor a ld [$cfca], a ld de, ANIM_INLOVE call FarPlayBattleAnimation ; 50% chance of infatuation call FarBattleRNG cp $80 jr c, .CheckDisabledMove ; 'infatuation kept it from attacking!' ld hl, InfatuationText call FarBattleTextBox call CantMove jp Function0x34385 .CheckDisabledMove ; We can't disable a move that doesn't exist. ld a, [EnemyDisabledMove] and a jr z, .CheckParalyzed ; Are we using the disabled move? ld hl, CurEnemyMove cp [hl] jr nz, .CheckParalyzed call MoveDisabled call CantMove jp Function0x34385 .CheckParalyzed ld hl, EnemyMonStatus bit 6, [hl] ret z ; 25% chance to be fully paralyzed call FarBattleRNG cp $3f ret nc ; 'fully paralyzed!' ld hl, FullyParalyzedText call FarBattleTextBox call CantMove ; fallthrough ; 34385 Function0x34385: ; 34385 ld a, $1 ld [$c6b4], a jp ResetDamage ; 3438d MoveDisabled: ; 3438d ; Make sure any charged moves fail ld a, BATTLE_VARS_SUBSTATUS3 call GetBattleVarPair res 4, [hl] ld a, BATTLE_VARS_MOVE call CleanGetBattleVarPair ld [$d265], a call GetMoveName ; 'disabled!' ld hl, DisabledMoveText jp FarBattleTextBox ; 343a5 HitConfusion: ; 343a5 ; 'hurt itself in its confusion!' ld hl, HurtItselfText call FarBattleTextBox xor a ld [CriticalHit], a call Function0x355dd call BattleCommand62 call BattleCommand0a xor a ld [$cfca], a ; Flicker the monster pic unless flying or underground. ld de, $0115 ld a, BATTLE_VARS_SUBSTATUS3_OPP call CleanGetBattleVarPair and $60 call z, PlayFXAnimID ld hl, $5f48 call CallBankF ld a, $1 ld [$ffd4], a ld c, $1 call Function0x35d7e jp BattleCommand0c ; 343db BattleCommand02: ; 343db ; checkobedience ; Enemy can't disobey ld a, [hBattleTurn] and a ret nz call Function0x34548 ret nz ; If we've already checked this turn ld a, [AlreadyDisobeyed] and a ret nz xor a ld [AlreadyDisobeyed], a ; No obedience in link battles (since no handling exists for enemy) ld a, [InLinkBattle] and a ret nz ld a, [$cfc0] and a ret nz ; If the monster's id doesn't match the player's, ; some conditions need to be met. ld a, PartyMon1ID - PartyMon1 call BattlePartyAttr ld a, [PlayerID] cp [hl] jr nz, .obeylevel inc hl ld a, [PlayerID + 1] cp [hl] ret z .obeylevel ; The maximum obedience level is constrained by owned badges: ld hl, JohtoBadges ; risingbadge bit 7, [hl] ld a, 101 jr nz, .getlevel ; stormbadge bit 5, [hl] ld a, 70 jr nz, .getlevel ; fogbadge bit 3, [hl] ld a, 50 jr nz, .getlevel ; hivebadge bit 1, [hl] ld a, 30 jr nz, .getlevel ; no badges ld a, 10 .getlevel ; c = obedience level ; d = monster level ; b = c + d ld b, a ld c, a ld a, [BattleMonLevel] ld d, a add b ld b, a ; No overflow (this should never happen) jr nc, .checklevel ld b, $ff .checklevel ; If the monster's level is lower than the obedience level, it will obey. ld a, c cp d ret nc ; Random number from 0 to obedience level + monster level .rand1 call FarBattleRNG swap a cp b jr nc, .rand1 ; The higher above the obedience level the monster is, ; the more likely it is to disobey. cp c ret c ; Sleep-only moves have separate handling, and a higher chance of ; being ignored. Lazy monsters like their sleep. call IgnoreSleepOnly ret c ; Another random number from 0 to obedience level + monster level .rand2 call FarBattleRNG cp b jr nc, .rand2 ; A second chance. cp c jr c, .UseInstead ; No hope of using a move now. ; b = number of levels the monster is above the obedience level ld a, d sub c ld b, a ; The chance of napping is the difference out of 256. call FarBattleRNG swap a sub b jr c, .Nap ; The chance of not hitting itself is the same. cp b jr nc, .DoNothing ; 'won't obey!' ld hl, WontObeyText call FarBattleTextBox call HitConfusion jp Function0x3450c .Nap call FarBattleRNG add a swap a and 7 jr z, .Nap ld [BattleMonStatus], a ; 'began to nap!' ld hl, BeganToNapText jr .Print .DoNothing call FarBattleRNG and 3 ; 'loafing around!' ld hl, LoafingAroundText and a jr z, .Print ; 'won't obey!' ld hl, WontObeyText dec a jr z, .Print ; 'turned away!' ld hl, TurnedAwayText dec a jr z, .Print ; 'ignored orders!' ld hl, IgnoredOrdersText .Print call FarBattleTextBox jp Function0x3450c .UseInstead ; Can't use another move if the monster only has one! ld a, [BattleMonMove2] and a jr z, .DoNothing ; Don't bother trying to handle Disable. ld a, [DisabledMove] and a jr nz, .DoNothing ld hl, BattleMonPP ld de, BattleMonMoves ld b, 0 ld c, NUM_MOVES .GetTotalPP ld a, [hli] and $3f ; exclude pp up add b ld b, a dec c jr z, .CheckMovePP ; Stop at undefined moves. inc de ld a, [de] and a jr nz, .GetTotalPP .CheckMovePP ld hl, BattleMonPP ld a, [CurMoveNum] ld e, a ld d, 0 add hl, de ; Can't use another move if only one move has PP. ld a, [hl] and $3f cp b jr z, .DoNothing ; Make sure we can actually use the move once we get there. ld a, 1 ld [AlreadyDisobeyed], a ld a, [$cfa3] ld b, a ; Save the move we originally picked for afterward. ld a, [CurMoveNum] ld c, a push af .RandomMove call FarBattleRNG and 3 cp b jr nc, .RandomMove ; Not the move we were trying to use. cp c jr z, .RandomMove ; Make sure it has PP. ld [CurMoveNum], a ld hl, BattleMonPP ld e, a ld d, 0 add hl, de ld a, [hl] and $3f jr z, .RandomMove ; Use it. ld a, [CurMoveNum] ld c, a ld b, 0 ld hl, BattleMonMoves add hl, bc ld a, [hl] ld [CurPlayerMove], a call SetPlayerTurn call UpdateMoveData call DoMove ; Restore original move choice. pop af ld [CurMoveNum], a ; fallthrough ; 3450c Function0x3450c: ; 3450c xor a ld [LastPlayerMove], a ld [LastEnemyCounterMove], a ld hl, PlayerSubStatus5 res 4, [hl] ; Break encore too. xor a ld [PlayerEncoreCount], a jp EndMoveEffect ; 3451f IgnoreSleepOnly: ; 3451f ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair cp SNORE jr z, .CheckSleep cp SLEEP_TALK jr z, .CheckSleep and a ret .CheckSleep ld a, BATTLE_VARS_STATUS call CleanGetBattleVarPair and 7 ret z ; 'ignored orders…sleeping!' ld hl, IgnoredSleepingText call FarBattleTextBox call EndMoveEffect scf ret ; 34541 BattleCommand03: ; 34541 ; usedmovetext callba DisplayUsedMoveText ret ; 34548 Function0x34548: ; 34548 ld a, [hBattleTurn] and a ld a, [$c732] ; player jr z, .end ld a, [$c733] ; enemy .end and a ret ; 34555 BattleCommand04: ; 34555 call Function0x34548 ret nz ld hl, BattleMonPP ld de, PlayerSubStatus3 ld bc, PlayerTurnsTaken ld a, [hBattleTurn] and a jr z, .asm_34570 ld hl, EnemyMonPP ld de, EnemySubStatus3 ld bc, EnemyTurnsTaken .asm_34570 ; If we've gotten this far, this counts as a turn. ld a, [bc] inc a ld [bc], a ld a, BATTLE_VARS_MOVE call CleanGetBattleVarPair cp STRUGGLE ret z ld a, [de] and %111 ; rollout | bide | ??? ret nz call .asm_345ad ld a, b and a jp nz, EndMoveEffect ; SubStatus5 inc de inc de ld a, [de] bit 3, a ret nz ld a, [hBattleTurn] and a ld hl, PartyMon1PP ld a, [CurBattleMon] jr z, .asm_345a4 ; skip this part entirely if wildbattle ld a, [IsInBattle] dec a jr z, .asm_345c5 ld hl, OTPartyMon1PP ld a, [CurOTMon] .asm_345a4 call GetPartyLocation push hl call Function0x3460b pop hl ret c .asm_345ad ld a, [hBattleTurn] and a ld a, [CurMoveNum] jr z, .asm_345b8 ld a, [CurEnemyMoveNum] .asm_345b8 ld c, a ld b, $0 add hl, bc ld a, [hl] and $3f jr z, .asm_345e3 dec [hl] ld b, $0 ret .asm_345c5 ld hl, EnemyMonMoves ld a, [CurEnemyMoveNum] ld c, a ld b, $0 add hl, bc ld a, [hl] cp MIMIC jr z, .asm_345dc ld hl, $c735 add hl, bc ld a, [hl] cp MIMIC ret z .asm_345dc ld hl, $c739 call .asm_345ad ret .asm_345e3 call BattleCommandaa ; get move effect ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair ; continuous? ld hl, .continuousmoves ld de, 1 call IsInArray ; 'has no pp left for [move]' ld hl, HasNoPPLeftText jr c, .print ; 'but no pp is left for the move' ld hl, NoPPLeftText .print call FarBattleTextBox ld b, 1 ret ; 34602 .continuousmoves ; 34602 db EFFECT_RAZOR_WIND db EFFECT_SKY_ATTACK db EFFECT_SKULL_BASH db EFFECT_SOLARBEAM db EFFECT_FLY db EFFECT_ROLLOUT db EFFECT_BIDE db EFFECT_RAMPAGE db $ff ; 3460b Function0x3460b: ; 3460b ld a, [hBattleTurn] and a ld a, [CurMoveNum] jr z, .asm_34616 ld a, [CurEnemyMoveNum] .asm_34616 ld c, a ld a, 2 call UserPartyAttr ld a, BATTLE_VARS_MOVE call CleanGetBattleVarPair cp MIMIC jr z, .asm_3462f ld b, 0 add hl, bc ld a, [hl] cp MIMIC jr nz, .asm_3462f scf ret .asm_3462f and a ret ; 34631 BattleCommand05: ; 34631 ; critical ; Determine whether this attack's hit will be critical. xor a ld [CriticalHit], a ld a, BATTLE_VARS_MOVE_POWER call CleanGetBattleVarPair and a ret z ld a, [hBattleTurn] and a ld hl, EnemyMonItem ld a, [EnemyMonSpecies] jr nz, .Item ld hl, BattleMonItem ld a, [BattleMonSpecies] .Item ld c, 0 cp CHANSEY jr nz, .Farfetchd ld a, [hl] cp LUCKY_PUNCH jr nz, .FocusEnergy ; +2 critical level ld c, 2 jr .Tally .Farfetchd cp FARFETCH_D jr nz, .FocusEnergy ld a, [hl] cp STICK jr nz, .FocusEnergy ; +2 critical level ld c, 2 jr .Tally .FocusEnergy ld a, BATTLE_VARS_SUBSTATUS4 call CleanGetBattleVarPair bit 2, a jr z, .CheckCritical ; +1 critical level inc c .CheckCritical ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair ld de, 1 ld hl, .Criticals push bc call IsInArray pop bc jr nc, .ScopeLens ; +2 critical level inc c inc c .ScopeLens push bc call GetUserItem ld a, b cp $49 ; Increased critical chance. Only Scope Lens has this. pop bc jr nz, .Tally ; +1 critical level inc c .Tally ld hl, .Chances ld b, 0 add hl, bc call FarBattleRNG cp [hl] ret nc ld a, 1 ld [CriticalHit], a ret .Criticals db KARATE_CHOP, RAZOR_WIND, RAZOR_LEAF, CRABHAMMER, SLASH, AEROBLAST, CROSS_CHOP, $ff .Chances ; 6.25% 12.1% 24.6% 33.2% 49.6% 49.6% 49.6% db $11, $20, $40, $55, $80, $80, $80 ; 0 1 2 3 4 5 6 ; 346b2 BattleCommand4e: ; 346b2 ; triplekick ld a, [$c689] ld b, a inc b ld hl, CurDamage + 1 ld a, [hld] ld e, a ld a, [hli] ld d, a .asm_346be dec b ret z ld a, [hl] add e ld [hld], a ld a, [hl] adc d ld [hli], a ; No overflow. jr nc, .asm_346be ld a, $ff ld [hld], a ld [hl], a ret ; 346cd BattleCommand4f: ; 346cd ; kickcounter ld hl, $c689 inc [hl] ret ; 346d2 BattleCommand07: ; 346d2 ; stab ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair cp STRUGGLE ret z ld hl, BattleMonType1 ld a, [hli] ld b, a ld c, [hl] ld hl, EnemyMonType1 ld a, [hli] ld d, a ld e, [hl] ld a, [hBattleTurn] and a jr z, .go ld hl, EnemyMonType1 ld a, [hli] ld b, a ld c, [hl] ld hl, BattleMonType1 ld a, [hli] ld d, a ld e, [hl] .go ld a, BATTLE_VARS_MOVE_TYPE call GetBattleVarPair ld [$d265], a push hl push de push bc callba DoWeatherModifiers pop bc pop de pop hl push de push bc callba DoBadgeTypeBoosts pop bc pop de ld a, [$d265] cp b jr z, .stab cp c jr z, .stab jr .asm_3473a .stab ld hl, CurDamage + 1 ld a, [hld] ld h, [hl] ld l, a ld b, h ld c, l srl b rr c add hl, bc ld a, h ld [CurDamage], a ld a, l ld [CurDamage + 1], a ld hl, TypeModifier set 7, [hl] .asm_3473a ld a, BATTLE_VARS_MOVE_TYPE call CleanGetBattleVarPair ld b, a ld hl, TypeMatchup .asm_34743 ld a, [hli] cp $ff jr z, .end ; foresight cp $fe jr nz, .asm_34757 ld a, BATTLE_VARS_SUBSTATUS1_OPP call CleanGetBattleVarPair bit 3, a jr nz, .end jr .asm_34743 .asm_34757 cp b jr nz, .asm_347b3 ld a, [hl] cp d jr z, .asm_34763 cp e jr z, .asm_34763 jr .asm_347b3 .asm_34763 push hl push bc inc hl ld a, [TypeModifier] and %10000000 ld b, a ld a, [hl] and a jr nz, .asm_34775 inc a ld [AttackMissed], a xor a .asm_34775 ld [$ffb7], a add b ld [TypeModifier], a xor a ld [$ffb4], a ld hl, CurDamage ld a, [hli] ld [$ffb5], a ld a, [hld] ld [$ffb6], a call Multiply ld a, [$ffb4] ld b, a ld a, [$ffb5] or b ld b, a ld a, [$ffb6] or b jr z, .asm_347ab ld a, $a ld [$ffb7], a ld b, $4 call Divide ld a, [$ffb5] ld b, a ld a, [$ffb6] or b jr nz, .asm_347ab ld a, $1 ld [$ffb6], a .asm_347ab ld a, [$ffb5] ld [hli], a ld a, [$ffb6] ld [hl], a pop bc pop hl .asm_347b3 inc hl inc hl jr .asm_34743 .end call Function0x347c8 ld a, [$d265] ld b, a ld a, [TypeModifier] and $80 or b ld [TypeModifier], a ret ; 347c8 Function0x347c8: ; 347c8 ld hl, EnemyMonType1 ld a, [hBattleTurn] and a jr z, Function0x347d3 ld hl, BattleMonType1 ; fallthrough ; 347d3 Function0x347d3: ; 347d3 push hl push de push bc ld a, BATTLE_VARS_MOVE_TYPE call CleanGetBattleVarPair ld d, a ld b, [hl] inc hl ld c, [hl] ld a, $a ld [$d265], a ld hl, TypeMatchup .asm_347e7 ld a, [hli] cp $ff jr z, .asm_3482f ; 0x347ea $43 cp $fe jr nz, .asm_347fb ; 0x347ee $b ld a, BATTLE_VARS_SUBSTATUS1_OPP call CleanGetBattleVarPair bit SUBSTATUS_IDENTIFIED, a jr nz, .asm_3482f ; 0x347f7 $36 jr .asm_347e7 ; 0x347f9 $ec .asm_347fb cp d jr nz, .asm_34807 ; 0x347fc $9 ld a, [hli] cp b jr z, .asm_3480b ; 0x34800 $9 cp c jr z, .asm_3480b ; 0x34803 $6 jr .asm_34808 ; 0x34805 $1 .asm_34807 inc hl .asm_34808 inc hl jr .asm_347e7 ; 0x34809 $dc .asm_3480b xor a ld [$ffb3], a ld [$ffb4], a ld [$ffb5], a ld a, [hli] ld [$ffb6], a ld a, [$d265] ld [$ffb7], a call Multiply ld a, $a ld [$ffb7], a push bc ld b, $4 call Divide pop bc ld a, [$ffb6] ld [$d265], a jr .asm_347e7 ; 0x3482d $b8 .asm_3482f pop bc pop de pop hl ret ; 34833 BattleCommanda3: ; 34833 call Function0x347c8 ld a, [$d265] and a ld a, $a jr nz, .asm_3484a ; 3483c $c call ResetDamage xor a ld [TypeModifier], a inc a ld [AttackMissed], a ret .asm_3484a ld [$d265], a ret ; 3484e Function0x3484e: ; 3484e push hl push de push bc ld a, $a ld [$c716], a ld hl, PlayerUsedMoves ld a, [hl] and a jr z, .asm_348b0 ; 0x3485b $53 ld d, $4 ld e, $0 .asm_34861 ld a, [hli] and a jr z, .asm_3489f ; 0x34863 $3a push hl dec a ld hl, Moves + PlayerMovePower - PlayerMoveStruct call GetMoveAttr and a jr z, .asm_3489b ; 0x3486e $2b inc hl call GetMoveByte ld hl, EnemyMonType1 call Function0x347d3 ld a, [$d265] cp $b jr nc, .asm_34895 ; 0x3487f $14 and a jr z, .asm_3489b ; 0x34882 $17 cp $a jr nc, .asm_34891 ; 0x34886 $9 ld a, e cp $1 jr nc, .asm_3489b ; 0x3488b $e ld e, $1 jr .asm_3489b ; 0x3488f $a .asm_34891 ld e, $2 jr .asm_3489b ; 0x34893 $6 .asm_34895 call Function0x34931 pop hl jr .asm_348d7 ; 0x34899 $3c .asm_3489b pop hl dec d jr nz, .asm_34861 ; 0x3489d $c2 .asm_3489f ld a, e cp $2 jr z, .asm_348d7 ; 0x348a2 $33 call Function0x34939 ld a, e and a jr nz, .asm_348d7 ; 0x348a9 $2c call Function0x34939 jr .asm_348d7 ; 0x348ae $27 .asm_348b0 ld a, [BattleMonType1] ld b, a ld hl, EnemyMonType1 call Function0x347d3 ld a, [$d265] cp $b jr c, .asm_348c4 ; 0x348bf $3 call Function0x34931 .asm_348c4 ld a, [BattleMonType2] cp b jr z, .asm_348d7 ; 0x348c8 $d call Function0x347d3 ld a, [$d265] cp $b jr c, .asm_348d7 ; 0x348d2 $3 call Function0x34931 .asm_348d7 call Function0x348de pop bc pop de pop hl ret ; 348de Function0x348de: ; 348de ld de, EnemyMonMove1 ld b, 5 ld c, 0 ld a, [$d265] push af .loop dec b jr z, .exit ld a, [de] and a jr z, .exit inc de dec a ld hl, Moves + PlayerMovePower - PlayerMoveStruct call GetMoveAttr and a jr z, .loop inc hl call GetMoveByte ld hl, BattleMonType1 call Function0x347d3 ld a, [$d265] and a jr z, .loop inc c cp $a jr c, .loop inc c inc c inc c inc c inc c cp $a jr z, .loop ld c, $64 jr .loop .exit pop af ld [$d265], a ld a, c and a jr z, .doubledown ; double down cp $5 jr c, Function0x34931 ; down cp $64 ret c jr Function0x34939 ; up .doubledown call Function0x34931 ; fallthrough ; 34931 Function0x34931: ; 34931 ld a, [$c716] dec a ld [$c716], a ret ; 34939 Function0x34939: ; 34939 ld a, [$c716] inc a ld [$c716], a ret ; 34941 Function0x34941: ; 34941 xor a ld [$c717], a call Function0x349f4 ret c ld a, [EnemySubStatus1] bit 4, a jr z, .asm_34986 ld a, [$c67f] cp $1 jr nz, .asm_34986 call Function0x349f4 call Function0x34b77 call Function0x34b20 call Function0x34a85 ld a, e cp $2 jr nz, .asm_34971 ld a, [$c716] add $30 ld [$c717], a ret .asm_34971 call Function0x349f4 sla c sla c ld b, $ff .asm_3497a inc b sla c jr nc, .asm_3497a ld a, b add $30 ld [$c717], a ret .asm_34986 call Function0x3484e ld a, [$c716] cp $b ret nc ld a, [LastEnemyCounterMove] and a jr z, .asm_349d2 call Function0x34a2a ld a, [$c716] and a jr z, .asm_349d2 ld c, a call Function0x34aa7 ld a, [$c716] cp $ff ret z ld b, a ld a, e cp $2 jr z, .asm_349be call Function0x3484e ld a, [$c716] cp $a ret nc ld a, b add $10 ld [$c717], a ret .asm_349be ld c, $10 call Function0x3484e ld a, [$c716] cp $a jr nc, .asm_349cc ld c, $20 .asm_349cc ld a, b add c ld [$c717], a ret .asm_349d2 call Function0x3484e ld a, [$c716] cp $a ret nc call Function0x349f4 call Function0x34b77 call Function0x34b20 call Function0x34a85 ld a, e cp $2 ret nz ld a, [$c716] add $10 ld [$c717], a ret ; 349f4 Function0x349f4: ; 349f4 ld a, [OTPartyCount] cp 2 jr c, .asm_34a26 ld d, a ld e, 0 ld b, $20 ld c, 0 ld hl, OTPartyMon1CurHP .asm_34a05 ld a, [CurOTMon] cp e jr z, .asm_34a16 push bc ld b, [hl] inc hl ld a, [hld] or b pop bc jr z, .asm_34a16 ld a, c or b ld c, a .asm_34a16 srl b push bc ld bc, $30 add hl, bc pop bc inc e dec d jr nz, .asm_34a05 ld a, c and a jr nz, .asm_34a28 .asm_34a26 scf ret .asm_34a28 and a ret ; 34a2a Function0x34a2a: ; 34a2a ld hl, OTPartyMon1 ld a, [OTPartyCount] ld b, a ld c, $20 ld d, 0 xor a ld [$c716], a .asm_34a39 ld a, [CurOTMon] cp d push hl jr z, .asm_34a77 push hl push bc ld bc, $0022 add hl, bc pop bc ld a, [hli] or [hl] pop hl jr z, .asm_34a77 ld a, [hl] ld [CurSpecies], a call GetBaseData ld a, [LastEnemyCounterMove] dec a ld hl, Moves + PlayerMovePower - PlayerMoveStruct call GetMoveAttr and a jr z, .asm_34a77 inc hl call GetMoveByte ld hl, $d23d call Function0x347d3 ld a, [$d265] and a jr nz, .asm_34a77 ld a, [$c716] or c ld [$c716], a .asm_34a77 pop hl dec b ret z push bc ld bc, $30 add hl, bc pop bc inc d srl c jr .asm_34a39 ; 34a85 Function0x34a85: ; 34a85 push bc ld a, [OTPartyCount] ld e, a ld hl, OTPartyMon1CurHP ld b, $20 ld c, $0 .asm_34a91 ld a, [hli] or [hl] jr z, .asm_34a98 ld a, b or c ld c, a .asm_34a98 srl b push bc ld bc, $2f add hl, bc pop bc dec e jr nz, .asm_34a91 ld a, c pop bc and c ld c, a ; fallthrough ; 34aa7 Function0x34aa7: ; 34aa7 ld a, $ff ld [$c716], a ld hl, OTPartyMon1Move1 ld b, $20 ld d, $0 ld e, $0 .asm_34ab5 ld a, b and c jr z, .asm_34b00 push hl push bc ld b, $4 ld c, $0 .asm_34abf ld a, [hli] and a push hl jr z, .asm_34aef dec a ld hl, Moves + PlayerMovePower - PlayerMoveStruct call GetMoveAttr and a jr z, .asm_34ae9 inc hl call GetMoveByte ld hl, BattleMonType1 call Function0x347d3 ld a, [$d265] cp $a jr c, .asm_34ae9 ld e, $1 cp $b jr c, .asm_34ae9 ld e, $2 jr .asm_34aef .asm_34ae9 pop hl dec b jr nz, .asm_34abf jr .asm_34af0 .asm_34aef pop hl .asm_34af0 ld a, e pop bc pop hl cp $2 jr z, .asm_34b0e cp $1 jr nz, .asm_34b00 ld a, d or b ld d, a jr .asm_34b00 .asm_34b00 push bc ld bc, $0030 add hl, bc pop bc srl b jr nc, .asm_34ab5 ld a, d ld b, a and a ret z .asm_34b0e push bc sla b sla b ld c, $ff .asm_34b15 inc c sla b jr nc, .asm_34b15 ld a, c ld [$c716], a pop bc ret ; 34b20 Function0x34b20: ; 34b20 push bc ld hl, OTPartySpecies ld b, $20 ld c, $0 .asm_34b28 ld a, [hli] cp $ff jr z, .asm_34b72 push hl ld [CurSpecies], a call GetBaseData ld a, [LastEnemyCounterMove] and a jr z, .asm_34b4a dec a ld hl, Moves + PlayerMovePower - PlayerMoveStruct call GetMoveAttr and a jr z, .asm_34b4a inc hl call GetMoveByte jr .asm_34b5d .asm_34b4a ld a, [BattleMonType1] ld hl, $d23d call Function0x347d3 ld a, [$d265] cp $b jr nc, .asm_34b6d ld a, [BattleMonType2] .asm_34b5d ld hl, $d23d call Function0x347d3 ld a, [$d265] cp $b jr nc, .asm_34b6d ld a, b or c ld c, a .asm_34b6d srl b pop hl jr .asm_34b28 .asm_34b72 ld a, c pop bc and c ld c, a ret ; 34b77 Function0x34b77: ; 34b77 push bc ld de, OTPartySpecies ld b, $20 ld c, 0 ld hl, OTPartyMon1CurHP .asm_34b82 ld a, [de] inc de cp $ff jr z, .asm_34bac push hl push bc ld b, [hl] inc hl ld c, [hl] inc hl inc hl srl c rl b srl c rl b ld a, [hld] cp c ld a, [hl] sbc b pop bc jr nc, .asm_34ba1 ld a, b or c ld c, a .asm_34ba1 srl b pop hl push bc ld bc, $0030 add hl, bc pop bc jr .asm_34b82 .asm_34bac ld a, c pop bc and c ld c, a ret ; 34bb1 TypeMatchup: ; 34bb1 INCLUDE "battle/type_matchup.asm" ; 34cfd BattleCommand08: ; 34cfd ; damagevariation ; Modify the damage spread between 85% and 100%. ; Because of the method of division the probability distribution ; is not consistent. This makes the highest damage multipliers ; rarer than normal. ; No point in reducing 1 or 0 damage. ld hl, CurDamage ld a, [hli] and a jr nz, .go ld a, [hl] cp 2 ret c .go ; Start with the maximum damage. xor a ld [$ffb4], a dec hl ld a, [hli] ld [$ffb5], a ld a, [hl] ld [$ffb6], a ; Multiply by 85-100%... .loop call FarBattleRNG rrca cp $d9 ; 85% jr c, .loop ld [$ffb7], a call Multiply ; ...divide by 100%... ld a, $ff ; 100% ld [$ffb7], a ld b, $4 call Divide ; ...to get .85-1.00x damage. ld a, [$ffb5] ld hl, CurDamage ld [hli], a ld a, [$ffb6] ld [hl], a ret ; 34d32 BattleCommand09: ; 34d32 ; checkhit call .DreamEater jp z, .Miss call .Protect jp nz, .Miss call .DrainSub jp z, .Miss call .LockOn ret nz call .FlyDigMoves jp nz, .Miss call .ThunderRain ret z call .UnleashedEnergy ret nz ; Perfect-accuracy moves ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_ALWAYS_HIT ret z call .StatModifiers ld a, [PlayerMoveAccuracy] ld b, a ld a, [hBattleTurn] and a jr z, .BrightPowder ld a, [EnemyMoveAccuracy] ld b, a .BrightPowder push bc call GetOpponentItem ld a, b cp HELD_BRIGHTPOWDER ld a, c ; % miss pop bc jr nz, .asm_34d81 ld c, a ld a, b sub c ld b, a jr nc, .asm_34d81 ld b, 0 .asm_34d81 ld a, b cp $ff jr z, .Hit call FarBattleRNG cp b jr nc, .Miss .Hit ret .Miss ; Keep the damage value intact if we're using (Hi) Jump Kick. ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_JUMP_KICK jr z, .Missed call ResetDamage .Missed ld a, 1 ld [AttackMissed], a ret .DreamEater ; Return z if we're trying to eat the dream of ; a monster that isn't sleeping. ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_DREAM_EATER ret nz ld a, BATTLE_VARS_STATUS_OPP call CleanGetBattleVarPair and SLP ret .Protect ; Return nz if the opponent is protected. ld a, BATTLE_VARS_SUBSTATUS1_OPP call CleanGetBattleVarPair bit SUBSTATUS_PROTECT, a ret z ld c, 40 call DelayFrames ; 'protecting itself!' ld hl, ProtectingItselfText call FarBattleTextBox ld c, 40 call DelayFrames ld a, 1 and a ret .LockOn ; Return nz if we are locked-on and aren't trying to use Earthquake, ; Fissure or Magnitude on a monster that is flying. ld a, BATTLE_VARS_SUBSTATUS5_OPP call GetBattleVarPair bit SUBSTATUS_LOCK_ON, [hl] res SUBSTATUS_LOCK_ON, [hl] ret z ld a, BATTLE_VARS_SUBSTATUS3_OPP call CleanGetBattleVarPair bit SUBSTATUS_FLYING, a jr z, .LockedOn ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair cp EARTHQUAKE ret z cp FISSURE ret z cp MAGNITUDE ret z .LockedOn ld a, 1 and a ret .DrainSub ; Return z if using an HP drain move on a substitute. call CheckSubstituteOpp jr z, .asm_34e00 ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_LEECH_HIT ret z cp EFFECT_DREAM_EATER ret z .asm_34e00 ld a, 1 and a ret .FlyDigMoves ; Check for moves that can hit underground/flying opponents. ; Return z if the current move can hit the opponent. ld a, BATTLE_VARS_SUBSTATUS3_OPP call CleanGetBattleVarPair and 1 << SUBSTATUS_FLYING | 1 << SUBSTATUS_UNDERGROUND ret z bit SUBSTATUS_FLYING, a jr z, .DigMoves ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair cp GUST ret z cp WHIRLWIND ret z cp THUNDER ret z cp TWISTER ret .DigMoves ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair cp EARTHQUAKE ret z cp FISSURE ret z cp MAGNITUDE ret .ThunderRain ; Return z if the current move always hits in rain, and it is raining. ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_THUNDER ret nz ld a, [Weather] cp WEATHER_RAIN ret .UnleashedEnergy ; Return nz if unleashing energy from Bide. ld a, BATTLE_VARS_SUBSTATUS4 call CleanGetBattleVarPair bit SUBSTATUS_UNLEASH, a ret .StatModifiers ld a, [hBattleTurn] and a ld hl, PlayerMoveAccuracy ld a, [PlayerAccLevel] ld b, a ld a, [EnemyEvaLevel] ld c, a jr z, .asm_34e60 ld hl, EnemyMoveAccuracy ld a, [EnemyAccLevel] ld b, a ld a, [PlayerEvaLevel] ld c, a .asm_34e60 cp b jr c, .asm_34e6b ld a, BATTLE_VARS_SUBSTATUS1_OPP call CleanGetBattleVarPair bit SUBSTATUS_IDENTIFIED, a ret nz .asm_34e6b ld a, $e sub c ld c, a xor a ld [$ffb4], a ld [$ffb5], a ld a, [hl] ld [$ffb6], a push hl ld d, $2 .asm_34e7a push bc ld hl, .AccProb dec b sla b ld c, b ld b, 0 add hl, bc pop bc ld a, [hli] ld [$ffb7], a call Multiply ld a, [hl] ld [$ffb7], a ld b, $4 call Divide ld a, [$ffb6] ld b, a ld a, [$ffb5] or b jr nz, .asm_34ea2 ld [$ffb5], a ld a, $1 ld [$ffb6], a .asm_34ea2 ld b, c dec d jr nz, .asm_34e7a ld a, [$ffb5] and a ld a, [$ffb6] jr z, .asm_34eaf ld a, $ff .asm_34eaf pop hl ld [hl], a ret .AccProb db 33, 100 ; 33% -6 db 36, 100 ; 36% -5 db 43, 100 ; 43% -4 db 50, 100 ; 50% -3 db 60, 100 ; 60% -2 db 75, 100 ; 75% -1 db 1, 1 ; 100% 0 db 133, 100 ; 133% +1 db 166, 100 ; 166% +2 db 2, 1 ; 200% +3 db 233, 100 ; 233% +4 db 133, 50 ; 266% +5 db 3, 1 ; 300% +6 ; 34ecc BattleCommand90: ; 34ecc ; effectchance xor a ld [EffectFailed], a call CheckSubstituteOpp jr nz, .failed push hl ld hl, PlayerMoveEffectChance ld a, [hBattleTurn] and a jr z, .asm_34ee1 ld hl, EnemyMoveEffectChance .asm_34ee1 call FarBattleRNG cp [hl] pop hl ret c .failed ld a, 1 ld [EffectFailed], a and a ret ; 34eee BattleCommand0a: ; 34eee ld a, BATTLE_VARS_SUBSTATUS4 call CleanGetBattleVarPair bit SUBSTATUS_SUBSTITUTE, a ret z ld a, BATTLE_VARS_SUBSTATUS3 call CleanGetBattleVarPair bit SUBSTATUS_CHARGED, a jr nz, .asm_34f18 ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_RAZOR_WIND jr z, .asm_34f21 cp EFFECT_SKY_ATTACK jr z, .asm_34f21 cp EFFECT_SKULL_BASH jr z, .asm_34f21 cp EFFECT_SOLARBEAM jr z, .asm_34f21 cp EFFECT_FLY jr z, .asm_34f21 .asm_34f18 call .Rampage jr z, .asm_34f21 call Function0x34548 ret nz .asm_34f21 call Function0x37ed5 jr c, .asm_34f36 xor a ld [$cfca], a ld [FXAnimIDHi], a inc a ld [$c689], a ld a, $a4 jp Function0x37e44 .asm_34f36 call BattleCommanda7 jp BattleCommandaa .Rampage ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_ROLLOUT jr z, .asm_34f4d cp EFFECT_RAMPAGE jr z, .asm_34f4d ld a, 1 and a ret .asm_34f4d ld a, [$c73e] and a ld a, 0 ld [$c73e], a ret ; 34f57 BattleCommandab: ; 34f57 ; hittarget call BattleCommand0a call BattleCommand0b jp BattleCommand0c ; 34f60 BattleCommand0b: ; 34f60 ld a, [AttackMissed] and a jp nz, BattleCommandaa ld a, [hBattleTurn] and a ld de, PlayerRolloutCount ld a, 1 jr z, .asm_34f76 ld de, EnemyRolloutCount ld a, 4 .asm_34f76 ld [$cfca], a ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_MULTI_HIT jr z, .asm_34fb0 cp EFFECT_CONVERSION jr z, .asm_34fb0 cp EFFECT_DOUBLE_HIT jr z, .asm_34fb0 cp EFFECT_TWINEEDLE jr z, .asm_34fb0 cp EFFECT_TRIPLE_KICK jr z, .asm_34f96 xor a ld [$c689], a .asm_34f96 ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair ld e, a ld d, 0 call PlayFXAnimID ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair cp FLY jr z, .asm_34fad cp DIG ret nz .asm_34fad ; clear sprite jp Function0x37ec7 .asm_34fb0 ld a, [$c689] and 1 xor 1 ld [$c689], a ld a, [de] cp $1 push af ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair ld e, a ld d, 0 pop af jp z, PlayFXAnimID xor a ld [$cfca], a jp PlayFXAnimID ; 34fd1 BattleCommand92: ; 34fd1 ld a, [AttackMissed] and a jp nz, BattleCommandaa xor a jr BattleCommand91_92 ; 34fdb BattleCommand91: ; 34fdb ld a, [AttackMissed] and a jp nz, BattleCommandaa ld a, [hBattleTurn] and a ld a, 2 jr z, BattleCommand91_92 ld a, 5 ; fallthrough ; 34feb BattleCommand91_92: ; 34feb ld [$cfca], a xor a ld [$c689], a ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair ld e, a ld d, 0 jp PlayFXAnimID ; 34ffd SwitchTurn: ; 34ffd BattleCommand93: ; 34ffd ; switchturn ld a, [hBattleTurn] xor 1 ld [hBattleTurn], a ret ; 35004 BattleCommand0c: ; 35004 ld a, BATTLE_VARS_SUBSTATUS4 call CleanGetBattleVarPair bit SUBSTATUS_SUBSTITUTE, a ret z call Function0x37ed5 jp c, BattleCommanda6 xor a ld [$cfca], a ld [FXAnimIDHi], a ld a, $2 ld [$c689], a ld a, $a4 jp Function0x37e44 ; 35023 BattleCommand0d: ; 35023 ; resulttext ld a, [AttackMissed] and a ret z call Function0x350e4 ld a, BATTLE_VARS_MOVE_ANIM call GetBattleVarPair cp FLY jr z, .asm_3504f ; 35032 $1b cp DIG jr z, .asm_3504f ; 35036 $17 ; Move effect: inc hl ld a, [hl] cp EFFECT_MULTI_HIT jr z, .asm_35049 cp EFFECT_DOUBLE_HIT jr z, .asm_35049 cp EFFECT_TWINEEDLE jr z, .asm_35049 jp EndMoveEffect .asm_35049 call BattleCommand0c jp EndMoveEffect .asm_3504f ld a, BATTLE_VARS_SUBSTATUS3 call GetBattleVarPair res SUBSTATUS_UNDERGROUND, [hl] res SUBSTATUS_FLYING, [hl] call Function0x37ece jp EndMoveEffect ; 3505e BattleCommand0e: ; 3505e ; checkfaint ld a, BATTLE_VARS_SUBSTATUS1_OPP call CleanGetBattleVarPair bit SUBSTATUS_ENDURE, a jr z, .asm_35072 ; 35065 $b call BattleCommand4b ld b, $0 jr nc, .asm_3508b ; 3506c $1d ld b, $1 jr .asm_3508b ; 35070 $19 .asm_35072 call GetOpponentItem ld a, b cp HELD_FOCUS_BAND ld b, $0 jr nz, .asm_3508b ; 3507a $f call FarBattleRNG cp c jr nc, .asm_3508b ; 35080 $9 call BattleCommand4b ld b, $0 jr nc, .asm_3508b ; 35087 $2 ld b, $2 .asm_3508b push bc call .asm_50bb ld c, $0 ld a, [hBattleTurn] and a jr nz, .asm_3509b call Function0x35d1c jr .asm_3509e .asm_3509b call Function0x35d7e .asm_3509e pop bc ld a, b and a ret z dec a jr nz, .asm_350ab ; 350a3 $6 ld hl, EnduredText jp FarBattleTextBox .asm_350ab call GetOpponentItem ld a, [hl] ld [$d265], a call GetItemName ld hl, HungOnText jp FarBattleTextBox .asm_50bb ld a, BATTLE_VARS_SUBSTATUS4_OPP call CleanGetBattleVarPair bit SUBSTATUS_SUBSTITUTE, a ret nz ld de, PlayerDamageTaken + 1 ld a, [hBattleTurn] and a jr nz, .asm_350ce ld de, EnemyDamageTaken + 1 .asm_350ce ld a, [CurDamage + 1] ld b, a ld a, [de] add b ld [de], a dec de ld a, [CurDamage] ld b, a ld a, [de] adc b ld [de], a ret nc ld a, $ff ld [de], a inc de ld [de], a ret ; 350e4 Function0x350e4: ; 350e4 ld hl, DoesntAffectText ld de, DoesntAffectText ld a, [TypeModifier] and $7f jr z, .asm_35110 ; 0x350ef $1f ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_FUTURE_SIGHT ld hl, ButItFailedText ld de, ItFailedText jr z, .asm_35110 ; 0x350fe $10 ld hl, AttackMissedText ld de, AttackMissed2Text ld a, [CriticalHit] cp $ff jr nz, .asm_35110 ; 0x3510b $3 ld hl, UnaffectedText .asm_35110 call Function0x35157 xor a ld [CriticalHit], a ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_JUMP_KICK ret nz ld a, [TypeModifier] and $7f ret z ld hl, CurDamage ld a, [hli] ld b, [hl] srl a rr b srl a rr b srl a rr b ld [hl], b dec hl ld [hli], a or b jr nz, .asm_3513e ; 0x3513a $2 inc a ld [hl], a .asm_3513e ld hl, CrashedText call FarBattleTextBox ld a, $1 ld [$c689], a call Function0x37e36 ld c, $1 ld a, [hBattleTurn] and a jp nz, Function0x35d1c jp Function0x35d7e Function0x35157: ; 35157 ld a, BATTLE_VARS_SUBSTATUS1_OPP call CleanGetBattleVarPair bit SUBSTATUS_PROTECT, a jr z, .asm_35162 ld h, d ld l, e .asm_35162 jp FarBattleTextBox ; 35165 BattleCommanda5: ; 35165 ld a, [AttackMissed] and a ret z ld a, [TypeModifier] and $7f jp z, PrintDoesntAffect jp PrintButItFailed ; 35175 BattleCommand0f: ; 35175 ; criticaltext ; Prints the message for critical hits or one-hit KOs. ; If there is no message to be printed, wait 20 frames. ld a, [CriticalHit] and a jr z, .wait dec a add a ld hl, .ptrs ld b, 0 ld c, a add hl, bc ld a, [hli] ld h, [hl] ld l, a call FarBattleTextBox xor a ld [CriticalHit], a .wait ld c, 20 jp DelayFrames .ptrs dw CriticalHitText ; 'critical hit' dw OneHitKOText ; 'one-hit ko' ; 35197 BattleCommandae: ; 35197 ; startloop ld hl, PlayerRolloutCount ld a, [hBattleTurn] and a jr z, .asm_351a2 ld hl, EnemyRolloutCount .asm_351a2 xor a ld [hl], a ret ; 351a5 BattleCommandad: ; 351a5 ; supereffectivelooptext ld a, BATTLE_VARS_SUBSTATUS3 call GetBattleVarPair bit 2, a ret nz ; fallthrough ; 351ad BattleCommand10: ; 351ad ; supereffectivetext ld a, [TypeModifier] and $7f cp 10 ; 1.0 ret z ld hl, SuperEffectiveText ; 'super-effective' jr nc, .print ld hl, NotVeryEffectiveText ; 'not very effective' .print jp FarBattleTextBox ; 351c0 BattleCommand11: ; 351c0 ; checkdestinybond ; Faint the user if it fainted an opponent using Destiny Bond. ld hl, EnemyMonHPHi ld a, [hBattleTurn] and a jr z, .asm_351cb ld hl, BattleMonHP .asm_351cb ld a, [hli] or [hl] ret nz ld a, BATTLE_VARS_SUBSTATUS5_OPP call CleanGetBattleVarPair bit SUBSTATUS_DESTINY_BOND, a jr z, .asm_35231 ld hl, TookDownWithItText call FarBattleTextBox ld a, [hBattleTurn] and a ld hl, EnemyMonMaxHP + 1 bccoord 2, 2 ; hp bar ld a, 0 jr nz, .asm_351f2 ld hl, BattleMonMaxHP + 1 bccoord 10, 9 ; hp bar ld a, 1 .asm_351f2 ld [$d10a], a ld a, [hld] ld [$d1ea], a ld a, [hld] ld [$d1eb], a ld a, [hl] ld [$d1ec], a xor a ld [hld], a ld a, [hl] ld [$d1ed], a xor a ld [hl], a ld [$d1ee], a ld [$d1ef], a ld h, b ld l, c ld a, $b call Predef call RefreshBattleHuds call SwitchTurn xor a ld [$cfca], a ld [FXAnimIDHi], a inc a ld [$c689], a ld a, $c2 call Function0x37e44 call SwitchTurn jr .asm_3524d ; 3522f $1c .asm_35231 ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_MULTI_HIT jr z, .asm_3524a cp EFFECT_DOUBLE_HIT jr z, .asm_3524a cp EFFECT_TWINEEDLE jr z, .asm_3524a cp EFFECT_TRIPLE_KICK jr z, .asm_3524a cp EFFECT_BEAT_UP jr nz, .asm_3524d .asm_3524a call BattleCommand0c .asm_3524d jp EndMoveEffect ; 35250 BattleCommand12: ; 35250 ; buildopponentrage jp .start .start ld a, [AttackMissed] and a ret nz ld a, BATTLE_VARS_SUBSTATUS4_OPP call CleanGetBattleVarPair bit SUBSTATUS_RAGE, a ret z ld de, $c72c ld a, [hBattleTurn] and a jr z, .asm_3526b ld de, $c72b .asm_3526b ld a, [de] inc a ret z ld [de], a call SwitchTurn ld hl, RageBuildingText call FarBattleTextBox jp SwitchTurn ; 3527b BattleCommanda2: ; 3527b ; ragedamage ld a, [CurDamage] ld h, a ld b, a ld a, [CurDamage + 1] ld l, a ld c, a ld a, [hBattleTurn] and a ld a, [$c72b] jr z, .asm_35290 ; 3528b $3 ld a, [$c72c] .asm_35290 and a jr z, .asm_3529a ; 35291 $7 dec a add hl, bc jr nc, .asm_35290 ; 35295 $f9 ld hl, $ffff .asm_3529a ld a, h ld [CurDamage], a ld a, l ld [CurDamage + 1], a ret ; 352a3 EndMoveEffect: ; 352a3 ld a, [BattleScriptBufferLoc] ld l, a ld a, [BattleScriptBufferLoc + 1] ld h, a ld a, $ff ld [hli], a ld [hli], a ld [hl], a ret ; 352b1 DittoMetalPowder: ; 352b1 ld a, PartyMon1Species - PartyMon1 call BattlePartyAttr ld a, [hBattleTurn] and a ld a, [hl] jr nz, .Ditto ld a, [TempEnemyMonSpecies] .Ditto cp DITTO ret nz push bc call GetOpponentItem ld a, [hl] cp METAL_POWDER pop bc ret nz ld a, c srl a add c ld c, a ret nc srl b ld a, b and a jr nz, .asm_352d8 inc b .asm_352d8 scf rr c ret ; 352dc BattleCommand06: ; 352dc ; damagestats ld a, [hBattleTurn] and a jp nz, EnemyAttackDamage ; fallthrough ; 352e2 PlayerAttackDamage: ; 352e2 ; Return move power d, player level e, enemy defense c and player attack b. call ResetDamage ld hl, PlayerMovePower ld a, [hli] and a ld d, a ret z ld a, [hl] cp FIRE jr nc, .special ; Physical ld hl, EnemyMonDef ld a, [hli] ld b, a ld c, [hl] ; Reflect ld a, [EnemyScreens] bit 4, a jr z, .physicalcrit sla c rl b .physicalcrit ld hl, BattleMonAtk call GetDamageStatsCritical jr c, .thickclub ld hl, $c6c3 ld a, [hli] ld b, a ld c, [hl] ld hl, PlayerStats jr .thickclub .special ld hl, EnemyMonSpclDef ld a, [hli] ld b, a ld c, [hl] ; Light Screen ld a, [EnemyScreens] bit 3, a jr z, .specialcrit sla c rl b .specialcrit ld hl, BattleMonSpclAtk call GetDamageStatsCritical jr c, .lightball ld hl, $c6c9 ld a, [hli] ld b, a ld c, [hl] ld hl, $c6bc .lightball ; Note: Returns player special attack at hl in hl. call LightBallBoost jr .done .thickclub ; Note: Returns player attack at hl in hl. call ThickClubBoost .done call Function0x3534d ld a, [BattleMonLevel] ld e, a call DittoMetalPowder ld a, 1 and a ret ; 3534d Function0x3534d: ; 3534d ; Truncate 16-bit values hl and bc to 8-bit values b and c respectively. ; b = hl, c = bc ld a, h or b jr z, .asm_3536b srl b rr c srl b rr c ld a, c or b jr nz, .asm_3535e inc c .asm_3535e srl h rr l srl h rr l ld a, l or h jr nz, .asm_3536b inc l .asm_3536b ld a, [InLinkBattle] cp 3 jr z, .done ld a, h or b jr nz, Function0x3534d .done ld b, l ret ; 35378 GetDamageStatsCritical: ; 35378 ; Return carry if non-critical. ld a, [CriticalHit] and a scf ret z ; fallthrough ; 3537e GetDamageStats: ; 3537e ; Return the attacker's offensive stat and the defender's defensive ; stat based on whether the attacking type is physical or special. push hl push bc ld a, [hBattleTurn] and a jr nz, .enemy ld a, [PlayerMoveType] cp FIRE ; special ld a, [PlayerSAtkLevel] ld b, a ld a, [EnemySDefLevel] jr nc, .end ; physical ld a, [PlayerAtkLevel] ld b, a ld a, [EnemyDefLevel] jr .end .enemy ld a, [EnemyMoveType] cp FIRE ; special ld a, [EnemySAtkLevel] ld b, a ld a, [PlayerSDefLevel] jr nc, .end ; physical ld a, [EnemyAtkLevel] ld b, a ld a, [PlayerDefLevel] .end cp b pop bc pop hl ret ; 353b5 ThickClubBoost: ; 353b5 ; Return in hl the stat value at hl. ; If the attacking monster is Cubone or Marowak and ; it's holding a Thick Club, double it. push bc push de ld b, CUBONE ld c, MAROWAK ld d, THICK_CLUB call SpeciesItemBoost pop de pop bc ret ; 353c3 LightBallBoost: ; 353c3 ; Return in hl the stat value at hl. ; If the attacking monster is Pikachu and it's ; holding a Light Ball, double it. push bc push de ld b, PIKACHU ld c, PIKACHU ld d, LIGHT_BALL call SpeciesItemBoost pop de pop bc ret ; 353d1 SpeciesItemBoost: ; 353d1 ; Return in hl the stat value at hl. ; If the attacking monster is species b or c and ; it's holding item d, double it. ld a, [hli] ld l, [hl] ld h, a push hl ld a, PartyMon1Species - PartyMon1 call BattlePartyAttr ld a, [hBattleTurn] and a ld a, [hl] jr z, .CompareSpecies ld a, [TempEnemyMonSpecies] .CompareSpecies pop hl cp b jr z, .GetItem cp c ret nz .GetItem push hl call GetUserItem ld a, [hl] pop hl cp d ret nz ; Double the stat sla l rl h ret ; 353f6 EnemyAttackDamage: ; 353f6 call ResetDamage ; No damage dealt with 0 power. ld hl, EnemyMovePower ld a, [hli] ; hl = EnemyMoveType ld d, a and a ret z ld a, [hl] cp FIRE jr nc, .Special ; Physical ld hl, BattleMonDef ld a, [hli] ld b, a ld c, [hl] ; Reflect ld a, [PlayerScreens] bit 4, a jr z, .physicalcrit sla c rl b .physicalcrit ld hl, EnemyMonAtk call GetDamageStatsCritical jr c, .thickclub ld hl, $c6b8 ld a, [hli] ld b, a ld c, [hl] ld hl, EnemyStats jr .thickclub .Special ld hl, BattleMonSpclDef ld a, [hli] ld b, a ld c, [hl] ; Light Screen ld a, [PlayerScreens] bit 3, a jr z, .specialcrit sla c rl b .specialcrit ld hl, EnemyMonSpclAtk call GetDamageStatsCritical jr c, .lightball ld hl, $c6be ld a, [hli] ld b, a ld c, [hl] ld hl, $c6c7 .lightball call LightBallBoost jr .done .thickclub call ThickClubBoost .done call Function0x3534d ld a, [EnemyMonLevel] ld e, a call DittoMetalPowder ld a, 1 and a ret ; 35461 BattleCommanda1: ; 35461 ; beatup call ResetDamage ld a, [hBattleTurn] and a jp nz, .asm_354ef ld a, [PlayerSubStatus3] bit 2, a jr nz, .asm_35482 ; 3546f $11 ld c, $14 call DelayFrames xor a ld [PlayerRolloutCount], a ld [DefaultFlypoint], a ld [$c72d], a jr .asm_3548d ; 35480 $b .asm_35482 ld a, [PlayerRolloutCount] ld b, a ld a, [PartyCount] sub b ld [DefaultFlypoint], a .asm_3548d ld a, [DefaultFlypoint] ld hl, PartyMon1Nickname call $38a2 ld a, $22 call Function0x355bd ld a, [hli] or [hl] jp z, Function0x355b0 ld a, [DefaultFlypoint] ld c, a ld a, [CurBattleMon] cp [hl] ld hl, BattleMonStatus jr z, .asm_354b2 ; 354ab $5 ld a, $20 call Function0x355bd .asm_354b2 ld a, [hl] and a jp nz, Function0x355b0 ld a, $1 ld [$c72d], a ld hl, BeatUpAttackText call FarBattleTextBox ld a, [EnemyMonSpecies] ld [CurSpecies], a call $3856 ld a, [$d239] ld c, a push bc ld a, $0 call Function0x355bd ld a, [hl] ld [CurSpecies], a call $3856 ld a, [$d238] pop bc ld b, a push bc ld a, $1f call Function0x355bd ld a, [hl] ld e, a pop bc ld a, [PlayerMovePower] ld d, a ret .asm_354ef ld a, [EnemySubStatus3] bit 2, a jr nz, .asm_35502 xor a ld [EnemyRolloutCount], a ld [DefaultFlypoint], a ld [$c72d], a jr .asm_3550d .asm_35502 ld a, [EnemyRolloutCount] ld b, a ld a, [OTPartyCount] sub b ld [DefaultFlypoint], a .asm_3550d ld a, [IsInBattle] dec a jr z, .asm_3556b ld a, [InLinkBattle] and a jr nz, .asm_35532 ld a, [$cfc0] and a jr nz, .asm_35532 ld a, [DefaultFlypoint] ld c, a ld b, $0 ld hl, OTPartySpecies add hl, bc ld a, [hl] ld [$d265], a call $343b jr .asm_35544 .asm_35532 ld a, [DefaultFlypoint] ld hl, OTPartyMon1Nickname ld bc, $000b call AddNTimes ld de, StringBuffer1 call CopyBytes .asm_35544 ld a, $22 call Function0x355bd ld a, [hli] or [hl] jp z, Function0x355b0 ld a, [DefaultFlypoint] ld b, a ld a, [CurOTMon] cp b ld hl, EnemyMonStatus jr z, .asm_35560 ld a, $20 call Function0x355bd .asm_35560 ld a, [hl] and a jr nz, Function0x355b0 ld a, $1 ld [$c72d], a jr .asm_3557d .asm_3556b ld a, [EnemyMonSpecies] ld [$d265], a call $343b ld hl, BeatUpAttackText call FarBattleTextBox jp EnemyAttackDamage .asm_3557d ld hl, BeatUpAttackText call FarBattleTextBox ld a, [BattleMonSpecies] ld [CurSpecies], a call GetBaseData ld a, [$d239] ld c, a push bc ld a, $0 call Function0x355bd ld a, [hl] ld [CurSpecies], a call GetBaseData ld a, [$d238] pop bc ld b, a push bc ld a, $1f call Function0x355bd ld a, [hl] ld e, a pop bc ld a, [EnemyMovePower] ld d, a ret ; 355b0 Function0x355b0: ; 355b0 ld b, $12 ; buildopponentrage jp SkipToBattleCommand ; 355b5 BattleCommanda8: ; 355b5 ld a, [$c72d] and a ret nz jp PrintButItFailed ; 355bd Function0x355bd: ; 355bd push bc ld c, a ld b, 0 ld a, [hBattleTurn] and a ld hl, PartyMon1Species jr z, .asm_355cc ld hl, OTPartyMon1Species .asm_355cc ld a, [DefaultFlypoint] add hl, bc call GetPartyLocation pop bc ret ; 355d5 BattleCommanda9: ; 355d5 ; clearmissdamage ld a, [AttackMissed] and a ret z jp ResetDamage ; 355dd Function0x355dd: ; 355dd call ResetDamage ld a, [hBattleTurn] and a ld hl, BattleMonDef ld de, PlayerScreens ld a, [BattleMonLevel] jr z, .asm_355f7 ld hl, EnemyMonDef ld de, EnemyScreens ld a, [EnemyMonLevel] .asm_355f7 push af ld a, [hli] ld b, a ld c, [hl] ld a, [de] bit 4, a jr z, .asm_35604 sla c rl b .asm_35604 dec hl dec hl dec hl ld a, [hli] ld l, [hl] ld h, a call Function0x3534d ld d, $28 pop af ld e, a ret ; 35612 BattleCommand62: ; 35612 ; damagecalc ; Return a damage value for move power d, player level e, enemy defense c and player attack b. ; Return 1 if successful, else 0. ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair ; Selfdestruct and Explosion halve defense. cp EFFECT_EXPLOSION jr nz, .asm_35620 srl c jr nz, .asm_35620 inc c .asm_35620 ; Variable-hit moves and Conversion can have a power of 0. cp EFFECT_MULTI_HIT jr z, .asm_3562b cp EFFECT_CONVERSION jr z, .asm_3562b ; No damage if move power is 0. ld a, d and a ret z .asm_3562b ; Minimum defense value is 1. ld a, c and a jr nz, .asm_35631 ld c, 1 .asm_35631 xor a ld hl, hDividend ld [hli], a ld [hli], a ld [hl], a ; Level * 2 ld a, e add a jr nc, .asm_3563e ld [hl], $1 .asm_3563e inc hl ld [hli], a ; / 5 ld a, 5 ld [hld], a push bc ld b, $4 call Divide pop bc ; + 2 inc [hl] inc [hl] ; * bp inc hl ld [hl], d call Multiply ; * Attack ld [hl], b call Multiply ; / Defense ld [hl], c ld b, $4 call Divide ; / 50 ld [hl], 50 ld b, $4 call Divide ; Item boosts call GetUserItem ld a, b and a jr z, .DoneItem ld hl, TypeBoostItems .NextItem ld a, [hli] cp $ff jr z, .DoneItem ; Item effect cp b ld a, [hli] jr nz, .NextItem ; Type ld b, a ld a, BATTLE_VARS_MOVE_TYPE call CleanGetBattleVarPair cp b jr nz, .DoneItem ; * 100 + item effect amount ld a, c add 100 ld [hMultiplier], a call Multiply ; / 100 ld a, 100 ld [hDivisor], a ld b, 4 call Divide .DoneItem ; Critical hits call .CriticalMultiplier ; Update CurDamage (capped at 997). ld hl, CurDamage ld b, [hl] ld a, [$ffb6] add b ld [$ffb6], a jr nc, .asm_356a5 ld a, [$ffb5] inc a ld [$ffb5], a and a jr z, .Cap .asm_356a5 ld a, [$ffb3] ld b, a ld a, [$ffb4] or a jr nz, .Cap ld a, [$ffb5] cp 998 / $100 jr c, .asm_356bd cp 998 / $100 + 1 jr nc, .Cap ld a, [$ffb6] cp 998 % $100 jr nc, .Cap .asm_356bd inc hl ld a, [$ffb6] ld b, [hl] add b ld [hld], a ld a, [$ffb5] ld b, [hl] adc b ld [hl], a jr c, .Cap ld a, [hl] cp 998 / $100 jr c, .asm_356df cp 998 / $100 + 1 jr nc, .Cap inc hl ld a, [hld] cp 998 % $100 jr c, .asm_356df .Cap ld a, 997 / $100 ld [hli], a ld a, 997 % $100 ld [hld], a .asm_356df ; Minimum neutral damage is 2 (bringing the cap to 999). inc hl ld a, [hl] add 2 ld [hld], a jr nc, .asm_356e7 inc [hl] .asm_356e7 ld a, 1 and a ret .CriticalMultiplier ld a, [CriticalHit] and a ret z ; x2 ld a, [$ffb6] add a ld [$ffb6], a ld a, [$ffb5] rl a ld [$ffb5], a ; Cap at $ffff. ret nc ld a, $ff ld [$ffb5], a ld [$ffb6], a ret ; 35703 TypeBoostItems: ; 35703 db HELD_NORMAL_BOOST, NORMAL ; Pink/Polkadot Bow db HELD_FIGHTING_BOOST, FIGHTING ; Blackbelt db HELD_FLYING_BOOST, FLYING ; Sharp Beak db HELD_POISON_BOOST, POISON ; Poison Barb db HELD_GROUND_BOOST, GROUND ; Soft Sand db HELD_ROCK_BOOST, ROCK ; Hard Stone db HELD_BUG_BOOST, BUG ; Silverpowder db HELD_GHOST_BOOST, GHOST ; Spell Tag db HELD_FIRE_BOOST, FIRE ; Charcoal db HELD_WATER_BOOST, WATER ; Mystic Water db HELD_GRASS_BOOST, GRASS ; Miracle Seed db HELD_ELECTRIC_BOOST, ELECTRIC ; Magnet db HELD_PSYCHIC_BOOST, PSYCHIC ; Twistedspoon db HELD_ICE_BOOST, ICE ; Nevermeltice db HELD_DRAGON_BOOST, DRAGON ; Dragon Scale db HELD_DARK_BOOST, DARK ; Blackglasses db HELD_STEEL_BOOST, STEEL ; Metal Coat db $ff ; 35726 BattleCommand3f: ; 35726 ; constantdamage ld hl, BattleMonLevel ld a, [hBattleTurn] and a jr z, .asm_35731 ld hl, EnemyMonLevel .asm_35731 ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_LEVEL_DAMAGE ld b, [hl] ld a, 0 jr z, .asm_3578c ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_PSYWAVE jr z, .asm_35758 cp EFFECT_SUPER_FANG jr z, .asm_3576b cp EFFECT_REVERSAL jr z, .asm_35792 ld a, BATTLE_VARS_MOVE_POWER call CleanGetBattleVarPair ld b, a ld a, $0 jr .asm_3578c .asm_35758 ld a, b srl a add b ld b, a .asm_3575d call FarBattleRNG and a jr z, .asm_3575d ; 35761 $fa cp b jr nc, .asm_3575d ; 35764 $f7 ld b, a ld a, $0 jr .asm_3578c ; 35769 $21 .asm_3576b ld hl, EnemyMonHPHi ld a, [hBattleTurn] and a jr z, .asm_35776 ; 35771 $3 ld hl, BattleMonHP .asm_35776 ld a, [hli] srl a ld b, a ld a, [hl] rr a push af ld a, b pop bc and a jr nz, .asm_3578c ; 35781 $9 or b ld a, $0 jr nz, .asm_3578c ; 35786 $4 ld b, $1 jr .asm_3578c ; 3578a $0 .asm_3578c ld hl, CurDamage ld [hli], a ld [hl], b ret .asm_35792 ld hl, BattleMonHP ld a, [hBattleTurn] and a jr z, .asm_3579d ; 35798 $3 ld hl, EnemyMonHPHi .asm_3579d xor a ld [$ffb3], a ld [$ffb4], a ld a, [hli] ld [$ffb5], a ld a, [hli] ld [$ffb6], a ld a, $30 ld [$ffb7], a call Multiply ld a, [hli] ld b, a ld a, [hl] ld [$ffb7], a ld a, b and a jr z, .asm_357d6 ld a, [$ffb7] srl b rr a srl b rr a ld [$ffb7], a ld a, [$ffb5] ld b, a srl b ld a, [$ffb6] rr a srl b rr a ld [$ffb6], a ld a, b ld [$ffb5], a .asm_357d6 ld b, $4 call Divide ld a, [$ffb6] ld b, a ld hl, .FlailPower .asm_357e1 ld a, [hli] cp b jr nc, .asm_357e8 inc hl jr .asm_357e1 .asm_357e8 ld a, [hBattleTurn] and a ld a, [hl] jr nz, .asm_357f8 ld hl, PlayerMovePower ld [hl], a push hl call PlayerAttackDamage jr .asm_35800 .asm_357f8 ld hl, EnemyMovePower ld [hl], a push hl call EnemyAttackDamage .asm_35800 call BattleCommand62 pop hl ld [hl], 1 ret .FlailPower ; px, bp db 1, 200 db 4, 150 db 9, 100 db 16, 80 db 32, 40 db 48, 20 ; 35813 BattleCommand40: ; 35813 ; counter ld a, $1 ld [AttackMissed], a ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP call CleanGetBattleVarPair and a ret z ld b, a ld hl, $45ec ld a, $f rst FarCall ld a, b cp $59 ret z call BattleCommanda3 ld a, [$d265] and a ret z call Function0x36abf ret z ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP call CleanGetBattleVarPair dec a ld de, StringBuffer1 call GetMoveData ld a, [$d075] and a ret z ld a, [$d076] cp $14 ret nc ld hl, CurDamage ld a, [hli] or [hl] ret z ld a, [hl] add a ld [hld], a ld a, [hl] adc a ld [hl], a jr nc, .asm_3585f ; 35859 $4 ld a, $ff ld [hli], a ld [hl], a .asm_3585f xor a ld [AttackMissed], a ret ; 35864 BattleCommand41: ; 35864 ; encore ld hl, EnemyMonMoves ld de, EnemyEncoreCount ld a, [hBattleTurn] and a jr z, .asm_35875 ; 3586d $6 ld hl, BattleMonMoves ld de, PlayerEncoreCount .asm_35875 ld a, BATTLE_VARS_LAST_MOVE_OPP call CleanGetBattleVarPair and a jp z, Function0x35923 cp STRUGGLE jp z, Function0x35923 cp ENCORE jp z, Function0x35923 cp MIRROR_MOVE jp z, Function0x35923 ld b, a .asm_3588e ld a, [hli] cp b jr nz, .asm_3588e ld bc, $0005 add hl, bc ld a, [hl] and $3f jp z, Function0x35923 ld a, [AttackMissed] and a jp nz, Function0x35923 ld a, BATTLE_VARS_SUBSTATUS5_OPP call GetBattleVarPair bit 4, [hl] jp nz, Function0x35923 set 4, [hl] call FarBattleRNG and $3 inc a inc a inc a ld [de], a call Function0x36abf jr nz, .asm_3591a ld a, [hBattleTurn] and a jr z, .asm_358ef push hl ld a, [LastPlayerMove] ld b, a ld c, $0 ld hl, BattleMonMoves .asm_358cc ld a, [hli] cp b jr z, .asm_358dd inc c ld a, c cp $4 jr c, .asm_358cc pop hl res 4, [hl] xor a ld [de], a jr Function0x35923 .asm_358dd pop hl ld a, c ld [CurMoveNum], a ld a, b ld [CurPlayerMove], a dec a ld de, PlayerMoveStruct call GetMoveData jr .asm_3591a .asm_358ef push hl ld a, [LastEnemyMove] ld b, a ld c, $0 ld hl, EnemyMonMoves .asm_358f9 ld a, [hli] cp b jr z, .asm_3590a inc c ld a, c cp $4 jr c, .asm_358f9 pop hl res 4, [hl] xor a ld [de], a jr Function0x35923 .asm_3590a pop hl ld a, c ld [CurEnemyMoveNum], a ld a, b ld [CurEnemyMove], a dec a ld de, EnemyMoveStruct call GetMoveData .asm_3591a call Function0x37e01 ld hl, GotAnEncoreText jp FarBattleTextBox ; 35923 Function0x35923: ; 35923 jp PrintDidntAffect2 ; 35926 BattleCommand42: ; 35926 ; painsplit ld a, [AttackMissed] and a jp nz, Function0x359cd call CheckSubstituteOpp jp nz, Function0x359cd call Function0x37e01 ld hl, $c63f ld de, EnemyMonMaxHPLo call .asm_3597d ld a, $1 ld [$d10a], a ld hl, $c55e ld a, $b call Predef ld hl, EnemyMonHPHi ld a, [hli] ld [$d1ed], a ld a, [hli] ld [$d1ec], a ld a, [hli] ld [$d1eb], a ld a, [hl] ld [$d1ea], a call Function0x359ac xor a ld [$d10a], a call ResetDamage ld hl, $c4ca ld a, $b call Predef ld a, $5e ld hl, $4000 rst FarCall ld hl, SharedPainText jp FarBattleTextBox .asm_3597d ld a, [hld] ld [$d1ea], a ld a, [hld] ld [$d1eb], a ld a, [hld] ld b, a ld [$d1ec], a ld a, [hl] ld [$d1ed], a dec de dec de ld a, [de] dec de add b ld [$d257], a ld b, [hl] ld a, [de] adc b srl a ld [CurDamage], a ld a, [$d257] rr a ld [$d257], a inc hl inc hl inc hl inc de inc de inc de ; fallthrough ; 359ac Function0x359ac: ; 359ac ld c, [hl] dec hl ld a, [$d257] sub c ld b, [hl] dec hl ld a, [CurDamage] sbc b jr nc, .asm_359c2 ld a, [CurDamage] ld b, a ld a, [$d257] ld c, a .asm_359c2 ld a, c ld [hld], a ld [$d1ee], a ld a, b ld [hli], a ld [$d1ef], a ret ; 359cd Function0x359cd: ; 359cd jp PrintDidntAffect2 ; 359d0 BattleCommand43: ; 359d0 ; snore ld a, BATTLE_VARS_STATUS call CleanGetBattleVarPair and SLP ret nz call ResetDamage ld a, $1 ld [AttackMissed], a call Function0x37354 jp EndMoveEffect ; 359e6 BattleCommand44: ; 359e6 ; conversion2 ld a, [AttackMissed] and a jr nz, .asm_35a50 ; 359ea $64 ld hl, BattleMonType1 ld a, [hBattleTurn] and a jr z, .asm_359f7 ; 359f2 $3 ld hl, EnemyMonType1 .asm_359f7 ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP call CleanGetBattleVarPair and a jr z, .asm_35a50 ; 359fd $51 push hl dec a ld hl, Moves + PlayerMoveType - PlayerMoveStruct call GetMoveAttr ld d, a pop hl cp CURSE_T jr z, .asm_35a50 ; 35a0b $43 call Function0x37e01 call SwitchTurn .asm_35a13 call FarBattleRNG and $1f cp $a jr c, .asm_35a24 ; 35a1a $8 cp $14 jr c, .asm_35a13 ; 35a1e $f3 cp $1c jr nc, .asm_35a13 ; 35a22 $ef .asm_35a24 ld [hli], a ld [hld], a push hl ld a, BATTLE_VARS_MOVE_TYPE call GetBattleVarPair push af push hl ld a, d ld [hl], a call Function0x347c8 pop hl pop af ld [hl], a pop hl ld a, [$d265] cp $a jr nc, .asm_35a13 ; 35a3c $d5 call SwitchTurn ld a, [hl] ld [$d265], a ld a, $29 call Predef ld hl, $5452 jp FarBattleTextBox .asm_35a50 jp Function0x37354 ; 35a53 BattleCommand45: ; 35a53 ; lockon call CheckSubstituteOpp jr nz, .asm_35a6e ld a, [AttackMissed] and a jr nz, .asm_35a6e ld a, BATTLE_VARS_SUBSTATUS5_OPP call GetBattleVarPair set SUBSTATUS_LOCK_ON, [hl] call Function0x37e01 ld hl, TookAimText jp FarBattleTextBox .asm_35a6e call Function0x37e77 jp PrintDidntAffect ; 35a74 BattleCommand46: ; 35a74 ; sketch call Function0x372d8 ld a, [InLinkBattle] and a jr z, .asm_35a83 ; 35a7b $6 call Function0x37e77 jp PrintNothingHappened .asm_35a83 call CheckSubstituteOpp jp nz, .asm_35b10 ld a, BATTLE_VARS_SUBSTATUS5_OPP call GetBattleVarPair bit 3, [hl] jp nz, .asm_35b10 ld a, $2 call UserPartyAttr ld d, h ld e, l ld hl, BattleMonMoves ld a, [hBattleTurn] and a jr z, .asm_35aa5 ; 35aa0 $3 ld hl, EnemyMonMoves .asm_35aa5 ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP call CleanGetBattleVarPair ld [$d265], a ld b, a and a jr z, .asm_35b10 ; 35aaf $5f cp STRUGGLE jr z, .asm_35b10 ; 35ab3 $5b ld c, $4 .asm_35ab7 ld a, [hli] cp b jr z, .asm_35b10 ; 35ab9 $55 dec c jr nz, .asm_35ab7 ; 35abc $f9 dec hl ld c, $4 .asm_35ac1 dec c ld a, [hld] cp SKETCH jr nz, .asm_35ac1 ; 35ac5 $fa inc hl ld a, b ld [hl], a push bc push hl dec a ld hl, Moves + PlayerMovePP - PlayerMoveStruct call GetMoveAttr pop hl ld bc, $0006 add hl, bc ld [hl], a pop bc ld a, [hBattleTurn] and a jr z, .asm_35af6 ; 35add $17 ld a, [IsInBattle] dec a jr nz, .asm_35af6 ; 35ae3 $11 ld a, [hl] push bc ld hl, $c739 ld b, $0 add hl, bc ld [hl], a ld hl, $c735 add hl, bc pop bc ld [hl], b jr .asm_35b04 ; 35af4 $e .asm_35af6 ld a, [hl] push af ld l, c ld h, $0 add hl, de ld a, b ld [hl], a pop af ld de, $0015 add hl, de ld [hl], a .asm_35b04 call GetMoveName call Function0x37e01 ld hl, SketchedText jp FarBattleTextBox .asm_35b10 call Function0x37e77 jp PrintDidntAffect ; 35b16 BattleCommand47: ; 35b16 ; defrostopponent ; If the opponent isn't frozen, raise Attack one stage. ; If the opponent is frozen, thaw them and raise Accuracy two stages. call Function0x37e01 ld a, BATTLE_VARS_STATUS_OPP call GetBattleVarPair call Defrost ; Sharply raise accuracy ld a, BATTLE_VARS_MOVE_EFFECT call GetBattleVarPair ld a, [hl] push hl push af ld a, $a ; meditate, sharpen ld [hl], a call BattleCommand1c pop af pop hl ld [hl], a ret ; 35b33 BattleCommand48: ; 35b33 ; sleeptalk call Function0x372d8 ld a, [AttackMissed] and a jr nz, .asm_35ba3 ; 35b3a $67 ld a, [hBattleTurn] and a ld hl, BattleMonMove2 ld a, [DisabledMove] ld d, a jr z, .asm_35b4f ; 35b46 $7 ld hl, EnemyMonMove2 ld a, [EnemyDisabledMove] ld d, a .asm_35b4f ld a, BATTLE_VARS_STATUS call CleanGetBattleVarPair and $7 jr z, .asm_35ba3 ; 35b56 $4b ld a, [hl] and a jr z, .asm_35ba3 ; 35b5a $47 call .asm_35ba9 jr c, .asm_35ba3 ; 35b5f $42 dec hl .asm_35b62 push hl call FarBattleRNG and $3 ld c, a ld b, $0 add hl, bc ld a, [hl] pop hl and a jr z, .asm_35b62 ; 35b6f $f1 ld e, a ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair cp e jr z, .asm_35b62 ; 35b78 $e8 ld a, e cp d jr z, .asm_35b62 ; 35b7c $e4 call .asm_35bdf jr z, .asm_35b62 ; 35b81 $df ld a, BATTLE_VARS_MOVE call GetBattleVarPair ld a, e ld [hl], a call Function0x34548 jr nz, .asm_35b9a ; 35b8d $b ld a, [$c689] push af call BattleCommand0a pop af ld [$c689], a .asm_35b9a call Function0x37e36 call UpdateMoveData jp ResetTurn .asm_35ba3 call Function0x37e77 jp TryPrintButItFailed .asm_35ba9 push hl push de push bc call .asm_35bb3 pop bc pop de pop hl ret .asm_35bb3 ld a, [hBattleTurn] and a ld a, [DisabledMove] jr z, .asm_35bbe ld a, [EnemyDisabledMove] .asm_35bbe ld b, a ld a, $10 call CleanGetBattleVarPair ld c, a dec hl ld d, $4 .asm_35bc8 ld a, [hl] and a jr z, .asm_35bdb cp c jr z, .asm_35bd7 cp b jr z, .asm_35bd7 call .asm_35bdf jr nz, .asm_35bdd .asm_35bd7 inc hl dec d jr nz, .asm_35bc8 .asm_35bdb scf ret .asm_35bdd and a ret .asm_35bdf push hl push de push bc ld b, a ld hl, $45ec ld a, $f rst $8 ld a, b pop bc pop de pop hl cp $91 ret z cp $27 ret z cp $4b ret z cp $97 ret z cp $9b ret z cp $1a ret ; 35bff BattleCommand49: ; 35bff ; destinybond ld a, BATTLE_VARS_SUBSTATUS5 call GetBattleVarPair set 6, [hl] call Function0x37e01 ld hl, DestinyBondEffectText jp FarBattleTextBox ; 35c0f BattleCommand4a: ; 35c0f ; spite ld a, [AttackMissed] and a jp nz, .asm_35c91 ld bc, $0030 ld hl, EnemyMonMoves ld a, [hBattleTurn] and a jr z, .asm_35c24 ; 35c1f $3 ld hl, BattleMonMoves .asm_35c24 ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP call CleanGetBattleVarPair and a jr z, .asm_35c91 ; 35c2a $65 cp $a5 jr z, .asm_35c91 ; 35c2e $61 ld b, a ld c, $ff .asm_35c33 inc c ld a, [hli] cp b jr nz, .asm_35c33 ; 35c36 $fb ld [$d265], a dec hl ld b, $0 push bc ld c, $6 add hl, bc pop bc ld a, [hl] and $3f jr z, .asm_35c91 ; 35c46 $49 push bc call GetMoveName call FarBattleRNG and $3 inc a inc a ld b, a ld a, [hl] and $3f cp b jr nc, .asm_35c5b ; 35c58 $1 ld b, a .asm_35c5b ld a, [hl] sub b ld [hl], a push af ld a, $17 call OpponentPartyAttr ld d, b pop af pop bc add hl, bc ld e, a ld a, BATTLE_VARS_SUBSTATUS5_OPP call CleanGetBattleVarPair bit 3, a jr nz, .asm_35c82 ; 35c70 $10 ld a, [hBattleTurn] and a jr nz, .asm_35c81 ; 35c75 $a ld a, [IsInBattle] dec a jr nz, .asm_35c81 ; 35c7b $4 ld hl, $c739 add hl, bc .asm_35c81 ld [hl], e .asm_35c82 push de call Function0x37e01 pop de ld a, d ld [$d265], a ld hl, SpiteEffectText jp FarBattleTextBox .asm_35c91 jp PrintDidntAffect2 ; 35c94 BattleCommand4b: ; 35c94 ; falseswipe ld hl, EnemyMonHPHi ld a, [hBattleTurn] and a jr z, .asm_35c9f ; 35c9a $3 ld hl, BattleMonHP .asm_35c9f ld de, CurDamage ld c, $2 push hl push de call StringCmp pop de pop hl jr c, .asm_35cc7 ; 35cab $1a ld a, [hli] ld [de], a inc de ld a, [hl] dec a ld [de], a inc a jr nz, .asm_35cba ; 35cb4 $4 dec de ld a, [de] dec a ld [de], a .asm_35cba ld a, [CriticalHit] cp $2 jr nz, .asm_35cc5 ; 35cbf $4 xor a ld [CriticalHit], a .asm_35cc5 scf ret .asm_35cc7 and a ret ; 35cc9 BattleCommand4c: ; 35cc9 ; healbell ld a, BATTLE_VARS_SUBSTATUS1 call GetBattleVarPair res 0, [hl] ld de, PartyMon1Status ld a, [hBattleTurn] and a jr z, .asm_35cdb ; 35cd6 $3 ld de, OTPartyMon1Status .asm_35cdb ld a, BATTLE_VARS_STATUS call GetBattleVarPair xor a ld [hl], a ld h, d ld l, e ld bc, $30 ld d, $6 .asm_35ce9 ld [hl], a add hl, bc dec d jr nz, .asm_35ce9 call Function0x37e01 ld hl, BellChimedText call FarBattleTextBox ld a, [hBattleTurn] and a jp z, Function0x365d7 jp Function0x365fd ; 35d00 FarPlayBattleAnimation: ; 35d00 ; play animation de ; battle animations disabled? ld a, BATTLE_VARS_SUBSTATUS3 call CleanGetBattleVarPair and $60 ; bit 6 | 5 ret nz ; fallthrough ; 35d08 PlayFXAnimID: ; 35d08 ld a, e ld [FXAnimIDLo], a ld a, d ld [FXAnimIDHi], a ld c, 3 call DelayFrames ld hl, $40d6 ld a, $33 rst FarCall ; callab SafePlayBattleAnimation ret ; 35d1c Function0x35d1c: ; 35d1c ld hl, CurDamage ld a, [hli] ld b, a ld a, [hl] or b jr z, .asm_35d7b ld a, c and a jr nz, .asm_35d31 ld a, [EnemySubStatus4] bit 4, a jp nz, Function0x35de0 .asm_35d31 ld a, [hld] ld b, a ld a, [EnemyMonHPLo] ld [$d1ec], a sub b ld [EnemyMonHPLo], a ld a, [hl] ld b, a ld a, [EnemyMonHPHi] ld [$d1ed], a sbc b ld [EnemyMonHPHi], a jr nc, .asm_35d59 ld a, [$d1ed] ld [hli], a ld a, [$d1ec] ld [hl], a xor a ld hl, EnemyMonHPHi ld [hli], a ld [hl], a .asm_35d59 ld hl, EnemyMonMaxHPHi ld a, [hli] ld [$d1eb], a ld a, [hl] ld [$d1ea], a ld hl, EnemyMonHPHi ld a, [hli] ld [$d1ef], a ld a, [hl] ld [$d1ee], a ld hl, $c4ca xor a ld [$d10a], a ld a, $b call Predef .asm_35d7b jp RefreshBattleHuds ; 35d7e Function0x35d7e: ; 35d7e ld hl, CurDamage ld a, [hli] ld b, a ld a, [hl] or b jr z, .asm_35ddd ld a, c and a jr nz, .asm_35d93 ld a, [PlayerSubStatus4] bit 4, a jp nz, Function0x35de0 .asm_35d93 ld a, [hld] ld b, a ld a, [$c63d] ld [$d1ec], a sub b ld [$c63d], a ld [$d1ee], a ld b, [hl] ld a, [BattleMonHP] ld [$d1ed], a sbc b ld [BattleMonHP], a ld [$d1ef], a jr nc, .asm_35dc5 ld a, [$d1ed] ld [hli], a ld a, [$d1ec] ld [hl], a xor a ld hl, BattleMonHP ld [hli], a ld [hl], a ld hl, $d1ee ld [hli], a ld [hl], a .asm_35dc5 ld hl, BattleMonMaxHP ld a, [hli] ld [$d1eb], a ld a, [hl] ld [$d1ea], a ld hl, $c55e ld a, $1 ld [$d10a], a ld a, $b call Predef .asm_35ddd jp RefreshBattleHuds ; 35de0 Function0x35de0: ; 35de0 ld hl, SubTookDamageText call FarBattleTextBox ld de, $c6e0 ld a, [hBattleTurn] and a jr z, .asm_35df1 ld de, $c6df .asm_35df1 ld hl, CurDamage ld a, [hli] and a jr nz, .asm_35dff ld a, [de] sub [hl] ld [de], a jr z, .asm_35dff jr nc, .asm_35e3d .asm_35dff ld a, BATTLE_VARS_SUBSTATUS4_OPP call GetBattleVarPair res 4, [hl] ld hl, SubFadedText call FarBattleTextBox call SwitchTurn call BattleCommanda7 ld a, BATTLE_VARS_SUBSTATUS3 call CleanGetBattleVarPair and $60 ; fly | dig call z, Function0x37ec7 call SwitchTurn ld a, BATTLE_VARS_MOVE_EFFECT call GetBattleVarPair cp EFFECT_MULTI_HIT jr z, .asm_35e3a cp EFFECT_DOUBLE_HIT jr z, .asm_35e3a cp EFFECT_TWINEEDLE jr z, .asm_35e3a cp EFFECT_TRIPLE_KICK jr z, .asm_35e3a cp EFFECT_BEAT_UP jr z, .asm_35e3a xor a ld [hl], a .asm_35e3a call RefreshBattleHuds .asm_35e3d jp ResetDamage ; 35e40 UpdateMoveData: ; 35e40 ld a, BATTLE_VARS_MOVE_ANIM call GetBattleVarPair ld d, h ld e, l ld a, BATTLE_VARS_MOVE call CleanGetBattleVarPair ld [$cf60], a ; not CurSpecies ld [$d265], a dec a call GetMoveData call GetMoveName jp CopyName1 ; 35e5c BattleCommand14: ; 35e5c ; sleeptarget call GetOpponentItem ld a, b cp $17 jr nz, .asm_35e70 ; 35e62 $c ld a, [hl] ld [$d265], a call GetItemName ld hl, ProtectedByText jr .asm_35ec6 .asm_35e70 ld a, BATTLE_VARS_STATUS_OPP call GetBattleVarPair ld d, h ld e, l ld a, [de] and 7 ld hl, AlreadyAsleepText jr nz, .asm_35ec6 ld a, [AttackMissed] and a jp nz, PrintDidntAffect2 ld hl, DidntAffect1Text call Function0x35ece jr c, .asm_35ec6 ld a, [de] and a jr nz, .asm_35ec6 call CheckSubstituteOpp jr nz, .asm_35ec6 call Function0x37e01 ld b, $7 ld a, [$cfc0] and a jr z, .asm_35ea4 ld b, $3 .asm_35ea4 call FarBattleRNG and b jr z, .asm_35ea4 cp 7 jr z, .asm_35ea4 inc a ld [de], a call UpdateOpponentInParty call RefreshBattleHuds ld hl, FellAsleepText call FarBattleTextBox ld a, $f ld hl, $5de9 rst FarCall jp z, Function0x34216 ret .asm_35ec6 push hl call Function0x37e77 pop hl jp FarBattleTextBox ; 35ece Function0x35ece: ; 35ece ; Enemy turn ld a, [hBattleTurn] and a jr z, .asm_35eec ; Not in link battle ld a, [InLinkBattle] and a jr nz, .asm_35eec ld a, [$cfc0] and a jr nz, .asm_35eec ; Not locked-on by the enemy ld a, [PlayerSubStatus5] bit 5, a jr nz, .asm_35eec call FarBattleRNG cp $40 ret c .asm_35eec xor a ret ; 35eee BattleCommand13: ; 35eee ; poisontarget call CheckSubstituteOpp ret nz ld a, BATTLE_VARS_STATUS_OPP call GetBattleVarPair and a ret nz ld a, [TypeModifier] and $7f ret z call Function0x35fe1 ret z call GetOpponentItem ld a, b cp $14 ret z ld a, [EffectFailed] and a ret nz call Function0x37962 ret nz call Function0x35ff5 ld de, $0106 call Function0x37e54 call RefreshBattleHuds ld hl, WasPoisonedText call FarBattleTextBox ld a, $f ld hl, $5de9 rst FarCall ret ; 35f2c BattleCommand2f: ; 35f2c ; poison ld hl, DoesntAffectText ld a, [TypeModifier] and $7f jp z, .asm_35fb8 call Function0x35fe1 jp z, .asm_35fb8 ld a, BATTLE_VARS_STATUS_OPP call CleanGetBattleVarPair ld b, a ld hl, AlreadyPoisonedText and $8 jp nz, .asm_35fb8 call GetOpponentItem ld a, b cp $14 jr nz, .asm_35f5f ; 35f51 $c ld a, [hl] ld [$d265], a call GetItemName ld hl, ProtectedByText jr .asm_35fb8 ; 35f5d $59 .asm_35f5f ld hl, DidntAffect1Text ld a, BATTLE_VARS_STATUS_OPP call CleanGetBattleVarPair and a jr nz, .asm_35fb8 ; 35f68 $4e ld a, [hBattleTurn] and a jr z, .asm_35f89 ; 35f6d $1a ld a, [InLinkBattle] and a jr nz, .asm_35f89 ; 35f73 $14 ld a, [$cfc0] and a jr nz, .asm_35f89 ; 35f79 $e ld a, [PlayerSubStatus5] bit 5, a jr nz, .asm_35f89 ; 35f80 $7 call FarBattleRNG cp $40 jr c, .asm_35fb8 ; 35f87 $2f .asm_35f89 call CheckSubstituteOpp jr nz, .asm_35fb8 ; 35f8c $2a ld a, [AttackMissed] and a jr nz, .asm_35fb8 ; 35f92 $24 call Function0x35fc9 jr z, .asm_35fa4 ; 35f97 $b call Function0x35fc0 ld hl, WasPoisonedText call FarBattleTextBox jr .asm_35fb1 ; 35fa2 $d .asm_35fa4 set 0, [hl] xor a ld [de], a call Function0x35fc0 ld hl, BadlyPoisonedText call FarBattleTextBox .asm_35fb1 ld a, $f ld hl, $5de9 rst FarCall ret .asm_35fb8 push hl call Function0x37e77 pop hl jp FarBattleTextBox ; 35fc0 Function0x35fc0: ; 35fc0 call Function0x37e01 call Function0x35ff5 jp RefreshBattleHuds ; 35fc9 Function0x35fc9: ; 35fc9 ld a, BATTLE_VARS_SUBSTATUS5_OPP call GetBattleVarPair ld a, [hBattleTurn] and a ld de, $c67c jr z, .asm_35fd9 ld de, $c674 .asm_35fd9 ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_TOXIC ret ; 35fe1 Function0x35fe1: ; 35fe1 ld de, EnemyMonType1 ld a, [hBattleTurn] and a jr z, .asm_35fec ld de, BattleMonType1 .asm_35fec ld a, [de] inc de cp POISON ret z ld a, [de] cp POISON ret ; 35ff5 Function0x35ff5: ; 35ff5 ld a, BATTLE_VARS_STATUS_OPP call GetBattleVarPair set PSN, [hl] jp UpdateOpponentInParty ; 35fff BattleCommand15: ; 35fff ; draintarget call Function0x36011 ld hl, SuckedHealthText jp FarBattleTextBox ; 36008 BattleCommand16: ; 36008 ; eatdream call Function0x36011 ld hl, DreamEatenText jp FarBattleTextBox ; 36011 Function0x36011: ; 36011 ld hl, CurDamage ld a, [hli] srl a ld [$ffb3], a ld b, a ld a, [hl] rr a ld [$ffb4], a or b jr nz, .asm_36026 ; 0x36020 $4 ld a, $1 ld [$ffb4], a .asm_36026 ld hl, BattleMonHP ld de, BattleMonMaxHP ld a, [hBattleTurn] and a jr z, .asm_36037 ; 0x3602f $6 ld hl, EnemyMonHPHi ld de, EnemyMonMaxHPHi .asm_36037 ld bc, $d1ed ld a, [hli] ld [bc], a ld a, [hl] dec bc ld [bc], a ld a, [de] dec bc ld [bc], a inc de ld a, [de] dec bc ld [bc], a ld a, [$ffb4] ld b, [hl] add b ld [hld], a ld [$d1ee], a ld a, [$ffb3] ld b, [hl] adc b ld [hli], a ld [$d1ef], a jr c, .asm_36064 ; 0x36056 $c ld a, [hld] ld b, a ld a, [de] dec de sub b ld a, [hli] ld b, a ld a, [de] inc de sbc b jr nc, .asm_36070 ; 0x36062 $c .asm_36064 ld a, [de] ld [hld], a ld [$d1ee], a dec de ld a, [de] ld [hli], a ld [$d1ef], a inc de .asm_36070 ld a, [hBattleTurn] and a ld hl, $c55e ld a, $1 jr z, .asm_3607e ; 0x36078 $4 ld hl, $c4ca xor a .asm_3607e ld [$d10a], a ld a, $b call Predef call RefreshBattleHuds jp UpdateBattleMonInParty ; 3608c BattleCommand17: ; 3608c ; burntarget xor a ld [$cfca], a call CheckSubstituteOpp ret nz ld a, BATTLE_VARS_STATUS_OPP call GetBattleVarPair and a jp nz, Defrost ld a, [TypeModifier] and $7f ret z call Function0x36e5b ret z call GetOpponentItem ld a, b cp $15 ret z ld a, [EffectFailed] and a ret nz call Function0x37962 ret nz ld a, BATTLE_VARS_STATUS_OPP call GetBattleVarPair set 4, [hl] call UpdateOpponentInParty ld hl, $6c76 call CallBankF ld de, $0105 call Function0x37e54 call RefreshBattleHuds ld hl, WasBurnedText call FarBattleTextBox ld a, $f ld hl, $5de9 rst FarCall ret ; 360dd Defrost: ; 360dd ld a, [hl] and $20 ret z xor a ld [hl], a ld a, [hBattleTurn] and a ld a, [CurOTMon] ld hl, OTPartyMon1Status jr z, .ok ld hl, PartyMon1Status ld a, [CurBattleMon] .ok call GetPartyLocation xor a ld [hl], a call UpdateOpponentInParty ld hl, DefrostedOpponentText jp FarBattleTextBox ; 36102 BattleCommand18: ; 36102 ; freezetarget xor a ld [$cfca], a call CheckSubstituteOpp ret nz ld a, BATTLE_VARS_STATUS_OPP call GetBattleVarPair and a ret nz ld a, [TypeModifier] and $7f ret z ld a, [Weather] cp $2 ret z call Function0x36e5b ret z call GetOpponentItem ld a, b cp $16 ret z ld a, [EffectFailed] and a ret nz call Function0x37962 ret nz ld a, BATTLE_VARS_STATUS_OPP call GetBattleVarPair set 5, [hl] call UpdateOpponentInParty ld de, $0108 call Function0x37e54 call RefreshBattleHuds ld hl, WasFrozenText call FarBattleTextBox ld a, $f ld hl, $5de9 rst FarCall ret nz call Function0x34216 call EndRechargeOpp ld hl, $c740 ld a, [hBattleTurn] and a jr z, .asm_36162 ; 3615d $3 ld hl, $c73f .asm_36162 ld [hl], $1 ret ; 36165 BattleCommand19: ; 36165 ; paralyzetarget xor a ld [$cfca], a call CheckSubstituteOpp ret nz ld a, BATTLE_VARS_STATUS_OPP call GetBattleVarPair and a ret nz ld a, [TypeModifier] and $7f ret z call GetOpponentItem ld a, b cp $18 ret z ld a, [EffectFailed] and a ret nz call Function0x37962 ret nz ld a, BATTLE_VARS_STATUS_OPP call GetBattleVarPair set 6, [hl] call UpdateOpponentInParty ld hl, $6c39 call CallBankF ld de, $0109 call Function0x37e54 call RefreshBattleHuds call PrintParalyze ld hl, $5de9 jp CallBankF ; 361ac BattleCommand70: ; 361ac ; attackup ld b, $0 jr BattleCommand1c BattleCommand71: ; 361b0 ; defenseup ld b, $1 jr BattleCommand1c BattleCommand72: ; 361b4 ; speedup ld b, $2 jr BattleCommand1c BattleCommand73: ; 361b8 ; specialattackup ld b, $3 jr BattleCommand1c BattleCommand74: ; 361bc ; specialdefenseup ld b, $4 jr BattleCommand1c BattleCommand75: ; 361c0 ; accuracyup ld b, $5 jr BattleCommand1c BattleCommand76: ; 361c4 ; evasionup ld b, $6 jr BattleCommand1c BattleCommand77: ; 361c8 ; attackup2 ld b, $10 jr BattleCommand1c BattleCommand78: ; 361cc ; defenseup2 ld b, $11 jr BattleCommand1c BattleCommand79: ; 361d0 ; speedup2 ld b, $12 jr BattleCommand1c BattleCommand7a: ; 361d4 ; specialattackup2 ld b, $13 jr BattleCommand1c BattleCommand7b: ; 361d8 ; specialdefenseup2 ld b, $14 jr BattleCommand1c BattleCommand7c: ; 361dc ; accuracyup2 ld b, $15 jr BattleCommand1c BattleCommand7d: ; 361e0 ; evasionup2 ld b, $16 jr BattleCommand1c BattleCommand1c: ; 361e4 ; statup call Function0x361ef ld a, [FailedMessage] and a ret nz jp Function0x36281 ; 361ef Function0x361ef: ; 361ef ld a, b ld [LoweredStat], a ld hl, PlayerStatLevels ld a, [hBattleTurn] and a jr z, .asm_361fe ; 0x361f9 $3 ld hl, EnemyStatLevels .asm_361fe ld a, [AttackMissed] and a jp nz, Function0x3627b ld a, [EffectFailed] and a jp nz, Function0x3627b ld a, [LoweredStat] and $f ld c, a ld b, $0 add hl, bc ld b, [hl] inc b ld a, $d cp b jp c, Function0x36270 ld a, [LoweredStat] and $f0 jr z, .asm_3622b ; 0x36222 $7 inc b ld a, $d cp b jr nc, .asm_3622b ; 0x36228 $1 ld b, a .asm_3622b ld [hl], b push hl ld a, c cp $5 jr nc, .asm_36268 ; 0x36230 $36 ld hl, $c641 ld de, PlayerStats ld a, [hBattleTurn] and a jr z, .asm_36243 ; 0x3623b $6 ld hl, $d21b ld de, EnemyStats .asm_36243 push bc sla c ld b, $0 add hl, bc ld a, c add e ld e, a jr nc, .asm_3624f ; 0x3624c $1 inc d .asm_3624f pop bc ld a, [hld] sub $e7 jr nz, .asm_3625b ; 0x36253 $6 ld a, [hl] sbc $3 jp z, Function0x3626e .asm_3625b ld a, [hBattleTurn] and a jr z, .asm_36265 ; 0x3625e $5 call Function0x365fd jr .asm_36268 ; 0x36263 $3 .asm_36265 call Function0x365d7 .asm_36268 pop hl xor a ld [FailedMessage], a ret ; 3626e Function0x3626e: ; 3626e pop hl dec [hl] ; fallthrough ; 36270 Function0x36270: ; 36270 ld a, $2 ld [FailedMessage], a ld a, $1 ld [AttackMissed], a ret ; 3627b Function0x3627b: ; 3627b ld a, $1 ld [FailedMessage], a ret ; 36281 Function0x36281: ; 36281 ld bc, $c6fe ld hl, $7447 ld a, [hBattleTurn] and a jr z, .asm_36292 ; 0x3628a $6 ld bc, $c6fa ld hl, $7486 .asm_36292 ld a, $c call CleanGetBattleVarPair cp $6b ret nz ld a, $1 ld [bc], a call Function0x37ed5 ret nc xor a ld [$ffd4], a call CallBankF call WaitBGMap jp BattleCommandaa ; 362ad BattleCommand7e: ; 362ad ; attackdown ld a, ATTACK jr BattleCommand1d BattleCommand7f: ; 362b1 ; defensedown ld a, DEFENSE jr BattleCommand1d BattleCommand80: ; 362b5 ; speeddown ld a, SPEED jr BattleCommand1d BattleCommand81: ; 362b9 ; specialattackdown ld a, SP_ATTACK jr BattleCommand1d BattleCommand82: ; 362bd ; specialdefensedown ld a, SP_DEFENSE jr BattleCommand1d BattleCommand83: ; 362c1 ; accuracydown ld a, ACCURACY jr BattleCommand1d BattleCommand84: ; 362c5 ; evasiondown ld a, EVASION jr BattleCommand1d BattleCommand85: ; 362c9 ; attackdown2 ld a, $10 | ATTACK jr BattleCommand1d BattleCommand86: ; 362cd ; defensedown2 ld a, $10 | DEFENSE jr BattleCommand1d BattleCommand87: ; 362d1 ; speeddown2 ld a, $10 | SPEED jr BattleCommand1d BattleCommand88: ; 362d5 ; specialattackdown2 ld a, $10 | SP_ATTACK jr BattleCommand1d BattleCommand89: ; 362d9 ; specialdefensedown2 ld a, $10 | SP_DEFENSE jr BattleCommand1d BattleCommand8a: ; 362dd ; accuracydown2 ld a, $10 | ACCURACY jr BattleCommand1d BattleCommand8b: ; 362e1 ; evasiondown2 ld a, $10 | EVASION BattleCommand1d: ; 362e3 ; statdown ld [LoweredStat], a call Function0x36391 jp nz, .Mist ld hl, EnemyStatLevels ld a, [hBattleTurn] and a jr z, .GetStatLevel ld hl, PlayerStatLevels .GetStatLevel ; Attempt to lower the stat. ld a, [LoweredStat] and $f ld c, a ld b, 0 add hl, bc ld b, [hl] dec b jp z, .CantLower ; Sharply lower the stat if applicable. ld a, [LoweredStat] and $f0 jr z, .ComputerMiss dec b jr nz, .ComputerMiss inc b .ComputerMiss ; Computer opponents have a 1/4 chance of failing. ld a, [hBattleTurn] and a jr z, .DidntMiss ld a, [InLinkBattle] and a jr nz, .DidntMiss ld a, [$cfc0] and a jr nz, .DidntMiss ; Lock-On still always works. ld a, [PlayerSubStatus5] bit SUBSTATUS_LOCK_ON, a jr nz, .DidntMiss ; Attacking moves that also lower accuracy are unaffected. ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_ACCURACY_DOWN_HIT jr z, .DidntMiss call FarBattleRNG cp $40 jr c, .Failed .DidntMiss call CheckSubstituteOpp jr nz, .Failed ld a, [AttackMissed] and a jr nz, .Failed ld a, [EffectFailed] and a jr nz, .Failed call CheckHiddenOpponent jr nz, .Failed ; Accuracy/Evasion reduction don't involve stats. ld [hl], b ld a, c cp ACCURACY jr nc, .Hit push hl ld hl, EnemyMonAtk + 1 ld de, EnemyStats ld a, [hBattleTurn] and a jr z, .asm_36366 ld hl, BattleMonAtk + 1 ld de, PlayerStats .asm_36366 call Function0x3641a pop hl jr z, .CouldntLower .Hit xor a ld [FailedMessage], a ret .CouldntLower inc [hl] .CantLower ld a, 3 ld [FailedMessage], a ld a, 1 ld [AttackMissed], a ret .Failed ld a, 1 ld [FailedMessage], a ld [AttackMissed], a ret .Mist ld a, 2 ld [FailedMessage], a ld a, 1 ld [AttackMissed], a ret ; 36391 Function0x36391: ; 36391 ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_ATTACK_DOWN jr c, .asm_363ae cp EFFECT_EVASION_DOWN + 1 jr c, .asm_363b0 cp EFFECT_ATTACK_DOWN_2 jr c, .asm_363ae cp EFFECT_EVASION_DOWN_2 + 1 jr c, .asm_363b0 cp EFFECT_ATTACK_DOWN_HIT jr c, .asm_363ae cp EFFECT_EVASION_DOWN_HIT + 1 jr c, .asm_363b0 .asm_363ae xor a ret .asm_363b0 ld a, BATTLE_VARS_SUBSTATUS4_OPP call CleanGetBattleVarPair bit SUBSTATUS_MIST, a ret ; 363b8 BattleCommand8c: ; 363b8 ld a, [FailedMessage] and a ret nz ld a, [LoweredStat] and $f ld b, a inc b call GetStatName ld hl, .stat jp BattleTextBox .stat TX_FAR UnknownText_0x1c0cc6 start_asm ld hl, .up ld a, [LoweredStat] and $f0 ret z ld hl, .wayup ret .wayup TX_FAR UnknownText_0x1c0cd0 db "@" .up TX_FAR UnknownText_0x1c0ce0 db "@" ; 363e9 BattleCommand8d: ; 363e9 ld a, [FailedMessage] and a ret nz ld a, [LoweredStat] and $f ld b, a inc b call GetStatName ld hl, .stat jp BattleTextBox .stat TX_FAR UnknownText_0x1c0ceb start_asm ld hl, .fell ld a, [LoweredStat] and $f0 ret z ld hl, .sharplyfell ret .sharplyfell TX_FAR UnknownText_0x1c0cf5 db "@" .fell TX_FAR UnknownText_0x1c0d06 db "@" ; 3641a Function0x3641a: ; 3641a ; Lower stat c from stat struct hl (buffer de). push bc sla c ld b, 0 add hl, bc ; add de, c ld a, c add e ld e, a jr nc, .asm_36426 inc d .asm_36426 pop bc ; The lowest possible stat is 1. ld a, [hld] sub 1 jr nz, .asm_3642f ld a, [hl] and a ret z .asm_3642f ld a, [hBattleTurn] and a jr z, .Player call SwitchTurn call Function0x365d7 call SwitchTurn jr .end .Player call SwitchTurn call Function0x365fd call SwitchTurn .end ld a, 1 and a ret ; 3644c BattleCommand8e: ; 3644c ; statupfailtext ld a, [FailedMessage] and a ret z push af call BattleCommandaa pop af dec a jp z, TryPrintButItFailed ld a, [LoweredStat] and $f ld b, a inc b call GetStatName ld hl, WontRiseAnymoreText jp FarBattleTextBox ; 3646a BattleCommand8f: ; 3646a ; statdownfailtext ld a, [FailedMessage] and a ret z push af call BattleCommandaa pop af dec a jp z, TryPrintButItFailed dec a ld hl, ProtectedByMistText jp z, FarBattleTextBox ld a, [LoweredStat] and $f ld b, a inc b call GetStatName ld hl, WontDropAnymoreText jp FarBattleTextBox ; 3648f GetStatName: ; 3648f ld hl, .names ld c, "@" .CheckName dec b jr z, .Copy .GetName ld a, [hli] cp c jr z, .CheckName jr .GetName .Copy ld de, StringBuffer2 ld bc, StringBuffer3 - StringBuffer2 jp CopyBytes .names db "ATTACK@" db "DEFENSE@" db "SPEED@" db "SPCL.ATK@" db "SPCL.DEF@" db "ACCURACY@" db "EVASION@" db "ABILITY@" ; 364e6 Table0x364e6: ; 364e6 dw $6419 dw $641c dw $6421 dw $6428 dw $6432 dw $6442 ; 364f2 StatLevelMulipliers: ; 364f2 db 1, 1 ; 1.0x db 15, 10 ; 1.5x db 2, 1 ; 2.0x db 25, 10 ; 2.5x db 3, 1 ; 3.0x db 35, 10 ; 3.5x db 4, 1 ; 4.0x ; 36500 BattleCommanda4: ; 36500 ; allstatsup ; Attack call ResetMiss call BattleCommand70 call BattleCommand8c ; Defense call ResetMiss call BattleCommand71 call BattleCommand8c ; Speed call ResetMiss call BattleCommand72 call BattleCommand8c ; Special Attack call ResetMiss call BattleCommand73 call BattleCommand8c ; Special Defense call ResetMiss call BattleCommand74 jp BattleCommand8c ; 3652d ResetMiss: ; 3652d xor a ld [AttackMissed], a ret ; 36532 Function0x36532: ; 36532 ld [LoweredStat], a ld hl, PlayerStatLevels ld a, [hBattleTurn] and a jr z, .asm_36540 ld hl, EnemyStatLevels .asm_36540 ld a, [LoweredStat] and $f ld c, a ld b, 0 add hl, bc ld b, [hl] dec b jr z, .asm_36589 ld a, [LoweredStat] and $f0 jr z, .asm_36558 dec b jr nz, .asm_36558 inc b .asm_36558 ld [hl], b ld a, c cp 5 jr nc, .asm_36576 push hl ld hl, $c641 ld de, PlayerStats ld a, [hBattleTurn] and a jr z, .asm_36570 ld hl, $d21b ld de, EnemyStats .asm_36570 call Function0x3641a pop hl jr z, .asm_36588 .asm_36576 ld a, [hBattleTurn] and a jr z, .asm_36580 call Function0x365fd jr .asm_36583 .asm_36580 call Function0x365d7 .asm_36583 xor a ld [FailedMessage], a ret .asm_36588 inc [hl] .asm_36589 ld a, 2 ld [FailedMessage], a ret ; 3658f BattleCommandac: ; 3658f ; tristatuschance call BattleCommand90 ; 1/3 chance of each status .loop call FarBattleRNG swap a and 3 jr z, .loop ; jump dec a ld hl, .ptrs rst JumpTable ret .ptrs dw BattleCommand19 ; paralyze dw BattleCommand18 ; freeze dw BattleCommand17 ; burn ; 365a7 BattleCommandaf: ; 365a7 ; curl ld a, BATTLE_VARS_SUBSTATUS2 call GetBattleVarPair set 0, [hl] ret ; 365af BattleCommanda6: ; 365af ld hl, $743d ld a, [hBattleTurn] and a jr z, .asm_365ba ; 365b5 $3 ld hl, $747c .asm_365ba xor a ld [$ffd4], a call CallBankF jp $31f6 ; 365c3 BattleCommanda7: ; 365c3 ld hl, $7447 ld a, [hBattleTurn] and a jr z, .asm_365ce ; 365c9 $3 ld hl, $7486 .asm_365ce xor a ld [$ffd4], a call CallBankF jp $31f6 ; 365d7 Function0x365d7: ; 365d7 ld hl, PlayerAtkLevel ld de, PlayerStats ld bc, BattleMonAtk ld a, $5 call Function0x3661d ld hl, BadgeStatBoosts call CallBankF call SwitchTurn ld hl, $6c39 call CallBankF ld hl, $6c76 call CallBankF jp SwitchTurn ; 365fd Function0x365fd: ; 365fd ld hl, EnemyAtkLevel ld de, EnemyStats ld bc, EnemyMonAtk ld a, $5 call Function0x3661d call SwitchTurn ld hl, $6c39 call CallBankF ld hl, $6c76 call CallBankF jp SwitchTurn ; 3661d Function0x3661d: ; 3661d .asm_3661d push af ld a, [hli] push hl push bc ld c, a dec c ld b, 0 ld hl, Table0x364e6 add hl, bc add hl, bc xor a ld [$ffb4], a ld a, [de] ld [$ffb5], a inc de ld a, [de] ld [$ffb6], a inc de ld a, [hli] ld [$ffb7], a call Multiply ld a, [hl] ld [$ffb7], a ld b, $4 call Divide ld a, [$ffb5] ld b, a ld a, [$ffb6] or b jr nz, .asm_36651 ld a, $1 ld [$ffb6], a jr .asm_36662 .asm_36651 ld a, [$ffb6] cp $e7 ld a, b sbc $3 jr c, .asm_36662 ld a, $e7 ld [$ffb6], a ld a, $3 ld [$ffb5], a .asm_36662 pop bc ld a, [$ffb5] ld [bc], a inc bc ld a, [$ffb6] ld [bc], a inc bc pop hl pop af dec a jr nz, .asm_3661d ret ; 36671 BattleCommand21: ; 36671 ; storeenergy ld a, BATTLE_VARS_SUBSTATUS3 call CleanGetBattleVarPair bit 0, a ret z ld hl, PlayerRolloutCount ld a, [hBattleTurn] and a jr z, .asm_36684 ld hl, EnemyRolloutCount .asm_36684 dec [hl] jr nz, .asm_366dc ld a, BATTLE_VARS_SUBSTATUS3 call GetBattleVarPair res 0, [hl] ld hl, UnleashedEnergyText call FarBattleTextBox ld a, BATTLE_VARS_MOVE_POWER call GetBattleVarPair ld a, 1 ld [hl], a ld hl, PlayerDamageTaken + 1 ld de, $c732 ld a, [hBattleTurn] and a jr z, .asm_366ad ld hl, EnemyDamageTaken + 1 ld de, $c733 .asm_366ad ld a, [hld] add a ld b, a ld [CurDamage + 1], a ld a, [hl] rl a ld [CurDamage], a jr nc, .asm_366c3 ld a, $ff ld [CurDamage], a ld [CurDamage + 1], a .asm_366c3 or b jr nz, .asm_366cb ld a, 1 ld [AttackMissed], a .asm_366cb xor a ld [hli], a ld [hl], a ld [de], a ld a, BATTLE_VARS_MOVE_ANIM call GetBattleVarPair ld a, BIDE ld [hl], a ld b, $22 ; unleashenergy jp SkipToBattleCommand .asm_366dc ld hl, StoringEnergyText call FarBattleTextBox jp EndMoveEffect ; 366e5 BattleCommand22: ; 366e5 ; unleashenergy ld de, $c682 ld bc, PlayerRolloutCount ld a, [hBattleTurn] and a jr z, .asm_366f6 ; 366ee $6 ld de, $c684 ld bc, EnemyRolloutCount .asm_366f6 ld a, BATTLE_VARS_SUBSTATUS3 call GetBattleVarPair set 0, [hl] xor a ld [de], a inc de ld [de], a ld [PlayerMoveEffect], a ld [EnemyMoveEffect], a call FarBattleRNG and $1 inc a inc a ld [bc], a ld a, $1 ld [$c689], a call Function0x37e01 jp EndMoveEffect ; 3671a BattleCommand3e: ; 3671a ; checkrampage ld de, PlayerRolloutCount ld a, [hBattleTurn] and a jr z, .asm_36725 ; 36720 $3 ld de, EnemyRolloutCount .asm_36725 ld a, BATTLE_VARS_SUBSTATUS3 call GetBattleVarPair bit 1, [hl] ret z ld a, [de] dec a ld [de], a jr nz, .asm_3674c ; 36730 $1a res 1, [hl] call SwitchTurn call Function0x37962 push af call SwitchTurn pop af jr nz, .asm_3674c ; 3673f $b set 7, [hl] call FarBattleRNG and $1 inc a inc a inc de ld [de], a .asm_3674c ld b, $3d ; rampage jp SkipToBattleCommand ; 36751 BattleCommand3d: ; 36751 ; rampage ; No rampage during Sleep Talk. ld a, BATTLE_VARS_STATUS call CleanGetBattleVarPair and 7 ret nz ld de, PlayerRolloutCount ld a, [hBattleTurn] and a jr z, .asm_36764 ; 3675f $3 ld de, EnemyRolloutCount .asm_36764 ld a, BATTLE_VARS_SUBSTATUS3 call GetBattleVarPair set 1, [hl] call FarBattleRNG and $1 inc a ld [de], a ld a, 1 ld [$c73e], a ret ; 36778 BattleCommanda0: ; 36778 ; teleport ld a, [BattleType] cp BATTLETYPE_SHINY jr z, .asm_367b9 cp $9 jr z, .asm_367b9 cp $b jr z, .asm_367b9 cp BATTLETYPE_SUICUNE jr z, .asm_367b9 ld a, BATTLE_VARS_SUBSTATUS5_OPP call CleanGetBattleVarPair bit SUBSTATUS_CANT_RUN, a jr nz, .asm_367b9 ld a, [hBattleTurn] and a jr nz, .asm_367bf ld a, [IsInBattle] dec a jr nz, .asm_367b9 ld a, [$d143] ld b, a ld a, [BattleMonLevel] cp b jr nc, .asm_367df add b ld c, a inc c .asm_367ac call FarBattleRNG cp c jr nc, .asm_367ac ; 367b0 $fa srl b srl b cp b jr nc, .asm_367df ; 367b7 $26 .asm_367b9 call Function0x37e77 jp PrintButItFailed .asm_367bf ld a, [IsInBattle] dec a jr nz, .asm_367b9 ; 367c3 $f4 ld a, [BattleMonLevel] ld b, a ld a, [$d143] cp b jr nc, .asm_367df ; 367cd $10 add b ld c, a inc c .asm_367d2 call FarBattleRNG cp c jr nc, .asm_367d2 ; 367d6 $fa srl b srl b cp b jr nc, .asm_367df ; 367dd $0 .asm_367df call UpdateBattleMonInParty xor a ld [$cfca], a inc a ld [$d232], a ld [$c689], a call Function0x36804 call BattleCommand0a call Function0x37e36 ld c, 20 call DelayFrames call Function0x36804 ld hl, FledFromBattleText jp FarBattleTextBox ; 36804 Function0x36804: ; 36804 ld a, [$d0ee] and $c0 or $2 ld [$d0ee], a ret ; 3680f BattleCommand23: ; 3680f ; forceswitch ld a, [BattleType] cp BATTLETYPE_SHINY jp z, .asm_36969 cp $9 jp z, .asm_36969 cp $b jp z, .asm_36969 cp BATTLETYPE_SUICUNE jp z, .asm_36969 ld a, [hBattleTurn] and a jp nz, .asm_368cd ld a, [AttackMissed] and a jr nz, .asm_36852 ; 36830 $20 ld a, [IsInBattle] dec a jr nz, .asm_36869 ; 36836 $31 ld a, [$d143] ld b, a ld a, [BattleMonLevel] cp b jr nc, .asm_36855 ; 36840 $13 add b ld c, a inc c .asm_36845 call FarBattleRNG cp c jr nc, .asm_36845 ; 36849 $fa srl b srl b cp b jr nc, .asm_36855 ; 36850 $3 .asm_36852 jp .asm_36969 .asm_36855 call UpdateBattleMonInParty xor a ld [$cfca], a inc a ld [$d232], a call Function0x36804 ld a, [PlayerMoveAnimation] jp .asm_36975 .asm_36869 call Function0x349f4 jr c, .asm_368ca ; 3686c $5c ld a, [$c70f] and a jr z, .asm_368ca ; 36872 $56 call UpdateEnemyMonInParty ld a, $1 ld [$c689], a call Function0x37e01 ld c, $14 call DelayFrames ld hl, $c4a1 ld bc, $040a call ClearBox ld c, $14 call DelayFrames ld a, [OTPartyCount] ld b, a ld a, [CurOTMon] ld c, a .asm_3689a call FarBattleRNG and $7 cp b jr nc, .asm_3689a ; 368a0 $f8 cp c jr z, .asm_3689a ; 368a3 $f5 push af push bc ld hl, OTPartyMon1CurHP call GetPartyLocation ld a, [hli] or [hl] pop bc pop de jr z, .asm_3689a ; 368b1 $e7 ld a, d inc a ld [$c718], a ld hl, $54c3 ld a, $f rst FarCall ld hl, DraggedOutText call FarBattleTextBox ld hl, $5c23 jp CallBankF .asm_368ca jp .asm_36969 .asm_368cd ld a, [AttackMissed] and a jr nz, .asm_368f3 ld a, [IsInBattle] dec a jr nz, .asm_36908 ld a, [BattleMonLevel] ld b, a ld a, [$d143] cp b jr nc, .asm_368f5 add b ld c, a inc c .asm_368e6 call FarBattleRNG cp c jr nc, .asm_368e6 srl b srl b cp b jr nc, .asm_368f5 .asm_368f3 jr .asm_36969 .asm_368f5 call UpdateBattleMonInParty xor a ld [$cfca], a inc a ld [$d232], a call Function0x36804 ld a, [EnemyMoveAnimation] jr .asm_36975 .asm_36908 call Function0x36994 jr c, .asm_36969 ld a, [$c70f] cp $1 jr z, .asm_368ca call UpdateBattleMonInParty ld a, $1 ld [$c689], a call Function0x37e01 ld c, $14 call DelayFrames ld hl, $c535 ld bc, $050b call $0fb6 ld c, $14 call DelayFrames ld a, [PartyCount] ld b, a ld a, [CurBattleMon] ld c, a .asm_3693a call FarBattleRNG and $7 cp b jr nc, .asm_3693a cp c jr z, .asm_3693a push af push bc ld hl, PartyMon1CurHP call GetPartyLocation ld a, [hli] or [hl] pop bc pop de jr z, .asm_3693a ld a, d ld [CurPartyMon], a ld hl, $5b32 call CallBankF ld hl, DraggedOutText call FarBattleTextBox ld hl, $5c23 jp CallBankF .asm_36969 call BattleCommand0a call BattleCommandaa call BattleCommand0c jp PrintButItFailed .asm_36975 push af call Function0x36804 ld a, $1 ld [$c689], a call Function0x37e01 ld c, $14 call DelayFrames pop af ld hl, FledInFearText cp $2e jr z, .asm_36991 ld hl, BlownAwayText .asm_36991 jp FarBattleTextBox ; 36994 Function0x36994: ; 36994 ld a, [PartyCount] ld d, a ld e, 0 ld bc, $30 .asm_3699d ld a, [CurBattleMon] cp e jr z, .asm_369ae ld a, e ld hl, PartyMon1CurHP call AddNTimes ld a, [hli] or [hl] jr nz, .asm_369b4 .asm_369ae inc e dec d jr nz, .asm_3699d scf ret .asm_369b4 and a ret ; 369b6 BattleCommand24: ; 369b6 ; endloop ; Loop back to the command before 'critical'. ld de, PlayerRolloutCount ld bc, $c682 ld a, [hBattleTurn] and a jr z, .asm_369c7 ld de, EnemyRolloutCount ld bc, $c684 .asm_369c7 ld a, BATTLE_VARS_SUBSTATUS3 call GetBattleVarPair bit 2, [hl] jp nz, .asm_36a43 set 2, [hl] ld a, BATTLE_VARS_MOVE_EFFECT call GetBattleVarPair ld a, [hl] cp EFFECT_TWINEEDLE jr z, .asm_36a3f cp EFFECT_DOUBLE_HIT ld a, $1 jr z, .asm_36a3a ld a, [hl] cp EFFECT_BEAT_UP jr z, .asm_369fb cp EFFECT_TRIPLE_KICK jr nz, .asm_36a2b .asm_369ec call FarBattleRNG and $3 jr z, .asm_369ec dec a jr nz, .asm_36a3a ld a, $1 ld [bc], a jr .asm_36a48 .asm_369fb ld a, [hBattleTurn] and a jr nz, .asm_36a0b ld a, [PartyCount] cp $1 jp z, .asm_36a1e dec a jr .asm_36a3a .asm_36a0b ld a, [IsInBattle] cp $1 jp z, .asm_36a1e ld a, [OTPartyCount] cp $1 jp z, .asm_36a1e dec a jr .asm_36a3a .asm_36a1e ld a, BATTLE_VARS_SUBSTATUS3 call GetBattleVarPair res 2, [hl] call BattleCommanda8 jp EndMoveEffect .asm_36a2b call FarBattleRNG and $3 cp $2 jr c, .asm_36a39 ; 36a32 $5 call FarBattleRNG and $3 .asm_36a39 inc a .asm_36a3a ld [de], a inc a ld [bc], a jr .asm_36a6b ; 36a3d $2c .asm_36a3f ld a, $1 jr .asm_36a3a ; 36a41 $f7 .asm_36a43 ld a, [de] dec a ld [de], a jr nz, .asm_36a6b ; 36a46 $23 .asm_36a48 ld a, BATTLE_VARS_SUBSTATUS3 call GetBattleVarPair res 2, [hl] ld hl, PlayerHitTimesText ld a, [hBattleTurn] and a jr z, .asm_36a5a ld hl, EnemyHitTimesText .asm_36a5a push bc ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_BEAT_UP jr z, .asm_36a67 call FarBattleTextBox .asm_36a67 pop bc xor a ld [bc], a ret ; Loop back to the command before 'critical'. .asm_36a6b ld a, [BattleScriptBufferLoc + 1] ld h, a ld a, [BattleScriptBufferLoc] ld l, a .asm_36a73 ld a, [hld] cp $5 ; critical jr nz, .asm_36a73 ; 36a76 $fb inc hl ld a, h ld [BattleScriptBufferLoc + 1], a ld a, l ld [BattleScriptBufferLoc], a ret ; 36a82 BattleCommand94: ; 36a82 ld a, [AttackMissed] and a ret nz call CheckSubstituteOpp jr nz, .asm_36a9a ; 36a8a $e ld a, BATTLE_VARS_STATUS_OPP call CleanGetBattleVarPair and $27 jr nz, .asm_36a9a ; 36a93 $5 call Function0x36abf jr z, Function0x36ab5 ; 36a98 $1b .asm_36a9a ld a, 1 ld [AttackMissed], a ret ; 36aa0 BattleCommand25: ; 36aa0 call CheckSubstituteOpp ret nz ld a, BATTLE_VARS_STATUS_OPP call CleanGetBattleVarPair and $27 ret nz call Function0x36abf ret nz ld a, [EffectFailed] and a ret nz ; fallthrough ; 36ab5 Function0x36ab5: ; 36ab5 ld a, BATTLE_VARS_SUBSTATUS3_OPP call GetBattleVarPair set 3, [hl] jp EndRechargeOpp ; 36abf Function0x36abf: ; 36abf push bc ld a, [$c70f] ld b, a ld a, [hBattleTurn] xor b pop bc ret ; 36ac9 BattleCommand4d: ; 36ac9 ; kingsrock ld a, [AttackMissed] and a ret nz call GetUserItem ld a, b cp $4b ; king's rock ret nz call CheckSubstituteOpp ret nz ld a, BATTLE_VARS_MOVE_EFFECT call GetBattleVarPair ld d, h ld e, l call GetUserItem call FarBattleRNG cp c ret nc call EndRechargeOpp ld a, BATTLE_VARS_SUBSTATUS3_OPP call GetBattleVarPair set 3, [hl] ret ; 36af3 BattleCommand26: ; 36af3 ; ohko call ResetDamage ld a, [TypeModifier] and $7f jr z, .asm_36b2f ; 36afb $32 ld hl, EnemyMonLevel ld de, BattleMonLevel ld bc, PlayerMoveAccuracy ld a, [hBattleTurn] and a jr z, .asm_36b12 ; 36b09 $7 push hl ld h, d ld l, e pop de ld bc, EnemyMoveAccuracy .asm_36b12 ld a, [de] sub [hl] jr c, .asm_36b2f ; 36b14 $19 add a ld e, a ld a, [bc] add e jr nc, .asm_36b1e ; 36b1a $2 ld a, $ff .asm_36b1e ld [bc], a call BattleCommand09 ld hl, CurDamage ld a, $ff ld [hli], a ld [hl], a ld a, $2 ld [CriticalHit], a ret .asm_36b2f ld a, $ff ld [CriticalHit], a ld a, $1 ld [AttackMissed], a ret ; 36b3a BattleCommand3a: ; 36b3a ; checkcharge ; charged? ld a, BATTLE_VARS_SUBSTATUS3 call GetBattleVarPair bit 4, [hl] ret z ; go to town res 4, [hl] res 5, [hl] res 6, [hl] ld b, $39 ; charge jp SkipToBattleCommand ; 36b4d BattleCommand39: ; 36b4d ; charge call BattleCommand38 ld a, BATTLE_VARS_STATUS call CleanGetBattleVarPair and $7 jr z, .asm_36b65 call BattleCommandaa call BattleCommand0c call PrintButItFailed jp EndMoveEffect .asm_36b65 ld a, BATTLE_VARS_SUBSTATUS3 call GetBattleVarPair set 4, [hl] ld hl, IgnoredOrders2Text ld a, [AlreadyDisobeyed] and a call nz, FarBattleTextBox call BattleCommand0a xor a ld [$cfca], a inc a ld [$c689], a call Function0x37e36 ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair cp $13 jr z, .asm_36b96 ; 36b8b $9 cp $5b jr z, .asm_36b96 ; 36b8f $5 call BattleCommand0c jr .asm_36b99 ; 36b94 $3 .asm_36b96 call Function0x37ec0 .asm_36b99 ld a, BATTLE_VARS_SUBSTATUS3 call GetBattleVarPair ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair ld b, a cp $13 jr z, .asm_36bb0 ; 36ba6 $8 cp $5b jr nz, .asm_36bb2 ; 36baa $6 set 5, [hl] jr .asm_36bb2 ; 36bae $2 .asm_36bb0 set 6, [hl] .asm_36bb2 call Function0x34548 jr nz, .asm_36bc3 ; 36bb5 $c ld a, BATTLE_VARS_LAST_COUNTER_MOVE call GetBattleVarPair ld [hl], b ld a, BATTLE_VARS_LAST_MOVE call GetBattleVarPair ld [hl], b .asm_36bc3 call ResetDamage ld hl, .text_36bdb call BattleTextBox ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_SKULL_BASH ld b, $fe ; endturn jp z, SkipToBattleCommand jp EndMoveEffect .text_36bdb ; [user] TX_FAR UnknownText_0x1c0d0e start_asm ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair cp RAZOR_WIND ld hl, .RazorWind jr z, .asm_36c0d cp SOLARBEAM ld hl, .Solarbeam jr z, .asm_36c0d cp SKULL_BASH ld hl, .SkullBash jr z, .asm_36c0d cp SKY_ATTACK ld hl, .SkyAttack jr z, .asm_36c0d cp FLY ld hl, .Fly jr z, .asm_36c0d cp DIG ld hl, .Dig .asm_36c0d ret .RazorWind ; 'made a whirlwind!' TX_FAR UnknownText_0x1c0d12 db "@" .Solarbeam ; 'took in sunlight!' TX_FAR UnknownText_0x1c0d26 db "@" .SkullBash ; 'lowered its head!' TX_FAR UnknownText_0x1c0d3a db "@" .SkyAttack ; 'is glowing!' TX_FAR UnknownText_0x1c0d4e db "@" .Fly ; 'flew up high!' TX_FAR UnknownText_0x1c0d5c db "@" .Dig ; 'dug a hole!' TX_FAR UnknownText_0x1c0d6c db "@" ; 36c2c BattleCommand3c: ; 36c2c ; unused ret ; 36c2d BattleCommand3b: ; 36c2d ; traptarget ld a, [AttackMissed] and a ret nz ld hl, $c731 ld de, $c72f ld a, [hBattleTurn] and a jr z, .asm_36c43 ld hl, $c730 ld de, $c72e .asm_36c43 ld a, [hl] and a ret nz ld a, BATTLE_VARS_SUBSTATUS4_OPP call CleanGetBattleVarPair bit 4, a ret nz call FarBattleRNG and 3 inc a inc a inc a ld [hl], a ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair ld [de], a ld b, a ld hl, .Traps .asm_36c61 ld a, [hli] cp b jr z, .asm_36c69 inc hl inc hl jr .asm_36c61 .asm_36c69 ld a, [hli] ld h, [hl] ld l, a jp FarBattleTextBox .Traps dbw BIND, UsedBindText ; 'used BIND on' dbw WRAP, WrappedByText ; 'was WRAPPED by' dbw FIRE_SPIN, FireSpinTrapText ; 'was trapped!' dbw CLAMP, ClampedByText ; 'was CLAMPED by' dbw WHIRLPOOL, WhirlpoolTrapText ; 'was trapped!' ; 36c7e BattleCommand28: ; 36c7e ; mist ld a, BATTLE_VARS_SUBSTATUS4 call GetBattleVarPair bit 1, [hl] jr nz, .asm_36c92 ; 36c85 $b set 1, [hl] call Function0x37e01 ld hl, MistText jp FarBattleTextBox .asm_36c92 call Function0x37e77 jp PrintButItFailed ; 36c98 BattleCommand29: ; 36c98 ; focusenergy ld a, BATTLE_VARS_SUBSTATUS4 call GetBattleVarPair bit 2, [hl] jr nz, .asm_36cac ; 36c9f $b set 2, [hl] call Function0x37e01 ld hl, GettingPumpedText jp FarBattleTextBox .asm_36cac call Function0x37e77 jp PrintButItFailed ; 36cb2 BattleCommand27: ; 36cb2 ; recoil ld hl, BattleMonMaxHP ld a, [hBattleTurn] and a jr z, .asm_36cbd ; 36cb8 $3 ld hl, EnemyMonMaxHPHi .asm_36cbd ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair ld d, a ld a, [CurDamage] ld b, a ld a, [CurDamage + 1] ld c, a srl b rr c srl b rr c ld a, b or c jr nz, .asm_36cd8 ; 36cd5 $1 inc c .asm_36cd8 ld a, [hli] ld [$d1eb], a ld a, [hl] ld [$d1ea], a dec hl dec hl ld a, [hl] ld [$d1ec], a sub c ld [hld], a ld [$d1ee], a ld a, [hl] ld [$d1ed], a sbc b ld [hl], a ld [$d1ef], a jr nc, .asm_36cfe ; 36cf4 $8 xor a ld [hli], a ld [hl], a ld hl, $d1ee ld [hli], a ld [hl], a .asm_36cfe ld hl, $c55e ld a, [hBattleTurn] and a ld a, $1 jr z, .asm_36d0c ; 36d06 $4 ld hl, $c4ca xor a .asm_36d0c ld [$d10a], a ld a, $b call Predef call RefreshBattleHuds ld hl, RecoilText jp FarBattleTextBox ; 36d1d BattleCommand2b: ; 36d1d ; confusetarget call GetOpponentItem ld a, b cp $19 ret z ld a, [EffectFailed] and a ret nz call Function0x37962 ret nz call CheckSubstituteOpp ret nz ld a, BATTLE_VARS_SUBSTATUS3_OPP call GetBattleVarPair bit 7, [hl] ret nz jr Function0x36d70 BattleCommand2a: ; 36d3b ; confuse call GetOpponentItem ld a, b cp $19 jr nz, .asm_36d53 ld a, [hl] ld [$d265], a call GetItemName call Function0x37e77 ld hl, ProtectedByText jp FarBattleTextBox .asm_36d53 ld a, BATTLE_VARS_SUBSTATUS3_OPP call GetBattleVarPair bit 7, [hl] jr z, .asm_36d65 call Function0x37e77 ld hl, AlreadyConfusedText jp FarBattleTextBox .asm_36d65 call CheckSubstituteOpp jr nz, Function0x36db6 ld a, [AttackMissed] and a jr nz, Function0x36db6 ; fallthrough ; 36d70 Function0x36d70: ; 36d70 ld bc, EnemyConfuseCount ld a, [hBattleTurn] and a jr z, .asm_36d7b ld bc, PlayerConfuseCount .asm_36d7b set 7, [hl] call FarBattleRNG and 3 inc a inc a ld [bc], a ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_CONFUSE_HIT jr z, .asm_36d99 cp EFFECT_SNORE jr z, .asm_36d99 cp EFFECT_SWAGGER jr z, .asm_36d99 call Function0x37e01 .asm_36d99 ld de, $0103 call Function0x37e54 ld hl, BecameConfusedText call FarBattleTextBox call GetOpponentItem ld a, b cp $f jr z, .asm_36db0 cp $10 ret nz .asm_36db0 ld hl, $5e51 jp CallBankF ; 36db6 Function0x36db6: ; 36db6 ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_CONFUSE_HIT ret z cp EFFECT_SNORE ret z cp EFFECT_SWAGGER ret z jp PrintDidntAffect2 ; 36dc7 BattleCommand30: ; 36dc7 ; paralyze ld a, BATTLE_VARS_STATUS_OPP call CleanGetBattleVarPair bit 6, a jr nz, .asm_36e49 ; 36dce $79 ld a, [TypeModifier] and $7f jr z, .asm_36e55 ; 36dd5 $7e call GetOpponentItem ld a, b cp $18 jr nz, .asm_36def ; 36ddd $10 ld a, [hl] ld [$d265], a call GetItemName call Function0x37e77 ld hl, ProtectedByText jp FarBattleTextBox .asm_36def ld a, [hBattleTurn] and a jr z, .asm_36e0e ; 36df2 $1a ld a, [InLinkBattle] and a jr nz, .asm_36e0e ; 36df8 $14 ld a, [$cfc0] and a jr nz, .asm_36e0e ; 36dfe $e ld a, [PlayerSubStatus5] bit 5, a jr nz, .asm_36e0e ; 36e05 $7 call FarBattleRNG cp $40 jr c, .asm_36e52 ; 36e0c $44 .asm_36e0e ld a, BATTLE_VARS_STATUS_OPP call GetBattleVarPair and a jr nz, .asm_36e52 ; 36e14 $3c ld a, [AttackMissed] and a jr nz, .asm_36e52 ; 36e1a $36 call CheckSubstituteOpp jr nz, .asm_36e52 ; 36e1f $31 ld c, $1e call DelayFrames call Function0x37e01 ld a, $1 ld [$ffd4], a ld a, BATTLE_VARS_STATUS_OPP call GetBattleVarPair set 6, [hl] call UpdateOpponentInParty ld hl, $6c39 call CallBankF call UpdateBattleHuds call PrintParalyze ld hl, $5de9 jp CallBankF .asm_36e49 call Function0x37e77 ld hl, AlreadyParalyzedText jp FarBattleTextBox .asm_36e52 jp PrintDidntAffect2 .asm_36e55 call Function0x37e77 jp PrintDoesntAffect ; 36e5b Function0x36e5b: ; 36e5b ; Compare move type to user type. ; Return z if matching the user type (unless the move is Normal). push hl ld hl, EnemyMonType1 ld a, [hBattleTurn] and a jr z, .ok ld hl, BattleMonType1 .ok ld a, BATTLE_VARS_MOVE_TYPE call CleanGetBattleVarPair cp NORMAL jr z, .normal cp [hl] jr z, .return inc hl cp [hl] .return pop hl ret .normal ld a, 1 and a pop hl ret ; 36e7c BattleCommand31: ; 36e7c ; substitute call BattleCommandaa ld hl, BattleMonMaxHP ld de, $c6df ld a, [hBattleTurn] and a jr z, .asm_36e90 ; 36e88 $6 ld hl, EnemyMonMaxHPHi ld de, $c6e0 .asm_36e90 ld a, BATTLE_VARS_SUBSTATUS4 call CleanGetBattleVarPair bit 4, a jr nz, .asm_36ef4 ; 36e97 $5b ld a, [hli] ld b, [hl] srl a rr b srl a rr b dec hl dec hl ld a, b ld [de], a ld a, [hld] sub b ld e, a ld a, [hl] sbc $0 ld d, a jr c, .asm_36eff ; 36eae $4f ld a, d or e jr z, .asm_36eff ; 36eb2 $4b ld [hl], d inc hl ld [hl], e ld a, BATTLE_VARS_SUBSTATUS4 call GetBattleVarPair set 4, [hl] ld hl, $c730 ld de, $c72e ld a, [hBattleTurn] and a jr z, .asm_36ecf ; 36ec7 $6 ld hl, $c731 ld de, $c72f .asm_36ecf xor a ld [hl], a ld [de], a call Function0x37ed5 jr c, .asm_36ee8 ; 36ed5 $11 xor a ld [$cfca], a ld [FXAnimIDHi], a ld [$c689], a ld a, $a4 call Function0x37e44 jr .asm_36eeb ; 36ee6 $3 .asm_36ee8 call BattleCommanda6 .asm_36eeb ld hl, MadeSubstituteText call FarBattleTextBox jp RefreshBattleHuds .asm_36ef4 call Function0x34548 call nz, BattleCommand0c ld hl, HasSubstituteText jr .asm_36f08 ; 36efd $9 .asm_36eff call Function0x34548 call nz, BattleCommand0c ld hl, TooWeakSubText .asm_36f08 jp FarBattleTextBox ; 36f0b BattleCommand32: ; 36f0b ; rechargenextturn ld a, BATTLE_VARS_SUBSTATUS4 call GetBattleVarPair set 5, [hl] ret ; 36f13 EndRechargeOpp: ; 36f13 push hl ld a, BATTLE_VARS_SUBSTATUS4_OPP call GetBattleVarPair res 5, [hl] pop hl ret ; 36f1d BattleCommand97: ; 36f1d ; rage ld a, BATTLE_VARS_SUBSTATUS4 call GetBattleVarPair set 6, [hl] ret ; 36f25 BattleCommand98: ; 36f25 ; doubleflyingdamage ld a, BATTLE_VARS_SUBSTATUS3_OPP call CleanGetBattleVarPair bit SUBSTATUS_FLYING, a ret z jr DoubleDamage ; 36f2f BattleCommand99: ; 36f2f ; doubleundergrounddamage ld a, BATTLE_VARS_SUBSTATUS3_OPP call CleanGetBattleVarPair bit SUBSTATUS_UNDERGROUND, a ret z ; fallthrough ; 36f37 DoubleDamage: ; 36f37 ld hl, CurDamage + 1 sla [hl] dec hl rl [hl] jr nc, .quit ld a, $ff ld [hli], a ld [hl], a .quit ret ; 36f46 BattleCommand33: ; 36f46 ; mimic call Function0x372d8 call BattleCommandaa ld a, [AttackMissed] and a jr nz, .asm_36f9a ; 36f50 $48 ld hl, BattleMonMoves ld a, [hBattleTurn] and a jr z, .asm_36f5d ; 36f58 $3 ld hl, EnemyMonMoves .asm_36f5d call CheckHiddenOpponent jr nz, .asm_36f9a ; 36f60 $38 ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP call CleanGetBattleVarPair and a jr z, .asm_36f9a ; 36f68 $30 cp $a5 jr z, .asm_36f9a ; 36f6c $2c ld b, a ld c, $4 .asm_36f71 ld a, [hli] cp b jr z, .asm_36f9a ; 36f73 $25 dec c jr nz, .asm_36f71 ; 36f76 $f9 dec hl .asm_36f79 ld a, [hld] cp $66 jr nz, .asm_36f79 ; 36f7c $fb inc hl ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP call CleanGetBattleVarPair ld [hl], a ld [$d265], a ld bc, $0006 add hl, bc ld [hl], $5 call GetMoveName call Function0x37e01 ld hl, LearnedMoveText jp FarBattleTextBox .asm_36f9a jp Function0x37357 ; 36f9d BattleCommand35: ; 36f9d ; leechseed ld a, [AttackMissed] and a jr nz, .asm_36fd8 ; 36fa1 $35 call CheckSubstituteOpp jr nz, .asm_36fd8 ; 36fa6 $30 ld de, EnemyMonType1 ld a, [hBattleTurn] and a jr z, .asm_36fb3 ; 36fae $3 ld de, BattleMonType1 .asm_36fb3 ld a, [de] cp $16 jr z, .asm_36fd2 ; 36fb6 $1a inc de ld a, [de] cp $16 jr z, .asm_36fd2 ; 36fbc $14 ld a, BATTLE_VARS_SUBSTATUS4_OPP call GetBattleVarPair bit 7, [hl] jr nz, .asm_36fd8 ; 36fc5 $11 set 7, [hl] call Function0x37e01 ld hl, WasSeededText jp FarBattleTextBox .asm_36fd2 call Function0x37e77 jp PrintDoesntAffect .asm_36fd8 call Function0x37e77 ld hl, EvadedText jp FarBattleTextBox ; 36fe1 BattleCommand36: ; 36fe1 call Function0x37e01 ld a, $41 ld hl, $60e5 rst FarCall jp PrintNothingHappened ; 36fed BattleCommand37: ; 36fed ; disable ld a, [AttackMissed] and a jr nz, .asm_37059 ; 36ff1 $66 ld de, EnemyDisableCount ld hl, EnemyMonMoves ld a, [hBattleTurn] and a jr z, .asm_37004 ; 36ffc $6 ld de, PlayerDisableCount ld hl, BattleMonMoves .asm_37004 ld a, [de] and a jr nz, .asm_37059 ; 37006 $51 ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP call CleanGetBattleVarPair and a jr z, .asm_37059 ; 3700e $49 cp $a5 jr z, .asm_37059 ; 37012 $45 ld b, a ld c, $ff .asm_37017 inc c ld a, [hli] cp b jr nz, .asm_37017 ; 3701a $fb ld a, [hBattleTurn] and a ld hl, EnemyMonPPMove1 jr z, .asm_37027 ; 37022 $3 ld hl, BattleMonPP .asm_37027 ld b, $0 add hl, bc ld a, [hl] and a jr z, .asm_37059 ; 3702c $2b .asm_3702e call FarBattleRNG and $7 jr z, .asm_3702e ; 37033 $f9 inc a inc c swap c add c ld [de], a call Function0x37e01 ld hl, DisabledMove ld a, [hBattleTurn] and a jr nz, .asm_37047 ; 37044 $1 inc hl .asm_37047 ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP call CleanGetBattleVarPair ld [hl], a ld [$d265], a call GetMoveName ld hl, WasDisabledText jp FarBattleTextBox .asm_37059 jp Function0x37354 ; 3705c BattleCommand1e: ; 3705c ; payday xor a ld hl, StringBuffer1 ld [hli], a ld a, [hBattleTurn] and a ld a, [BattleMonLevel] jr z, .asm_3706c ; 37067 $3 ld a, [EnemyMonLevel] .asm_3706c add a ld hl, $c6ee add [hl] ld [hld], a jr nc, .asm_37079 ; 37072 $5 inc [hl] dec hl jr nz, .asm_37079 ; 37076 $1 inc [hl] .asm_37079 ld hl, CoinsScatteredText jp FarBattleTextBox ; 3707f BattleCommand1f: ; 3707f ; conversion ld hl, BattleMonMoves ld de, BattleMonType1 ld a, [hBattleTurn] and a jr z, .asm_37090 ; 37088 $6 ld hl, EnemyMonMoves ld de, EnemyMonType1 .asm_37090 push de ld c, $0 ld de, StringBuffer1 .asm_37096 push hl ld b, $0 add hl, bc ld a, [hl] pop hl and a jr z, .asm_370b2 ; 3709d $13 push hl push bc dec a ld hl, Moves + PlayerMoveType - PlayerMoveStruct call GetMoveAttr ld [de], a inc de pop bc pop hl inc c ld a, c cp $4 jr c, .asm_37096 ; 370b0 $e4 .asm_370b2 ld a, $ff ld [de], a inc de ld [de], a inc de ld [de], a pop de ld hl, StringBuffer1 .asm_370bd ld a, [hl] cp $ff jr z, .asm_370d3 ; 370c0 $11 cp $13 jr z, .asm_370d0 ; 370c4 $a ld a, [de] cp [hl] jr z, .asm_370d0 ; 370c8 $6 inc de ld a, [de] dec de cp [hl] jr nz, .asm_370d9 ; 370ce $9 .asm_370d0 inc hl jr .asm_370bd ; 370d1 $ea .asm_370d3 call Function0x37e77 jp PrintButItFailed .asm_370d9 call FarBattleRNG and $3 ld c, a ld b, $0 ld hl, StringBuffer1 add hl, bc ld a, [hl] cp $ff jr z, .asm_370d9 ; 370e8 $ef cp $13 jr z, .asm_370d9 ; 370ec $eb ld a, [de] cp [hl] jr z, .asm_370d9 ; 370f0 $e7 inc de ld a, [de] dec de cp [hl] jr z, .asm_370d9 ; 370f6 $e1 ld a, [hl] ld [de], a inc de ld [de], a ld [$d265], a ld a, $14 ld hl, $4964 rst FarCall call Function0x37e01 ld hl, TransformedTypeText jp FarBattleTextBox ; 3710e BattleCommand20: ; 3710e ; resetstats ld a, 7 ; neutral ld hl, PlayerStatLevels call .Fill ld hl, EnemyStatLevels call .Fill ld a, [hBattleTurn] push af call SetPlayerTurn call Function0x365d7 call SetEnemyTurn call Function0x365fd pop af ld [hBattleTurn], a call Function0x37e01 ld hl, EliminatedStatsText jp FarBattleTextBox .Fill ld b, PlayerStatLevelsEnd - PlayerStatLevels .asm_37139 ld [hli], a dec b jr nz, .asm_37139 ret ; 3713e BattleCommand2c: ; 3713e ; heal ld de, BattleMonHP ld hl, BattleMonMaxHP ld a, [hBattleTurn] and a jr z, .asm_3714f ; 37147 $6 ld de, EnemyMonHPHi ld hl, EnemyMonMaxHPHi .asm_3714f ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair ld b, a push hl push de push bc ld c, $2 call StringCmp pop bc pop de pop hl jp z, .asm_371c4 ld a, b cp $9c jr nz, .asm_37199 ; 37166 $31 push hl push de push af call BattleCommandaa ld a, BATTLE_VARS_SUBSTATUS5 call GetBattleVarPair res 0, [hl] ld a, BATTLE_VARS_STATUS call GetBattleVarPair ld a, [hl] and a ld [hl], $3 ld hl, WentToSleepText jr z, .asm_37186 ; 37181 $3 ld hl, RestedText .asm_37186 call FarBattleTextBox ld a, [hBattleTurn] and a jr nz, .asm_37193 ; 3718c $5 call Function0x365d7 jr .asm_37196 ; 37191 $3 .asm_37193 call Function0x365fd .asm_37196 pop af pop de pop hl .asm_37199 jr z, .asm_371a3 ; 37199 $8 ld hl, $4c9f call CallBankF jr .asm_371a9 ; 371a1 $6 .asm_371a3 ld hl, $4cac call CallBankF .asm_371a9 call Function0x37e01 call SwitchTurn ld hl, $4cef call CallBankF call SwitchTurn call UpdateUserInParty call RefreshBattleHuds ld hl, RegainedHealthText jp FarBattleTextBox .asm_371c4 call Function0x37e77 ld hl, HPIsFullText jp FarBattleTextBox ; 371cd BattleCommand2d: ; 371cd ; transform call Function0x372d8 ld a, BATTLE_VARS_SUBSTATUS5_OPP call GetBattleVarPair bit 3, [hl] jp nz, Function0x372d2 call CheckHiddenOpponent jp nz, Function0x372d2 xor a ld [$cfca], a ld [FXAnimIDHi], a ld a, $1 ld [$c689], a ld a, BATTLE_VARS_SUBSTATUS4 call GetBattleVarPair bit 4, [hl] push af jr z, .asm_37200 ; 371f4 $a call Function0x34548 jr nz, .asm_37200 ; 371f9 $5 ld a, $a4 call Function0x37e44 .asm_37200 ld a, BATTLE_VARS_SUBSTATUS5 call GetBattleVarPair set 3, [hl] call Function0x372e7 ld hl, BattleMonSpecies ld de, EnemyMonSpecies ld a, [hBattleTurn] and a jr nz, .asm_3721f ; 37213 $a ld hl, EnemyMonSpecies ld de, BattleMonSpecies xor a ld [CurMoveNum], a .asm_3721f push hl ld a, [hli] ld [de], a inc hl inc de inc de ld bc, $0004 call $3026 ld a, [hBattleTurn] and a jr z, .asm_3723a ; 3722e $a ld a, [de] ld [$c6f2], a inc de ld a, [de] ld [$c6f3], a dec de .asm_3723a ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld bc, $000c add hl, bc push hl ld h, d ld l, e add hl, bc ld d, h ld e, l pop hl ld bc, $000c call $3026 ld bc, $ffe2 add hl, bc push de ld d, h ld e, l pop hl ld bc, $ffe8 add hl, bc ld b, $4 .asm_3725f ld a, [de] inc de and a jr z, .asm_3726c ; 37262 $8 cp $a6 ld a, $1 jr z, .asm_3726c ; 37268 $2 ld a, $5 .asm_3726c ld [hli], a dec b jr nz, .asm_3725f ; 3726e $ef pop hl ld a, [hl] ld [$d265], a call $343b ld hl, EnemyStats ld de, PlayerStats ld bc, $000a call BattleSideCopy ld hl, EnemyStatLevels ld de, PlayerStatLevels ld bc, $0008 call BattleSideCopy call Function0x37ed5 jr c, .asm_372a8 ; 37293 $13 ld a, [hBattleTurn] and a ld a, [$c6fe] jr z, .asm_372a0 ; 3729b $3 ld a, [$c6fa] .asm_372a0 and a jr nz, .asm_372a8 ; 372a1 $5 call Function0x37e36 jr .asm_372ae ; 372a6 $6 .asm_372a8 call BattleCommandaa call BattleCommanda6 .asm_372ae xor a ld [$cfca], a ld [FXAnimIDHi], a ld a, $2 ld [$c689], a pop af ld a, $a4 call nz, Function0x37e44 ld hl, TransformedText jp FarBattleTextBox ; 372c6 BattleSideCopy: ; 372c6 ; Copy bc bytes from hl to de if it's the player's turn. ; Copy bc bytes from de to hl if it's the enemy's turn. ld a, [hBattleTurn] and a jr z, .copy ; Swap hl and de push hl ld h, d ld l, e pop de .copy jp CopyBytes ; 372d2 Function0x372d2: ; 372d2 call Function0x37e77 jp PrintButItFailed ; 372d8 Function0x372d8: ; 372d8 ld a, BATTLE_VARS_LAST_COUNTER_MOVE call GetBattleVarPair xor a ld [hl], a ld a, BATTLE_VARS_LAST_MOVE call GetBattleVarPair xor a ld [hl], a ret ; 372e7 Function0x372e7: ; 372e7 ld a, [hBattleTurn] and a jr z, .player xor a ld [EnemyDisableCount], a ld [EnemyDisabledMove], a ret .player xor a ld [PlayerDisableCount], a ld [DisabledMove], a ret ; 372fc BattleCommand2e: ; 372fc ; screen ld hl, PlayerScreens ld bc, PlayerLightScreenCount ld a, [hBattleTurn] and a jr z, .asm_3730d ld hl, EnemyScreens ld bc, EnemyLightScreenCount .asm_3730d ld a, BATTLE_VARS_MOVE_EFFECT call CleanGetBattleVarPair cp EFFECT_LIGHT_SCREEN jr nz, .Reflect bit 3, [hl] jr nz, .asm_37337 set 3, [hl] ld a, $5 ld [bc], a ld hl, LightScreenEffectText jr .asm_37331 .Reflect bit 4, [hl] jr nz, .asm_37337 set 4, [hl] ; LightScreenCount -> ReflectCount inc bc ld a, $5 ld [bc], a ld hl, ReflectEffectText .asm_37331 call Function0x37e01 jp FarBattleTextBox .asm_37337 call Function0x37e77 jp PrintButItFailed ; 3733d PrintDoesntAffect: ; 3733d ; 'it doesn't affect' ld hl, DoesntAffectText jp FarBattleTextBox ; 37343 PrintNothingHappened: ; 37343 ; 'but nothing happened!' ld hl, NothingHappenedText jp FarBattleTextBox ; 37349 TryPrintButItFailed: ; 37349 ld a, [AlreadyFailed] and a ret nz ; fallthrough ; 3734e PrintButItFailed: ; 3734e ; 'but it failed!' ld hl, ButItFailedText jp FarBattleTextBox ; 37354 Function0x37354: ; 37354 call Function0x37e77 ; fallthrough ; 37357 Function0x37357: ; 37357 ld hl, ButItFailedText ; 'but it failed!' ld de, ItFailedText ; 'it failed!' jp Function0x35157 ; 37360 PrintDidntAffect: ; 37360 ; 'it didn't affect' ld hl, DidntAffect1Text jp FarBattleTextBox ; 37366 PrintDidntAffect2: ; 37366 call Function0x37e77 ld hl, DidntAffect1Text ; 'it didn't affect' ld de, DidntAffect2Text ; 'it didn't affect' jp Function0x35157 ; 37372 PrintParalyze: ; 37372 ; 'paralyzed! maybe it can't attack!' ld hl, ParalyzedText jp FarBattleTextBox ; 37378 CheckSubstituteOpp: ; 37378 ld a, BATTLE_VARS_SUBSTATUS4_OPP call CleanGetBattleVarPair bit 4, a ret ; 37380 BattleCommand1a: ; 37380 ld a, $41 ld hl, $610d rst FarCall ld a, $4 ld [$cfca], a ld c, $3 call DelayFrames ld a, BATTLE_VARS_STATUS call GetBattleVarPair xor a ld [hli], a inc hl ld [hli], a ld [hl], a ld a, $1 ld [$c689], a call BattleCommand0a call Function0x37e36 ld a, BATTLE_VARS_SUBSTATUS4 call GetBattleVarPair res 7, [hl] ld a, BATTLE_VARS_SUBSTATUS5_OPP call GetBattleVarPair res 6, [hl] call Function0x37ed5 ret nc ld a, $f ld hl, $5f58 rst FarCall ld a, $f ld hl, $6043 rst FarCall call $31f6 jp RefreshBattleHuds ; 373c9 BattleCommand1b: ; 373c9 ; mirrormove call Function0x372d8 ld a, BATTLE_VARS_MOVE call GetBattleVarPair ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP call CleanGetBattleVarPair and a jr z, .asm_373de ; 373d7 $5 call CheckUserMove jr nz, .asm_373ea ; 373dc $c .asm_373de call Function0x37e77 ld hl, MirrorMoveFailedText call FarBattleTextBox jp EndMoveEffect .asm_373ea ld a, b ld [hl], a ld [$d265], a push af ld a, BATTLE_VARS_MOVE_ANIM call GetBattleVarPair ld d, h ld e, l pop af dec a call GetMoveData call GetMoveName call $30d6 call Function0x34548 jr nz, .asm_37412 ; 37405 $b ld a, [$c689] push af call BattleCommand0a pop af ld [$c689], a .asm_37412 call BattleCommandaa jp ResetTurn ; 37418 BattleCommand34: ; 37418 ; metronome call Function0x372d8 call Function0x34548 jr nz, .asm_3742b ld a, [$c689] push af call BattleCommand0a pop af ld [$c689], a .asm_3742b call Function0x37e36 .GetMove call FarBattleRNG ; No invalid moves. cp BEAT_UP + 1 jr nc, .GetMove ; None of the moves in MetronomeExcepts. push af ld de, 1 ld hl, MetronomeExcepts call IsInArray pop bc jr c, .GetMove ; No moves the user already has. ld a, b call CheckUserMove jr z, .GetMove ld a, BATTLE_VARS_MOVE call GetBattleVarPair ld [hl], b call UpdateMoveData jp ResetTurn ; 37454 MetronomeExcepts: ; 37454 db $00 db METRONOME db STRUGGLE db SKETCH db MIMIC db COUNTER db MIRROR_COAT db PROTECT db DETECT db ENDURE db DESTINY_BOND db SLEEP_TALK db THIEF db $ff ; 37462 CheckUserMove: ; 37462 ; Return z if the user has move a. ld b, a ld de, BattleMonMoves ld a, [hBattleTurn] and a jr z, .ok ld de, EnemyMonMoves .ok ld c, NUM_MOVES .loop ld a, [de] inc de cp b ret z dec c jr nz, .loop ld a, 1 and a ret ; 3747b ResetTurn: ; 3747b ld hl, $c732 ld a, [hBattleTurn] and a jr z, .asm_37486 ld hl, $c733 .asm_37486 ld [hl], 1 xor a ld [AlreadyDisobeyed], a call DoMove jp EndMoveEffect ; 37492 BattleCommand50: ; 37492 ; thief ld a, [hBattleTurn] and a jr nz, .asm_374ce ; 37495 $37 call .asm_37501 ld a, [hl] and a ret nz call .asm_3750c ld a, [hl] and a ret z ld [$d265], a ld d, a ld a, $2e ld hl, $5e76 rst FarCall ret c ld a, [EffectFailed] and a ret nz ld a, [InLinkBattle] and a jr z, .asm_374be ; 374b7 $5 ld a, [IsInBattle] dec a ret z .asm_374be call .asm_3750c xor a ld [hl], a ld [de], a call .asm_37501 ld a, [$d265] ld [hl], a ld [de], a jr .asm_374f8 ; 374cc $2a .asm_374ce call .asm_3750c ld a, [hl] and a ret nz call .asm_37501 ld a, [hl] and a ret z ld [$d265], a ld d, a ld a, $2e ld hl, $5e76 rst FarCall ret c ld a, [EffectFailed] and a ret nz call .asm_37501 xor a ld [hl], a ld [de], a call .asm_3750c ld a, [$d265] ld [hl], a ld [de], a .asm_374f8 call GetItemName ld hl, StoleText jp FarBattleTextBox .asm_37501 ld a, 1 call BattlePartyAttr ld d, h ld e, l ld hl, BattleMonItem ret .asm_3750c ld a, 1 call $396d ; GetOTStat_Battle ld d, h ld e, l ld hl, EnemyMonItem ret ; 37517 BattleCommand51: ; 37517 ; arenatrap call CheckHiddenOpponent jr nz, .asm_37530 ; 3751a $14 ld a, BATTLE_VARS_SUBSTATUS5 call GetBattleVarPair bit 7, [hl] jr nz, .asm_37530 ; 37523 $b set 7, [hl] call Function0x37e01 ld hl, CantEscapeNowText jp FarBattleTextBox .asm_37530 call Function0x37e77 jp PrintButItFailed ; 37536 BattleCommand52: ; 37536 ; nightmare call CheckHiddenOpponent jr nz, .asm_3755d ; 37539 $22 call CheckSubstituteOpp jr nz, .asm_3755d ; 3753e $1d ld a, BATTLE_VARS_STATUS_OPP call GetBattleVarPair and $7 jr z, .asm_3755d ; 37547 $14 ld a, BATTLE_VARS_SUBSTATUS1_OPP call GetBattleVarPair bit 0, [hl] jr nz, .asm_3755d ; 37550 $b set 0, [hl] call Function0x37e01 ld hl, StartedNightmareText jp FarBattleTextBox .asm_3755d call Function0x37e77 jp PrintButItFailed ; 37563 BattleCommand53: ; 37563 ; defrost ld a, BATTLE_VARS_STATUS call GetBattleVarPair bit 5, [hl] ret z res 5, [hl] ld a, [hBattleTurn] and a jr z, .asm_37578 ; 37570 $6 ld a, [IsInBattle] dec a jr z, .asm_3757f ; 37576 $7 .asm_37578 ld a, $20 call UserPartyAttr res 5, [hl] .asm_3757f call RefreshBattleHuds ld hl, WasDefrostedText jp FarBattleTextBox ; 37588 BattleCommand54: ; 37588 ; curse ld de, BattleMonType1 ld bc, PlayerStatLevels ld a, [hBattleTurn] and a jr z, .asm_37599 ; 37591 $6 ld de, EnemyMonType1 ld bc, EnemyStatLevels .asm_37599 ld a, [de] cp $8 jr z, .asm_375d7 ; 3759c $39 inc de ld a, [de] cp $8 jr z, .asm_375d7 ; 375a2 $33 ld a, [bc] cp $d jr c, .asm_375af ; 375a7 $6 inc bc ld a, [bc] cp $d jr nc, .asm_3760a ; 375ad $5b .asm_375af ld a, $1 ld [$c689], a call Function0x37e01 ld a, $2 call Function0x36532 call SwitchTurn call BattleCommand8d call ResetMiss call SwitchTurn call BattleCommand70 call BattleCommand8c call ResetMiss call BattleCommand71 jp BattleCommand8c .asm_375d7 call CheckHiddenOpponent jr nz, .asm_37604 ; 375da $28 call CheckSubstituteOpp jr nz, .asm_37604 ; 375df $23 ld a, BATTLE_VARS_SUBSTATUS1_OPP call GetBattleVarPair bit 1, [hl] jr nz, .asm_37604 ; 375e8 $1a set 1, [hl] call Function0x37e01 ld hl, $4c9f call CallBankF ld hl, $4c3f call CallBankF call UpdateUserInParty ld hl, PutACurseText jp FarBattleTextBox .asm_37604 call Function0x37e77 jp PrintButItFailed .asm_3760a ld b, $8 call GetStatName call Function0x37e77 ld hl, WontRiseAnymoreText jp FarBattleTextBox ; 37618 BattleCommand55: ; 37618 ; protect call Function0x3762c ret c ld a, BATTLE_VARS_SUBSTATUS1 call GetBattleVarPair set 2, [hl] call Function0x37e01 ld hl, ProtectedItselfText jp FarBattleTextBox ; 3762c Function0x3762c: ; 3762c ld de, $c679 ld a, [hBattleTurn] and a jr z, .asm_37637 ld de, $c681 .asm_37637 call Function0x36abf jr nz, .asm_37665 ld a, $3 call CleanGetBattleVarPair bit 4, a jr nz, .asm_37665 ld b, $ff ld a, [de] ld c, a .asm_37649 ld a, c and a jr z, .asm_37656 dec c srl b ld a, b and a jr nz, .asm_37649 jr .asm_37665 .asm_37656 call FarBattleRNG and a jr z, .asm_37656 dec a cp b jr nc, .asm_37665 ld a, [de] inc a ld [de], a and a ret .asm_37665 xor a ld [de], a call Function0x37e77 call PrintButItFailed scf ret ; 3766f BattleCommand5a: ; 3766f ; endure call Function0x3762c ret c ld a, BATTLE_VARS_SUBSTATUS1 call GetBattleVarPair set SUBSTATUS_ENDURE, [hl] call Function0x37e01 ld hl, BracedItselfText jp FarBattleTextBox ; 37683 BattleCommand56: ; 37683 ; spikes ld hl, EnemyScreens ld a, [hBattleTurn] and a jr z, .asm_3768e ld hl, PlayerScreens .asm_3768e bit 0, [hl] jr nz, .failed set 0, [hl] call Function0x37e01 ld hl, SpikesText jp FarBattleTextBox .failed jp Function0x37354 ; 376a0 BattleCommand57: ; 376a0 ; foresight ld a, [AttackMissed] and a jr nz, .asm_376bf call CheckHiddenOpponent jr nz, .asm_376bf ld a, BATTLE_VARS_SUBSTATUS1_OPP call GetBattleVarPair bit SUBSTATUS_IDENTIFIED, [hl] jr nz, .asm_376bf set SUBSTATUS_IDENTIFIED, [hl] call Function0x37e01 ld hl, IdentifiedText jp FarBattleTextBox .asm_376bf jp Function0x37354 ; 376c2 BattleCommand58: ; 376c2 ; perishsong ld hl, PlayerSubStatus1 ld de, EnemySubStatus1 bit SUBSTATUS_PERISH, [hl] jr z, .asm_376d1 ld a, [de] bit SUBSTATUS_PERISH, a jr nz, .asm_376f2 .asm_376d1 bit SUBSTATUS_PERISH, [hl] jr nz, .asm_376dc set SUBSTATUS_PERISH, [hl] ld a, 4 ld [PlayerPerishCount], a .asm_376dc ld a, [de] bit SUBSTATUS_PERISH, a jr nz, .asm_376e9 set SUBSTATUS_PERISH, a ld [de], a ld a, 4 ld [EnemyPerishCount], a .asm_376e9 call Function0x37e01 ld hl, StartPerishText jp FarBattleTextBox .asm_376f2 call Function0x37e77 jp PrintButItFailed ; 376f8 BattleCommand59: ; 376f8 ; startsandstorm ld a, [Weather] cp WEATHER_SANDSTORM jr z, .asm_37712 ld a, WEATHER_SANDSTORM ld [Weather], a ld a, 5 ld [WeatherCount], a call Function0x37e01 ld hl, SandstormBrewedText jp FarBattleTextBox .asm_37712 call Function0x37e77 jp PrintButItFailed ; 37718 BattleCommand5b: ; 37718 ; checkcurl ld de, PlayerRolloutCount ld a, [hBattleTurn] and a jr z, .asm_37723 ld de, EnemyRolloutCount .asm_37723 ld a, BATTLE_VARS_SUBSTATUS1 call CleanGetBattleVarPair bit SUBSTATUS_ENCORED, a jr z, .asm_37731 ld b, $4 ; doturn jp SkipToBattleCommand .asm_37731 xor a ld [de], a ret ; 37734 BattleCommand5c: ; 37734 ; rolloutpower ld a, BATTLE_VARS_STATUS call CleanGetBattleVarPair and 7 ret nz ld hl, PlayerRolloutCount ld a, [hBattleTurn] and a jr z, .asm_37747 ld hl, EnemyRolloutCount .asm_37747 ld a, [hl] and a jr nz, .asm_37750 ld a, 1 ld [$c73e], a .asm_37750 ld a, [AttackMissed] and a jr z, .hit ld a, BATTLE_VARS_SUBSTATUS1 call GetBattleVarPair res 6, [hl] ret .hit inc [hl] ld a, [hl] ld b, a cp $5 jr c, .asm_3776e ; 37763 $9 ld a, BATTLE_VARS_SUBSTATUS1 call GetBattleVarPair res 6, [hl] jr .asm_37775 ; 3776c $7 .asm_3776e ld a, BATTLE_VARS_SUBSTATUS1 call GetBattleVarPair set 6, [hl] .asm_37775 ld a, BATTLE_VARS_SUBSTATUS2 call CleanGetBattleVarPair bit 0, a jr z, .asm_3777f ; 3777c $1 inc b .asm_3777f dec b jr z, .asm_37790 ; 37780 $e ld hl, CurDamage + 1 sla [hl] dec hl rl [hl] jr nc, .asm_3777f ; 3778a $f3 ld a, $ff ld [hli], a ld [hl], a .asm_37790 ret ; 37791 BattleCommand5d: ; 37791 ; unused ret ; 37792 BattleCommand5e: ; 37792 ; furycutter ld hl, PlayerFuryCutterCount ld a, [hBattleTurn] and a jr z, .go ld hl, EnemyFuryCutterCount .go ld a, [AttackMissed] and a jp nz, ResetFuryCutterCount inc [hl] ; Damage capped at 5 turns' worth (16x). ld a, [hl] ld b, a cp 6 jr c, .checkdouble ld b, 5 .checkdouble dec b ret z ; Double the damage ld hl, CurDamage + 1 sla [hl] dec hl rl [hl] jr nc, .checkdouble ; No overflow ld a, $ff ld [hli], a ld [hl], a ret ; 377be ResetFuryCutterCount: ; 377be push hl ld hl, PlayerFuryCutterCount ld a, [hBattleTurn] and a jr z, .reset ld hl, EnemyFuryCutterCount .reset xor a ld [hl], a pop hl ret ; 377ce BattleCommand5f: ; 377ce ; attract ld a, [AttackMissed] and a jr nz, .asm_377f2 call Function0x377f5 jr c, .asm_377f2 call CheckHiddenOpponent jr nz, .asm_377f2 ld a, BATTLE_VARS_SUBSTATUS1_OPP call GetBattleVarPair bit 7, [hl] jr nz, .asm_377f2 set 7, [hl] call Function0x37e01 ; 'fell in love!' ld hl, FellInLoveText jp FarBattleTextBox .asm_377f2 jp Function0x37354 ; 377f5 Function0x377f5: ; 377f5 ld a, 0 call BattlePartyAttr ld a, [hl] ld [CurPartySpecies], a ld a, [CurBattleMon] ld [CurPartyMon], a xor a ld [MonType], a ld a, $14 ld hl, $4bdd rst FarCall jr c, .asm_37849 ld b, 1 jr nz, .asm_37815 dec b .asm_37815 push bc ld a, [TempEnemyMonSpecies] ld [CurPartySpecies], a ld hl, EnemyMonAtkDefDV ld a, [EnemySubStatus5] bit 3, a jr z, .asm_37829 ld hl, $c6f2 .asm_37829 ld a, [hli] ld [$d123], a ld a, [hl] ld [$d124], a ld a, 3 ld [MonType], a ld a, $14 ld hl, $4bdd rst FarCall pop bc jr c, .asm_37849 ld a, 1 jr nz, .asm_37844 dec a .asm_37844 xor b jr z, .asm_37849 and a ret .asm_37849 scf ret ; 3784b BattleCommand60: ; 3784b ; happinesspower push bc ld hl, BattleMonHappiness ld a, [hBattleTurn] and a jr z, .asm_37857 ; 37852 $3 ld hl, EnemyMonHappiness .asm_37857 xor a ld [$ffb4], a ld [$ffb5], a ld a, [hl] ld [$ffb6], a ld a, $a ld [$ffb7], a call Multiply ld a, $19 ld [$ffb7], a ld b, $4 call Divide ld a, [$ffb6] ld d, a pop bc ret ; 37874 BattleCommand61: ; 37874 ; present ld a, [InLinkBattle] cp $3 jr z, .asm_3787d ; 37879 $2 push bc push de .asm_3787d call BattleCommand07 ld a, [InLinkBattle] cp $3 jr z, .asm_37889 ; 37885 $2 pop de pop bc .asm_37889 ld a, [$d265] and a jp z, Function0x37e77 ld a, [AttackMissed] and a jp nz, Function0x37e77 push bc call FarBattleRNG ld b, a ld hl, .table_37907 ld c, 0 .asm_378a1 ld a, [hli] cp $ff jr z, .asm_378b7 ; 378a4 $11 cp b jr nc, .asm_378ad ; 378a7 $4 inc c inc hl jr .asm_378a1 ; 378ab $f4 .asm_378ad ld a, c ld [$c689], a call Function0x37de9 ld d, [hl] pop bc ret .asm_378b7 pop bc ld a, $3 ld [$c689], a call Function0x37e01 call SwitchTurn ld hl, $5246 ld a, [hBattleTurn] and a jr z, .asm_378ce ; 378c9 $3 ld hl, $5251 .asm_378ce ld a, $e rst FarCall jr c, .asm_378f3 ; 378d1 $20 ld hl, $4c8e call CallBankF call SwitchTurn ld hl, $4cef call CallBankF call SwitchTurn ld hl, RegainedHealthText call FarBattleTextBox call SwitchTurn call UpdateOpponentInParty jr .asm_37904 ; 378f1 $11 .asm_378f3 call SwitchTurn call Function0x37ed5 jr nc, .asm_37904 ; 378f9 $9 call Function0x37e77 ld hl, RefusedGiftText call FarBattleTextBox .asm_37904 jp EndMoveEffect .table_37907 db $66, 40 db $b3, 80 db $cc, 120 db $ff ; 3790e BattleCommand63: ; 3790e ; frustrationpower push bc ld hl, BattleMonHappiness ld a, [hBattleTurn] and a jr z, .asm_3791a ; 37915 $3 ld hl, EnemyMonHappiness .asm_3791a ld a, $ff sub [hl] ld [$ffb6], a xor a ld [$ffb4], a ld [$ffb5], a ld a, $a ld [$ffb7], a call Multiply ld a, $19 ld [$ffb7], a ld b, $4 call Divide ld a, [$ffb6] ld d, a pop bc ret ; 37939 BattleCommand64: ; 37939 ; safeguard ld hl, PlayerScreens ld de, $c701 ld a, [hBattleTurn] and a jr z, .asm_3794a ; 37942 $6 ld hl, EnemyScreens ld de, $c705 .asm_3794a bit 2, [hl] jr nz, .asm_3795c ; 3794c $e set 2, [hl] ld a, $5 ld [de], a call Function0x37e01 ld hl, CoveredByVeilText jp FarBattleTextBox .asm_3795c call Function0x37e77 jp PrintButItFailed ; 37962 Function0x37962: ; 37962 push hl ld hl, EnemyScreens ld a, [hBattleTurn] and a jr z, .asm_3796e ld hl, PlayerScreens .asm_3796e bit 2, [hl] pop hl ret ; 37972 BattleCommand65: ; 37972 ; checksafeguard ld hl, EnemyScreens ld a, [hBattleTurn] and a jr z, .asm_3797d ; 37978 $3 ld hl, PlayerScreens .asm_3797d bit 2, [hl] ret z ld a, $1 ld [AttackMissed], a call BattleCommandaa ld hl, SafeguardProtectText call FarBattleTextBox jp EndMoveEffect ; 37991 BattleCommand66: ; 37991 ; getmagnitude push bc call FarBattleRNG ld b, a ld hl, .Magnitudes .asm_37999 ld a, [hli] cp b jr nc, .asm_379a1 ; 3799b $4 inc hl inc hl jr .asm_37999 ; 3799f $f8 .asm_379a1 ld d, [hl] push de inc hl ld a, [hl] ld [$d265], a call BattleCommandaa ld hl, MagnitudeText call FarBattleTextBox pop de pop bc ret .Magnitudes ; /255, BP, magnitude db 13, 10, 4 db 38, 30, 5 db 89, 50, 6 db 166, 70, 7 db 217, 90, 8 db 242, 110, 9 db 255, 150, 10 ; 379c9 BattleCommand67: ; 379c9 ; batonpass ld a, [hBattleTurn] and a jp nz, .Enemy call Function0x37ae9 jp z, Function0x37aab call UpdateBattleMonInParty call Function0x37e01 ld c, 50 call DelayFrames call $1d6e ld a, $f ld hl, $52f7 rst FarCall ld a, $f ld hl, $5380 rst FarCall call $3317 ld a, $f ld hl, $6d9f rst FarCall call $1c17 call $300b ld hl, $c4a1 ld bc, $040a call ClearBox ld b, 1 call $3340 call $32f9 call Function0x37a67 ld a, $f ld hl, $52e0 rst FarCall jp c, EndMoveEffect ld hl, $6459 call CallBankF call Function0x37ab1 ret .Enemy ld a, [IsInBattle] dec a jp z, Function0x37aab call Function0x37af6 jp z, Function0x37aab call UpdateEnemyMonInParty call Function0x37e01 call Function0x37a82 ld a, $f ld hl, $52e0 rst FarCall jp c, EndMoveEffect xor a ld [$c718], a ld hl, $5517 call CallBankF ld hl, $557a call CallBankF ld a, 1 ld [$d265], a ld hl, $6cab call CallBankF ld hl, $5c23 call CallBankF jr Function0x37ab1 ; 37a67 Function0x37a67: ; 37a67 ld a, [InLinkBattle] and a ret z ld a, 1 ld [$d0ec], a call $1d6e ld hl, $68e4 call CallBankF call $1c17 xor a ld [$d0ec], a ret ; 37a82 Function0x37a82; 37a82 ld a, [InLinkBattle] and a ret z call $1d6e ld hl, $68e4 call CallBankF ld a, [OTPartyCount] add $4 ld b, a ld a, [$d430] cp $4 jr c, .asm_37aa0 cp b jr c, .asm_37aa8 .asm_37aa0 ld a, [CurOTMon] add $4 ld [$d430], a .asm_37aa8 jp $1c17 ; 37aab Function0x37aab: ; 37aab call Function0x37e77 jp PrintButItFailed ; 37ab1 Function0x37ab1: ; 37ab1 ld a, BATTLE_VARS_STATUS call CleanGetBattleVarPair and 7 jr nz, .asm_37ac1 ld a, BATTLE_VARS_SUBSTATUS1 call GetBattleVarPair res 0, [hl] .asm_37ac1 call Function0x372e7 ld hl, PlayerSubStatus1 res 7, [hl] ld hl, EnemySubStatus1 res 7, [hl] ld hl, PlayerSubStatus5 ld a, BATTLE_VARS_SUBSTATUS5 call GetBattleVarPair res 3, [hl] res 4, [hl] ld a, BATTLE_VARS_LAST_MOVE call GetBattleVarPair ld [hl], 0 xor a ld [$c730], a ld [$c731], a ret ; 37ae9 Function0x37ae9: ; 37ae9 ld hl, PartyMon1CurHP ld a, [PartyCount] ld d, a ld a, [CurBattleMon] ld e, a jr Function0x37b01 ; 37af6 Function0x37af6: ; 37af6 ld hl, OTPartyMon1CurHP ld a, [OTPartyCount] ld d, a ld a, [CurOTMon] ld e, a ; fallthrough ; 37b01 Function0x37b01: ; 37b01 xor a ld b, a ld c, a .asm_37b04 ld a, c cp d jr z, .asm_37b1a cp e jr z, .asm_37b11 ld a, [hli] or b ld b, a ld a, [hld] or b ld b, a .asm_37b11 push bc ld bc, $30 add hl, bc pop bc inc c jr .asm_37b04 .asm_37b1a ld a, b and a ret ; 37b1d BattleCommand68: ; 37b1d ld hl, $c711 ld a, [hBattleTurn] and a jr z, .asm_37b28 ; 37b23 $3 ld hl, $c710 .asm_37b28 ld a, [hl] and a ret z ld hl, CurDamage + 1 sla [hl] dec hl rl [hl] ret nc ld a, $ff ld [hli], a ld [hl], a ret ; 37b39 BattleCommand69: ; 37b39 ; clearhazards ld a, BATTLE_VARS_SUBSTATUS4 call GetBattleVarPair bit 7, [hl] jr z, .asm_37b4a ; 37b40 $8 res 7, [hl] ld hl, ShedLeechSeedText call FarBattleTextBox .asm_37b4a ld hl, PlayerScreens ld de, $c730 ld a, [hBattleTurn] and a jr z, .asm_37b5b ; 37b53 $6 ld hl, EnemyScreens ld de, $c731 .asm_37b5b bit 0, [hl] jr z, .asm_37b69 ; 37b5d $a res 0, [hl] ld hl, BlewSpikesText push de call FarBattleTextBox pop de .asm_37b69 ld a, [de] and a ret z xor a ld [de], a ld hl, ReleasedByText jp FarBattleTextBox ; 37b74 BattleCommand6a: ; 37b74 ; healmorn ld b, MORN jr BattleCommand6a6c ; 37b78 BattleCommand6b: ; 37b78 ; healday ld b, DAY jr BattleCommand6a6c ; 37b7c BattleCommand6c: ; 37b7c ; healnite ld b, NITE ; fallthrough ; 37b7e BattleCommand6a6c: ; 37b7e ; Time- and weather-sensitive heal. ld hl, BattleMonMaxHP ld de, BattleMonHP ld a, [hBattleTurn] and a jr z, .start ld hl, EnemyMonMaxHP ld de, EnemyMonHP .start ; Index for .Multipliers ; Default restores half max HP. ld c, 2 ; Don't bother healing if HP is already full. push bc call StringCmp pop bc jr z, .Full ; Don't factor in time of day in link battles. ld a, [InLinkBattle] and a jr nz, .Weather ld a, [TimeOfDay] cp b jr z, .Weather dec c .Weather ld a, [Weather] and a jr z, .Heal ; x2 in sun ; /2 in rain/sandstorm inc c cp WEATHER_SUN jr z, .Heal dec c dec c .Heal ld b, 0 ld hl, .Multipliers add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a ld a, BANK(GetMaxHP) rst FarCall call Function0x37e01 call SwitchTurn ld hl, $4cef ld a, $f rst FarCall ; callab 3ccef call SwitchTurn call UpdateUserInParty ; 'regained health!' ld hl, RegainedHealthText jp FarBattleTextBox .Full call Function0x37e77 ; 'hp is full!' ld hl, HPIsFullText jp FarBattleTextBox .Multipliers dw GetEighthMaxHP dw GetQuarterMaxHP dw GetHalfMaxHP dw GetMaxHP ; 37be8 BattleCommand6d: ; 37be8 ; hiddenpower ld a, [AttackMissed] and a ret nz callba GetHiddenPower ret ; 37bf4 BattleCommand6e: ; 37bf4 ; startrain ld a, WEATHER_RAIN ld [Weather], a ld a, 5 ld [WeatherCount], a call Function0x37e01 ld hl, DownpourText jp FarBattleTextBox ; 37c07 BattleCommand6f: ; 37c07 ; startsun ld a, WEATHER_SUN ld [Weather], a ld a, 5 ld [WeatherCount], a call Function0x37e01 ld hl, SunGotBrightText jp FarBattleTextBox ; 37c1a BattleCommand95: ; 37c1a ; bellydrum call BattleCommand77 ld a, [AttackMissed] and a jr nz, .asm_37c4f ld hl, $4c9f ld a, $f rst FarCall ld hl, $4cde ld a, $f rst FarCall jr nc, .asm_37c4f push bc call Function0x37e01 pop bc ld hl, $4c3f ld a, $f rst FarCall call UpdateUserInParty ld a, $5 .asm_37c41 push af call BattleCommand77 pop af dec a jr nz, .asm_37c41 ; 37c47 $f8 ld hl, BellyDrumText jp FarBattleTextBox .asm_37c4f call Function0x37e77 jp PrintButItFailed ; 37c55 BattleCommand96: ; 37c55 ; psychup ld hl, EnemyStatLevels ld de, PlayerStatLevels ld a, [hBattleTurn] and a jr z, .asm_37c64 ; 37c5e $4 push hl ld h, d ld l, e pop de .asm_37c64 push hl ld b, $8 .asm_37c67 ld a, [hli] cp $7 jr nz, .asm_37c76 ; 37c6a $a dec b jr nz, .asm_37c67 ; 37c6d $f8 pop hl call Function0x37e77 jp PrintButItFailed .asm_37c76 pop hl ld b, $8 .asm_37c79 ld a, [hli] ld [de], a inc de dec b jr nz, .asm_37c79 ; 37c7d $fa ld a, [hBattleTurn] and a jr nz, .asm_37c89 ; 37c82 $5 call Function0x365d7 jr .asm_37c8c ; 37c87 $3 .asm_37c89 call Function0x365fd .asm_37c8c call Function0x37e01 ld hl, CopiedStatsText jp FarBattleTextBox ; 37c95 BattleCommand9a: ; 37c95 ; mirrorcoat ld a, $1 ld [AttackMissed], a ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP call CleanGetBattleVarPair and a ret z ld b, a ld hl, $45ec ld a, $f rst FarCall ld a, b cp $90 ret z call BattleCommanda3 ld a, [$d265] and a ret z call Function0x36abf ret z ld a, BATTLE_VARS_LAST_COUNTER_MOVE_OPP call CleanGetBattleVarPair dec a ld de, StringBuffer1 call GetMoveData ld a, [$d075] and a ret z ld a, [$d076] cp $14 ret c ld hl, CurDamage ld a, [hli] or [hl] ret z ld a, [hl] add a ld [hld], a ld a, [hl] adc a ld [hl], a jr nc, .asm_37ce1 ; 37cdb $4 ld a, $ff ld [hli], a ld [hl], a .asm_37ce1 xor a ld [AttackMissed], a ret ; 37ce6 BattleCommand9d: ; 37ce6 ; doubleminimizedamage ld hl, $c6fa ld a, [hBattleTurn] and a jr z, .asm_37cf1 ; 37cec $3 ld hl, $c6fe .asm_37cf1 ld a, [hl] and a ret z ld hl, CurDamage + 1 sla [hl] dec hl rl [hl] ret nc ld a, $ff ld [hli], a ld [hl], a ret ; 37d02 BattleCommand9e: ; 37d02 ; skipsuncharge ld a, [Weather] cp WEATHER_SUN ret nz ld b, $39 ; charge jp SkipToBattleCommand ; 37d0d BattleCommand9b: ; 37d0d ; checkfuturesight ld hl, $c71d ld de, $c727 ld a, [hBattleTurn] and a jr z, .ok ld hl, $c71e ld de, $c729 .ok ld a, [hl] and a ret z cp 1 ret nz ld [hl], 0 ld a, [de] inc de ld [CurDamage], a ld a, [de] ld [CurDamage + 1], a ld b, $9c ; futuresight jp SkipToBattleCommand ; 37d34 BattleCommand9c: ; 37d34 ; futuresight call Function0x34548 jr nz, .asm_37d4b ; 37d37 $12 ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair ld b, a ld a, BATTLE_VARS_LAST_COUNTER_MOVE call GetBattleVarPair ld [hl], b ld a, BATTLE_VARS_LAST_MOVE call GetBattleVarPair ld [hl], b .asm_37d4b ld hl, $c71d ld a, [hBattleTurn] and a jr z, .asm_37d56 ; 37d51 $3 ld hl, $c71e .asm_37d56 ld a, [hl] and a jr nz, .asm_37d87 ; 37d58 $2d ld a, $4 ld [hl], a call BattleCommand0a call BattleCommandaa ld hl, ForesawAttackText call FarBattleTextBox call BattleCommand0c ld de, $c727 ld a, [hBattleTurn] and a jr z, .asm_37d77 ; 37d72 $3 ld de, $c729 .asm_37d77 ld hl, CurDamage ld a, [hl] ld [de], a ld [hl], $0 inc hl inc de ld a, [hl] ld [de], a ld [hl], $0 jp EndMoveEffect .asm_37d87 pop bc call ResetDamage call Function0x37e77 call PrintButItFailed jp EndMoveEffect ; 37d94 BattleCommand9f: ; 37d94 ; thunderaccuracy ld a, BATTLE_VARS_MOVE_TYPE call GetBattleVarPair inc hl ld a, [Weather] cp WEATHER_RAIN jr z, .asm_37da7 ; 37d9f $6 cp WEATHER_SUN ret nz ld [hl], $80 ret .asm_37da7 ld [hl], $ff ret ; 37daa CheckHiddenOpponent: ; 37daa ld a, BATTLE_VARS_SUBSTATUS3_OPP call CleanGetBattleVarPair and $60 ; fly | dig ret ; 37db2 GetUserItem: ; 37db2 ; Return the effect of the user's item in bc, and its id at hl. ld hl, BattleMonItem ld a, [hBattleTurn] and a jr z, .go ld hl, EnemyMonItem .go ld b, [hl] jp GetItem ; 37dc1 GetOpponentItem: ; 37dc1 ; Return the effect of the opponent's item in bc, and its id at hl. ld hl, EnemyMonItem ld a, [hBattleTurn] and a jr z, .go ld hl, BattleMonItem .go ld b, [hl] jp GetItem ; 37dd0 GetItem: ; 37dd0 ; Return the effect of item b in bc. ld a, b and a ret z push hl ld hl, ItemAttributes + 2 dec a ld c, a ld b, 0 ld a, Item2Attributes - Item1Attributes call AddNTimes ld a, BANK(ItemAttributes) call GetFarHalfword ld b, l ld c, h pop hl ret ; 37de9 Function0x37de9: ; 37de9 push hl push de push bc ld a, [$c689] push af call BattleCommand0a pop af ld [$c689], a call Function0x37e19 call BattleCommand0c pop bc pop de pop hl ret ; 37e01 Function0x37e01: ; 37e01 push hl push de push bc ld a, [$c689] push af call BattleCommand0a pop af ld [$c689], a call Function0x37e36 call BattleCommand0c pop bc pop de pop hl ret ; 37e19 Function0x37e19: ; 37e19 xor a ld [FXAnimIDHi], a ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair and a ret z ld [FXAnimIDLo], a ld a, [hBattleTurn] and a ld a, 1 jr z, .asm_37e30 ld a, 4 .asm_37e30 ld [$cfca], a jp Function0x37e47 ; 37e36 Function0x37e36: ; 37e36 xor a ld [$cfca], a ld [FXAnimIDHi], a ld a, BATTLE_VARS_MOVE_ANIM call CleanGetBattleVarPair and a ret z ; fallthrough ; 37e44 Function0x37e44: ; 37e44 ld [FXAnimIDLo], a ; fallthrough ; 37e47 Function0x37e47: ; 37e47 push hl push de push bc ld hl, $40d6 ld a, $33 rst FarCall ; callab SafePlayBattleAnimation pop bc pop de pop hl ret ; 37e54 Function0x37e54: ; 37e54 ld a, e ld [FXAnimIDLo], a ld a, d ld [FXAnimIDHi], a xor a ld [$cfca], a push hl push de push bc call SwitchTurn ld hl, $40d6 ld a, $33 rst FarCall ; callab SafePlayBattleAnimation call SwitchTurn pop bc pop de pop hl ret ; 37e73 CallBankF: ; 37e73 ld a, $f rst FarCall ret ; 37e77 Function0x37e77: ; 37e77 call BattleCommand0a call BattleCommandaa jp BattleCommand0c ; 37e80 BattleCommandaa: ; 37e80 ; wait ; Wait 40 frames. ld c, 40 jp DelayFrames ; 37e85 BattleCommand38: ; 37e85 ; cleartext ; Used in multi-hit moves. ld hl, .text jp BattleTextBox .text db "@" ; 37e8c SkipToBattleCommand: ; 37e8c ; Skip over commands until reaching command b. ld a, [BattleScriptBufferLoc + 1] ld h, a ld a, [BattleScriptBufferLoc] ld l, a .asm_37e94 ld a, [hli] cp b jr nz, .asm_37e94 ld a, h ld [BattleScriptBufferLoc + 1], a ld a, l ld [BattleScriptBufferLoc], a ret ; 37ea1 GetMoveAttr: ; 37ea1 ; Assuming hl = Moves + x, return attribute x of move a. push bc ld bc, Move2 - Move1 call AddNTimes call GetMoveByte pop bc ret ; 37ead GetMoveData: ; 37ead ; Copy move struct a to de. ld hl, Moves ld bc, Move2 - Move1 call AddNTimes ld a, Bank(Moves) jp FarCopyBytes ; 37ebb GetMoveByte: ; 37ebb ld a, BANK(Moves) jp GetFarByte ; 37ec0 Function0x37ec0: ; 37ec0 ld a, $3e ld hl, $7d54 rst $8 ret ; 37ec7 Function0x37ec7: ; 37ec7 ld a, $3e ld hl, $7d71 rst $8 ret ; 37ece Function0x37ece: ; 37ece ld a, $3e ld hl, $7d69 rst $8 ret ; 37ed5 Function0x37ed5: ; 37ed5 ; Related to mobile link battles. push hl push de push bc ld a, $13 ld hl, $6a44 rst $8 pop bc pop de pop hl ret ; 37ee2