ref: 5e9de74735d09b2a43e8d1c6314f2a7839b6e55a
dir: /engine/battle/move_effects/attract.asm/
BattleCommand_Attract: ; attract ld a, [wAttackMissed] and a jr nz, .failed call CheckOppositeGender jr c, .failed call CheckHiddenOpponent jr nz, .failed ld a, BATTLE_VARS_SUBSTATUS1_OPP call GetBattleVarAddr bit SUBSTATUS_IN_LOVE, [hl] jr nz, .failed set SUBSTATUS_IN_LOVE, [hl] call AnimateCurrentMove ; 'fell in love!' ld hl, FellInLoveText jp StdBattleTextbox .failed jp FailMove CheckOppositeGender: ld a, MON_SPECIES call BattlePartyAttr ld a, [hl] ld [wCurPartySpecies], a ld a, [wCurBattleMon] ld [wCurPartyMon], a xor a ld [wMonType], a farcall GetGender jr c, .genderless_samegender ld b, 1 jr nz, .got_gender dec b .got_gender push bc ld a, [wTempEnemyMonSpecies] ld [wCurPartySpecies], a ld hl, wEnemyMonDVs ld a, [wEnemySubStatus5] bit SUBSTATUS_TRANSFORMED, a jr z, .not_transformed ld hl, wEnemyBackupDVs .not_transformed ld a, [hli] ld [wTempMonDVs], a ld a, [hl] ld [wTempMonDVs + 1], a ld a, 3 ld [wMonType], a farcall GetGender pop bc jr c, .genderless_samegender ld a, 1 jr nz, .got_enemy_gender dec a .got_enemy_gender xor b jr z, .genderless_samegender and a ret .genderless_samegender scf ret