API tools faq
paste
Advertisement
hendra814

MVP Rangking System

hendra814
Jun 26th, 2012
102
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C# 12.78 KB | None | 0 0
raw download clone embed print report
  1. // MVP Rank by Rokimoki
  2. // Contact me: alexmanalopez@gmail.com
  3. // ------
  4. // Version 1.0 final and public release
  5. // ------
  6. prontera,143,171,5  script  MvP Rank    951,{
  7. set .gmlevelmenu, 90; // Set the GM Level to use the Reset GM option
  8. set .nombre$, "[MvP Ranker]";
  9.  
  10. mes .nombre$;
  11. mes "I'm the MvP Ranker, what do you want to know?";
  12. next;
  13. switch (select("Top5:My Rank:GM Reset:Nothing")) {
  14.     case 1:
  15.         if (strcharinfo(0) == $nomb1$) {
  16.             mes .nombre$;
  17.             mes "Top5 MvP Killers.";
  18.             next;
  19.             callfunc "Top5";
  20.             next;
  21.             switch (select("Top 1 Menu:Exit")) {
  22.                 case 1:
  23.                     mes .nombre$;
  24.                     mes "I know you are intelligent, select an option...";
  25.                     next;
  26.                     switch (select("Announce me:Announce rank:Nothing")) {
  27.                         case 1:
  28.                             mes .nombre$;
  29.                             mes "For only 100,000 z I can broadcast that you are Top 1 mvp killer.";
  30.                             next;
  31.                             switch (select("Announce me:Exit")) {
  32.                                 case 1:
  33.                                     mes .nombre$;
  34.                                     mes "Here we go !";
  35.                                     next;
  36.                                     if (Zeny < 100000) {
  37.                                         mes .nombre$;
  38.                                         mes "You have not got enough zenys, it is 100,000 z";
  39.                                         close;
  40.                                     } else {
  41.                                         mes .nombre$;
  42.                                         mes "Here you are !";
  43.                                         announce "The MvP Killer is: " +$nomb1$ +" with: " +$top1 +" MvP victims.",bc_yellow;
  44.                                         set Zeny, Zeny - 100000;
  45.                                         close;
  46.                                     } // End if
  47.                                    
  48.                                 case 2:
  49.                                     mes .nombre$;
  50.                                     mes "Ok, bye...";
  51.                                     close;
  52.                             } // End switch
  53.                         case 2:
  54.                             mes .nombre$;
  55.                             mes "For 40,000 zenys I can broadcast the whole MvP.";
  56.                             next;
  57.                             switch (select("Announce me:Exit")) {
  58.                                 case 1:
  59.                                     mes .nombre$;
  60.                                     mes "Here we go !";
  61.                                     next;
  62.                                     if (Zeny < 40000) {
  63.                                         mes .nombre$;
  64.                                         mes "You have not got enough zenys, it is 40,000 z";
  65.                                         close;
  66.                                     } else {
  67.                                         mes .nombre$;
  68.                                         mes "Here you are !";
  69.                                         announce "MvP Rank -> Top 1: " +$nomb1$ +"Top 2: " +$nomb2$ +"Top 3: " +$nomb3$ +"Top 4: " +$nomb4$ +"Top 5: " +$nomb5$ +" .",bc_yellow;
  70.                                         set Zeny, Zeny - 40000;
  71.                                         close;
  72.                                     } // End if
  73.                                    
  74.                                 case 2:
  75.                                     mes .nombre$;
  76.                                     mes "Ok, bye...";
  77.                                     close;
  78.                             } // End switch
  79.                         case 3:
  80.                             mes .nombre$;
  81.                             mes "Ok so you are not smart than I thought, come back if you still are top 1.";
  82.                             close;
  83.                     } // End switch
  84.                 case 2:
  85.                     mes .nombre$;
  86.                     mes "Ok, come back if you still are top 1.";
  87.                     close;
  88.             } // End switch
  89.         } else {
  90.             mes .nombre$;
  91.             mes "Top5 MvP Killers.";
  92.             next;
  93.             callfunc "Top5";
  94.             close;
  95.         } // End if
  96.        
  97.     case 2:
  98.         mes .nombre$;
  99.         mes "Select an option of your personal mvp rank...";
  100.         next;
  101.         switch (select("Total MvPs:Wich MvPs I killed:Reset rank:Nothing")) {
  102.             case 1:
  103.                 mes .nombre$;
  104.                 mes "Is counting mini-boss too...";
  105.                 mes "You have killed: " +MVPTotal +" MvPs.";
  106.                 close;
  107.            
  108.             case 2:
  109.                 mes .nombre$;
  110.                 mes "I will show you the mvp list, I think is a little bit long...";
  111.                 next;
  112.                 mes "Amon Ra: " +LAmonRa +" kills.";
  113.                 mes "Angeling: " +LAngeling +" kills.";
  114.                 mes "Archangeling: " +LArchangeling +" kills.";
  115.                 mes "Assassin Cross Eremes: " +LAssassinCrossEremes +" kills.";
  116.                 mes "Eremes Especial: " +LB_EREMES +" kills.";
  117.                 next;
  118.                 mes "Atroce: " +LAtroce +" kills.";
  119.                 mes "Bascojin: " +LBascojin +" kills.";
  120.                 mes "Baphomet Evento: " +LEventBapho +" kills.";
  121.                 mes "Baphomet: " +LBaphomet +" kills.";
  122.                 mes "Beelzebub: " +LBeelzebub +" kills.";
  123.                 next;
  124.                 mes "Cat'O Nine Tail: " +LCatONine +" kills.";
  125.                 mes "Dark Ilusion: " +LDarkIllusion +" kills.";
  126.                 mes "Dark Lord: " +LDarkLord +" kills.";
  127.                 mes "Detale: " +LDetale +" kills.";
  128.                 mes "Deviling: " +LDeviling +" kills.";
  129.                 next;
  130.                 mes "Doppelganger: " +LDoppelganger +" kills.";
  131.                 mes "Drácula: " +LDracula +" kills.";
  132.                 mes "Dragon Fly: " +LDragonFly +" kills.";
  133.                 mes "Drake: " +LDrake +" kills.";
  134.                 mes "Eddga: " +LEdgga +" kills.";
  135.                 next;
  136.                 mes "Entweihen: " +LEntweihen +" kills.";
  137.                 mes "Evil Snake Lord: " +LSnakeLord +" kills.";
  138.                 mes "Fallen Bishop: " +LBishop +" kills.";
  139.                 mes "Garm: " +LGarm +" kills.";
  140.                 mes "Gemini-S58: " +LGemini +" kills.";
  141.                 next;
  142.                 mes "Ghostring: " +LGhostring +" kills.";
  143.                 mes "Gloom Under Night: " +LGloom +" kills.";
  144.                 mes "Eclipse: " +LEclipse +" kills.";
  145.                 mes "Golden Bug: " +LGoldenBug +" kills.";
  146.                 mes "Magaleta: " +LMagaleta +" kills.";
  147.                 next;
  148.                 mes "Hellion Revenant: " +LHellion +" kills.";
  149.                 mes "High Priest Magaleta: " +LHPMagaleta +" kills.";
  150.                 mes "High Wizard Katrinn: " +LHWKatrinn +" kills.";
  151.                 mes "High Wizard Katryne: " +LHWKatryn +" kills.";
  152.                 mes "Hydrolancer: " +LHydrolancer +" kills.";
  153.                 next;
  154.                 mes "Ifrit: " +LIfrit +" kills.";
  155.                 mes "Incantation Samurai: " +LIncantationSamurai +" kills.";
  156.                 mes "Kiel: " +LKiel +" kills.";
  157.                 mes "Stormy Knight: " +LStormyKnight +" kills.";
  158.                 mes "Ktullanux: " +LKtullanux +" kills.";
  159.                 next;
  160.                 mes "Lady Tanee: " +LLadyTanee +" kills.";
  161.                 mes "Seyren Especial: " +LGSeyren +" kills.";
  162.                 mes "Lord Knight Seyren: " +LKSeyren +" kills.";
  163.                 mes "Lord Death: " +LLordDeath +" kills.";
  164.                 mes "Mastering: " +LMastering +" kills.";
  165.                 next;
  166.                 mes "Maya: " +LMaya +" kills.";
  167.                 mes "Maya Purple: " +LMayaPurple +" kills.";
  168.                 mes "Mistress: " +LMistress +" kills.";
  169.                 mes "Moonlight Flower: " +LMoonFlower +" kills.";
  170.                 mes "Mutant Dragon: " +LMutantDragon +" kills.";
  171.                 next;
  172.                 mes "Nagh Seiger: " +LNagh +" kills.";
  173.                 mes "Orc Hero: " +LOrcHero +" kills.";
  174.                 mes "Orc Lord: " +LOrcLord +" kills.";
  175.                 mes "Osiris: " +LOsiris +" kills.";
  176.                 mes "Pharaoh: " +LPharaoh +" kills.";
  177.                 next;
  178.                 mes "Phreeoni: " +LPhreeoni +" kills.";
  179.                 mes "Pori Pori: " +LPoriPori +" kills.";
  180.                 mes "RSX: " +LRSX +" kills.";
  181.                 mes "Sniper Shecil: " +LSniper1 +" kills.";
  182.                 mes "Sniper Cecil: " +LSniper2 +" kills.";
  183.                 next;
  184.                 mes "Tao Gunka: " +LTaoGunka +" kills.";
  185.                 mes "Thanatos: " +LThanatos +" kills.";
  186.                 mes "Thanatos Despero: " +LThanatos2 +" kills.";
  187.                 mes "Thanatos Dolor: " +LThanatos3 +" kills.";
  188.                 mes "Thanatos Maero: " +LThanatos4 +" kills.";
  189.                 next;
  190.                 mes "Thanatos Odium: " +LThanatos5 +" kills.";
  191.                 mes "Tirfing: " +LTirfing +" kills.";
  192.                 mes "Toad: " +LToad +" kills.";
  193.                 mes "Turtle General: " +LTurtleGeneral +" kills.";
  194.                 mes "Vagabond Wolf: " +LVagabondWolf +" kills.";
  195.                 next;
  196.                 mes "Valkyrie: " +LValkyrie +" kills.";
  197.                 mes "Valkyrie Rangdris: " +LValkyrieRan +" kills.";
  198.                 mes "Vesper: " +LVesper +" kills.";
  199.                 mes "Vocal: " +LVocal +" kills.";
  200.                 mes "Whitesmith Harword: " +LWhites1 +" kills.";
  201.                 next;
  202.                 mes "Whitesmith Howard: " +LWhites2 +" kills.";
  203.                 mes "Satan Morroc: " +LSMorroc +" kills.";
  204.                 mes "Egnigem Cenia: " +LEgnigem +" kills.";
  205.                 mes "Zmey Gorynych: " +LZmey +" kills.";
  206.                 next;
  207.                 mes "Paladin Randel: " +LRandel +" kills.";
  208.                 mes "Creator Flamel: " +LFlamel +" kills.";
  209.                 mes "Professor Celia: " +LCelia +" kills.";
  210.                 mes "Champion Chen: " +LChen +" kills.";
  211.                 next;
  212.                 mes "Stalker Gertie: " + LGertie +" kills.";
  213.                 mes "Clown Alphoccio: " + LAlphoccio +" kills.";
  214.                 mes "Gypsy Trentini: " + LTrentini +" kills.";
  215.                 mes "Leak: " + LLeak +" kills.";
  216.                 next;
  217.                 mes "Gold Queen Scaraba: " + LGQScaraba +" kills.";
  218.                 mes "Boitata: " + LBoitata +" kills.";
  219.                 mes "Kraken: " + LKraken +" kills.";
  220.                 mes "White Lady: " + LWLady +" kills.";
  221.                 next;
  222.                 mes .nombre$;
  223.                 mes "Well, I hope you like your personal rank !";
  224.                 close;
  225.            
  226.             case 3:
  227.                 mes .nombre$;
  228.                 mes "¿Wich rank do you want to reset?";
  229.                 next;
  230.                 switch (select("Total Rank:List Rank:Any Rank")) {
  231.                     case 1:
  232.                         mes .nombre$;
  233.                         mes "Are you sure that you want to reset total mvp rank?";
  234.                         next;
  235.                         switch (select("Yes:No")) {
  236.                             case 1:
  237.                                 mes .nombre$;
  238.                                 mes "Ok, It's reseted.";
  239.                                 set MVPTotal, 0;
  240.                                 close;
  241.                                
  242.                             case 2:
  243.                                 mes .nombre$;
  244.                                 mes "Ok, come back when you're sure.";
  245.                                 close;
  246.                         } // End switch
  247.                    
  248.                     case 2:
  249.                         mes .nombre$;
  250.                         mes "Are you sure that you want to reset your list rank?";
  251.                         next;
  252.                         switch (select("Tes:No")) {
  253.                             case 1:
  254.                                 set LAmonRa, 0;
  255.                                 set LAngeling, 0;
  256.                                 set LArchangeling, 0;
  257.                                 set LAssassinCrossEremes, 0;
  258.                                 set LB_EREMES, 0;
  259.                                 set LAtroce, 0;
  260.                                 set LBascojin, 0;
  261.                                 set LEventBapho, 0;
  262.                                 set LBaphomet, 0;
  263.                                 set LBeelzebub, 0;
  264.                                 set LCatONine, 0;
  265.                                 set LDarkIllusion, 0;
  266.                                 set LDarkLord, 0;
  267.                                 set LDetale, 0;
  268.                                 set LDeviling, 0;
  269.                                 set LDoppelganger, 0;
  270.                                 set LDracula, 0;
  271.                                 set LDragonFly, 0;
  272.                                 set LDrake, 0;
  273.                                 set LEddga, 0;
  274.                                 set LEntweihen, 0;
  275.                                 set LSnakeLord, 0;
  276.                                 set LBishop, 0;
  277.                                 set LGarm, 0;
  278.                                 set LGemini, 0;
  279.                                 set LGhostring, 0;
  280.                                 set LGloom, 0;
  281.                                 set LEclipse, 0;
  282.                                 set LGoldenBug, 0;
  283.                                 set LMagaleta, 0;
  284.                                 set LHellion, 0;
  285.                                 set LHPMagaleta, 0;
  286.                                 set LHWKatrinn, 0;
  287.                                 set LHWKatryn, 0;
  288.                                 set LHydrolancer, 0;
  289.                                 set LIfrit, 0;
  290.                                 set LIncantationSamurai, 0;
  291.                                 set LKiel, 0;
  292.                                 set LStormyKnight, 0;
  293.                                 set LKtullanux, 0;
  294.                                 set LLadyTanee, 0;
  295.                                 set LGSeyren, 0;
  296.                                 set LKSeyren, 0;
  297.                                 set LLordDeath, 0;
  298.                                 set LMastering, 0;
  299.                                 set LMaya, 0;
  300.                                 set LMayaPurple, 0;
  301.                                 set LMistress, 0;
  302.                                 set LMoonFlower, 0;
  303.                                 set LMutantDragon, 0;
  304.                                 set LNagh, 0;
  305.                                 set LOrcHero, 0;
  306.                                 set LOrcLord, 0;
  307.                                 set LOsiris, 0;
  308.                                 set LPharaoh, 0;
  309.                                 set LPhreeoni, 0;
  310.                                 set LPoriPori, 0;
  311.                                 set LRSX, 0;
  312.                                 set LSniper1, 0;
  313.                                 set LSniper2, 0;
  314.                                 set LTaoGunka, 0;
  315.                                 set LThanatos, 0;
  316.                                 set LThanatos2, 0;
  317.                                 set LThanatos3, 0;
  318.                                 set LThanatos4, 0;
  319.                                 set LThanatos5, 0;
  320.                                 set LTirfing, 0;
  321.                                 set LToad, 0;
  322.                                 set LTurtleGeneral, 0;
  323.                                 set LVagabondWolf, 0;
  324.                                 set LValkyrie, 0;
  325.                                 set LValkyrieRan, 0;
  326.                                 set LVesper, 0;
  327.                                 set LVocal, 0;
  328.                                 set LWhites1, 0;
  329.                                 set LWhites2, 0;
  330.                                 set LSMorroc, 0;
  331.                                 set LEgnigem, 0;
  332.                                 set LZmey, 0;
  333.                                 set LRandel, 0;
  334.                                 set LFlamel, 0;
  335.                                 set LCelia, 0;
  336.                                 set LChen, 0;
  337.                                 set LGertie, 0;
  338.                                 set LAlphoccio, 0;
  339.                                 set LTrentini, 0;
  340.                                 set LLeak, 0;
  341.                                 set LGQScaraba, 0;
  342.                                 set LBoitata, 0;
  343.                                 set LKraken, 0;
  344.                                 set LWLady, 0;
  345.                                 mes .nombre$;
  346.                                 mes "Ok, List reseted.";
  347.                                 close;
  348.                                
  349.                             case 2:
  350.                                 mes .nombre$;
  351.                                 mes "Ok, come back when you are sure.";
  352.                                 close;
  353.                         }//End switch
  354.                        
  355.                     case 3:
  356.                         mes .nombre$;
  357.                         mes "Ok, come back when you are sure.";
  358.                         close;
  359.                 } // End switch
  360.             case 4:
  361.                 mes .nombre$;
  362.                 mes "Ok, come back any time, I'll be here !";
  363.                 close;
  364.         } // End switch
  365.        
  366.     case 3:
  367.         if (getgmlevel() >= .gmlevelmenu) {
  368.             mes .nombre$;
  369.             mes "Ok so you want to reset the MVP Rank...";
  370.             next;
  371.             switch (select("Yes:No")) {
  372.                 case 1:
  373.                     mes .nombre$;
  374.                     mes "Well That's ok...";
  375.                     next;
  376.                     set $nomb1$, "";
  377.                     set $top1, 0;
  378.                     set $nomb2$, "";
  379.                     set $top2, 0;
  380.                     set $nomb3$, "";
  381.                     set $top3, 0;
  382.                     set $nomb4$, "";
  383.                     set $top4, 0;
  384.                     set $nomb5$, "";
  385.                     set $top5, 0;
  386.                     set $Actreset, $Actreset+1;
  387.                     mes .nombre$;
  388.                     mes "Rank reseted... but the top 5 and other have to relog to reset own rank and rest !";
  389.                     break;
  390.                    
  391.                 case 2:
  392.                     mes .nombre$;
  393.                     mes "Ok! come back anytime";
  394.                     break;
  395.             } // End switch
  396.         } else {
  397.             mes .nombre$;
  398.             mes "This is only for gm level " +.gmlevelmenu +" or more.";
  399.         } // End if
  400.         close;
  401.        
  402.     case 4:
  403.         mes .nombre$;
  404.         mes "Ok, come back any time, I'll be here !";
  405.         close;
  406. } // End switch
  407.  
  408. OnPCLoginEvent: // Refresh when Log in
  409. OnPCLogoutEvent: // Refresh when Log out
  410. OnPCLoadMapEvent: // Refresh when load any map
  411. if (Actreset != $Actreset) { //We check if the "personal" reset should be done or not
  412.         set MVPTotal, 0;
  413.         set Actreset, $Actreset;} // End if
  414. end;
  415. } // End script
  416.  
  417. function    script  Top5    {  
  418.     mes "[- Top 5 MvP Killers -]";
  419.     mes "Top 1: " +$nomb1$ +" with " +$top1 +" kills.";
  420.     mes "Top 2: " +$nomb2$ +" with " +$top2 +" kills.";
  421.     mes "Top 3: " +$nomb3$ +" with " +$top3 +" kills.";
  422.     mes "Top 4: " +$nomb4$ +" with " +$top4 +" kills.";
  423.     mes "Top 5: " +$nomb5$ +" with " +$top5 +" kills.";
  424.     mes "Your personal rank is: " +MVPTotal +" kills.";
  425.     return;
  426. } // End function
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!