ref: 80d437d56562e3ec75f2b2fbc05443f4d2cbc0b4
dir: /engine/pokemon/level_up_happiness.asm/
LevelUpHappinessMod: ; 2709e ld a, [wCurPartyMon] ld hl, wPartyMon1CaughtLocation call GetPartyLocation ld a, [hl] and $7f ld d, a ld a, [wMapGroup] ld b, a ld a, [wMapNumber] ld c, a call GetWorldMapLocation cp d ld c, HAPPINESS_GAINLEVEL jr nz, .ok ld c, HAPPINESS_GAINLEVELATHOME .ok callfar ChangeHappiness ret