API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 29th, 2013
171
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.90 KB | None | 0 0
raw download clone embed print report
  1. // --- ARTHistic's Property ---
  2. // --- Please visit http://thdesigns.co.nr ---
  3. // --- Scripted By: ARTHistic ---
  4. // --- Do Not Revomed the Credits ---
  5.  
  6. - script PPE_inital -1,{
  7. OnInit:
  8. set $@PoringEventChecker, 0;
  9. set $@PoringEventPrizeChecker, 0;
  10. set $PPEDefendingChampion$,"secret";
  11. end;
  12. }
  13.  
  14. hc_pront,139,158,4 script Poring Puncher 629,{
  15.  
  16. mes "[ Poring Punch Event ]";
  17. mes "Hello, I'm the Poring Punch Event Manager. My record says that the defending champion on this event was "+$PPEDefendingChampion$+". Anyways, what do you want to do?";
  18. next;
  19. menu "How does this work?",PPE_HowTo,"Host this Event",PPE_Host,"Join Event Now",PPE_Join,"Claim my reward",PPE_claim,"Nevermind",PPE_nvm;
  20.  
  21. PPE_HowTo:
  22. mes "[ Poring Punch Event ]";
  23. mes "This is an event where everyone can join in. All you have to do is to punch the right monsters and to avoid the wrong ones. Each kind of monster has its corresponsing points. You only have 5 minutes to earn points as much as you can. The Highest Scorer at the end of this event shall win a Dreamworks Pandora!";
  24. mes "Reminder: No weapons, cart, and pets is allowed in this event.";
  25. close;
  26.  
  27. PPE_Host:
  28.  
  29. if ( $@PoringEventChecker != 0 ){
  30. mes "[ Poring Punch Event ]";
  31. mes "There is Poring Punch Event on-going. You can host this event if it is still on-going.";
  32. close;
  33. }else{
  34. if (countitem(6051) < 1) {
  35. mes "Game Masters only :)";
  36. close;
  37. } else {
  38. mes "[ Poring Punch Event ]";
  39. mes "Would you like to host this event?";
  40. next;
  41. menu "Yes",PPE_HostYes,"No",-;
  42. mes "[ Poring Punch Event ]";
  43. mes "Okay. Maybe next time.";
  44. close;
  45. PPE_HostYes:
  46.  
  47. mes "[ Poring Punch Event ]";
  48. mes "Starting soon...";
  49. close2;
  50. set $@PoringEventChecker, 1;
  51. announce "Poring Puncher: Beat up as many porings as you can! Talk to me in the Main Town. Reward: 75 Event Coins!", bc_all;
  52. moveNPC "Poring Puncher",155,184;
  53. killmonsterall "pvp_n_1-2";
  54. sleep2 10000;
  55. initnpctimer;
  56. end;
  57.  
  58. PPE_Join:
  59. if ( $@PoringEventChecker != 0 ){
  60. if (gethominfo(2) != "null"){
  61. mes "[ Poring Punch Event ]";
  62. mes "No homunculus is allowed in this event! Sorry "+strcharinfo(0)+" but you can't join this event!";
  63. close;
  64. }
  65. if (getpetinfo(2) != "null"){
  66. mes "[ Poring Punch Event ]";
  67. mes "No pet is allowed in this event! Sorry "+strcharinfo(0)+" but you can't join this event!";
  68. close;
  69. }
  70. if (checkcart()){
  71. mes "[ Poring Punch Event ]";
  72. mes "[ Poring Punch Event ]";
  73. mes "No cart is allowed! Sorry "+strcharinfo(0)+" but you can't join this event!";
  74. close;
  75. }
  76. if (checkfalcon()){
  77. mes "[ Poring Punch Event ]";
  78. mes "No falcon is allowed! Sorry "+strcharinfo(0)+" but you can't join this event!";
  79. close;
  80. }
  81. if (checkriding()){
  82. mes "[ Poring Punch Event ]";
  83. mes "[ Poring Punch Event ]";
  84. mes "No riding is allowed! Sorry "+strcharinfo(0)+" but you can't join this event!";
  85. close;
  86. }
  87. mes "[ Poring Punch Event ]";
  88. mes "Good luck "+strcharinfo(0)+".";
  89. close2;
  90. set @PoringPoints, 0;
  91. warp "pvp_n_1-2.gat",0,0;
  92. end;
  93. }else{
  94. mes "[ Poring Punch Event ]";
  95. mes "Sorry. No Poring Punch Event is held at the moment.";
  96. close;
  97. }end;
  98.  
  99. PPE_claim:
  100. if ($HighestPoringPointsName$ == strcharinfo(0) && $@PoringEventPrizeChecker == 1) {
  101. mes "[Poring Punch Event]";
  102. mes "Congragulations "+strcharinfo(0)+". Here is your reward.";
  103. getitem 12619,75;
  104. moveNPC "Poring Puncher",139,158;
  105. announce "Poring Puncher: The winner claimed the 75 Event Coins!", bc_all;
  106. set $HighestPoringPointsName$,"";
  107. set $HighestPoringPoints,0;
  108. set $@PoringEventPrizeChecker, 0;
  109. close;
  110. } else {
  111. mes "[ Poring Punch Event ]";
  112. mes "Sorry "+strcharinfo(0)+". You're not the winner so you can't claim anything";
  113. close;
  114. }end;
  115.  
  116. PPE_nvm:
  117. mes "[ Poring Punch Event ]";
  118. mes "Okay. Maybe next time.";
  119. close;
  120.  
  121. OnPoringKill:
  122. if (getequipweaponlv(4)==0 && getequipweaponlv(3)==0){
  123. set @PoringPoints,@PoringPoints+1;
  124. if (@PoringPoints > $HighestPoringPoints) {
  125. set $HighestPoringPointsName$,strcharinfo(0);
  126. set $PPEDefendingChampion$,strcharinfo(0);
  127. set $HighestPoringPoints,@PoringPoints;
  128. }
  129. dispbottom "You have "+@PoringPoints+" point(s)";
  130. end;
  131. }else {
  132. dispbottom "You have to punch the monster without any weapon.";
  133. set @PoringPoints, 0;
  134. atcommand "@die";
  135. end;
  136. }
  137.  
  138. OnDropsKill:
  139. if (getequipweaponlv(4)==0 && getequipweaponlv(3)==0){
  140. set @PoringPoints,@PoringPoints+5;
  141. if (@PoringPoints > $HighestPoringPoints) {
  142. set $HighestPoringPointsName$,strcharinfo(0);
  143. set $PPEDefendingChampion$,strcharinfo(0);
  144. set $HighestPoringPoints,@PoringPoints;
  145. }
  146. dispbottom "You have "+@PoringPoints+" point(s)";
  147. end;
  148. }else {
  149. dispbottom "You have to punch the monster without any weapon.";
  150. set @PoringPoints, 0;
  151. atcommand "@die";
  152. end;
  153. }
  154.  
  155.  
  156. OnPoporingKill:
  157. if (getequipweaponlv(4)==0 && getequipweaponlv(3)==0){
  158. if (@PoringPoints < 10) {
  159. set @PoringPoints, 0;
  160. dispbottom "You have "+@PoringPoints+" point(s)";
  161. end;
  162. }else {
  163. set @PoringPoints,@PoringPoints-10;
  164. dispbottom "You have "+@PoringPoints+" point(s)";
  165. end;
  166. }end;
  167. }else {
  168. dispbottom "You have to punch the monster without any weapon.";
  169. set @PoringPoints, 0;
  170. atcommand "@die";
  171. end;
  172. }
  173.  
  174.  
  175. OnHour30:
  176. if ( $@PoringEventChecker == 0 ) {
  177. set $@PoringEventChecker, 1;
  178. initnpctimer;
  179. end;
  180. }
  181.  
  182. OnTimer10000:
  183. announce "Poring Punch Event has started.",0;
  184. monster "pvp_n_1-2",0,0,"+Points",1002,50,"Poring Puncher::OnPoringKill";
  185. monster "pvp_n_1-2",0,0,"+Points",1002,10,"Poring Puncher::OnDropsKill";
  186. monster "pvp_n_1-2",0,0,"-Points",1002,25,"Poring Puncher::OnPoporingKill";
  187. end;
  188.  
  189. OnTimer70000:
  190. mapannounce "pvp_n_1-2.gat","Poring Punch Event: 4 minutes left.",0;
  191. monster "pvp_n_1-2",0,0,"+Points",1002,50,"Poring Puncher::OnPoringKill";
  192. monster "pvp_n_1-2",0,0,"+Points",1002,5,"Poring Puncher::OnDropsKill";
  193. monster "pvp_n_1-2",0,0,"-Points",1002,20,"Poring Puncher::OnPoporingKill";
  194. end;
  195.  
  196. OnTimer130000:
  197. mapannounce "pvp_n_1-2.gat","Poring Punch Event: 3 minutes left.",0;
  198. monster "pvp_n_1-2",0,0,"+Points",1002,30,"Poring Puncher::OnPoringKill";
  199. monster "pvp_n_1-2",0,0,"+Points",1002,5,"Poring Puncher::OnDropsKill";
  200. monster "pvp_n_1-2",0,0,"-Points",1002,15,"Poring Puncher::OnPoporingKill";
  201. end;
  202.  
  203. OnTimer190000:
  204. mapannounce "pvp_n_1-2.gat","Poring Punch Event: 2 minutes left.",0;
  205. monster "pvp_n_1-2",0,0,"+Points",1002,30,"Poring Puncher::OnPoringKill";
  206. monster "pvp_n_1-2",0,0,"+Points",1002,5,"Poring Puncher::OnDropsKill";
  207. monster "pvp_n_1-2",0,0,"-Points",1002,5,"Poring Puncher::OnPoporingKill";
  208. end;
  209.  
  210. OnTimer250000:
  211. mapannounce "pvp_n_1-2.gat","Poring Punch Event: 1 minute left.",0;
  212. monster "pvp_n_1-2",0,0,"+Points",1002,50,"Poring Puncher::OnPoringKill";
  213. monster "pvp_n_1-2",0,0,"+Points",1002,5,"Poring Puncher::OnDropsKill";
  214. monster "pvp_n_1-2",0,0,"-Points",1002,5,"Poring Puncher::OnPoporingKill";
  215. end;
  216.  
  217. OnTimer310000:
  218. stopnpctimer;
  219. announce "Poring Punch Event has ended and the event Winner is "+$HighestPoringPointsName$+".",0;
  220. killmonsterall "pvp_n_1-2";
  221. set $@PoringEventChecker, 0;
  222. set $@PoringEventPrizeChecker, 1;
  223. sleep2 5000;
  224. mapannounce "pvp_n_1-2.gat","You'll be warp to the Main Town in a short while.",16;
  225. sleep2 10000;
  226. mapwarp "pvp_n_1-2","hc_pront",164,172;
  227. end;
  228.  
  229. }
  230.  
  231. }
  232. }
  233.  
  234. // MAPFLAGS
  235. pvp_n_1-2 mapflag nobranch
  236. pvp_n_1-2 mapflag noexp
  237. pvp_n_1-2 mapflag noskill
  238. pvp_n_1-2 mapflag nomemo
  239. pvp_n_1-2 mapflag nopenalty
  240. pvp_n_1-2 mapflag pvp off
  241. pvp_n_1-2 mapflag nosave SavePoint
  242. pvp_n_1-2 mapflag noskill
  243. pvp_n_1-2 mapflag noteleport
  244. pvp_n_1-2 mapflag nowarp
  245. pvp_n_1-2 mapflag nowarpto
  246. pvp_n_1-2 mapflag noloot
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!