Advertisement
ProClifo

Untitled

Jun 25th, 2015
247
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.31 KB | None | 0 0
  1. #include stdpoke.rbh
  2. #freespace 0xFF
  3. #dynamic 0xF00000
  4.  
  5. #org 0x1FA490
  6. checkgender
  7. compare LASTRESULT 0x0
  8. if 0x1 call @start_may
  9. compare LASTRESULT 0x1
  10. if 0x1 call @start_brendan
  11. release
  12. end
  13.  
  14. #org @start_may
  15. checkflag 0x255
  16. if 0x1 goto @tree_may
  17. msgbox 0x81FB528 MSG_KEEPOPEN
  18. return
  19.  
  20. #org @start_brendan
  21. checkflag 0x255
  22. if 0x1 goto @tree_brendan
  23. msgbox 0x81FB58A MSG_KEEPOPEN
  24. return
  25.  
  26. /*
  27. buffer1 = Rival's evolved Pokemon
  28. buffer2 = Received Pokemon
  29. Var 0x4023 0x0 = Treecko was the player's starter
  30. Var 0x4023 0x1 = Torchic was the player's starter
  31. Var 0x4023 0x2 = Mudkip was the player's starter
  32. */
  33.  
  34. // MAY SPECIFIC SCRIPTS
  35. #org @tree_may
  36. call @startercheck
  37. checkflag 0x245
  38. if 0x1 goto @tryagain_may
  39. call @may_firstmeet
  40. call @givepokemon
  41. msgbox @takecare_may MSG_KEEPOPEN
  42. release
  43. end
  44.  
  45. #org @may_firstmeet
  46. msgbox @may_firstmeet_msg MSG_YESNO
  47. compare LASTRESULT 0x0
  48. if 0x1 goto @reject_may
  49. // I might put a msgbox here
  50. return
  51.  
  52. #org @tryagain_may
  53. msgbox @tryagain_may_msg MSG_YESNO
  54. compare LASTRESULT 0x0
  55. if 0x1 goto @reject_may
  56. // I might put a msgbox here
  57. return
  58.  
  59. #org @reject_may
  60. msgbox @reject_may_msg MSG_KEEPOPEN
  61. release
  62. end
  63.  
  64. #org @may_firstmeet_msg
  65. = MAY: Hello, [player]! I recently hatched an EGG that my [buffer1] had some time ago. I'm going to stay here for a while, so why don't you raise it?
  66. #org @tryagain_may_msg
  67. = MAY: How about it, [player]? Will you take care of my [buffer2]?
  68. #org @reject_may_msg
  69. = Is that so? Well, let me know if you have a change of heart.
  70. #org @takecare_may
  71. = Please take good care of it!
  72.  
  73.  
  74.  
  75. // BRENDAN SPECIFIC SCRIPTS
  76. #org @tree_brendan
  77. call @startercheck
  78. checkflag 0x245
  79. if 0x1 goto @tryagain_brendan
  80. call @brendan_firstmeet
  81. call @givepokemon
  82. msgbox @takecare_brendan MSG_KEEPOPEN
  83. release
  84. end
  85.  
  86. #org @brendan_firstmeet
  87. msgbox @brendan_firstmeet_msg MSG_YESNO
  88. compare LASTRESULT 0x0
  89. if 0x1 goto @reject_brendan
  90. // I might put a msgbox here
  91. return
  92.  
  93. #org @tryagain_brendan
  94. msgbox @tryagain_brendan_msg MSG_YESNO
  95. compare LASTRESULT 0x0
  96. if 0x1 goto @reject_brendan
  97. // I might put a msgbox here
  98. return
  99.  
  100. #org @reject_brendan
  101. msgbox @reject_brendan_msg MSG_KEEPOPEN
  102. release
  103. end
  104.  
  105. #org @brendan_firstmeet_msg
  106. = MAY: Hello, [player]! I just hatched an egg that my [buffer1] laid a while back. I'll be in the lab for some time, how about you take it off my hands?
  107. #org @tryagain_brendan_msg
  108. = MAY: How about it, [player]? Do you want my [buffer2] or not?
  109. #org @reject_brendan_msg
  110. = Oh, all right. Just let me know if you change your mind.
  111. #org @takecare_brendan_msg
  112. = I wish you two the best of luck.
  113.  
  114.  
  115.  
  116. // UNIVERSAL SCRIPTS
  117. #org @givepokemon
  118. givepokemon 0x8001 5 0 0 0 0
  119. fanfare 0x172
  120. preparemsg @obtained
  121. waitmsg
  122. waitfanfare
  123. setflag 0x255
  124. return
  125.  
  126. #org @startercheck
  127. copyvar 0x8000 0x4023
  128. compare 0x8000 0x0
  129. if 0x1 call @blaziken
  130. compare 0x8000 0x1
  131. if 0x1 call @swampert
  132. compare 0x8000 0x2
  133. if 0x1 call @sceptile
  134. return
  135.  
  136. #org @blaziken
  137. bufferpokemon 0x0 PKMN_BLAZIKEN
  138. setvar 0x8001 PKMN_TORCHIC
  139. bufferpokemon 0x1 PKMN_MUDKIP
  140. return
  141.  
  142. #org @swampert
  143. bufferpokemon 0x0 PKMN_SWAMPERT
  144. setvar 0x8001 PKMN_MUDKIP
  145. bufferpokemon 0x1 PKMN_MUDKIP
  146. return
  147.  
  148. #org @sceptile
  149. bufferpokemon 0x0 PKMN_SCEPTILE
  150. setvar 0x8001 PKMN_TREECKO
  151. bufferpokemon 0x1 PKMN_MUDKIP
  152. return
  153.  
  154. #org @obtained
  155. = [player] received a [buffer2]!
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement