ref: 81fff9bb80af3db0ee381c824261b8963e1cc221
dir: /engine/battle/move_effects/attract.asm/
BattleCommand_Attract: ; 377ce ; 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 ; 377f5 CheckOppositeGender: ; 377f5 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 ; 3784b