Advertisement
Guest User

Untitled

a guest
Sep 18th, 2012
124
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. LoadWildTreeMonData: ; b82d2
  2. ; returns wildtreemontable pointer in hl
  3. ; input:
  4. ;   a: index
  5. ; output:
  6. ;   a: 0 if index != 1..8
  7. ;   hl: wildtreemontable
  8. ;   carry: set if successful
  9. ;
  10.     cp a, $08 ; which table?
  11.     jr nc, .quit ; only 8 tables
  12.     and a
  13.     jr z, .quit ; 0 is invalid
  14.     ld e, a
  15.     ld d, $00
  16.     ld hl, WildTreeMonPointerTable
  17.     add hl, de
  18.     add hl, de
  19.     ld a, [hli] ; store pointer in hl
  20.     ld h, [hl]
  21.     ld l, a
  22.     scf
  23.     ret
  24. .quit
  25.     xor a
  26.     ret
  27. ; b82e8
  28.  
  29. WildTreeMonPointerTable: ; b82e8
  30. ; only odd-numbered tables are used?
  31. ; rockmon is 13th
  32.     dw WildTreeMonTable1 ; unused
  33.     dw WildTreeMonTable1
  34.     dw WildTreeMonTable3
  35.     dw WildTreeMonTable5
  36.     dw WildTreeMonTable7
  37.     dw WildTreeMonTable9
  38.     dw WildTreeMonTable11
  39.     dw WildRockMonTable
  40.     dw WildTreeMonTable1
  41.  
  42. ; structure: % species level
  43.  
  44. WildTreeMonTable1: ; b82fa
  45.     db 50, SPEAROW, 10
  46.     db 15, SPEAROW, 10
  47.     db 15, SPEAROW, 10
  48.     db 10, AIPOM, 10
  49.     db 5, AIPOM, 10
  50.     db 5, AIPOM, 10
  51.     db $ff ; end
  52. ; b830d
  53.  
  54. WildTreeMonTable2 ; b830d
  55. ; unused
  56.     db 50, SPEAROW, 10
  57.     db 15, HERACROSS, 10
  58.     db 15, HERACROSS, 10
  59.     db 10, AIPOM, 10
  60.     db 5, AIPOM, 10
  61.     db 5, AIPOM, 10
  62.     db $ff ; end
  63. ; b8320
  64.  
  65. WildTreeMonTable3: ; b8320
  66.     db 50, SPEAROW, 10
  67.     db 15, EKANS, 10
  68.     db 15, SPEAROW, 10
  69.     db 10, AIPOM, 10
  70.     db 5, AIPOM, 10
  71.     db 5, AIPOM, 10
  72.     db $ff ; end
  73. ; b8333
  74.  
  75. WildTreeMonTable4: ; b8333
  76. ; unused
  77.     db 50, SPEAROW, 10
  78.     db 15, HERACROSS, 10
  79.     db 15, HERACROSS, 10
  80.     db 10, AIPOM, 10
  81.     db 5, AIPOM, 10
  82.     db 5, AIPOM, 10
  83.     db $ff ; end
  84. ; b8346
  85.  
  86. WildTreeMonTable5: ; b8346
  87.     db 50, HOOTHOOT, 10
  88.     db 15, SPINARAK, 10
  89.     db 15, LEDYBA, 10
  90.     db 10, EXEGGCUTE, 10
  91.     db 5, EXEGGCUTE, 10
  92.     db 5, EXEGGCUTE, 10
  93.     db $ff ; end
  94. ; b8359
  95.  
  96. WildTreeMonTable6: ; b8359
  97. ; unused
  98.     db 50, HOOTHOOT, 10
  99.     db 15, PINECO, 10
  100.     db 15, PINECO, 10
  101.     db 10, EXEGGCUTE, 10
  102.     db 5, EXEGGCUTE, 10
  103.     db 5, EXEGGCUTE, 10
  104.     db $ff ; end
  105. ; b836c
  106.  
  107. WildTreeMonTable7: ; b836c
  108.     db 50, HOOTHOOT, 10
  109.     db 15, EKANS, 10
  110.     db 15, HOOTHOOT, 10
  111.     db 10, EXEGGCUTE, 10
  112.     db 5, EXEGGCUTE, 10
  113.     db 5, EXEGGCUTE, 10
  114.     db $ff ; end
  115. ; b837f
  116.  
  117. WildTreeMonTable8: ; b837f
  118. ; unused
  119.     db 50, HOOTHOOT, 10
  120.     db 15, PINECO, 10
  121.     db 15, PINECO, 10
  122.     db 10, EXEGGCUTE, 10
  123.     db 5, EXEGGCUTE, 10
  124.     db 5, EXEGGCUTE, 10
  125.     db $ff ; end
  126. ; b8392
  127.  
  128. WildTreeMonTable9: ; b8392
  129.     db 50, HOOTHOOT, 10
  130.     db 15, VENONAT, 10
  131.     db 15, HOOTHOOT, 10
  132.     db 10, EXEGGCUTE, 10
  133.     db 5, EXEGGCUTE, 10
  134.     db 5, EXEGGCUTE, 10
  135.     db $ff ; end
  136. ; b83a5
  137.  
  138. WildTreeMonTable10: ; b83a5
  139. ; unused
  140.     db 50, HOOTHOOT, 10
  141.     db 15, PINECO, 10
  142.     db 15, PINECO, 10
  143.     db 10, EXEGGCUTE, 10
  144.     db 5, EXEGGCUTE, 10
  145.     db 5, EXEGGCUTE, 10
  146.     db $ff ; end
  147. ; b83b8
  148.  
  149. WildTreeMonTable11: ; b83b8
  150.     db 50, HOOTHOOT, 10
  151.     db 15, PINECO, 10
  152.     db 15, PINECO, 10
  153.     db 10, NOCTOWL, 10
  154.     db 5, BUTTERFREE, 10
  155.     db 5, BEEDRILL, 10
  156.     db $ff ; end
  157. ; b83cb
  158.  
  159. WildTreeMonTable12; b83cb
  160. ; unused
  161.     db 50, HOOTHOOT, 10
  162.     db 15, CATERPIE, 10
  163.     db 15, WEEDLE, 10
  164.     db 10, HOOTHOOT, 10
  165.     db 5, METAPOD, 10
  166.     db 5, KAKUNA, 10
  167.     db $ff ; end
  168. ; b83de
  169.  
  170. WildRockMonTable: ; b83de
  171.     db 90, KRABBY, 15
  172.     db 10, SHUCKLE, 15
  173.     db $ff ; end
  174. ; b83e5
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement