diff options
author | euphyy <euphyy@54d463be-8e91-2dee-dedb-b68131a5f0ec> | 2012-11-23 03:22:28 +0000 |
---|---|---|
committer | euphyy <euphyy@54d463be-8e91-2dee-dedb-b68131a5f0ec> | 2012-11-23 03:22:28 +0000 |
commit | bd4e344a476439af984995540cb3d037752981c8 (patch) | |
tree | 4cd55defb83cc7f8ef1efeb7485f8b7db45e2cff /npc/custom/woe_controller.txt | |
parent | 252d548e533389f18b80c8a35976eca893791355 (diff) | |
download | hercules-bd4e344a476439af984995540cb3d037752981c8.tar.gz hercules-bd4e344a476439af984995540cb3d037752981c8.tar.bz2 hercules-bd4e344a476439af984995540cb3d037752981c8.tar.xz hercules-bd4e344a476439af984995540cb3d037752981c8.zip |
* Added Guillotine Cross job quest, again thanks to Muad_Dib! (bugreport:5834)
* Follow-up r16941: added documentation.
* Updated WOE Controller script to v1.4, which modifies LoadEvent mapflag settings for easier cross-compatibility and standardizes script format.
* Minor tweaks here and there.
git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@16947 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'npc/custom/woe_controller.txt')
-rw-r--r-- | npc/custom/woe_controller.txt | 430 |
1 files changed, 244 insertions, 186 deletions
diff --git a/npc/custom/woe_controller.txt b/npc/custom/woe_controller.txt index 6606d60ad..d8380e770 100644 --- a/npc/custom/woe_controller.txt +++ b/npc/custom/woe_controller.txt @@ -3,7 +3,7 @@ //===== By: ================================================== //= Euphy //===== Current Version: ===================================== -//= 1.3b +//= 1.4 //===== Compatible With: ===================================== //= rAthena SVN r16571+ //===== Description: ========================================= @@ -27,8 +27,9 @@ OnInit: set .CastleWarp,0; // 1: Always enable all castle warps. | 0: Warp only to active castles. set .AutoKick,1; // Automatically kick players from inactive castles during WOE? (1:yes / 0:no) + set .NoOwner,0; // Automatically kick players from unconquered castles outside of WOE? (1:yes / 0:no) set .ExitWarp,0; // Warp all players from castles when WOE ends? (1:yes / 0:no) - set .GMAccess,99; // GM level required to access Session Manager (cannot be 0) + set .GMAccess,99; // GM level required to access Session Manager. setarray .Reward[0],14001,1; // Reward for all members of conquering guilds, per castle: <ID>,<Count>{,...} (0 to disable) // -------------------------------------------------------------------------------------------------------------------------- @@ -46,29 +47,35 @@ OnInit: setarray .Map$[0],"prt_gld","pay_gld","gef_fild13","alde_gld","aru_gld","sch_gld"; setarray .MapX[0],134,240,153,111,208,121,295,317,140,204,214,308,143,193,305,48, 95,142,239,264,158,83, 68,299,292,293,288, 97,137, 71; setarray .MapY[0], 65,128,137,240,240,233,116,293,160,266, 75,240,240,278, 87,83,249, 85,242, 90,272,47,155,345,107,100,252,196, 90,315; + if (.AutoKick || .NoOwner) for(set .@i,0; .@i<30; set .@i,.@i+1) { + setmapflag .Castles$[.@i], mf_loadevent; + setd "."+.Castles$[.@i], .@i; + } if (!agitcheck() && !agitcheck2()) sleep 4000; set .Init,1; OnMinute00: freeloop(1); if (agitcheck() || agitcheck2()) { for(set .@i,0; .@i<.Size; set .@i,.@i+4) - if (gettime(4)==$WOE_CONTROL[.@i] && gettime(3)==$WOE_CONTROL[.@i+2]) { + if (gettime(4) == $WOE_CONTROL[.@i] && gettime(3) == $WOE_CONTROL[.@i+2]) { OnWOEEnd: announce "The War Of Emperium is over!",bc_all|bc_woe; AgitEnd; AgitEnd2; sleep 1000; for(set .@j,0; .@j<30; set .@j,.@j+1) { if (.Active[0]&(1<<.@j)) Disp_Owner(.Castles$[.@j],1); - else if (.AutoKick) removemapflag .Castles$[.@j], mf_loadevent; - if (.ExitWarp) maprespawnguildid .Castles$[.@j],0,3; } + if (.ExitWarp) maprespawnguildid .Castles$[.@j],0,3; + } if (.Reward[0] && .Active[0] && .ForceEnd != 2) callsub OnReward, .Active[0]; deletearray .Active[0],2; if (.ForceEnd) { set .ForceEnd,0; end; } - break; } } + break; + } + } if ((!agitcheck() && !agitcheck2()) || .Init) { if (!agitcheck() && !agitcheck2()) set .Init,0; for(set .@i,0; .@i<.Size; set .@i,.@i+4) - if (gettime(4)==$WOE_CONTROL[.@i] && gettime(3)>=$WOE_CONTROL[.@i+1] && gettime(3)<$WOE_CONTROL[.@i+2]) { + if (gettime(4) == $WOE_CONTROL[.@i] && gettime(3) >= $WOE_CONTROL[.@i+1] && gettime(3) < $WOE_CONTROL[.@i+2]) { deletearray .Active[0],2; set .Active[0], $WOE_CONTROL[.@i+3]; if (.Init) { AgitEnd; AgitEnd2; } @@ -80,14 +87,18 @@ OnMinute00: if (!.Init) Disp_Owner(.Castles$[.@j],0); set .Active[1], .Active[1] | (1<<((.@j/5)+1)); } else { - if (.AutoKick) setmapflag .Castles$[.@j], mf_loadevent; if (.@j<20) { donpcevent "Agit#"+.Castles$[.@j]+"::OnAgitEnd"; killmonster .Castles$[.@j], "Agit#"+.Castles$[.@j]+"::OnAgitBreak"; } else { donpcevent "Manager#"+.Castles$[.@j]+"::OnAgitEnd2"; - killmonster .Castles$[.@j], "Steward#"+.EndLabel$[.@j-20]+"::OnStartArena"; } } } - break; } } + killmonster .Castles$[.@j], "Steward#"+.EndLabel$[.@j-20]+"::OnStartArena"; + } + } + } + break; + } + } set .Init,0; freeloop(0); end; @@ -96,10 +107,11 @@ function Disp_Owner { set .@o, getcastledata(getarg(0),1); if (.@o) announce "The ["+getcastlename(getarg(0))+"] castle "+((getarg(1))?"has been conquered":"is currently held")+" by the ["+getguildname(.@o)+"] guild.",bc_all|bc_woe; else announce "The ["+getcastlename(getarg(0))+"] castle is currently unoccupied.",bc_all|bc_woe; - return; } - + return; +} function Add_Zero { - return ((getarg(0)<10)?"0":"")+getarg(0)+(getarg(1,0)?".":":")+"00"; } + return ((getarg(0)<10)?"0":"")+getarg(0)+(getarg(1,0)?".":":")+"00"; +} OnReward: for(set .@i,0; .@i<30; set .@i,.@i+1) @@ -112,15 +124,21 @@ OnReward: if (isloggedin(.@acc[.@j],.@char[.@j])) { for(set .@k,0; .@k<getarraysize(.Reward); set .@k,.@k+2) getitem .Reward[.@k], .Reward[.@k+1], .@acc[.@j]; - message rid2name(.@acc[.@j]),"You have been rewarded for conquering "+getcastlename(.Castles$[.@i])+"."; } } } + message rid2name(.@acc[.@j]),"You have been rewarded for conquering "+getcastlename(.Castles$[.@i])+"."; + } + } + } return; OnPCLoadMapEvent: if (!compare(strcharinfo(3),"g_cas")) end; - sleep2 1000; - message strcharinfo(0), getcastlename(strcharinfo(3))+" is inactive during this WOE session."; - sleep2 5000; - if (compare(strcharinfo(3),"g_cas")) warp "SavePoint",0,0; + if (((.AutoKick && .Active[0]) || (.NoOwner && !getcastledata(strcharinfo(3),1))) && !(.Active[0]&(1<<getd("."+strcharinfo(3))))) { + if (getcharid(2) && getcastledata(strcharinfo(3),1) == getcharid(2)) end; + sleep2 1000; + message strcharinfo(0), getcastlename(strcharinfo(3))+" is currently inactive."; + sleep2 5000; + if (compare(strcharinfo(3),"g_cas")) warp "SavePoint",0,0; + } end; OnMenu: @@ -130,198 +148,238 @@ while(1) { if (!.Size) mes "The War of Emperium is ^0055FFactive^000000."; else { for(set .@i,0; .@i<.Size; set .@i,.@i+4) - if (gettime(4)==$WOE_CONTROL[.@i] && gettime(3)>=$WOE_CONTROL[.@i+1] && gettime(3)<$WOE_CONTROL[.@i+2]) { - set .@i, $WOE_CONTROL[.@i+2]; break; } + if (gettime(4) == $WOE_CONTROL[.@i] && gettime(3) >= $WOE_CONTROL[.@i+1] && gettime(3) < $WOE_CONTROL[.@i+2]) { + set .@i, $WOE_CONTROL[.@i+2]; + break; + } mes "The War of Emperium is ^0055FFactive^000000 until ^FF0000"+Add_Zero(.@i)+"^000000 in the following regions:"; mes " "; for(set .@i,0; .@i<6; set .@i,.@i+1) - if (.Active[1]&(1<<(.@i+1))) mes " > ^777777"+.Regions$[.@i]+"^000000"; } + if (.Active[1]&(1<<(.@i+1))) mes " > ^777777"+.Regions$[.@i]+"^000000"; + } } else { set .@j,0; set .@k,0; for(set .@i,0; .@i<.Size; set .@i,.@i+4) - if ((gettime(4)==$WOE_CONTROL[.@i] && gettime(3)<=$WOE_CONTROL[.@i+1]) || gettime(4)<$WOE_CONTROL[.@i]) { - set .@j, $WOE_CONTROL[.@i]; set .@k, $WOE_CONTROL[.@i+1]; break; } + if ((gettime(4) == $WOE_CONTROL[.@i] && gettime(3) <= $WOE_CONTROL[.@i+1]) || gettime(4) < $WOE_CONTROL[.@i]) { + set .@j, $WOE_CONTROL[.@i]; set .@k, $WOE_CONTROL[.@i+1]; + break; + } if (!.@j && !.@k) { - set .@j, $WOE_CONTROL[0]; set .@k, $WOE_CONTROL[1]; } + set .@j, $WOE_CONTROL[0]; + set .@k, $WOE_CONTROL[1]; + } mes "The War of Emperium is ^777777inactive^000000."; if (.Size) { mes " "; mes "The next session will begin"; - mes "on ^0055FF"+.Days$[.@j]+"^000000 at "+Add_Zero(.@k)+"^000000."; } } + mes "on ^0055FF"+.Days$[.@j]+"^000000 at "+Add_Zero(.@k)+"^000000."; + } + } next; switch(select(""+((.CastleWarp || .Active[1])?" ~ Warp to castles...":"")+": ~ Check schedule...: ~ View castle owners...:"+((getgmlevel()<.GMAccess || !getgmlevel())?"":" ~ Manage sessions...")+": ~ ^777777Cancel^000000")) { + case 1: + set .@menu$,""; + for(set .@i,0; .@i<6; set .@i,.@i+1) { + if (.CastleWarp || .Active[1]&(1<<(.@i+1))) + set .@menu$, .@menu$+" ~ "+((.Active[1]&(1<<(.@i+1)))?"^0055FF":"^777777")+.Regions$[.@i]+" Castles^000000"; + set .@menu$, .@menu$+":"; + } + set .@i, select(.@menu$)-1; + set .@menu$,""; + for(set .@j,.@i*5; .@j<(.@i*5)+5; set .@j,.@j+1) { + if (.CastleWarp || .Active[0]&(1<<.@j)) + set .@menu$, .@menu$+" ~ "+((.Active[0]&(1<<.@j))?"^0055FF":"^777777")+getcastlename(.Castles$[.@j])+"^000000"; + set .@menu$, .@menu$+":"; + } + set .@j, select(.@menu$)-1; + warp .Map$[.@i],.MapX[(.@i*5)+.@j],.MapY[(.@i*5)+.@j]; + close; + case 2: + mes "[Schedule]"; + if (.Size) { + freeloop(1); + for(set .@i,0; .@i<.Size; set .@i,.@i+4) { + mes "> ^FF0000"+.Days$[$WOE_CONTROL[.@i]]+" ("+Add_Zero($WOE_CONTROL[.@i+1])+"-"+Add_Zero($WOE_CONTROL[.@i+2])+")^000000"; + for(set .@j,0; .@j<30; set .@j,.@j+1) + if ($WOE_CONTROL[.@i+3]&(1<<.@j)) mes " ~ "+getcastlename(.Castles$[.@j])+" ^777777("+.Castles$[.@j]+")^000000"; + if (.@i+4 < .Size) mes " "; + } + freeloop(0); + } + else mes "No times are configured."; + next; + break; + case 3: + mes "[Castle Ownership]"; + for(set .@i,0; .@i<6; set .@i,.@i+1) { + set .@k, .@i*5; + mes "> ^FF0000"+.Regions$[.@i]+"^000000"; + for(set .@j,.@k; .@j<(.@k+5); set .@j,.@j+1) { + set .@t, getcastledata(.Castles$[.@j],1); + mes " ~ "+getcastlename(.Castles$[.@j])+": "+((.@t)?"^0055FF"+getguildname(.@t):"^777777unoccupied")+"^000000"; + } + if (.@i < 5) mes " "; + } + next; + break; + case 4: + while(1) { + mes "[Session Manager]"; + mes "There are ^0055FF"+(.Size/4)+" session(s)^000000 configured."; + mes "What would you like to do?"; + next; + switch(select(" ~ Add a session...: ~ Delete a session...: ~ Reload settings...:"+((agitcheck() || agitcheck2())?" ~ End WOE session...":"")+": ~ ^777777Go back^000000")) { case 1: - set .@menu$,""; - for(set .@i,0; .@i<6; set .@i,.@i+1) { - if (.CastleWarp || .Active[1]&(1<<(.@i+1))) set .@menu$, .@menu$+" ~ "+((.Active[1]&(1<<(.@i+1)))?"^0055FF":"^777777")+.Regions$[.@i]+" Castles^000000"; - set .@menu$, .@menu$+":"; } - set .@i, select(.@menu$)-1; - set .@menu$,""; - for(set .@j,.@i*5; .@j<(.@i*5)+5; set .@j,.@j+1) { - if (.CastleWarp || .Active[0]&(1<<.@j)) set .@menu$, .@menu$+" ~ "+((.Active[0]&(1<<.@j))?"^0055FF":"^777777")+getcastlename(.Castles$[.@j])+"^000000"; - set .@menu$, .@menu$+":"; } - set .@j, select(.@menu$)-1; - warp .Map$[.@i],.MapX[(.@i*5)+.@j],.MapY[(.@i*5)+.@j]; - close; - case 2: - mes "[Schedule]"; - if (.Size) { - freeloop(1); - for(set .@i,0; .@i<.Size; set .@i,.@i+4) { - mes "> ^FF0000"+.Days$[$WOE_CONTROL[.@i]]+" ("+Add_Zero($WOE_CONTROL[.@i+1])+"-"+Add_Zero($WOE_CONTROL[.@i+2])+")^000000"; - for(set .@j,0; .@j<30; set .@j,.@j+1) - if ($WOE_CONTROL[.@i+3]&(1<<.@j)) mes " ~ "+getcastlename(.Castles$[.@j])+" ^777777("+.Castles$[.@j]+")^000000"; - if (.@i+4<.Size) mes " "; } - freeloop(0); - } else mes "No times are configured."; + mes "[New Session]"; + if (.Size > 127) { + mes "You have already reached the maximum of 32 sessions."; + next; + break; + } + mes "Select a day."; next; - break; - case 3: - mes "[Castle Ownership]"; - for(set .@i,0; .@i<6; set .@i,.@i+1) { - set .@k, .@i*5; - mes "> ^FF0000"+.Regions$[.@i]+"^000000"; - for(set .@j,.@k; .@j<(.@k+5); set .@j,.@j+1) { - set .@t, getcastledata(.Castles$[.@j],1); - mes " ~ "+getcastlename(.Castles$[.@j])+": "+((.@t)?"^0055FF"+getguildname(.@t):"^777777unoccupied")+"^000000"; } - if (.@i<5) mes " "; } + set .@Day, select(" ~ "+implode(.Days$,": ~ "))-1; + mes "[New Session]"; + mes "Select a start time for ^0055FF"+.Days$[.@Day]+"^000000."; next; - break; - case 4: - while(1) { - mes "[Session Manager]"; - mes "There are ^0055FF"+(.Size/4)+" session(s)^000000 configured."; - mes "What would you like to do?"; + set .@menu$,""; + for(set .@i,0; .@i<23; set .@i,.@i+1) + set .@menu$, .@menu$+" ~ "+Add_Zero(.@i,1)+":"; + set .@Start, select(.@menu$)-1; + mes "[New Session]"; + mes "Select an end time for ^0055FF"+.Days$[.@Day]+"^000000."; next; - switch(select(" ~ Add a session...: ~ Delete a session...: ~ Reload settings...:"+((agitcheck() || agitcheck2())?" ~ End WOE session...":"")+": ~ ^777777Go back^000000")) { - case 1: - mes "[New Session]"; - if (.Size > 127) { - mes "You have already reached the maximum of 32 sessions."; next; break; } - mes "Select a day."; - next; - set .@Day, select(" ~ "+implode(.Days$,": ~ "))-1; + set .@menu$,""; + for(set .@i,.@Start+1; .@i<24; set.@i,.@i+1) + set .@menu$, .@menu$+" ~ "+Add_Zero(.@i,1)+":"; + set .@End, select(.@menu$)+.@Start; + for(set .@i,0; .@i<.Size; set .@i,.@i+4) + if (.@Day == $WOE_CONTROL[.@i] && + ((.@Start >= $WOE_CONTROL[.@i+1] && .@Start < $WOE_CONTROL[.@i+2]) || + (.@End > $WOE_CONTROL[.@i+1] && .@End <= $WOE_CONTROL[.@i+2]) || + (.@Start <= $WOE_CONTROL[.@i+1] && .@End >= $WOE_CONTROL[.@i+2]))) { mes "[New Session]"; - mes "Select a start time for ^0055FF"+.Days$[.@Day]+"^000000."; + mes "The chosen times overlap with an existing session."; next; - set .@menu$,""; - for(set .@i,0; .@i<23; set .@i,.@i+1) - set .@menu$, .@menu$+" ~ "+Add_Zero(.@i,1)+":"; - set .@Start, select(.@menu$)-1; + set .@d,1; + break; + } + if (.@d) { set .@d,0; break; } + set .@Castle,0; + while(1) { + mes "[New Session]"; + mes "^0055FF"+.Days$[.@Day]+" ("+Add_Zero(.@Start)+"-"+Add_Zero(.@End)+")^000000"; + mes " > Castles:"; + if (!.@Castle) mes " ~ ^777777(none selected)^000000"; + else for(set .@i,0; .@i<30; set .@i,.@i+1) + if (.@Castle&(1<<.@i)) mes " ~ "+getcastlename(.Castles$[.@i])+" ("+.Castles$[.@i]+")"; + next; + set .@menu$,((.@Castle)?" ~ ^FF0000Finished...^000000":"")+":"; + for(set .@i,0; .@i<30; set .@i,.@i+1) + set .@menu$, .@menu$+" ~ "+((.@Castle&(1<<.@i))?"^0055FF":"")+getcastlename(.Castles$[.@i])+" ("+.Castles$[.@i]+")^000000:"; + set .@i, select(.@menu$)-1; + if (.@i) set .@Castle, .@Castle^(1<<(.@i-1)); + else { mes "[New Session]"; - mes "Select an end time for ^0055FF"+.Days$[.@Day]+"^000000."; + mes "Are you sure?"; next; - set .@menu$,""; - for(set .@i,.@Start+1; .@i<24; set.@i,.@i+1) - set .@menu$, .@menu$+" ~ "+Add_Zero(.@i,1)+":"; - set .@End, select(.@menu$)+.@Start; - for(set .@i,0; .@i<.Size; set .@i,.@i+4) - if (.@Day==$WOE_CONTROL[.@i] && - ((.@Start >= $WOE_CONTROL[.@i+1] && .@Start < $WOE_CONTROL[.@i+2]) || - (.@End > $WOE_CONTROL[.@i+1] && .@End <= $WOE_CONTROL[.@i+2]) || - (.@Start <= $WOE_CONTROL[.@i+1] && .@End >= $WOE_CONTROL[.@i+2]))) { + switch(select(" ~ ^0055FFAdd session...^000000: ~ Continue selecting castles...: ~ ^777777Cancel^000000")) { + case 1: + for(set .@i,0; .@i<.Size; set .@i,.@i+4) + if ((.@Day == $WOE_CONTROL[.@i] && .@End <= $WOE_CONTROL[.@i+1]) || .@Day < $WOE_CONTROL[.@i]) { + set .@d,1; + break; + } + if (!.@d) { set .@d,1; set .@i,.Size; } + copyarray $WOE_CONTROL[.@i+4], $WOE_CONTROL[.@i], .Size-.@i; + setarray $WOE_CONTROL[.@i], .@Day, .@Start, .@End, .@Castle; + set .Size, getarraysize($WOE_CONTROL); + case 3: mes "[New Session]"; - mes "The chosen times overlap with an existing session."; + mes ((.@d)?"Session added.":"Cancelled."); next; - set .@d,1; break; } + set .@d,1; + case 2: + break; + } if (.@d) { set .@d,0; break; } - set .@Castle,0; - while(1) { - mes "[New Session]"; - mes "^0055FF"+.Days$[.@Day]+" ("+Add_Zero(.@Start)+"-"+Add_Zero(.@End)+")^000000"; - mes " > Castles:"; - if (!.@Castle) mes " ~ ^777777(none selected)^000000"; - else for(set .@i,0; .@i<30; set .@i,.@i+1) - if (.@Castle&(1<<.@i)) mes " ~ "+getcastlename(.Castles$[.@i])+" ("+.Castles$[.@i]+")"; - next; - set .@menu$,((.@Castle)?" ~ ^FF0000Finished...^000000":"")+":"; - for(set .@i,0; .@i<30; set .@i,.@i+1) - set .@menu$, .@menu$+" ~ "+((.@Castle&(1<<.@i))?"^0055FF":"")+getcastlename(.Castles$[.@i])+" ("+.Castles$[.@i]+")^000000:"; - set .@i, select(.@menu$)-1; - if (.@i) set .@Castle, .@Castle^(1<<(.@i-1)); - else { - mes "[New Session]"; - mes "Are you sure?"; - next; - switch(select(" ~ ^0055FFAdd session...^000000: ~ Continue selecting castles...: ~ ^777777Cancel^000000")) { - case 1: - for(set .@i,0; .@i<.Size; set .@i,.@i+4) - if ((.@Day==$WOE_CONTROL[.@i] && .@End<=$WOE_CONTROL[.@i+1]) || .@Day<$WOE_CONTROL[.@i]) { - set .@d,1; break; } - if (!.@d) { set .@d,1; set .@i,.Size; } - copyarray $WOE_CONTROL[.@i+4], $WOE_CONTROL[.@i], .Size-.@i; - setarray $WOE_CONTROL[.@i], .@Day, .@Start, .@End, .@Castle; - set .Size, getarraysize($WOE_CONTROL); - case 3: - mes "[New Session]"; - mes ((.@d)?"Session added.":"Cancelled."); - next; - set .@d,1; - case 2: - break; - } if (.@d) { set .@d,0; break; } } - } break; - case 2: - mes "[Remove Session]"; - if (!.Size) { - mes "There are no sessions configured."; next; break; } - mes "Select a session to remove."; - next; - set .@menu$,""; - for(set .@i,0; .@i<.Size; set .@i,.@i+4) - set .@menu$, .@menu$+" ~ "+.Days$[$WOE_CONTROL[.@i]]+" ("+Add_Zero($WOE_CONTROL[.@i+1],1)+"-"+Add_Zero($WOE_CONTROL[.@i+2],1)+"):"; - set .@menu$, .@menu$+" ~ ^777777Cancel^000000"; - set .@i, select(.@menu$)-1; - if (.@i==(.Size/4)) break; - mes "[Remove Session]"; - mes "Delete ^0055FF"+.Days$[$WOE_CONTROL[.@i*4]]+"'s^000000 session?"; - mes "This action cannot be undone."; - next; - set .@j, select(" ~ ^FF0000Delete session...^000000: ~ ^777777Cancel^000000"); - mes "[Remove Session]"; - if (.@j==2) mes "Cancelled."; - else { - deletearray $WOE_CONTROL[.@i*4],4; - set .Size, getarraysize($WOE_CONTROL); - mes "Session deleted."; } - next; - break; - case 3: - mes "[Reload Settings]"; - mes "This will trigger all events related to new session configurations, if any."; - if (agitcheck() || agitcheck2()) { mes " "; mes "Be aware that this will disrupt the current WOE session."; } - next; - set .@i, select(" ~ ^0055FFReload settings...^000000: ~ ^777777Cancel^000000"); - mes "[Reload Settings]"; - if (.@i==2) mes "Cancelled."; - else { - set .Init,1; - donpcevent "WOE_CONTROL::OnMinute00"; - mes "Variables have been re-initialized."; } - next; - break; - case 4: - mes "[Force Agit End]"; - if (!agitcheck() && !agitcheck2()) { - mes "WOE has already ended."; next; break; } - mes "This command will safely execute all AgitEnd events."; - mes " "; - mes "Kill the current WOE session?"; - next; - set .@i, select(" ~ ^FF0000End session...^000000:"+((.Reward[0])?" ~ ^FF0000End session without rewards...^000000":"")+": ~ ^777777Cancel^000000"); - mes "[Force Agit End]"; - if (.@i==3) mes "Cancelled."; - else { - set .ForceEnd, .@i; - donpcevent "WOE_CONTROL::OnWOEEnd"; - mes "WOE session terminated."; } - next; - break; - case 5: - set .@d,1; break; - } if (.@d) { set .@d,0; break; } } + } + } + break; + case 2: + mes "[Remove Session]"; + if (!.Size) { + mes "There are no sessions configured."; + next; + break; + } + mes "Select a session to remove."; + next; + set .@menu$,""; + for(set .@i,0; .@i<.Size; set .@i,.@i+4) + set .@menu$, .@menu$+" ~ "+.Days$[$WOE_CONTROL[.@i]]+" ("+Add_Zero($WOE_CONTROL[.@i+1],1)+"-"+Add_Zero($WOE_CONTROL[.@i+2],1)+"):"; + set .@menu$, .@menu$+" ~ ^777777Cancel^000000"; + set .@i, select(.@menu$)-1; + if (.@i == (.Size/4)) break; + mes "[Remove Session]"; + mes "Delete ^0055FF"+.Days$[$WOE_CONTROL[.@i*4]]+"'s^000000 session?"; + mes "This action cannot be undone."; + next; + set .@j, select(" ~ ^FF0000Delete session...^000000: ~ ^777777Cancel^000000"); + mes "[Remove Session]"; + if (.@j == 2) mes "Cancelled."; + else { + deletearray $WOE_CONTROL[.@i*4],4; + set .Size, getarraysize($WOE_CONTROL); + mes "Session deleted."; + } + next; + break; + case 3: + mes "[Reload Settings]"; + mes "This will trigger all events related to new session configurations, if any."; + if (agitcheck() || agitcheck2()) { + mes " "; + mes "Be aware that this will disrupt the current WOE session."; + } + next; + set .@i, select(" ~ ^0055FFReload settings...^000000: ~ ^777777Cancel^000000"); + mes "[Reload Settings]"; + if (.@i == 2) mes "Cancelled."; + else { + set .Init,1; + donpcevent "WOE_CONTROL::OnMinute00"; + mes "Variables have been re-initialized."; + } + next; + break; + case 4: + mes "[Force Agit End]"; + if (!agitcheck() && !agitcheck2()) { + mes "WOE has already ended."; + next; + break; + } + mes "This command will safely execute all AgitEnd events."; + mes " "; + mes "Kill the current WOE session?"; + next; + set .@i, select(" ~ ^FF0000End session...^000000:"+((.Reward[0])?" ~ ^FF0000End session without rewards...^000000":"")+": ~ ^777777Cancel^000000"); + mes "[Force Agit End]"; + if (.@i == 3) mes "Cancelled."; + else { + set .ForceEnd, .@i; + donpcevent "WOE_CONTROL::OnWOEEnd"; + mes "WOE session terminated."; + } + next; break; case 5: - close; } - } + set .@d,1; break; + } + if (.@d) { set .@d,0; break; } + } break; + case 5: + close; + } } }
\ No newline at end of file |