Can you try to make this automated?
gm_room_pl,192,325,4 script PoringInvasion 909,{
if (getgmlevel() >= 80) goto poringadmin;
end;
poringadmin:
mes "[poringers]";
mes "poring poring! ^FF0000~Hi GM " + strcharinfo(0) + ", Wanna play today?~^000000";
mes "poring poring... poring! ^FF0000~Just tell me what to do!~^000000";
switch(select("Start Event:Stop Event")) {
case 1:
next;
mes "[poringers]";
mes "poring! ^FF0000~Sure thing!~^000000";
emotion 33;
close2;
goto L_poringannounce;
case 2:
next;
mes "[poringers]";
mes "poring poring poring...";
close2;
goto endingevent;
end;
}
OnClock0900:
goto L_poringannounce;
L_poringannounce:
setmapflag "prontera",mf_nomobloot;
set $@EventPorON,1;
set $@EventPorONSes,$@EventPorONSes+1;
donpcevent "PoringInvasion#evnt3::OnEnable";
initnpctimer;
end;
OnTimer3600000:
set $@RoundCountPor,0;
killmonster "prontera","All";
announce "Poring forces have been able to overcome. Poring Invasion Event Done!",0;
stopnpctimer;
removemapflag "prontera",mf_nomobloot;
set $@RoundCountPor,0;
set $@EventPorON,0;
end;
endingevent:
set $@RoundCountPor,0;
killmonster "prontera","All";
announce "Poring forces have been able to overcome. Poring Invasion Event Done!",0;
stopnpctimer;
removemapflag "prontera",mf_nomobloot;
set $@RoundCountPor,0;
set $@EventPorON,0;
end;
}
//--------------------------------------------------
- script PoringInvasion#evnt3 -1,{
OnEnable:
announce "Poring family seems to have started angry because it continues to hurt ...",0;
sleep2 5000;
announce "It seems today they had planned to raid the city of Prontera massive!",0;
sleep2 5000;
announce "They've been not too fear from Prontera,",0;
sleep2 5000;
announce "Prepare yourself, Warrior of Rune Midgard!",0;
sleep2 5000;
announce "They have begun approaching ...",0;
sleep2 5000;
announce "and The Prontera Guarder really not able to fight it.",0;
sleep2 5000;
announce "They are no longer as usual ...",0;
sleep2 5000;
announce "session "+ $@EventPorONSes +"Poring invasion begins!",0;
goto L_Start;
end;
L_Start:
areamonster "prontera",1,1,278,356,"Poring",1002,300,"";
areamonster "prontera",1,1,278,356,"Poring",1002,3,"PoringInvasionWin::OnMobKilled3";
areamonster "prontera",1,1,278,356,"Poporing",1031,300,"";
areamonster "prontera",1,1,278,356,"Poporing",1031,2,"PoringInvasionWin::OnMobKilled3";
areamonster "prontera",1,1,278,356,"Drops",1113,300,"";
areamonster "prontera",1,1,278,356,"Drops",1113,3,"PoringInvasionWin::OnMobKilled3";
areamonster "prontera",1,1,278,356,"Marin",1242,300,"";
areamonster "prontera",1,1,278,356,"Marin",1242,3,"PoringInvasionWin::OnMobKilled3";
areamonster "prontera",1,1,278,356,"Metaling",1613,300,"";
areamonster "prontera",1,1,278,356,"Metaling",1613,3,"PoringInvasionWin::OnMobKilled3";
areamonster "prontera",1,1,278,356,"Stapo",1784,300,"";
areamonster "prontera",1,1,278,356,"Stapo",1784,3,"PoringInvasionWin::OnMobKilled3";
areamonster "prontera",1,1,278,356,"Arc Angeling",1388,10,"";
areamonster "prontera",1,1,278,356,"Deviling",1582,40,"";
areamonster "prontera",1,1,278,356,"Deviling",1582,1,"PoringInvasionWin::OnMobKilled2";
areamonster "prontera",1,1,278,356,"Ghostring",1120,40,"";
areamonster "prontera",1,1,278,356,"Ghostring",1120,1,"PoringInvasionWin::OnMobKilled1";
areamonster "prontera",1,1,278,356,"Santa Poring",1062,300,"";
areamonster "prontera",1,1,278,356,"Santa Poring",1062,3,"PoringInvasionWin::OnMobKilled3";
areamonster "prontera",1,1,278,356,"Mastering",1090,40,"";
areamonster "prontera",1,1,278,356,"Angeling",1096,40,"";
areamonster "prontera",1,1,278,356,"Angeling",1096,1,"PoringInvasionWin::OnMobKilled1";
end;
}
- script PoringInvasionWin -1,{
OnMobKilled1:
if ($@EventPorON == 1) {
announce "Poring Coin won by "+ strcharinfo(0) + ".",bc_all | bc_blue;
set $@RoundCountPor,$@RoundCountPor+1;
getitem 7539,1;
goto checkingend;
}
end;
OnMobKilled2:
if ($@EventPorON == 1) {
announce "Silver Coin won by "+ strcharinfo(0) + ".",bc_all | bc_blue;
set $@RoundCountPor,$@RoundCountPor+1;
getitem 675,1;
goto checkingend;
}
end;
OnMobKilled3:
if ($@EventPorON == 1) {
announce "Bronze Coin won by "+ strcharinfo(0) + ".",bc_all | bc_blue;
set $@RoundCountPor,$@RoundCountPor+1;
getitem 673,1;
goto checkingend;
}
end;
checkingend:
if ($@RoundCountPo=23) {
set $@RoundCountPor,0;
killmonster "prontera","All";
announce "Poring forces have been able to overcome. Poring Invasion Event Done!",0;
stopnpctimer;
removemapflag "prontera",mf_nomobloot;
set $@RoundCountPor,0;
set $@EventPorON,0;
end;
}
end;
}
