//===== 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:
Taingram11@gmail.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;
}