SHARE
TWEET

Untitled

a guest May 27th, 2019 70 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. GetMonPalettePointer:
  2.     cp LYCANROC
  3.     jp z, .lycanroc
  4.     cp ONIX
  5.     jp z, .onix
  6.     cp STEELIX
  7.     jp z, .steelix
  8.     cp POLIWRATH
  9.     jp z, .poliwrath
  10.     cp EXEGGUTOR
  11.     jp z, .exeggutor
  12.     cp GRIMER
  13.     jp z, .grimer
  14.     cp MUK
  15.     jp z, .muk
  16.     cp MEOWTH
  17.     jp z, .meowth
  18.     cp PERSIAN
  19.     jp z, .persian
  20.     cp VULPIX
  21.     jp z, .vulpix
  22.     cp NINETALES
  23.     jp z, .ninetales
  24.     cp SANDSHREW
  25.     jp z, .sandshrew
  26.     cp SANDSLASH
  27.     jp z, .sandslash
  28.     cp RATTATA
  29.     jp z, .rattata
  30.     cp RATICATE
  31.     jp z, .raticate
  32.     cp DIGLETT
  33.     jp z, .diglett
  34.     cp DUGTRIO
  35.     jp z, .dugtrio
  36.     cp GEODUDE
  37.     jp z, .geodude
  38.     cp GRAVELER
  39.     jp z, .graveler
  40.     cp GOLEM
  41.     jp z, .golem
  42.     cp RAICHU
  43.     jp z, .raichu
  44.     cp MAROWAK
  45.     jp z, .marowak
  46.     jr .skip_pop
  47. .continue
  48.     pop af
  49. .skip_pop
  50.     ld l, a
  51.     ld h, $0
  52.     add hl, hl
  53.     add hl, hl
  54.     add hl, hl
  55.     ld bc, PokemonPalettes
  56.     add hl, bc
  57. .ok
  58.     ret
  59.    
  60.  
  61. .lycanroc
  62.     push af
  63.     ld a, [bc]
  64.     and FORM_MASK
  65.     cp LYCANROC_MIDDAY_FORM
  66.     jr z, .continue
  67.     cp LYCANROC_DUSK_FORM
  68.     ld hl, LycanrocDuskPalettes
  69.     jr z, .lycanroc_ok
  70.     ld hl, LycanrocMidnightPalettes
  71. .lycanroc_ok
  72.     pop af
  73.     ret
  74.  
  75. .poliwrath
  76.     push af
  77.     ld a, [bc]
  78.     and FORM_MASK
  79.     cp POLIWRATH_TAD_FORM
  80.     jp nz, .continue
  81.     ld hl, PoliwrathTadPalettes
  82.     pop af
  83.     ret
  84.  
  85. .onix
  86.     push af
  87.     ld a, [bc]
  88.     and FORM_MASK
  89.     cp ONIX_CRYSTAL_FORM
  90.     jp nz, .continue
  91.     ld hl, OnixCrystalPalettes
  92.     pop af
  93.     ret
  94.    
  95. .steelix
  96.     push af
  97.     ld a, [bc]
  98.     and FORM_MASK
  99.     cp STEELIX_CRYSTAL_FORM
  100.     jp nz, .continue
  101.     ld hl, SteelixCrystalPalettes
  102.     pop af
  103.     ret
  104.    
  105. .exeggutor
  106.     push af
  107.     ld a, [bc]
  108.     and FORM_MASK
  109.     cp EXEGGUTOR_KANTONESE_FORM
  110.     jp nz, .continue
  111.     ld hl, ExeggutorKantonesePalettes
  112.     pop af
  113.     ret
  114.    
  115. .grimer
  116.     push af
  117.     ld a, [bc]
  118.     and FORM_MASK
  119.     cp GRIMER_KANTONESE_FORM
  120.     jp nz, .continue
  121.     ld hl, GrimerKantonesePalettes
  122.     pop af
  123.     ret
  124.    
  125. .muk
  126.     push af
  127.     ld a, [bc]
  128.     and FORM_MASK
  129.     cp MUK_KANTONESE_FORM
  130.     jp nz, .continue
  131.     ld hl, MukKantonesePalettes
  132.     pop af
  133.     ret
  134.    
  135. .meowth
  136.     push af
  137.     ld a, [bc]
  138.     and FORM_MASK
  139.     cp MEOWTH_ALOLAN_FORM
  140.     jp nz, .continue
  141.     ld hl, MeowthAlolanPalettes
  142.     pop af
  143.     ret
  144.    
  145. .persian
  146.     push af
  147.     ld a, [bc]
  148.     and FORM_MASK
  149.     cp PERSIAN_ALOLAN_FORM
  150.     jp nz, .continue
  151.     ld hl, PersianAlolanPalettes
  152.     pop af
  153.     ret
  154.    
  155. .vulpix
  156.     push af
  157.     ld a, [bc]
  158.     and FORM_MASK
  159.     cp VULPIX_KANTONESE_FORM
  160.     jp nz, .continue
  161.     ld hl, VulpixKantonesePalettes
  162.     pop af
  163.     ret
  164.    
  165. .ninetales
  166.     push af
  167.     ld a, [bc]
  168.     and FORM_MASK
  169.     cp NINETALES_KANTONESE_FORM
  170.     jp nz, .continue
  171.     ld hl, NinetalesKantonesePalettes
  172.     pop af
  173.     ret
  174.    
  175. .sandshrew
  176.     push af
  177.     ld a, [bc]
  178.     and FORM_MASK
  179.     cp SANDSHREW_ALOLAN_FORM
  180.     jp nz, .continue
  181.     ld hl, SandshrewAlolanPalettes
  182.     pop af
  183.     ret
  184.    
  185. .sandslash
  186.     push af
  187.     ld a, [bc]
  188.     and FORM_MASK
  189.     cp SANDSLASH_ALOLAN_FORM
  190.     jp nz, .continue
  191.     ld hl, SandslashAlolanPalettes
  192.     pop af
  193.     ret
  194.    
  195. .rattata
  196.     push af
  197.     ld a, [bc]
  198.     and FORM_MASK
  199.     cp RATTATA_KANTONESE_FORM
  200.     jp nz, .continue
  201.     ld hl, RattataKantonesePalettes
  202.     pop af
  203.     ret
  204.    
  205. .raticate
  206.     push af
  207.     ld a, [bc]
  208.     and FORM_MASK
  209.     cp RATICATE_KANTONESE_FORM
  210.     jp nz, .continue
  211.     ld hl, RaticateKantonesePalettes
  212.     pop af
  213.     ret
  214.    
  215. .diglett
  216.     push af
  217.     ld a, [bc]
  218.     and FORM_MASK
  219.     cp DIGLETT_KANTONESE_FORM
  220.     jp nz, .continue
  221.     ld hl, DiglettKantonesePalettes
  222.     pop af
  223.     ret
  224.    
  225. .dugtrio
  226.     push af
  227.     ld a, [bc]
  228.     and FORM_MASK
  229.     cp DUGTRIO_KANTONESE_FORM
  230.     jp nz, .continue
  231.     ld hl, DugtrioKantonesePalettes
  232.     pop af
  233.     ret
  234.  
  235. .geodude
  236.     push af
  237.     ld a, [bc]
  238.     and FORM_MASK
  239.     cp GEODUDE_KANTONESE_FORM
  240.     jp nz, .continue
  241.     ld hl, GeodudeKantonesePalettes
  242.     pop af
  243.     ret
  244.    
  245. .graveler
  246.     push af
  247.     ld a, [bc]
  248.     and FORM_MASK
  249.     cp GRAVELER_KANTONESE_FORM
  250.     jp nz, .continue
  251.     ld hl, GravelerKantonesePalettes
  252.     pop af
  253.     ret
  254.    
  255. .golem
  256.     push af
  257.     ld a, [bc]
  258.     and FORM_MASK
  259.     cp GOLEM_KANTONESE_FORM
  260.     jp nz, .continue
  261.     ld hl, GolemKantonesePalettes
  262.     pop af
  263.     ret
  264.    
  265. .raichu
  266.     push af
  267.     ld a, [bc]
  268.     and FORM_MASK
  269.     cp RAICHU_KANTONESE_FORM
  270.     jp nz, .continue
  271.     ld hl, RaichuKantonesePalettes
  272.     pop af
  273.     ret
  274.    
  275. .marowak
  276.     push af
  277.     ld a, [bc]
  278.     and FORM_MASK
  279.     cp MAROWAK_KANTONESE_FORM
  280.     jp nz, .continue
  281.     ld hl, MarowakKantonesePalettes
  282.     pop af
  283.     ret
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top