API tools faq
paste
Advertisement
johnlol

poring catcher v3.1

johnlol
May 27th, 2019
285
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VeriLog 7.67 KB | None | 0 0
raw download clone embed print report
  1. //=========== PORING CATCHER MADE ==============\\
  2. //=== BY: SHOGS-GFX and RAGNAROK DEVELOPERS ====\\
  3. //= Please Report if you encounter some errors =\\
  4. //===== https://www.facebook.com/ShogsGfx ======\\
  5. //==============================================\\
  6. //==FUNCTIONS===================================\\
  7. /* GM Can start the event manualy
  8.    GM Can also stop the event manualy
  9. HOW: just PM this npc (npc:pcatch) @pcatch
  10. The Next Guide Will Be Given by the Manager     */
  11. //======= PLEASE DO NOT REMOVE CREDITS =========\\
  12. //==============================================\\
  13. //== MORE UPDATES TO COME FOR BETTER FUNCTION ==\\
  14. //===== https://www.facebook.com/ShogsGfx ======\\
  15. //==============================================\\
  16.  
  17. //====LEVEL OF GM CAN CONTROL THE EVENT=========\\
  18.  
  19. //- script  GMCONTROL   -1,{
  20. //OnInit:
  21. //set $gmcontrol,60;
  22. //end;
  23. //
  24. //}
  25.  
  26. //---------------END OF SETUP-------------------\\
  27.  
  28. //================ON WHISPER=========================\\
  29. -   script  pcatch  -1,{
  30. OnInit:
  31. bindatcmd "pcatch",strnpcinfo(3)+"::OnAtcommand";
  32. set $gmcontrol,60;
  33. end;
  34.  
  35.  
  36. //====LEVEL OF GM CAN CONTROL THE EVENT=========\\
  37. //OnInit:
  38. //set $gmcontrol,60;
  39. //end;
  40. //---------------END OF SETUP-------------------\\
  41.  
  42. OnAtcommand:
  43. if(getgmlevel() >= $gmcontrol) {
  44. mes "^3399FF[Poring Catcher]^000000";  
  45. mes "Hello GameMaster!";
  46. mes "What do you want to do?";
  47. switch(select("Start Event:Stop Event:Nothing"))
  48. {
  49.     case 1:
  50.     {
  51.         next;
  52.         mes "^3399FF[Poring Catcher]^000000";
  53.         mes "Please confirm by typing START.";
  54.         input .@confirm$;          
  55.         if (.@confirm$ == "START")
  56.         {
  57.             donpcevent "Announcer2::OnGMStart";
  58.             close;
  59.         }
  60.         mes "Confirmation failed";
  61.         close;
  62.         break;
  63.     }
  64.     case 2:
  65.     {
  66.         next;
  67.         mes "^3399FF[Poring Catcher]^000000";
  68.         mes "Please confirm by typing STOP.";
  69.         input .@confirm$;          
  70.         if (.@confirm$ == "STOP")
  71.         {
  72.             donpcevent "Announcer2::OnGMStop";
  73.             close;
  74.         }
  75.         mes "Confirmation failed";
  76.         close;
  77.         break;
  78.        
  79.     }
  80.                    
  81.     case 3:
  82.     {
  83.         next; mes "^3399FF[Poring Catcher]^000000";
  84.         mes "Good bye";
  85.         close;
  86.     }
  87.  
  88. }
  89. }
  90. }
  91.  
  92.  
  93. //====================ANNOUNCER======================\\
  94.  
  95. -   script  Announcer2  -1,{
  96.  
  97.  
  98. OnGMStart:
  99.     killmonster "poring_w01.gat","All";
  100.     announce "(Poring Manager) : A Gamemaster started a Poring Catcher Event now.",0;
  101.     sleep 3000;
  102.     announce "(Poring Manager) : If you want to join, come at the middle of Prontera, enter the warp portal.",0;
  103.     enablenpc "PoringCatcher";
  104.     sleep 2000;
  105.     announce "(Poring Manager) : Prize: will be TCG Card and Poring Coin",0;
  106.     sleep 2000;
  107.     announce "(Poring Manager) : The portal is going to close in one minute.",0;  
  108.     sleep 60000;
  109.     announce "(Poring Manager) : The portal has been closed.",0;
  110.     disablenpc "PoringCatcher";
  111.     if(getmapusers("poring_w01") == 0)
  112.     {
  113.         disablenpc "Poring Banker";
  114.         announce "Event Poring Catcher didn't start because there's no players.",0;
  115.         end;
  116.     }
  117.  
  118.     donpcevent "Poring Banker::OnEnable";
  119.     end;
  120.  
  121. OnGMStop:
  122.  
  123.     killmonster "poring_w01.gat","All";
  124.     announce "A Gamemaster has stopped the Poring Catcher Event",0;
  125.     mapwarp "poring_w01.gat","prontera.gat",155,173;
  126.     disablenpc "Poring Banker";
  127.     disablenpc "PoringCatcher";
  128.     end;
  129.  
  130.  
  131. OnClock1100:
  132. OnClock1300:
  133. OnClock1500:
  134. OnClock1700:
  135.     killmonster "poring_w01.gat","All";
  136.     announce "(Poring Manager) : Poring Catcher Event will start at the moment.",0;
  137.     sleep 3000;
  138.     announce "(Poring Manager) : If you want to join, come at the middle of Prontera, enter the warp portal.",0;
  139.     enablenpc "PoringCatcher";
  140.     sleep 2000;
  141.     announce "(Poring Manager) : Prize: will be TCG Card and Poring Coin",0;
  142.     sleep 2000;
  143.     announce "(Poring Manager) : The portal is going to close in one minute.",0;  
  144.     sleep 60000;
  145.     announce "(Poring Manager) : The portal has been closed.",0;
  146.     disablenpc "PoringCatcher";
  147.     if(getmapusers("poring_w01") == 0)
  148.     {
  149.         disablenpc "Poring Banker";
  150.         announce "Event Poring Catcher didn't start because no players found in map.",0;
  151.         end;
  152.     }
  153.  
  154.     donpcevent "Poring Banker::OnEnable";
  155.     end;
  156.  
  157. OnInit:
  158.     disablenpc "Poring Banker";
  159.     disablenpc "PoringCatcher";
  160. }
  161. //---------All Job Registration----------------------------------------
  162. prontera,155,173,0  warp    PoringCatcher   2,2,poring_w01,105,128
  163.  
  164. //---------------------------------------------------------------------
  165.  
  166.  
  167. //---------------------------------------------------------------------
  168. -   script  Poring Banker   -1,{
  169.  
  170. OnEnable:
  171. mapannounce "poring_w01","Poring Manager: The Poring Catcher Event will start shortly",0;
  172. sleep2 10000;
  173. mapannounce "poring_w01","Poring Manager: I will be summoning 100 porings with different names kill the real poring",0;
  174. sleep2 10000;
  175. mapannounce "poring_w01","Poring Manager: What are we waiting for?..Let's Catch some Porings!!...",0;
  176. sleep2 10000;
  177. goto L_Start;
  178. end;
  179. L_Start:
  180.     if(getmapusers("poring_w01") == 0) goto L_None;
  181.     if(getmapusers("poring_w01") >= 1) {
  182.  
  183.     mapannounce "poring_w01","Poring Manager: Get ready at the count of 5 we will start!....",0;
  184.     sleep2 6000;
  185.     mapannounce "poring_w01","Poring Manager: 5",0;
  186.     sleep2 5000;
  187.     mapannounce "poring_w01","Poring Manager: 4",0;
  188.     sleep2 4000;
  189.     mapannounce "poring_w01","Poring Manager: 3",0;
  190.     sleep2 3000;
  191.     mapannounce "poring_w01","Poring Manager: 2",0;
  192.     sleep2 2000;
  193.     mapannounce "poring_w01","Poring Manager: 1",0;
  194.     donpcevent "Poringsummoner::OnSummon";
  195.     end;
  196.     }
  197.  
  198.     L_None:
  199.     disablenpc "Poring Banker";
  200.     killmonster "poring_w01.gat","All";
  201.     end;
  202. }
  203.  
  204. //==================SUMMONER OF PORINGS ======================\\
  205. -   script  Poringsummoner  -1,{
  206.  
  207. OnSummon:
  208.    if(getmapusers("poring_w01") == 0) goto L_2None;
  209.    monster "poring_w01.gat",0,0,"Poring",1002,1,"poringwin::OnMobKilled";
  210.    monster "poring_w01.gat",0,0,"Pouring",1002,10,"poringlose::OnMobKilled";
  211.    monster "poring_w01.gat",0,0,"Proing",1002,10,"poringlose::OnMobKilled";
  212.    monster "poring_w01.gat",0,0,"Poirng",1002,10,"poringlose::OnMobKilled";
  213.    monster "poring_w01.gat",0,0,"Poing",1002,10,"poringlose::OnMobKilled";
  214.    monster "poring_w01.gat",0,0,"I'm not a Poring",1002,5,"poringlose::OnMobKilled";
  215.    monster "poring_w01.gat",0,0,"Gnirop",1002,1,"poringlose::OnMobKilled";
  216.    monster "poring_w01.gat",0,0,"Poring",1113,1,"poringlose::OnMobKilled";
  217.    monster "poring_w01.gat",0,0,"Poring",1062,1,"poringlose::OnMobKilled";
  218.    monster "poring_w01.gat",0,0,"Por|ng",1002,10,"poringlose::OnMobKilled";
  219.    monster "poring_w01.gat",0,0,"Por1ng",1002,10,"poringlose::OnMobKilled";
  220.    monster "poring_w01.gat",0,0,"Porong",1002,10,"poringlose::OnMobKilled";
  221.    monster "poring_w01.gat",0,0,"P0ring",1002,10,"poringlose::OnMobKilled";
  222.    monster "poring_w01.gat",0,0,"P@ring",1002,10,"poringlose::OnMobKilled";
  223.    monster "poring_w01.gat",0,0,"Porng",1002,1,"poringlose::OnMobKilled";end;
  224. L_2None:
  225. disablenpc "Poring Banker";
  226. killmonster "poring_w01.gat","All";
  227. end;
  228. }
  229.  
  230. //==================REAL PORING FOR WIN======================\\
  231. -   script  poringwin   -1,{
  232.  
  233. OnMobKilled:
  234.    killmonster "poring_w01.gat","All";
  235.    atcommand "@doommap";
  236.    getitem 7227,1;
  237.    getitem 7539,1;
  238.    announce "Poring Banker: We have a winner! well done " + strcharinfo(0) + ".",0;
  239.    warp "SavePoint",0,0;
  240.    end;
  241. }
  242.  
  243. //==================DUMY PORINGS FOR LOSERS======================\\
  244. -   script  poringlose  -1,{
  245. OnMobKilled:
  246.    dispbottom "Your out of the game, You did not catch the right Poring!";
  247.    percentheal -99,-99;
  248.    warp "SavePoint",0,0;
  249.    end;
  250. }
  251.  
  252.  
  253. //==================Mapflags========================\\
  254. poring_w01  mapflag nowarp
  255. poring_w01  mapflag nowarpto
  256. poring_w01  mapflag noteleport
  257. poring_w01  mapflag nosave
  258. poring_w01  mapflag nomemo
  259. poring_w01  mapflag nobranch
  260. poring_w01  mapflag noloot
  261. poring_w01  mapflag noskill
  262. 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!