GetMonPalettePointer:
    cp LYCANROC
    jp z, .lycanroc
    cp ONIX
    jp z, .onix
    cp STEELIX
    jp z, .steelix
    cp POLIWRATH
    jp z, .poliwrath
    cp EXEGGUTOR
    jp z, .exeggutor
    cp GRIMER
    jp z, .grimer
    cp MUK
    jp z, .muk
    cp MEOWTH
    jp z, .meowth
    cp PERSIAN
    jp z, .persian
    cp VULPIX
    jp z, .vulpix
    cp NINETALES
    jp z, .ninetales
    cp SANDSHREW
    jp z, .sandshrew
    cp SANDSLASH
    jp z, .sandslash
    cp RATTATA
    jp z, .rattata
    cp RATICATE
    jp z, .raticate
    cp DIGLETT
    jp z, .diglett
    cp DUGTRIO
    jp z, .dugtrio
    cp GEODUDE
    jp z, .geodude
    cp GRAVELER
    jp z, .graveler
    cp GOLEM
    jp z, .golem
    cp RAICHU
    jp z, .raichu
    cp MAROWAK
    jp z, .marowak
    jr .skip_pop
.continue
    pop af
.skip_pop
    ld l, a
    ld h, $0
    add hl, hl
    add hl, hl
    add hl, hl
    ld bc, PokemonPalettes
    add hl, bc
.ok
    ret


.lycanroc
    push af
    ld a, [bc]
    and FORM_MASK
    cp LYCANROC_MIDDAY_FORM
    jr z, .continue
    cp LYCANROC_DUSK_FORM
    ld hl, LycanrocDuskPalettes
    jr z, .lycanroc_ok
    ld hl, LycanrocMidnightPalettes
.lycanroc_ok
    pop af
    ret

.poliwrath
    push af
    ld a, [bc]
    and FORM_MASK
    cp POLIWRATH_TAD_FORM
    jp nz, .continue
    ld hl, PoliwrathTadPalettes
    pop af
    ret

.onix
    push af
    ld a, [bc]
    and FORM_MASK
    cp ONIX_CRYSTAL_FORM
    jp nz, .continue
    ld hl, OnixCrystalPalettes
    pop af
    ret

.steelix
    push af
    ld a, [bc]
    and FORM_MASK
    cp STEELIX_CRYSTAL_FORM
    jp nz, .continue
    ld hl, SteelixCrystalPalettes
    pop af
    ret

.exeggutor
    push af
    ld a, [bc]
    and FORM_MASK
    cp EXEGGUTOR_KANTONESE_FORM
    jp nz, .continue
    ld hl, ExeggutorKantonesePalettes
    pop af
    ret

.grimer
    push af
    ld a, [bc]
    and FORM_MASK
    cp GRIMER_KANTONESE_FORM
    jp nz, .continue
    ld hl, GrimerKantonesePalettes
    pop af
    ret

.muk
    push af
    ld a, [bc]
    and FORM_MASK
    cp MUK_KANTONESE_FORM
    jp nz, .continue
    ld hl, MukKantonesePalettes
    pop af
    ret

.meowth
    push af
    ld a, [bc]
    and FORM_MASK
    cp MEOWTH_ALOLAN_FORM
    jp nz, .continue
    ld hl, MeowthAlolanPalettes
    pop af
    ret

.persian
    push af
    ld a, [bc]
    and FORM_MASK
    cp PERSIAN_ALOLAN_FORM
    jp nz, .continue
    ld hl, PersianAlolanPalettes
    pop af
    ret

.vulpix
    push af
    ld a, [bc]
    and FORM_MASK
    cp VULPIX_KANTONESE_FORM
    jp nz, .continue
    ld hl, VulpixKantonesePalettes
    pop af
    ret

.ninetales
    push af
    ld a, [bc]
    and FORM_MASK
    cp NINETALES_KANTONESE_FORM
    jp nz, .continue
    ld hl, NinetalesKantonesePalettes
    pop af
    ret

.sandshrew
    push af
    ld a, [bc]
    and FORM_MASK
    cp SANDSHREW_ALOLAN_FORM
    jp nz, .continue
    ld hl, SandshrewAlolanPalettes
    pop af
    ret

.sandslash
    push af
    ld a, [bc]
    and FORM_MASK
    cp SANDSLASH_ALOLAN_FORM
    jp nz, .continue
    ld hl, SandslashAlolanPalettes
    pop af
    ret

.rattata
    push af
    ld a, [bc]
    and FORM_MASK
    cp RATTATA_KANTONESE_FORM
    jp nz, .continue
    ld hl, RattataKantonesePalettes
    pop af
    ret

.raticate
    push af
    ld a, [bc]
    and FORM_MASK
    cp RATICATE_KANTONESE_FORM
    jp nz, .continue
    ld hl, RaticateKantonesePalettes
    pop af
    ret

.diglett
    push af
    ld a, [bc]
    and FORM_MASK
    cp DIGLETT_KANTONESE_FORM
    jp nz, .continue
    ld hl, DiglettKantonesePalettes
    pop af
    ret

.dugtrio
    push af
    ld a, [bc]
    and FORM_MASK
    cp DUGTRIO_KANTONESE_FORM
    jp nz, .continue
    ld hl, DugtrioKantonesePalettes
    pop af
    ret

.geodude
    push af
    ld a, [bc]
    and FORM_MASK
    cp GEODUDE_KANTONESE_FORM
    jp nz, .continue
    ld hl, GeodudeKantonesePalettes
    pop af
    ret

.graveler
    push af
    ld a, [bc]
    and FORM_MASK
    cp GRAVELER_KANTONESE_FORM
    jp nz, .continue
    ld hl, GravelerKantonesePalettes
    pop af
    ret

.golem
    push af
    ld a, [bc]
    and FORM_MASK
    cp GOLEM_KANTONESE_FORM
    jp nz, .continue
    ld hl, GolemKantonesePalettes
    pop af
    ret

.raichu
    push af
    ld a, [bc]
    and FORM_MASK
    cp RAICHU_KANTONESE_FORM
    jp nz, .continue
    ld hl, RaichuKantonesePalettes
    pop af
    ret

.marowak
    push af
    ld a, [bc]
    and FORM_MASK
    cp MAROWAK_KANTONESE_FORM
    jp nz, .continue
    ld hl, MarowakKantonesePalettes
    pop af
    ret