Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement