FindPokemonInParty:
    ld b, a
    ld hl, PartySpecies
    ld c, 0
.loop
    ld a, [hli]
    cp $ff
    jr z, .done
    cp b
    jr z, .found
    inc c
    jr .loop

.done
    xor a
    ret

.found
    scf
    ret

FindMewInParty:
    ld a, MEW
    call FindPokemonInParty
    ret