Advertisement
Guest User

Untitled

a guest
Jan 31st, 2013
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.81 KB | None | 0 0
  1. #org 0x8A80727
  2. '-----------------------------------
  3. lock
  4. faceplayer
  5. textcolor BLUE
  6. checkflag 0x1035
  7. if true jump 0x8A80764 ' Flag is set
  8. countpokemon
  9. compare LASTRESULT 0x6
  10. if == jump 0x8A8076E ' Equal To
  11. showmoney 0x0 0x0
  12. msgbox 0x8A807F5
  13. callstd MSG_YESNO ' Yes/No message
  14. compare LASTRESULT YES
  15. if == jump 0x8A80778 ' Equal To
  16. hidemoney 0x0 0x0
  17. msgbox 0x8A80854
  18. callstd MSG_NOCLOSE ' Non-closing message
  19. release
  20. ' Release commands close any open messages
  21. end
  22.  
  23. #org 0x8A80764
  24. '-----------------------------------
  25. msgbox 0x8A80869
  26. callstd MSG_NOCLOSE ' Non-closing message
  27. release
  28. ' Release commands close any open messages
  29. end
  30.  
  31. #org 0x8A8076E
  32. '-----------------------------------
  33. msgbox 0x8A80958
  34. callstd MSG_NOCLOSE ' Non-closing message
  35. release
  36. ' Release commands close any open messages
  37. end
  38.  
  39. #org 0x8A80778
  40. '-----------------------------------
  41. checkmoney 0x1388 0x0 0x0
  42. compare LASTRESULT 0x0
  43. if == jump 0x8A807D6 ' Equal To
  44. sound 0x5F
  45. paymoney 0x1388 0x0 0x0
  46. updatemoney 0x0 0x0 0x0
  47. addpokemon RAPIDASH 87 NONE 0x0 0x0 0x0
  48. fanfare 0x13E
  49. textcolor GRAY
  50. message 0x8A809BD
  51. showmsg
  52. waitfanfare
  53. hidemoney 0x0 0x0
  54. msgbox 0x8A809D3
  55. callstd MSG_YESNO ' Yes/No message
  56. compare LASTRESULT NO
  57. if == jump 0x8A80764 ' Equal To
  58. call 0x8A807E3
  59. setflag 0x1035
  60. textcolor BLUE
  61. jump 0x8A80764
  62.  
  63. #org 0x8A807D6
  64. '-----------------------------------
  65. msgbox 0x8A80A37
  66. callstd MSG_NOCLOSE ' Non-closing message
  67. hidemoney 0x0 0x0
  68. release
  69. end
  70.  
  71. #org 0x8A807E3
  72. '-----------------------------------
  73. countpokemon
  74. subtractvar LASTRESULT 0x1
  75. copyvar 0x8004 LASTRESULT
  76. fadescreen FADEOUT_BLACK
  77. special 0xA1
  78. waitspecial
  79. return
  80.  
  81.  
  82. #org 0x8A807F5
  83. =
  84.  
  85. #org 0x8A80854
  86. =
  87.  
  88. #org 0x8A80869
  89. =
  90.  
  91. #org 0x8A80958
  92. =
  93.  
  94. #org 0x8A809BD
  95. =
  96.  
  97. #org 0x8A809D3
  98. =
  99.  
  100. #org 0x8A80A37
  101. =
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement