//===== 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, 06guild_01 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: [email protected]//============================================================- 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")){case1:next;mes"[Event Management]";mes"Call on me anytime.";close;case2:next;mes"[Event Management]";mes"Alright Im now running the Pvp Event";close2;callfunc("PvpEventRUN");end;close;break;case3:next;mes"[Event Management]";mes"Alright Im now running the Zombie Survival Event";close2;callfunc("ZombieRUN");end;close;break;case4: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)){case0:callfunc("1234RUN"); break;case1:callfunc("ZombieRUN"); break;case2:callfunc("PvpRUN"); break;}end;M_DEFAULT:OnInit:hideonnpc"PvpEventPrize";hideonnpc"PvpEvent";hideonnpc"ZombiePrize";hideonnpc"ZombieSurvival";hideonnpc"1234-Event";hideonnpc"1234-Prize";// Configset $EventData[0],0; // DONT TOUCHset $EventData$[1],"prontera"; //Map Warped to after Eventssetarray $EventData[2],155,181; //X, Y Warped to after Events// 1234setarray $EventData$[4],"quiz_01"; //1234 Event Mapsetarray $EventData[5],205,92; //1234 X, Yset $EventData[7],4; //Min Players For 1234setarray $EventData$[8],"Payon"; //1234 Start Mapsetarray $EventData[9],156,233; //1234 Start X, Yset $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, y2setarray $EventData[16],185,188,197,200,209,212,221,224;//Area stairs x1, x2, x3, x4, x5, x6, x7, x8setarray $EventData[24],87,82; //Out of bounds area stairs y1, y2setarray $EventData[26],183,191; //Box 1 x1, x2setarray $EventData[28],195,203; //Box 2 x1, x2setarray $EventData[30],207,215; //Box 3 x1, x2setarray $EventData[32],219,227; //Box 4 x1, x2setarray $EventData[34],81,59; //Boxs y1, y2setarray $EventData[36],501,5,0; //Prize - Item, Amount, Zenysetarray $EventData[39],0,0,0; //Join Cost - Item, Amount, Zenysetarray $EventData[42],0,0; //100 = 1% Prizes pooled from players - Items,Zenysetarray $EventData[44],0,0; // DONT TOUCH//Pvpsetarray $EventData$[46],"06guild_01"; //PVP Event Mapsetarray $EventData[47],0,0; //PVP Event X, Ysetarray $EventData$[49],"Morroc"; //PVP Start Mapsetarray $EventData[50],156,85; //PVP Start X, Yset $EventData[54],2; //Min Players For PVPsetarray $EventData[55],99,40; //Min Base, Job, Max Base, Job Levels for PVPset $EventData[59],20; //PVP Times in Mins (Suggest Less then 50)setarray $EventData[60],0,0,50000; //Prize - Item, Amount, Zenysetarray $EventData[63],0,0,2500; //Join Cost - Item, Amount, Zenysetarray $EventData[66],0,10000; //100 = 1% Prizes pooled from players - Items, Zenysetarray $EventData[68],0,0; // DONT TOUCH//Zombiesetarray $EventData$[70],"1@cata"; //Zombie Event Mapsetarray $EventData[71],0,0; //Zombie Event X, Ysetarray $EventData$[73],"Prontera"; //Zombie Start Mapsetarray $EventData[74],156,164; //Zombie Start X, Ysetarray $EventData[76],1,1; //Max Base,Job Levels for Zombiessetarray $EventData$[78],"1@cata"; //Zombie Prize Mapsetarray $EventData[79],175,120; //Zombie Prize X, Ysetarray $EventData[81],0,0,20000; //Prize - Item, Amount, Zenysetarray $EventData[84],909,10,0; //Join Cost - Item, Amount, Zenysetarray $EventData[87],10000,0; //100 = 1% Prizes pooled from players - Items, Zenysetarray $EventData[89],0,0; // DONT TOUCH}//========================= Enter Event =================================prontera,156,164,4 script ZombieSurvival 730,{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){setZeny,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 730,{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){setZeny,zeny-$EventData[65]; set $EventData[69],$EventData[69]+$EventData[65]; }warp $EventData$[46],$EventData[47],$EventData[48];next;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 811,{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",M_Yes,"No",M_NOPE;M_Yes: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){setZeny,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;sleep60000; Announce "Zombie Survival Will begin in 4 Mins!",8; Announce "Please report to "+$EventData$[73]+" "+$EventData[74]+" "+$EventData[75]+" to join",8;sleep60000; Announce "Zombie Survival Will begin in 3 Mins!",8; Announce "Please report to "+$EventData$[73]+" "+$EventData[74]+" "+$EventData[75]+" to join",8;sleep60000; Announce "Zombie Survival Will begin in 2 Mins!",8; Announce "Please report to "+$EventData$[73]+" "+$EventData[74]+" "+$EventData[75]+" to join",8;sleep60000; Announce "Zombie Survival Will begin in 1 Min!",8; Announce "Please report to "+$EventData$[73]+" "+$EventData[74]+" "+$EventData[75]+" to join",8;sleep60000; Announce "Zombie Survival Has Begun!",8;hideonnpc"ZombieSurvival";sleep26000;mapannounce $EventData$[70],"Wave 1!",8;sleep1000;mapannounce $EventData$[70],"3...",8;sleep1000;mapannounce $EventData$[70],"2...",8;sleep1000;mapannounce $EventData$[70],"1...",8;sleep1000;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;sleep66000;mapannounce $EventData$[70],"Wave 2!",8;sleep1000;mapannounce $EventData$[70],"3...",8;sleep1000;mapannounce $EventData$[70],"2...",8;sleep1000;mapannounce $EventData$[70],"1...",8;sleep1000;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;sleep66000;mapannounce $EventData$[70],"Wave 3!",8;sleep1000;mapannounce $EventData$[70],"3...",8;sleep1000;mapannounce $EventData$[70],"2...",8;sleep1000;mapannounce $EventData$[70],"1...",8;sleep1000;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;sleep66000;mapannounce $EventData$[70],"Wave 4!",8;sleep1000;mapannounce $EventData$[70],"3...",8;sleep1000;mapannounce $EventData$[70],"2...",8;sleep1000;mapannounce $EventData$[70],"1...",8;sleep1000;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;sleep66000;mapannounce $EventData$[70],"Wave 5!",8;sleep1000;mapannounce $EventData$[70],"3...",8;sleep1000;mapannounce $EventData$[70],"2...",8;sleep1000;mapannounce $EventData$[70],"1...",8;sleep1000;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;sleep66000;mapannounce $EventData$[70],"Wave 6!",8;sleep1000;mapannounce $EventData$[70],"3...",8;sleep1000;mapannounce $EventData$[70],"2...",8;sleep1000;mapannounce $EventData$[70],"1...",8;sleep1000;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;sleep66000;mapannounce $EventData$[70],"Wave 7!",8;sleep1000;mapannounce $EventData$[70],"3...",8;sleep1000;mapannounce $EventData$[70],"2...",8;sleep1000;mapannounce $EventData$[70],"1...",8;sleep1000;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;sleep66000;mapannounce $EventData$[70],"Wave 8!",8;sleep1000;mapannounce $EventData$[70],"3...",8;sleep1000;mapannounce $EventData$[70],"2...",8;sleep1000;mapannounce $EventData$[70],"1...",8;sleep1000;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;sleep66000;mapannounce $EventData$[70],"Wave 9!",8;sleep1000;mapannounce $EventData$[70],"3...",8;sleep1000;mapannounce $EventData$[70],"2...",8;sleep1000;mapannounce $EventData$[70],"1...",8;sleep1000;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;sleep66000;mapannounce $EventData$[70],"FIANL WAVE!",8;sleep1000;mapannounce $EventData$[70],"3...",8;sleep1000;mapannounce $EventData$[70],"2...",8;sleep1000;mapannounce $EventData$[70],"1...",8;sleep1000;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;sleep90000; 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,2,"ZombieRUN::OnKillZombie";if(.@rand > 80)monster $EventData$[70],0,0,"Ghoul",1423,3,"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,5,"ZombieRUN::OnKillZombie";if(.@rand > 25)monster $EventData$[70],0,0,"Zombie",1394,7,"ZombieRUN::OnKillZombie";if(.@rand > 10)monster $EventData$[70],0,0,"Zombie",1394,21,"ZombieRUN::OnKillZombie";if(.@rand > 5)monster $EventData$[70],0,0,"Zombie",1394,11,"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;sleep60000; Announce "Pvp Event Will begin in 4 Mins!",8; Announce "Please report to "+$EventData$[49]+" "+$EventData[50]+" "+$EventData[51]+" to join",8;sleep60000; Announce "Pvp Event Will begin in 3 Mins!",8; Announce "Please report to "+$EventData$[49]+" "+$EventData[50]+" "+$EventData[51]+" to join",8;sleep60000; Announce "Pvp Event Will begin in 2 Mins!",8; Announce "Please report to "+$EventData$[49]+" "+$EventData[50]+" "+$EventData[51]+" to join",8;sleep60000; Announce "Pvp Event Will begin in 1 Mins!",8; Announce "Please report to "+$EventData$[49]+" "+$EventData[50]+" "+$EventData[51]+" to join",8;sleep60000;hideonnpc"PvpEvent"; Announce "Pvp Event has Begun!",8;sleep9000;if(getmapusers($EventData$[46])<$EventData[54])goto M_SORRY;sleep1000;mapannounce $EventData$[46],"The Rules of this event are as follows",8;sleep1000;mapannounce $EventData$[46],"This is a Free for all Last man Standing",8;sleep1000;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;sleep1000;mapannounce $EventData$[46],"Everyone has 1 Life so Res, Ygg Leafs and Kazail dont work",8;sleep2000;mapannounce $EventData$[46],"Spread out PVP will begin in 10...",8;sleep5000;mapannounce $EventData$[46],"5...",8;sleep2000;mapannounce $EventData$[46],"3...",8;sleep1000;mapannounce $EventData$[46],"2...",8;sleep1000;mapannounce $EventData$[46],"1...",8;sleep1000;pvpon $EventData$[46];mapannounce $EventData$[46],"Begin",8;sleep5000;while(.@PVP < $EventData[59]){sleep60000;if(getmapusers($EventData$[46])<2)goto M_WINNER;mapannounce $EventData$[46],"There are "+getmapusers($EventData$[46])+" Players Remaining",8;set .@PVP,.@PVP+1;}sleep1000;set .@PVP,0;pvpoff $EventData$[46];mapannounce $EventData$[46],"Time Is up",8;sleep5000;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;sleep60000; Announce "1234 Event Will begin in 4 Mins!",8; Announce "Please report to "+$EventData$[8]+" "+$EventData[9]+""+$EventData[10]+" to join",8;sleep60000; Announce "1234 Event Will begin in 3 Mins!",8; Announce "Please report to "+$EventData$[8]+" "+$EventData[9]+""+$EventData[10]+" to join",8;sleep60000; Announce "1234 Event Will begin in 2 Mins!",8; Announce "Please report to "+$EventData$[8]+" "+$EventData[9]+""+$EventData[10]+" to join",8;sleep60000; Announce "1234 Event Will begin in 1 Min!",8; Announce "Please report to "+$EventData$[8]+" "+$EventData[9]+""+$EventData[10]+" to join",8;sleep60000; Announce "1234 Event Has Begun!",8;hideonnpc"1234-Event";sleep9000;if(getmapusers($EventData$[4])<$EventData[7])goto M_SORRY;sleep1000;mapannounce $EventData$[4],"Ok the rules of this 1234 Event are as follows",8;sleep4000;mapannounce $EventData$[4],"Each player picks a box 1, 2, 3 or 4",8;sleep4000;mapannounce $EventData$[4],"There will be a count down from 10 to 0",8;sleep4000;mapannounce $EventData$[4],"at 0 a four sided die will be rolled",8;sleep4000;mapannounce $EventData$[4],"Anyone in the box of the number rolled will be warped to town",8;sleep4000;mapannounce $EventData$[4],"as well as anyone on the stairs or outside the box",8;sleep4000;mapannounce $EventData$[4],"the number of players remaining will be announced",8;sleep4000;mapannounce $EventData$[4],"this prosses will repeat till only one player remains",8;sleep4000;mapannounce $EventData$[4],"take a few moments to fnd a box",8;sleep4000;mapannounce $EventData$[4],"we will now begin, please find a box",8;sleep3000;while(.@1234 < $EventData[11]){mapannounce $EventData$[4],"10...",8;sleep1000;mapannounce $EventData$[4],"9...",8;sleep1000;mapannounce $EventData$[4],"8...",8;sleep1000;mapannounce $EventData$[4],"7...",8;sleep1000;mapannounce $EventData$[4],"6...",8;sleep1000;mapannounce $EventData$[4],"5...",8;sleep1000;mapannounce $EventData$[4],"4...",8;sleep1000;mapannounce $EventData$[4],"3...",8;sleep1000;mapannounce $EventData$[4],"2...",8;sleep1000;mapannounce $EventData$[4],"1...",8;sleep1000;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 1mapannounce $EventData$[4],"Box 1",8;areawarp $EventData$[4],$EventData[12],$EventData[13],$EventData[14],$EventData[15],$EventData$[1],$EventData[2],$EventData[3]; //Upper Areaareawarp $EventData$[4],$EventData[16],$EventData[24],$EventData[17],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 1areawarp $EventData$[4],$EventData[18],$EventData[24],$EventData[19],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 2areawarp $EventData$[4],$EventData[20],$EventData[24],$EventData[21],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 3areawarp $EventData$[4],$EventData[22],$EventData[24],$EventData[23],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 4break;case1:areawarp $EventData$[4],$EventData[28],$EventData[34],$EventData[29],$EventData[35],$EventData$[1],$EventData[2],$EventData[3]; //Area 2mapannounce $EventData$[4],"Box 2",8;areawarp $EventData$[4],$EventData[12],$EventData[13],$EventData[14],$EventData[15],$EventData$[1],$EventData[2],$EventData[3]; //Upper Areaareawarp $EventData$[4],$EventData[16],$EventData[24],$EventData[17],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 1areawarp $EventData$[4],$EventData[18],$EventData[24],$EventData[19],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 2areawarp $EventData$[4],$EventData[20],$EventData[24],$EventData[21],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 3areawarp $EventData$[4],$EventData[22],$EventData[24],$EventData[23],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 4break;case2:areawarp $EventData$[4],$EventData[30],$EventData[34],$EventData[31],$EventData[35],$EventData$[1],$EventData[2],$EventData[3]; //Area 3mapannounce $EventData$[4],"Box 3",8;areawarp $EventData$[4],$EventData[12],$EventData[13],$EventData[14],$EventData[15],$EventData$[1],$EventData[2],$EventData[3]; //Upper Areaareawarp $EventData$[4],$EventData[16],$EventData[24],$EventData[17],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 1areawarp $EventData$[4],$EventData[18],$EventData[24],$EventData[19],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 2areawarp $EventData$[4],$EventData[20],$EventData[24],$EventData[21],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 3areawarp $EventData$[4],$EventData[22],$EventData[24],$EventData[23],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 4break;case3:areawarp $EventData$[4],$EventData[32],$EventData[34],$EventData[33],$EventData[35],$EventData$[1],$EventData[2],$EventData[3]; //Area 4mapannounce $EventData$[4],"Box 4",8;areawarp $EventData$[4],$EventData[12],$EventData[13],$EventData[14],$EventData[15],$EventData$[1],$EventData[2],$EventData[3]; //Upper Areaareawarp $EventData$[4],$EventData[16],$EventData[24],$EventData[17],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 1areawarp $EventData$[4],$EventData[18],$EventData[24],$EventData[19],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 2areawarp $EventData$[4],$EventData[20],$EventData[24],$EventData[21],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 3areawarp $EventData$[4],$EventData[22],$EventData[24],$EventData[23],$EventData[25],$EventData$[1],$EventData[2],$EventData[3]; //Stairs 4break;}sleep11000;mapannounce $EventData$[4],"There are "+getmapusers($EventData$[4])+" Players Remaining",8;if(getmapusers($EventData$[4])<$EventData[7])set .@1234,$EventData[11]+1;sleep9000;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 ======================================06guild_01,49,49,4 script PvpEventPrize 811,{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;setZeny,zeny+$EventData[62]+($EventData[69]*$EventData[67]/10000);set $EventData[69],0;warp $EventData$[1],$EventData[2],$EventData[3];hideonnpc"PvpEventPrize";end;}quiz_01,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;setZeny,zeny+$EventData[38]+($EventData[45]*$EventData[43]/10000);set $EventData[45],0;warp $EventData$[1],$EventData[2],$EventData[3];end;}1@cata,175,120,4 script ZombiePrize 730,{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;setZeny,zeny+$EventData[83]+($EventData[90]*$EventData[88]/10000);set $EventData[90],0;warp $EventData$[1],$EventData[2],$EventData[3];end;}