//  Made:By Kirlein (Tyirial Script Concept)   //
// Devil Square based off the mmorpg Muonline  //
// Have Fun and feel free to leave suggestions //
//        Leave This intacted                  //
// +   Translated by Stillhard aka Dewa        //
// +  Add times for 24 hours of play :p        //
// +  Add a little bit infos for noob users    //
/////////////////////////////////////////////////

morocc,152,96,4	script	Devil Guard	732,{

 mes "[Devil Square Guard]";
 mes "Bienvenido a la puerta de entrada a ^FF0000Devil Square^000000";
 mes "si fallas o mueres tendras que esperar hasta que la puerta vuelva a abrirse";
 next;
 switch(select("Entrar al evento:Informacion:Cancelar")){

case 1:
 if(Baselevel < 70){
       mes "[Devil Square Guard]";
       mes "Nivel minimo de base 70";
       close;
 }

 if(Zeny < 20000){
       mes "[Devil Square Guard]";
       mes "La registracion cuesta 20,000z";
       close;
 }

if($inf == 1) {
if (getmapusers("ordeal_1-1")==10){
       mes "[Devil Square Guard]";
       mes "Lo siento devil square esta lleno";
       mes "maximo de jugadores quee pueden entrar son 10";
       set $inf,0;
       close;
       end;
}
       set Zeny,Zeny - 20000;
       announce ""+strcharinfo(0)+" a entrado al devil square",8;
       percentheal 100,100;
       warp "ordeal_1-1",183,182;
       end;

 }else if ($inf < 1){
       mes "[Devil Square Guard]";
       mes "Devil Square esta ahora cerrado";
       mes "se volvera abrir otra vez a las:";
       mes "10.00 , 12.00 , 14.00 , 16.00 , 18.00 , 20.00";
       mes "22.00 , 24.00 , 02.00 , 04.00 , 06.00 , 08.00";
       close;
}

       case 2://info
              mes "[Devil Square Guard]";
              mes "Devil square tiene 3 niveles, en el que encontraras enemigos";
              mes "cada nivel tiene monstruos mas fuertes";
              mes "si superas los 3 niveles podras abrir 10 cofres que contienen cosas valiosas.";
              close;

case 3://cancel
 mes "[Devil Square Guard]";
 mes "Nos vemos";
 close;
       }
}

////End Of Devil Square Entrance

ordeal_1-1,182,183,5	script	Cek	-1,{

OnTimer30000:
 if(getmapusers("ordeal_1-1") == 0){ 
       Announce "An muerto todos los jugadores, las puertas del Devil Square volvieron a cerrarce",8;
       set $status,1;
       killmonsterall "ordeal_1-1";
       end;
}
 Announce getmapusers("ordeal_1-1") + " jugadores que aun resisten el devil square",8;
 initnpctimer;
 end;

}

ordeal_1-1,182,183,5	script	HiddenNpc	-1,{

OnClock0800:
       Announce "Devil Square esta abierto ahora!! estara abierto 5 minutos!!",8;
       disablenpc "Exit";
       initnpctimer;
       set $inf,1;
       set $status,0;
       pvpoff "ordeal_1-1";
       killmonsterall "ordeal_1-1";
       end;

OnClock1000:
       Announce "Devil Square esta abierto ahora!! estara abierto 5 minutos!!",8;
       disablenpc "Exit";
       initnpctimer;
       set $inf,1;
       set $status,0;
       pvpoff "ordeal_1-1";
       killmonsterall "ordeal_1-1";
       end;

OnClock1200:
       Announce "Devil Square esta abierto ahora!! estara abierto 5 minutos!!",8;
       disablenpc "Exit";
       initnpctimer;
       set $inf,1;
       set $status,0;
       pvpoff "ordeal_1-1";
       killmonsterall "ordeal_1-1";
       end;

OnClock1400:
       Announce "Devil Square esta abierto ahora!! estara abierto 5 minutos!!",8;
       disablenpc "Exit";
       initnpctimer;
       set $inf,1;
       set $status,0;
       pvpoff "ordeal_1-1";
       killmonsterall "ordeal_1-1";
       end;

OnClock1600:
       Announce "Devil Square esta abierto ahora!! estara abierto 5 minutos!!",8;
       disablenpc "Exit";
       initnpctimer;
       set $inf,1;
       set $status,0;
       pvpoff "ordeal_1-1";
       killmonsterall "ordeal_1-1";
       end;

OnClock1942:
       Announce "Devil Square esta abierto ahora!! estara abierto 5 minutos!!",8;
       disablenpc "Exit";
       initnpctimer;
       set $inf,1;
       set $status,0;
       pvpoff "ordeal_1-1";
       killmonsterall "ordeal_1-1";
       end;

OnClock2000:
       Announce "Devil Square esta abierto ahora!! estara abierto 5 minutos!!",8;
       disablenpc "Exit";
       initnpctimer;
       set $inf,1;
       set $status,0;
       pvpoff "ordeal_1-1";
       killmonsterall "ordeal_1-1";
       end;

OnClock2200:
       Announce "Devil Square esta abierto ahora!! estara abierto 5 minutos!!",8;
       disablenpc "Exit";
       initnpctimer;
       set $inf,1;
       set $status,0;
       pvpoff "ordeal_1-1";
       killmonsterall "ordeal_1-1";
       end;

OnClock2400:
       Announce "Devil Square esta abierto ahora!! estara abierto 5 minutos!!",8;
       disablenpc "Exit";
       initnpctimer;
       set $inf,1;
       set $status,0;
       pvpoff "ordeal_1-1";
       killmonsterall "ordeal_1-1";
       end;

OnClock0200:
       Announce "Devil Square esta abierto ahora!! estara abierto 5 minutos!!",8;
       disablenpc "Exit";
       initnpctimer;
       set $inf,1;
       set $status,0;
       pvpoff "ordeal_1-1";
       killmonsterall "ordeal_1-1";
       end;

OnClock0400:
       Announce "Devil Square esta abierto ahora!! estara abierto 5 minutos!!",8;
       disablenpc "Exit";
       initnpctimer;
       set $inf,1;
       set $status,0;
       pvpoff "ordeal_1-1";
       killmonsterall "ordeal_1-1";
       end;

OnClock0600:
       Announce "Devil Square esta abierto ahora!! estara abierto 5 minutos!!",8;
       disablenpc "Exit";
       initnpctimer;
       set $inf,1;
       set $status,0;
       pvpoff "ordeal_1-1";
       killmonsterall "ordeal_1-1";
       end;

OnTimer60000:
       Announce "devil square empezara en 4 minutos",8;
       end;

OnTimer120000:
       Announce "Devil Square empezara en 3 minutos",8;
       end;

OnTimer180000:
       Announce "Devil Square empezara en 2 minutos",8;
       end;

OnTimer240000:
       Announce "Devil Square empezara en 1 minuto",8;
       end;

OnTimer300000:
 Announce "Devil Square esta empezando ahora!!",8;
 initnpctimer "Cek";
 set $inf,0;
 set $mob,75;
 areamonster "ordeal_1-1",183,182,246,244,"[DS] SOLDIER SKELETON",1028,10,"HiddenNpc::Ondevildead";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] ORC ARCHER",1189,15,"HiddenNpc::Ondevildead";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] SANDMAN",1165,10,"HiddenNpc::Ondevildead";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] ARCHER SKELETON",1016,15,"HiddenNpc::Ondevildead";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] MINOROUS",1149,15,"HiddenNpc::Ondevildead";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] REQUIEM",1164,10,"HiddenNpc::Ondevildead";
 end;

Ondevildead:
 if($status == 1) end;
 set $mob,$mob-1;
 if($mob == 25) Announce "Devil Square : 25 monstruos quedan para la ronda 2",8;
 if($mob == 15) Announce "Devil Square : 15 monstruos para la ronda 2",8;
 if($mob == 5) Announce "Devil Square : 5 monstruos para la ronda 2",8;
       if($mob == 0) {
       Announce "Devil Square va empezar la 2 ronda",8;
       doevent "HiddenNpc::Ondevil2";
       }
 end;

Ondevil2:
 set $mob,70;
 areamonster "ordeal_1-1",183,182,246,244,"[DS] GARGOYLE",1253,15,"HiddenNpc::Ondevildead2";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] ALARM",1193,10,"HiddenNpc::Ondevildead2";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] HIGH ORC",1213,10,"HiddenNpc::Ondevildead2";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] INJUSTICE",1257,10,"HiddenNpc::Ondevildead2";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] MIMIC",1191,15,"HiddenNpc::Ondevildead2";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] WRAITH",1192,10,"HiddenNpc::Ondevildead2";
 end;

Ondevildead2:
 if($status == 1) end;
 set $mob,$mob-1;
 if($mob == 25) Announce "Devil Square : 25 monstruos quedan para la ronda 3",8;
 if($mob == 15) Announce "Devil Square : 15 monstruos para la ronda 3",8;
 if($mob == 5) Announce "Devil Square : 5 monstruos para la ronda 3",8;

if($mob == 0) {
       Announce "Devil Square va empezar la 3 ronda",8;
       doevent "HiddenNpc::Ondevil3";
       }
end;

Ondevil3:
 set $mob,58;
 areamonster "ordeal_1-1",183,182,246,244,"[DS] ANOLIAN",1206,15,"HiddenNpc::Ondevildead3";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] WANDERER",1208,15,"HiddenNpc::Ondevildead3";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] DEVIRUCHI",1109,10,"HiddenNpc::Ondevildead3";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] JOKER",1131,15,"HiddenNpc::Ondevildead3";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] MOONLIGHT",1150,2,"HiddenNpc::Ondevildead3";
 areamonster "ordeal_1-1",183,182,246,244,"[DS] DARK ILLUSION",1302,1,"HiddenNpc::Ondevildead3";
 end;


Ondevildead3:
 if($status == 1) end;
 set $mob,$mob-1;
 if($mob == 25) Announce "Devil Square : 25 monstruos quedan para la Victoria!",8;
 if($mob == 15) Announce "Devil Square : 15 monstruos para la Victoria!",8;
 if($mob == 5) Announce "Devil Square : 5 monstruos para la Victoria!",8;

if($mob == 0) {
       Announce "Has Sobrevivido a el Devil Square!",8;
       doevent "HiddenNpc::Ondevil4";
       }
end;

Ondevil4:
 set $mob,10;
 monster "ordeal_1-1",231,250,"Treasure Box",1324,1,"HiddenNpc::Onboxdead";
 monster "ordeal_1-1",234,247,"Treasure Box",1328,1,"HiddenNpc::Onboxdead";
 monster "ordeal_1-1",237,244,"Treasure Box",1332,1,"HiddenNpc::Onboxdead";
 monster "ordeal_1-1",240,241,"Treasure Box",1336,1,"HiddenNpc::Onboxdead";
 monster "ordeal_1-1",243,238,"Treasure Box",1340,1,"HiddenNpc::Onboxdead";
 monster "ordeal_1-1",246,235,"Treasure Box",1344,1,"HiddenNpc::Onboxdead";
 monster "ordeal_1-1",249,232,"Treasure Box",1348,1,"HiddenNpc::Onboxdead";
 monster "ordeal_1-1",252,229,"Treasure Box",1352,1,"HiddenNpc::Onboxdead";
 monster "ordeal_1-1",249,241,"Treasure Box",1356,1,"HiddenNpc::Onboxdead";
 monster "ordeal_1-1",240,249,"Treasure Box",1360,1,"HiddenNpc::Onboxdead";
 end;

Onboxdead:
 if ($status == 1) end;
 set $mob, $mob - 1;
 set .@rand,rand(5);
 if (.@rand == 1) {setarray .@item[0],501,10;}
 if (.@rand == 2) setarray .@item[0],501,10;
 if (.@rand == 3) setarray .@item[0],501,10;
 if (.@rand == 4) setarray .@item[0],501,10;
 if (.@rand == 5) setarray .@item[0],501,10;
 getitem .@item[0],.@item[1];
 if($mob == 0) enablenpc "Exit";
 end;

}

// -- Mapflags
ordeal_1-1	mapflag	nowarp
ordeal_1-1	mapflag	nowarpto
ordeal_1-1	mapflag	noteleport
ordeal_1-1	mapflag	nosave	SavePoint
ordeal_1-1	mapflag	nomemo
ordeal_1-1	mapflag	gvg
ordeal_1-1	mapflag	nobranch
ordeal_1-1	mapflag	nopenalty
ordeal_1-1	mapflag	noloot
// -- End of Mapflags

ordeal_1-1,246,245,7	script	Exit	51,{
 mes "[Exit]";
 mes "nos vemos";
 next;
 warp "prontera",156,183;
 close;
}