Advertisement
ProClifo

Untitled

Jun 25th, 2015
285
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.30 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 @may
  9. compare LASTRESULT 0x1
  10. if 0x1 call @brendan
  11. release
  12. end
  13.  
  14. #org @may
  15. bufferstring 0x1 @maybuffer
  16. checkflag 0x255
  17. if 0x0 goto @firstline
  18. checkflag 0x245
  19. if 0x1 goto @tryagain
  20. msgbox 0x81FB528 MSG_KEEPOPEN '"MAY: I think I'll take a short bre..."
  21. return
  22.  
  23. #org @brendan
  24. bufferstring 0x1 @brendanbuffer
  25. checkflag 0x255
  26. if 0x0 goto @firstline
  27. checkflag 0x245
  28. if 0x1 goto @tryagain
  29. msgbox 0x81FB58A MSG_KEEPOPEN '"BRENDAN: For the time being,\nI'm ..."
  30. return
  31.  
  32. #org @firstline
  33. checkflag 0x245
  34. if 0x1 goto @tryagain
  35. lock
  36. faceplayer
  37. call @startercheck
  38. msgbox @askmsg MSG_YESNO
  39. compare LASTRESULT 0x0
  40. if 0x1 goto @nothanks
  41. goto @givepokemon
  42.  
  43. #org @tryagain
  44. lock
  45. faceplayer
  46. call @startercheck
  47. msgbox @tryagainmsg MSG_YESNO
  48. compare LASTRESULT 0x0
  49. if 0x1 goto @nothanks
  50. goto @givepokemon
  51.  
  52. #org @givepokemon
  53. givepokemon 0x8001 5 0 0 0 0
  54. fanfare 0x172
  55. preparemsg @obtained
  56. waitmsg
  57. waitfanfare
  58. msgbox @takecare MSG_KEEPOPEN
  59. setflag 0x255
  60. clearflag 0x245
  61. release
  62. end
  63.  
  64. #org @startercheck
  65. copyvar 0x8000 0x4023
  66. compare 0x8000 0x0
  67. if 0x1 call @blaziken
  68. compare 0x8000 0x1
  69. if 0x1 call @swampert
  70. compare 0x8000 0x2
  71. if 0x1 call @sceptile
  72. return
  73.  
  74. #org @blaziken
  75. bufferpokemon 0x0 PKMN_BLAZIKEN
  76. setvar 0x8001 PKMN_TORCHIC
  77. bufferpokemon 0x2 PKMN_MUDKIP
  78. return
  79.  
  80. #org @swampert
  81. bufferpokemon 0x0 PKMN_SWAMPERT
  82. setvar 0x8001 PKMN_MUDKIP
  83. bufferpokemon 0x2 PKMN_MUDKIP
  84. return
  85.  
  86. #org @sceptile
  87. bufferpokemon 0x0 PKMN_SCEPTILE
  88. setvar 0x8001 PKMN_TREECKO
  89. bufferpokemon 0x2 PKMN_MUDKIP
  90. return
  91.  
  92. #org @nothanks
  93. setflag 0x245
  94. msgbox @okthen MSG_KEEPOPEN
  95. release
  96. end
  97.  
  98. #org @okthen
  99. = Is that so? Well, let me know if you\nchange your mind.
  100.  
  101. #org @tryagainmsg
  102. = How about it, [player]?\nWill you take care of my [buffer3]?
  103.  
  104. #org @askmsg
  105. = [buffer2]: Hey, [player]!\pI just hatched an EGG that my [buffer1]\nlaid a while ago.\pI'm going to stay at the lab for a while,\nso why don't you raise the POKéMON on\lyour journey?
  106.  
  107. #org @takecare
  108. = Please look out for it!
  109.  
  110. #org @obtained
  111. = [player] obtained a [buffer3].
  112.  
  113. #org @maybuffer
  114. = MAY
  115.  
  116. #org @brendanbuffer
  117. = BRENDAN
  118.  
  119. /*
  120. buffer1 = Rival's evolved Pokemon
  121. buffer2 = Rival's name
  122. buffer3 = Received Pokemon
  123. */
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement