Stoalo's Auto Even

//===== RO-CREW Scripts ================================== 
//= Auto-Event System 
//===== By: ================================================== 
//= Stolao
//===== Current Version: ===================================== 
//= 1.2C
//===== Compatible With: ===================================== 
//= eAthena SVN
//===== Description: ========================================= 
//= Will Automatically pick one event from the events in its 
//= list every hour and run it. Giving out an Event ticket and 
//= Announcing the Winner. 
//===== Uses: ================================================
//= Custom Maps 1@2@3@4, 99_pvp and 1@zombie 
//= clone maps of quiz_01, ero_pvp(Custom) and 1@cata. 
//= If you dont have these maps change accordingly ctrl+H <3
//= Variables, $EventData$ and $EventData
//= OnMinute55, OnPCDieEvent
//===== Comments: ============================================
//= [Stolao]
//= Add more events
//= Spell Check
//= Make customisable in game by gm
//= Make Zombie more configable
//= Make Check config in npc
//= Make GM level config in npc
//= Make Announcement colors configable
//= Make "Zeny" cangable for Points
//= Configable in game
//===== Additional Comments: =================================
//= 1.00 Basic Layout, Useing just 99-PVP
//= 1.01 Add Zombie Survival
//= 1.02 Add 1234
//= 1.03 More Monster in Zombie
//= 1.04 Fixed Stair Bug in 1234
//= 1.05 Swich 1234 to even odd afer 7 rolls
//= 1.06 More Monster in Zombie
//= 1.07 More and Shorter Rounds in Zombie
//= 1.08 Made PvpEvent 20 min limit was 10 min
//= 1.09 Swich 1234 to last box after 8 even odd rolls
//= 1.0A Shortened PvpEvent script by 54 line
//= 1.0B Removed even odd afer 7 rolls in 1234
//= 1.0C Removed last box after 8 even odd rolls in 1234
//= 1.0D Made 1234 function baced
//= 1.0E Made PvpEvent function based
//= 1.0F Made Zombie function based
//= 1.10 Added Startup via NPC Whisper
//= 1.11 Removed "tie" in 1234
//= 1.12 Made 1234 Configable uing arrayed server data
//= 1.13 Added Toggable Prize item & Zeny to 1234
//= 1.14 Added Toggable Cost item & Zeny to 1234
//= 1.15 Added Prize Pool item & Zenyto 1234
//= 1.16 Replaced 99-Pvp with PvpEvent
//= 1.17 Made PVP Configable uing arrayed server data
//= 1.18 Added Toggable Prize item & Zeny to PVP
//= 1.10 Added Toggable Cost item & Zeny to PVP
//= 1.1A Added Prize Pool to item & Zeny PVP
//= 1.1B Made Zombie Kinda Configable (might add more latter)
//= 1.1C Added Toggable Prize item & Zeny to Zombie
//= 1.1D Added Toggable Cost item & Zeny to Zombie
//= 1.1E Added Prize Pool to item & Zeny Zombie
//= 1.1F Fixed minor bug in Zombies Config
//= 1.20 Fixed minor bug in prize scripts
//= 1.21 Fixed typo in run pvp
//= 1.22 Fixed check Zeny in all scripts
//= 1.23 Fixed check items in all scripts
//= 1.24 Fixed major bug in Config
//= 1.25 Fixed "bug" reading strings as numbers
//= 1.26 Added event check, see if events are running already
//= 1.27 Added Reset to config npc
//= 1.28 Fixed bug in the prize giving phase of events
//= 1.29 Switch prizes to close2;
//= 1.2A Added missing Close; after Event check in whisper
//= 1.2B Added Start of In Game Setup menu
//= 1.2C Fixed Type in InGame Setup ":" when ";"
//===== Legal Info: ==========================================
//= Basically dont steal credit for my work
//= If you want to modify and upload, give credit
//===== Contact Ifo: =========================================
//= [Stolao] 
//= Email: http://ro-crew.forumms.net.com
//============================================================


-   script   RUNEvent   -1,{
OnWhisperGlobal:
   set .@Event$,@whispervar0$;
   set @whispervar0$,"";
   if(getgmlevel()>60) {
      if(.@Event$ == "Reset"){ set $EventData[0],0;
      dispbottom "Event Check Reset";
       end; }
      if(.@Event$ == "Setup"){ goto M_SETUP; }
      if($EventData[0]){ mes "[Event Management]";
      mes "Sorry an event is already running.";
      close;
      }
      if(.@Event$ == "Pvp"){ callfunc("PvpEventRUN");   dispbottom "Event Set to "+.@Event$+""; end; }
      if(.@Event$ == "Zombie"){ callfunc("ZombieRUN"); dispbottom "Event Set to "+.@Event$+""; end; }
      if(.@Event$ == "1234"){ callfunc("1234RUN"); dispbottom "Event Set to "+.@Event$+""; end; }
   mes "[Event Management]";
   mes "Hello "+strcharinfo(0)+", How might I assist you?";
   menu "Nothing nevermind",-,"Run an event",M_RUN;
      next;
      mes "[Event Management]";
      mes "Call on me anytime.";
      close;
M_RUN:
      next;
      mes "[Event Management]";
      mes "Which Event Would you like to run?";
         switch(select("Nothing nevermind.:Run the Pvp Event.:Run the Zombie Survival Event.: Run the 1234 Event")){
         case 1:
         next;
         mes "[Event Management]";
         mes "Call on me anytime.";
         close;
         case 2: 
         next;
         mes "[Event Management]";
         mes "Alright Im now running the Pvp Event";
         close2;
         callfunc("PvpEventRUN");
         end;
         close;
         break;
         case 3: 
         next;
         mes "[Event Management]";
         mes "Alright Im now running the Zombie Survival Event";
         close2;
         callfunc("ZombieRUN");
         end;
         close;
         break;
         case 4: 
         next;
         mes "[Event Management]";
         mes "Alright Im now running the 1234 Event";
         close2;
         callfunc("1234RUN");
         end;
         break;
         end;
         }
   }
   end;
M_SETUP:
      mes "[Event Management]";
      mes "Currently Disabled";
      close;

OnMinute55:
   switch(rand(3)){
   case 0:   callfunc("1234RUN");   break;
   case 1:   callfunc("ZombieRUN");   break;
   case 2:   callfunc("PvpRUN");   break;
   }
   end;
M_DEFAULT:
OnInit:
   hideonnpc "PvpEventPrize";
   hideonnpc "PvpEvent";
   hideonnpc "ZombiePrize";
   hideonnpc "ZombieSurvival";
   hideonnpc "1234-Event";
   hideonnpc "1234-Prize";


   // Config
   set $EventData[0],0;               // DONT TOUCH
   set $EventData$[1],"prontera";            //Map Warped to after Events
   setarray $EventData[2],155,181;            //X, Y Warped to after Events

   // 1234
   setarray $EventData$[4],"1@2@3@4";         //1234 Event Map
   setarray $EventData[5],205,92;            //1234 X, Y
   set $EventData[7],1;               //Min Players For 1234
   setarray $EventData$[8],"Payon";         //1234 Start Map
   setarray $EventData[9],156,233;            //1234 Start X, Y
   set $EventData[11],90;               //Max rolls before tie (suggest 90 or less)
   setarray $EventData[12],182,94,228,88;         //Out of bounds upper area x1, y1, x2, y2
   setarray $EventData[16],185,188,197,200,209,212,221,224;//Area stairs x1, x2, x3, x4, x5, x6, x7, x8
   setarray $EventData[24],87,82;            //Out of bounds area stairs y1, y2
   setarray $EventData[26],183,191;         //Box 1 x1, x2
   setarray $EventData[28],195,203;         //Box 2 x1, x2
   setarray $EventData[30],207,215;         //Box 3 x1, x2
   setarray $EventData[32],219,227;         //Box 4 x1, x2
   setarray $EventData[34],81,59;            //Boxs y1, y2
   setarray $EventData[36],501,5,0;         //Prize - Item, Amount, Zeny
   setarray $EventData[39],0,0,0;            //Join Cost - Item, Amount, Zeny
   setarray $EventData[42],0,0;            //100 = 1% Prizes pooled from players - Items,Zeny
   setarray $EventData[44],0,0;            // DONT TOUCH

   //Pvp
   setarray $EventData$[46],"99_pvp";         //PVP Event Map
   setarray $EventData[47],0,0;            //PVP Event X, Y
   setarray $EventData$[49],"Morroc";         //PVP Start Map
   setarray $EventData[50],156,85;            //PVP Start X, Y
   set $EventData[54],1;               //Min Players For PVP
   setarray $EventData[55],11,11,99,99;         //Min Base, Job, Max Base, Job Levels for PVP
   set $EventData[59],20;               //PVP Times in Mins (Suggest Less then 50)
   setarray $EventData[60],0,0,50000;         //Prize - Item, Amount, Zeny
   setarray $EventData[63],0,0,2500;         //Join Cost - Item, Amount, Zeny
   setarray $EventData[66],0,10000;         //100 = 1% Prizes pooled from players - Items, Zeny
   setarray $EventData[68],0,0;            // DONT TOUCH

   //Zombie
   setarray $EventData$[70],"1@Zombie";         //Zombie Event Map
   setarray $EventData[71],0,0;            //Zombie Event X, Y
   setarray $EventData$[73],"Prontera";         //Zombie Start Map
   setarray $EventData[74],156,164;         //Zombie Start X, Y
   setarray $EventData[76],1,1;            //Max Base,Job Levels for Zombies
   setarray $EventData$[78],"1@Zombie";         //Zombie Prize Map
   setarray $EventData[79],175,120;         //Zombie Prize X, Y
   setarray $EventData[81],0,0,20000;         //Prize - Item, Amount, Zeny
   setarray $EventData[84],909,10,0;         //Join Cost - Item, Amount, Zeny
   setarray $EventData[87],10000,0;         //100 = 1% Prizes pooled from players - Items, Zeny
   setarray $EventData[89],0,0;            // DONT TOUCH
}


//========================= Enter Event =================================


prontera,156,164,4   script   ZombieSurvival   424,{
   mes "[Munak]";
   mes "This is an Event for "+$EventData[75]+"/"+$EventData[76]+" Novice only";
   if($EventData[84] > 0 && $EventData[85] > 0) mes "You will also need "+$EventData[85]+" "+getitemname($EventData[84])+" to join.";
   if($EventData[86] > 0) mes "You will also need "+$EventData[86]+"z to join.";
   mes "Would you like to Join";
   next;
   menu "No",-,"Yes",M_CHECKS;
   mes "[Munak]";
   mes "Ok come back later";
   close;
M_CHECKS:
   if(BaseLevel > $EventData[75]) goto L_Error;
   if(JobLevel > $EventData[76]) goto L_Error;
   if(BaseClass > 0) goto L_Error;
   if(countitem($EventData[84]) < $EventData[85]) goto L_Item;
   if(Zeny < $EventData[86]) Goto L_Zeny;
   if($EventData[84] > 0 && $EventData[85] > 0){ delitem $EventData[84],$EventData[85]; set $EventData[89],$EventData[89]+$EventData[85]; }
   if($EventData[86] > 0){ set Zeny,zeny-$EventData[86]; set $EventData[90],$EventData[90]+$EventData[86]; }
   warp $EventData$[70],$EventData[71],$EventData[72];
   next;
L_Error:
   mes "[Munak]";
   mes "Sorry you Must be a "+$EventData[76]+"/"+$EventData[77]+" Novice";
   close;   
L_Item:
   mes "[Munak]";
   mes "Sorry but, You will need "+$EventData[85]+" "+getitemname($EventData[84])+" to join.";
   close;
L_Zeny:
   mes "[Munak]";
   mes "Sorry but, You will need "+$EventData[86]+"z to join.";
   close;
OnPCDieEvent:
   getmapxy(.@map$,.@x,.@y,0);
   if(.@map$==$EventData[69] && $EventData[0]==1){
      mapannounce EventData$[67],""+strcharinfo(0)+" died, and is out of the game!.",8;
      warp "SavePoint",0,0;
      end;
   }
}

morocc,156,85,4   script   PvpEvent   405,{
   mes "[Pvp Junkie]";
   mes "This is an Event for Players between Levels "+$EventData[55]+"/"+$EventData[56]+" and "+$EventData[57]+"/"+$EventData[58]+"";
   mes "Must be at least "+$EventData[54]+" players for event to take place";
   if($EventData[63] > 0 && $EventData[64] > 0) mes "You will also need "+$EventData[64]+" "+getitemname($EventData[63])+" to join.";
   if($EventData[65] > 0) mes "You will also need "+$EventData[65]+"z to join.";
   mes "Would you like to Join?";
   next;
   menu "No",-,"Yes",M_CHECK;
   mes "[Pvp Junkie]";
   mes "Ok come back later";
   close;
M_CHECK:
   if(BaseLevel < $EventData[55] || JobLevel < $EventData[56] || BaseLevel > $EventData[57] || JobLevel > $EventData[58]) goto L_Error;
   if(countitem($EventData[63])<EventData$[62]) goto L_Item;
   if($EventData[65] > Zeny) Goto L_Zeny;
   if($EventData[63] && $EventData[64]){ delitem $EventData[63],$EventData[64]; set $EventData[68],$EventData[68]+$EventData[64]; }
   if($EventData[65] > 0){ set Zeny,zeny-$EventData[65]; set $EventData[69],$EventData[69]+$EventData[65]; }
   warp $EventData$[46],$EventData[47],$EventData[48];
   close;
L_Error:
   mes "[Pvp Junkie]";
   mes "Sorry you Must be between Levels "+$EventData[55]+"/"+$EventData[42]+" and "+$EventData[43]+"/"+$EventData$[46]+"";
   close;   
L_Item:
   mes "[Pvp Junkie]";
   mes "Sorry but, You will need "+$EventData[64]+" "+getitemname($EventData[63])+" to join.";
   close;
L_Zeny:
   mes "[Pvp Junkie]";
   mes "Sorry but, You will need "+$EventData[65]+"z to join.";
   close;
OnPCDieEvent:
   getmapxy(.@map$,.@x,.@y,0);
   if(.@map$==$EventData$[46] && $EventData[0]==3){
      mapannounce $EventData$[46],""+strcharinfo(0)+" died, and is out of the game!.",8;
      warp "SavePoint",0,0;
      end;
   }
}

payon,156,233,4   script   1234-Event   456,{
   mes "[Gambler]";
   mes "This is an event of chance";
   mes "Must be at least "+$EventData[7]+" players for event to take place";
   if($EventData[39] > 0 && $EventData[40] > 0) mes "You will also need "+$EventData[40]+" "+getitemname($EventData[39])+"";
   if($EventData[41] > 0) mes "You will also need "+$EventData[41]+"z.";
   mes "Would you like to Join";
   next;
   menu "Yes",-,"No",M_NOPE;
   if(countitem($EventData[39])<EventData$[40]) goto L_Item;
   if($EventData[41] > Zeny) Goto L_Zeny;
   if($EventData[39] > 0 && $EventData[40] > 0 ){ delitem $EventData[39],$EventData[40]; set $EventData[44],$EventData[44]+$EventData[40]; }
   if($EventData[41] > 0){ set Zeny,zeny-$EventData[41]; set $EventData[45],$EventData[45]+$EventData[41]; }
   warp $EventData$[4],$EventData[5],$EventData[6];
   next;
M_NOPE:
   mes "[Gambler]";
   mes "Ok come back later";
   close;
L_Item:
   mes "[Gambler]";
   mes "Sorry but, You will need "+$EventData[40]+" "+getitemname($EventData[39])+" to join.";
   close;
L_Zeny:
   mes "[Gambler]";
   mes "Sorry but, You will need "+$EventData[41]+"z to join.";
   close;
}


//========================= Running Event ===============================


function   script   ZombieRUN   {
   if($EventData[0]){ end; }
   set $EventData[0],1;
   hideoffnpc "ZombieSurvival";
   hideonnpc "ZombiePrize";
   Announce "Zombie Survival Will begin in 5 Mins!",8;
   Announce "Please report to "+$EventData$[73]+" "+$EventData[74]+" "+$EventData[75]+" to join",8;
   sleep 60000;
   Announce "Zombie Survival Will begin in 4 Mins!",8;
   Announce "Please report to "+$EventData$[73]+" "+$EventData[74]+" "+$EventData[75]+" to join",8;
   sleep 60000;
   Announce "Zombie Survival Will begin in 3 Mins!",8;
   Announce "Please report to "+$EventData$[73]+" "+$EventData[74]+" "+$EventData[75]+" to join",8;
   sleep 60000;
   Announce "Zombie Survival Will begin in 2 Mins!",8;
   Announce "Please report to "+$EventData$[73]+" "+$EventData[74]+" "+$EventData[75]+" to join",8;
   sleep 60000;
   Announce "Zombie Survival Will begin in 1 Min!",8;
   Announce "Please report to "+$EventData$[73]+" "+$EventData[74]+" "+$EventData[75]+" to join",8;
   sleep 60000;
   Announce "Zombie Survival Has Begun!",8;
   hideonnpc "ZombieSurvival";
   sleep 26000;
   mapannounce $EventData$[70],"Wave 1!",8;
   sleep 1000;
   mapannounce $EventData$[70],"3...",8;
   sleep 1000;
   mapannounce $EventData$[70],"2...",8;
   sleep 1000;
   mapannounce $EventData$[70],"1...",8;
   sleep 1000;
   mapannounce $EventData$[70],"Begin!",8;
   monster $EventData$[70],0,0,"Zombie",1394,10,"ZombieRUN::OnKillZombie";
   monster $EventData$[70],177,120,"Zombie",1394,10,"ZombieRUN::OnKillZombie";
   mapannounce $EventData$[70],"There are "+getmapusers($EventData$[70])+" Players",8;
   sleep 66000;
   mapannounce $EventData$[70],"Wave 2!",8;
   sleep 1000;
   mapannounce $EventData$[70],"3...",8;
   sleep 1000;
   mapannounce $EventData$[70],"2...",8;
   sleep 1000;
   mapannounce $EventData$[70],"1...",8;
   sleep 1000;
   mapannounce $EventData$[70],"Begin",8;
   monster $EventData$[70],0,0,"Zombie",1394,14,"ZombieRUN::OnKillZombie";
   monster $EventData$[70],0,0,"Ghoul",1423,2,"ZombieRUN::OnKillZombie";
   mapannounce $EventData$[70],"There are "+getmapusers($EventData$[70])+" Players Remaining",8;
   sleep 66000;
   mapannounce $EventData$[70],"Wave 3!",8;
   sleep 1000;
   mapannounce $EventData$[70],"3...",8;
   sleep 1000;
   mapannounce $EventData$[70],"2...",8;
   sleep 1000;
   mapannounce $EventData$[70],"1...",8;
   sleep 1000;
   mapannounce $EventData$[70],"Begin!",8;
   monster $EventData$[70],0,0,"Zombie",1394,12,"ZombieRUN::OnKillZombie";
   monster $EventData$[70],0,0,"Ghoul",1423,1,"ZombieRUN::OnKillZombie";
   mapannounce $EventData$[70],"There are "+getmapusers($EventData$[70])+" Players Remaining",8;
   sleep 66000;
   mapannounce $EventData$[70],"Wave 4!",8;
   sleep 1000;
   mapannounce $EventData$[70],"3...",8;
   sleep 1000;
   mapannounce $EventData$[70],"2...",8;
   sleep 1000;
   mapannounce $EventData$[70],"1...",8;
   sleep 1000;
   mapannounce $EventData$[70],"Begin",8;
   monster $EventData$[70],0,0,"Zombie",1394,16,"ZombieRUN::OnKillZombie";
   monster $EventData$[70],0,0,"Ghoul",1423,3,"ZombieRUN::OnKillZombie";
   mapannounce $EventData$[70],"There are "+getmapusers($EventData$[70])+" Players Remaining",8;
   sleep 66000;
   mapannounce $EventData$[70],"Wave 5!",8;
   sleep 1000;
   mapannounce $EventData$[70],"3...",8;
   sleep 1000;
   mapannounce $EventData$[70],"2...",8;
   sleep 1000;
   mapannounce $EventData$[70],"1...",8;
   sleep 1000;
   mapannounce $EventData$[70],"Begin",8;
   monster $EventData$[70],0,0,"Zombie",1394,18,"ZombieRUN::OnKillZombie";
   monster $EventData$[70],0,0,"Ghoul",1423,4,"ZombieRUN::OnKillZombie";
   mapannounce $EventData$[70],"There are "+getmapusers($EventData$[70])+" Players Remaining",8;
   sleep 66000;
   mapannounce $EventData$[70],"Wave 6!",8;
   sleep 1000;
   mapannounce $EventData$[70],"3...",8;
   sleep 1000;
   mapannounce $EventData$[70],"2...",8;
   sleep 1000;
   mapannounce $EventData$[70],"1...",8;
   sleep 1000;
   mapannounce $EventData$[70],"Begin!",8;
   monster $EventData$[70],0,0,"Zombie",1394,20,"ZombieRUN::OnKillZombie";
   monster $EventData$[70],0,0,"Ghoul",1423,5,"ZombieRUN::OnKillZombie";
   mapannounce $EventData$[70],"There are "+getmapusers($EventData$[70])+" Players Remaining",8;
   sleep 66000;
   mapannounce $EventData$[70],"Wave 7!",8;
   sleep 1000;
   mapannounce $EventData$[70],"3...",8;
   sleep 1000;
   mapannounce $EventData$[70],"2...",8;
   sleep 1000;
   mapannounce $EventData$[70],"1...",8;
   sleep 1000;
   mapannounce $EventData$[70],"Begin!",8;
   monster $EventData$[70],0,0,"Zombie Master",1298,1,"ZombieRUN::OnKillZombie";
   monster $EventData$[70],0,0,"Ghoul",1423,10,"ZombieRUN::OnKillZombie";
   monster $EventData$[70],0,0,"Zombie",1394,25,"ZombieRUN::OnKillZombie";
   mapannounce $EventData$[70],"There are "+getmapusers($EventData$[70])+" Players Remaining",8;
   sleep 66000;
   mapannounce $EventData$[70],"Wave 8!",8;
   sleep 1000;
   mapannounce $EventData$[70],"3...",8;
   sleep 1000;
   mapannounce $EventData$[70],"2...",8;
   sleep 1000;
   mapannounce $EventData$[70],"1...",8;
   sleep 1000;
   mapannounce $EventData$[70],"Begin!",8;
   monster $EventData$[70],0,0,"Zombie Master",1298,3,"ZombieRUN::OnKillZombie";
   monster $EventData$[70],0,0,"Ghoul",1423,15,"ZombieRUN::OnKillZombie";
   monster $EventData$[70],0,0,"Zombie",1394,30,"ZombieRUN::OnKillZombie";
   mapannounce $EventData$[70],"There are "+getmapusers($EventData$[70])+" Players Remaining",8;
   sleep 66000;
   mapannounce $EventData$[70],"Wave 9!",8;
   sleep 1000;
   mapannounce $EventData$[70],"3...",8;
   sleep 1000;
   mapannounce $EventData$[70],"2...",8;
   sleep 1000;
   mapannounce $EventData$[70],"1...",8;
   sleep 1000;
   mapannounce $EventData$[70],"Begin!",8;
   monster $EventData$[70],0,0,"Zombie Master",1298,5,"ZombieRUN::OnKillZombie";
   monster $EventData$[70],0,0,"Ghoul",1423,20,"ZombieRUN::OnKillZombie";
   monster $EventData$[70],0,0,"Zombie",1394,35,"ZombieRUN::OnKillZombie";
   mapannounce $EventData$[70],"There are "+getmapusers($EventData$[70])+" Players Remaining",8;
   sleep 66000;
   mapannounce $EventData$[70],"FIANL WAVE!",8;
   sleep 1000;
   mapannounce $EventData$[70],"3...",8;
   sleep 1000;
   mapannounce $EventData$[70],"2...",8;
   sleep 1000;
   mapannounce $EventData$[70],"1...",8;
   sleep 1000;
   mapannounce $EventData$[70],"Begin!",8;
   monster $EventData$[70],0,0,"Zombie Master",1298,7,"ZombieRUN::OnKillZombie";
   monster $EventData$[70],0,0,"Ghoul",1423,25,"ZombieRUN::OnKillZombie";
   monster $EventData$[70],0,0,"Zombie",1394,40,"ZombieRUN::OnKillZombie";
   mapannounce $EventData$[70],"There are "+getmapusers($EventData$[70])+" Players Remaining",8;
   sleep 90000;
   Announce "Zombie Survival is now over!",8;
   stopnpctimer;
   areawarp $EventData$[70],0,0,400,400,$EventData$[78],$EventData[79],$EventData[80];
   hideoffnpc "ZombiePrize";
   killmonster $EventData$[70],"ZombieRUN::OnKillZombie";
   set $EventData[0],0;
   end;
ZombieRUN:
OnKillZombie:
   set .@rand,rand(100);
   if(.@rand > 99) monster $EventData$[70],0,0,"Zombie Master",1298,1,"ZombieRUN::OnKillZombie";
   if(.@rand > 80) monster $EventData$[70],0,0,"Ghoul",1423,2,"ZombieRUN::OnKillZombie";
   if(.@rand > 75) monster $EventData$[70],0,0,"Zombie",1394,4,"ZombieRUN::OnKillZombie";
   if(.@rand > 50) monster $EventData$[70],0,0,"Ghoul",1423,1,"ZombieRUN::OnKillZombie";
   if(.@rand > 25) monster $EventData$[70],0,0,"Zombie",1394,3,"ZombieRUN::OnKillZombie";
   if(.@rand > 10) monster $EventData$[70],0,0,"Zombie",1394,2,"ZombieRUN::OnKillZombie";
   if(.@rand > 5) monster $EventData$[70],0,0,"Zombie",1394,1,"ZombieRUN::OnKillZombie";
   dispbottom "Dont do that";
end;
}


function   script   PvpEventRUN   {
   if($EventData[0]){ end; }
   set $EventData[0],3;
   hideoffnpc "PvpEvent";
   hideonnpc "PvpEventPrize";
   Announce "Pvp Event Will begin in 5 Mins!",8;
   Announce "Please report to "+$EventData$[49]+" "+$EventData[50]+" "+$EventData[51]+" to join",8;
   sleep 60000;
   Announce "Pvp Event Will begin in 4 Mins!",8;
   Announce "Please report to "+$EventData$[49]+" "+$EventData[50]+" "+$EventData[51]+" to join",8;
   sleep 60000;
   Announce "Pvp Event Will begin in 3 Mins!",8;
   Announce "Please report to "+$EventData$[49]+" "+$EventData[50]+" "+$EventData[51]+" to join",8;
   sleep 60000;
   Announce "Pvp Event Will begin in 2 Mins!",8;
   Announce "Please report to "+$EventData$[49]+" "+$EventData[50]+" "+$EventData[51]+" to join",8;
   sleep 60000;
   Announce "Pvp Event Will begin in 1 Mins!",8;
   Announce "Please report to "+$EventData$[49]+" "+$EventData[50]+" "+$EventData[51]+" to join",8;
   sleep 60000;
   hideonnpc "PvpEvent";
   Announce "Pvp Event has Begun!",8;
   sleep 9000;
   if(getmapusers($EventData$[46])<$EventData[54]) goto M_SORRY;
   sleep 1000;
   mapannounce $EventData$[46],"The Rules of this event are as follows",8;
   sleep 1000;
   mapannounce $EventData$[46],"This is a Free for all Last man Standing",8;
   sleep 1000;
   mapannounce $EventData$[46],"there is a "+$EventData[59]+" min time limit in place if there is no clear winner within 20 mins the Event ends",8;
   sleep 1000;
   mapannounce $EventData$[46],"Everyone has 1 Life so Res, Ygg Leafs and Kazail dont work",8;
   sleep 2000;
   mapannounce $EventData$[46],"Spread out PVP will begin in 10...",8;
   sleep 5000;
   mapannounce $EventData$[46],"5...",8;
   sleep 2000;
   mapannounce $EventData$[46],"3...",8;
   sleep 1000;
   mapannounce $EventData$[46],"2...",8;
   sleep 1000;
   mapannounce $EventData$[46],"1...",8;
   sleep 1000;
   pvpon $EventData$[46];
   mapannounce $EventData$[46],"Begin",8;
   sleep 5000;
   while(.@PVP < $EventData[59]){
   sleep 60000;
   if(getmapusers($EventData$[46])<2) goto M_WINNER;
   mapannounce $EventData$[46],"There are "+getmapusers($EventData$[46])+" Players Remaining",8;
   set .@PVP,.@PVP+1;
   }
   sleep 1000;
   set .@PVP,0;
   pvpoff $EventData$[46];
   mapannounce $EventData$[46],"Time Is up",8;
   sleep 5000;
   areawarp $EventData$[46],0,0,400,400,$EventData$[1],$EventData[2],$EventData[3];
   end;
M_SORRY:
   mapannounce $EventData$[46],"Sorry there are not enough players for this event to take place",8;
   areawarp $EventData$[46],0,0,400,400,$EventData$[1],$EventData[2],$EventData[3];
   pvpoff $EventData$[46];
   set $EventData[0],"0";
   end;
M_WINNER:
   mapannounce $EventData$[46],"We have a winner",8;
   pvpoff $EventData$[46];
   hideoffnpc "PvpEventPrize";
   mapannounce $EventData$[46],"Talk to the Npc in the center of the map for a prize",8;
   set $EventData[0],0;
   end;
}


function   script   1234RUN   {
   if($EventData[0]){ end; }
   set $EventData[0],2;
   hideoffnpc "1234-Event";
   hideonnpc "1234-Prize";
   Announce "1234 Event Will begin in 5 Mins!",8;
   Announce "Please report to "+$EventData$[8]+" "+$EventData[9]+""+$EventData[10]+" to join",8;
   sleep 60000;
   Announce "1234 Event Will begin in 4 Mins!",8;
   Announce "Please report to "+$EventData$[8]+" "+$EventData[9]+""+$EventData[10]+" to join",8;
   sleep 60000;
   Announce "1234 Event Will begin in 3 Mins!",8;
   Announce "Please report to "+$EventData$[8]+" "+$EventData[9]+""+$EventData[10]+" to join",8;
   sleep 60000;
   Announce "1234 Event Will begin in 2 Mins!",8;
   Announce "Please report to "+$EventData$[8]+" "+$EventData[9]+""+$EventData[10]+" to join",8;
   sleep 60000;
   Announce "1234 Event Will begin in 1 Min!",8;
   Announce "Please report to "+$EventData$[8]+" "+$EventData[9]+""+$EventData[10]+" to join",8;
   sleep 60000;
   Announce "1234 Event Has Begun!",8;
   hideonnpc "1234-Event";
   sleep 9000;
   if(getmapusers($EventData$[4])<$EventData[7]) goto M_SORRY;
   sleep 1000;
   mapannounce $EventData$[4],"Ok the rules of this 1234 Event are as follows",8;
   sleep 4000;
   mapannounce $EventData$[4],"Each player picks a box 1, 2, 3 or 4",8;
   sleep 4000;
   mapannounce $EventData$[4],"There will be a count down from 10 to 0",8;
   sleep 4000;
   mapannounce $EventData$[4],"at 0 a four sided die will be rolled",8;
   sleep 4000;
   mapannounce $EventData$[4],"Anyone in the box of the number rolled will be warped to town",8;
   sleep 4000;
   mapannounce $EventData$[4],"as well as anyone on the stairs or outside the box",8;
   sleep 4000;
   mapannounce $EventData$[4],"the number of players remaining will be announced",8;
   sleep 4000;
   mapannounce $EventData$[4],"this prosses will repeat till only one player remains",8;
   sleep 4000;
   mapannounce $EventData$[4],"take a few moments to fnd a box",8;
   sleep 4000;
   mapannounce $EventData$[4],"we will now begin, please find a box",8;
   sleep 3000;
   while(.@1234 < $EventData[11]){
      mapannounce $EventData$[4],"10...",8;
      sleep 1000;
      mapannounce $EventData$[4],"9...",8;
      sleep 1000;
      mapannounce $EventData$[4],"8...",8;
      sleep 1000;
      mapannounce $EventData$[4],"7...",8;
      sleep 1000;
      mapannounce $EventData$[4],"6...",8;
      sleep 1000;
      mapannounce $EventData$[4],"5...",8;
      sleep 1000;
      mapannounce $EventData$[4],"4...",8;
      sleep 1000;
      mapannounce $EventData$[4],"3...",8;
      sleep 1000;
      mapannounce $EventData$[4],"2...",8;
      sleep 1000;
      mapannounce $EventData$[4],"1...",8;
      sleep 1000;
      mapannounce $EventData$[4],"0... Good Bye",8;
      switch(rand(3))
      {
      areawarp $EventData$[4],$EventData[26],$EventData[34],$EventData[27],$EventData[35],$EventData$[1],$EventData[2],$EventData[3];   //Area 1
      mapannounce $EventData$[4],"Box 1",8;
      areawarp $EventData$[4],$EventData[12],$EventData[13],$EventData[14],$EventData[15],$EventData$[1],$EventData[2],$EventData[3];   //Upper Area
      areawarp $EventData$[4],$EventData[16],$EventData[24],$EventData[17],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 1
      areawarp $EventData$[4],$EventData[18],$EventData[24],$EventData[19],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 2
      areawarp $EventData$[4],$EventData[20],$EventData[24],$EventData[21],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 3
      areawarp $EventData$[4],$EventData[22],$EventData[24],$EventData[23],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 4
      break;
      case 1:
      areawarp $EventData$[4],$EventData[28],$EventData[34],$EventData[29],$EventData[35],$EventData$[1],$EventData[2],$EventData[3];   //Area 2
      mapannounce $EventData$[4],"Box 2",8;
      areawarp $EventData$[4],$EventData[12],$EventData[13],$EventData[14],$EventData[15],$EventData$[1],$EventData[2],$EventData[3];   //Upper Area
      areawarp $EventData$[4],$EventData[16],$EventData[24],$EventData[17],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 1
      areawarp $EventData$[4],$EventData[18],$EventData[24],$EventData[19],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 2
      areawarp $EventData$[4],$EventData[20],$EventData[24],$EventData[21],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 3
      areawarp $EventData$[4],$EventData[22],$EventData[24],$EventData[23],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 4
      break;
      case 2:
      areawarp $EventData$[4],$EventData[30],$EventData[34],$EventData[31],$EventData[35],$EventData$[1],$EventData[2],$EventData[3];   //Area 3
      mapannounce $EventData$[4],"Box 3",8;
      areawarp $EventData$[4],$EventData[12],$EventData[13],$EventData[14],$EventData[15],$EventData$[1],$EventData[2],$EventData[3];   //Upper Area
      areawarp $EventData$[4],$EventData[16],$EventData[24],$EventData[17],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 1
      areawarp $EventData$[4],$EventData[18],$EventData[24],$EventData[19],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 2
      areawarp $EventData$[4],$EventData[20],$EventData[24],$EventData[21],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 3
      areawarp $EventData$[4],$EventData[22],$EventData[24],$EventData[23],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 4
      break;
      case 3:
      areawarp $EventData$[4],$EventData[32],$EventData[34],$EventData[33],$EventData[35],$EventData$[1],$EventData[2],$EventData[3];   //Area 4
      mapannounce $EventData$[4],"Box 4",8;
      areawarp $EventData$[4],$EventData[12],$EventData[13],$EventData[14],$EventData[15],$EventData$[1],$EventData[2],$EventData[3];   //Upper Area
      areawarp $EventData$[4],$EventData[16],$EventData[24],$EventData[17],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 1
      areawarp $EventData$[4],$EventData[18],$EventData[24],$EventData[19],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 2
      areawarp $EventData$[4],$EventData[20],$EventData[24],$EventData[21],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 3
      areawarp $EventData$[4],$EventData[22],$EventData[24],$EventData[23],$EventData[25],$EventData$[1],$EventData[2],$EventData[3];   //Stairs 4
      break;
      }
      sleep 11000;
      mapannounce $EventData$[4],"There are "+getmapusers($EventData$[4])+" Players Remaining",8;
      if(getmapusers($EventData$[4])<$EventData[7]) set .@1234,$EventData[11]+1;
      sleep 9000;
   set .@1234,.@1234+1;
   }
   set .@1234,0;
M_WINNER:
   mapannounce $EventData$[4],"Event is over",8;
   mapannounce $EventData$[4],"Walk up the stairs and speak with the Npc in the center to collect your prize",8;
   hideoffnpc "1234-Prize";
   set $EventData[0],0;
   end;
M_SORRY:
   mapannounce $EventData$[4],"Sorry there are not enough players for this event to take place",8;
   areawarp $EventData$[4],0,0,400,400,$EventData$[1],$EventData[2],$EventData[3];
   set $EventData[0],0;
   end;
}


//========================= Prizes ======================================


99_pvp,97,100,4   script   PvpEventPrize   405,{
   mes "[Pvp Junkie]";
   mes "So your the last one standing";
   next;
   mes "[Pvp Junkie]";
   mes "Your reward";
   close2;
   announce "Congrats to, "+strcharinfo(0)+" the winner in the Pvp event!",bc_blue|bc_all;
   getitem $EventData[60],$EventData[61];
   getitem $EventData[63],($EventData[68]*$EventData[66]/10000);
   set $EventData[68],0;
   set Zeny,zeny+$EventData[62]+($EventData[69]*$EventData[67]/10000);
   set $EventData[69],0;
   warp $EventData$[1],$EventData[2],$EventData[3];
   hideonnpc "PvpEventPrize";
   end;
}


1@2@3@4,205,92,4   script   1234-Prize   456,{
   mes "[Gambler]";
   mes "Your a lucky one";
   next;
   mes "[Gambler]";
   mes "I guess you get a prize";
   close2;
   announce "Congrats to, "+strcharinfo(0)+" a winner of the 1234 Event!",bc_blue|bc_all;
   getitem $EventData[36],$EventData[37];
   getitem $EventData[39],($EventData[44]*$EventData[42]/10000);
    set $EventData[44],0;
   set Zeny,zeny+$EventData[38]+($EventData[45]*$EventData[43]/10000);
   set $EventData[45],0;
   warp $EventData$[1],$EventData[2],$EventData[3];
   end;
}


1@zombie,175,120,4   script   ZombiePrize   425,{
   mes "[Bongun]";
   mes "So you mangaed to live";
   next;
   mes "[Bongun]";
   mes "Here is your prize and goodbye";
   close2;
   announce "Congrats to, "+strcharinfo(0)+" a winner in the Zombie Survival event!",bc_blue|bc_all;
   getitem $EventData[81],$EventData[82];
   getitem $EventData[84],($EventData[89]*$EventData[87]/10000);
   set $EventData[89],0;
   set Zeny,zeny+$EventData[83]+($EventData[90]*$EventData[88]/10000);
   set $EventData[90],0;
   warp $EventData$[1],$EventData[2],$EventData[3];
   end;
}