API tools faq
paste
Advertisement
iFoxkun

Satan Catcher Event

iFoxkun
Nov 28th, 2011
325
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.27 KB | None | 0 0
raw download clone embed print report
  1. //Made by Karul
  2. //==========Start/Announcer NPC
  3. quiz_02,323,234,3 script Satan Catcher Event 793,{
  4.  
  5. set .@name$,"^9932CC[Satan Catcher] ^000000";
  6.  
  7. if(getgmlevel() < 80) {
  8. mes .@name$;
  9. mes "Sorry you are no Level 80 GM";
  10. close;
  11. } else {
  12. L_Main:
  13. mes .@name$;
  14. mes "What do you want to do?";
  15. switch(select("Item [" + getitemname($@SatanReward) + "]:Start Event")) {
  16. case 1: next;
  17. mes .@name$;
  18. mes "What item do you want as the reward?";
  19. input $@SatanReward;
  20. next;
  21. mes .@name$;
  22. mes "How many of that item(s) do you want to give?";
  23. input $@SatanRewardItems;
  24. next;
  25. mes .@name$;
  26. mes "This is your amount:";
  27. mes ""+$@SatanRewardItems+"";
  28. next;
  29. goto L_Main;
  30. case 2: next;
  31. mes .@name$;
  32. mes "Starting Event...";
  33. close2;
  34. Announce "Satan Catcher Event is being held!",bc_all;
  35. sleep 5000;
  36. Announce "The warp portal has appeared in prontera!",bc_all;
  37. enablenpc "satanevent";
  38. initnpctimer;
  39. end;
  40.  
  41. OnTimer30000:
  42. Announce "Thirty Seconds Have Passed By!",bc_all;
  43. sleep 5000;
  44. Announce "Hurry to Prontera if you want to join!",bc_all;
  45. end;
  46.  
  47. OnTimer40000:
  48. Announce "Twenty seconds left!",bc_all;
  49. end;
  50.  
  51. OnTimer50000:
  52. Announce "Ten seconds left!",bc_all;
  53. end;
  54.  
  55. OnTimer55000:
  56. Announce "5!",bc_all;
  57. sleep 1000;
  58. Announce "4!",bc_all;
  59. sleep 1000;
  60. Announce "3!",bc_all;
  61. sleep 1000;
  62. Announce "2!",bc_all;
  63. sleep 1000;
  64. Announce "1!",bc_all;
  65. sleep 1000;
  66. Announce "0!",bc_all;
  67. sleep 1000;
  68. disablenpc "satanevent";
  69. donpcevent "Rewarder::OnEnable";
  70. stopnpctimer;
  71. end;
  72. }
  73. }
  74. OnInit:
  75. disablenpc "satanevent";
  76. hideonnpc "Rewarder";
  77. }
  78.  
  79. //=================Warp NPC
  80. prontera,155,180,0 warp satanevent 1,1,poring_w01,102,113
  81.  
  82. //=================Reward NPC
  83. poring_w01,100,127,5 script Rewarder 793,{
  84.  
  85. set .@sname$,"[Rewarder]";
  86.  
  87. mes .@sname$;
  88. if(.@SATAN == 1) goto L_SATAN;
  89. mes "Please tell me your name.";
  90. next;
  91. input .@charname$;
  92. if(.@charname$ != strcharinfo(0)) {
  93. mes .@name$;
  94. mes "Are you sure that is your character name?";
  95. close;
  96. }
  97. mes .@name$;
  98. mes "Congratulations You Have Won!";
  99. Announce "Congratulations to " + .@charname$ + "! He / She has won " + $@SatanRewardItems + " " + getitemname($@SatanReward) + "(s)!",bc_all;
  100. getitem $@SatanReward,$@SatanRewardItems;
  101. atcommand "@go 0";
  102. hideonnpc "Rewarder";
  103. end;
  104.  
  105. L_SATAN:
  106. mes .@sname$;
  107. mes "Please tell me your name";
  108. next;
  109. input .@charname$;
  110. if(.@charname$ != strcharinfo(0)) {
  111. mes .@name$;
  112. mes "Are you sure that is your character name?";
  113. close;
  114. }
  115. mes .@name$;
  116. mes "Congratulations You Have Won!";
  117. Announce "Congratulations to " + .@charname$ + "! He / She has won " + $@SatanRewardItems + " " + getitemname($@SatanReward) + "(s)!",bc_all;
  118. getitem $@SatanReward,$@SatanRewardItems;
  119. set SATAN,0;
  120. atcommand "@go 0";
  121. hideonnpc "Rewarder";
  122. end;
  123.  
  124. OnEnable:
  125. set .@aname$,"[Rewarder]";
  126.  
  127. mapannounce "poring_w01","" + .@aname$ + ": I will be summoning 100 different kinds of Satan Morroc.",16;
  128. sleep 5000;
  129. mapannounce "poring_w01","" + .@aname$ + ": Only one of these Satan Morrocs are the real one.",16;
  130. sleep 5000;
  131. mapannounce "poring_w01","" + .@aname$ + ": The correct one will be called 'Satan Morroc'.",16;
  132. sleep 5000;
  133. mapannounce "poring_w01","" + .@aname$ + ": Kill the wrong one, you're out. Kill the right one, you win.",16;
  134. sleep 5000;
  135. mapannounce "poring_w01","" + .@aname$ + ": Now let's play!",16;
  136. goto L_Start;
  137. end;
  138.  
  139. L_Start:
  140. set .@aname$,"[Rewarder]";
  141.  
  142. mapannounce "poring_w01","" + .@aname$ + ": 5!",16;
  143. sleep 1000;
  144. mapannounce "poring_w01","" + .@aname$ + ": 4!",16;
  145. sleep 1000;
  146. mapannounce "poring_w01","" + .@aname$ + ": 3!",16;
  147. sleep 1000;
  148. mapannounce "poring_w01","" + .@aname$ + ": 2!",16;
  149. sleep 1000;
  150. mapannounce "poring_w01","" + .@aname$ + ": 1!",16;
  151. sleep 1000;
  152. mapannounce "poring_w01","" + .@aname$ + ": GO!",16;
  153. sleep 1000;
  154. areamonster "poring_w01",84,119,121,90,"Satan Morroc",3031,1,"satanwin::OnMobKilled";
  155. areamonster "poring_w01",84,119,121,90,"Satanic Morroc",3031,10,"satanlose::OnMobKilled";
  156. areamonster "poring_w01",84,119,121,90,"Satan Moroc",3031,10,"satanlose::OnMobKilled";
  157. areamonster "poring_w01",84,119,121,90,"Satan Morocc",3031,10,"satanlose::OnMobKilled";
  158. areamonster "poring_w01",84,119,121,90,"Satin Mrroc",3031,10,"satanlose::OnMobKilled";
  159. areamonster "poring_w01",84,119,121,90,"I am Satan Morroc",3031,5,"satanlose::OnMobKilled";
  160. areamonster "poring_w01",84,119,121,90,"Corrom Natas",3031,1,"satanlose::OnMobKilled";
  161. areamonster "poring_w01",84,119,121,90,"SaTaN MoRrOc",3031,1,"satanlose::OnMobKilled";
  162. areamonster "poring_w01",84,119,121,90,"Sattan Morroc",3031,1,"satanlose::OnMobKilled";
  163. areamonster "poring_w01",84,119,121,90,"Say Ten More Rocks",3031,10,"satanlose::OnMobKilled";
  164. areamonster "poring_w01",84,119,121,90,"Satan of the Morroc",3031,10,"satanlose::OnMobKilled";
  165. areamonster "poring_w01",84,119,121,90,"Morroc's Satan",3031,10,"satanlose::OnMobKilled";
  166. areamonster "poring_w01",84,119,121,90,"S4t4n M0rr0c",3031,10,"satanlose::OnMobKilled";
  167. areamonster "poring_w01",84,119,121,90,"Saten Morroc",3031,10,"satanlose::OnMobKilled";
  168. areamonster "poring_w01",84,119,121,90,"Stan Morrc",3031,1,"satanlose::OnMobKilled";
  169. end;
  170. }
  171.  
  172. //========Killed the right one
  173. - script satanwin -1,{
  174.  
  175. set .@aname$,"[Rewarder]";
  176.  
  177. OnMobKilled:
  178. dispbottom "Satan Morroc: ASDFGHJKL; You found me.";
  179. set .@SATAN,1;
  180. atcommand "@doommap";
  181. killmonster "poring_w01","All";
  182. mapannounce "poring_w01","" + .@aname$ + " Come to me and tell me your name.",16;
  183. hideoffnpc "Rewarder";
  184. end;
  185. }
  186.  
  187. //========Killed the wrong one
  188. - script satanlose -1,{
  189.  
  190. OnMobKilled:
  191. dispbottom "Satan Morroc: ASDFGHJKL; You haven't found my twin!";
  192. atcommand "@go 0";
  193. end;
  194. }
  195.  
  196. // -- Mapflags (If Wanted)
  197. poring_w01 mapflag nowarp
  198. poring_w01 mapflag nowarpto
  199. poring_w01 mapflag noteleport
  200. poring_w01 mapflag nosave
  201. poring_w01 mapflag nomemo
  202. poring_w01 mapflag nobranch
  203. poring_w01 mapflag noloot
  204. poring_w01 mapflag noskill
  205. poring_w01 mapflag nopenalty
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!