2ccf291664
git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@5429 54d463be-8e91-2dee-dedb-b68131a5f0ec
160 lines
6.7 KiB
Plaintext
160 lines
6.7 KiB
Plaintext
//===== eAthena Script =======================================
|
|
//= Kafra Express - WoE Warping Module
|
|
//===== By: ==================================================
|
|
//= Skotlex
|
|
//===== Current Version: =====================================
|
|
//= 1.7
|
|
//===== Compatible With: =====================================
|
|
//= eAthena SVN R3424+, RO Episode 4.1+ (War of Emperium)
|
|
//===== Description: =========================================
|
|
//= Part of the Kafra Express Script Package.
|
|
//= Offers warping to the War of Emperium grounds.
|
|
//===== Additional Comments: =================================
|
|
//= See config.txt for configuration.
|
|
//= Remove the comment on lines 52,53 and 63 to enable direct G. Dungeon warping
|
|
//============================================================
|
|
|
|
- script keInit_warpWoe {
|
|
OnInit: //Load Config
|
|
donpcevent "keConfig::OnLoadWarpWoe";
|
|
end;
|
|
}
|
|
|
|
function script F_keWarpWOE {
|
|
if ($@kewg_check && getcharid(2) <= 0) {
|
|
callfunc "F_keIntro", e_srt, "Sorry, these warps are only available to people who belong to a Guild.";
|
|
return;
|
|
}
|
|
if ($@kewg_checkAgit && agitcheck(0) == 0) {
|
|
callfunc "F_keIntro", e_srt, "Sorry, these warps are only enabled during the Guild Wars.";
|
|
return;
|
|
}
|
|
|
|
function SF_dungeons;
|
|
set @cost, callfunc("F_keCost",100,$@kewg_discount);
|
|
|
|
do {
|
|
if ($@kewg_showOnline) {
|
|
set @kmenu, select(
|
|
"- Cancel",
|
|
"- Al De Baran Guild ("+($@kewg_alDeBaran*@cost/100)+"z/"+(getmapusers("alde_gld.gat")
|
|
+getmapusers("aldeg_cas01.gat")+getmapusers("aldeg_cas02.gat")+getmapusers("aldeg_cas03.gat")
|
|
+getmapusers("aldeg_cas04.gat")+getmapusers("aldeg_cas05.gat"))+" "+$@ked_users$+")",
|
|
"- Geffen Guild ("+($@kewg_geffen*@cost/100)+"z/"+(getmapusers("gef_fild13.gat")
|
|
+getmapusers("gefg_cas01.gat")+getmapusers("gefg_cas02.gat")+getmapusers("gefg_cas03.gat")
|
|
+getmapusers("gefg_cas04.gat")+getmapusers("gefg_cas05.gat"))+" "+$@ked_users$+")",
|
|
"- Payon Guild ("+($@kewg_payon*@cost/100)+"z/"+(getmapusers("pay_gld.gat")
|
|
+getmapusers("payg_cas01.gat")+getmapusers("payg_cas02.gat")+getmapusers("payg_cas03.gat")
|
|
+getmapusers("payg_cas04.gat")+getmapusers("payg_cas05.gat"))+" "+$@ked_users$+")",
|
|
"- Prontera Guild ("+($@kewg_prontera*@cost/100)+"z/"+(getmapusers("prt_gld.gat")
|
|
+getmapusers("prtg_cas01.gat")+getmapusers("prtg_cas02.gat")+getmapusers("prtg_cas03.gat")
|
|
+getmapusers("prtg_cas04.gat")+getmapusers("prtg_cas05.gat"))+" "+$@ked_users$+")",
|
|
// "- Guild Dungeons ("+(getmapusers("gld_dun01.gat")+getmapusers("gld_dun02.gat")
|
|
// +getmapusers("gld_dun03.gat")+getmapusers("gld_dun04.gat"))+" "+$@ked_users$+")",
|
|
"- See "+$@ked_users$+" distribution"
|
|
);
|
|
} else {
|
|
set @kmenu, select(
|
|
"- Cancel",
|
|
"- Al De Baran Guild ("+($@kewg_alDeBaran*@cost/100)+"z)",
|
|
"- Geffen Guild ("+($@kewg_geffen*@cost/100)+"z)",
|
|
"- Payon Guild ("+($@kewg_payon*@cost/100)+"z)",
|
|
"- Prontera Guild ("+($@kewg_prontera*@cost/100)+"z)"
|
|
// ,"- Guild Dungeons"
|
|
);
|
|
}
|
|
switch (@kmenu) {
|
|
case 2: //Al De Baran
|
|
callfunc "F_keWarp",$@kewg_alDeBaran,$@kewg_discount,44,"alde_gld.gat",153,160;
|
|
break;
|
|
case 3: //Geffen
|
|
callfunc "F_keWarp",$@kewg_geffen,$@kewg_discount,44,"gef_fild13.gat",243,180;
|
|
break;
|
|
case 4: //Payon
|
|
callfunc "F_keWarp",$@kewg_payon,$@kewg_discount,44,"pay_gld.gat",249,177;
|
|
break;
|
|
case 5: //Prontera
|
|
callfunc "F_keWarp",$@kewg_prontera,$@kewg_discount,44,"prt_gld.gat",119,160;
|
|
break;
|
|
case 6: //Guild Dungeons
|
|
SF_dungeons();
|
|
break;
|
|
case 7: //Info
|
|
mes "The current distribution of "+$@ked_users$+" is as follows:";
|
|
next;
|
|
mes "[Al De Baran]";
|
|
mes "- Guild Grounds: "+getmapusers("alde_gld.gat");
|
|
mes "- Castle 1 - Noisyubantian: "+getmapusers("aldeg_cas01.gat");
|
|
mes "- Castle 2 - Hohensyubangawoo: "+getmapusers("aldeg_cas02.gat");
|
|
mes "- Castle 3 - Nyirenverk: "+getmapusers("aldeg_cas03.gat");
|
|
mes "- Castle 4 - Byirtsburi: "+getmapusers("aldeg_cas04.gat");
|
|
mes "- Castle 5 - Rotenburk: "+getmapusers("aldeg_cas05.gat");
|
|
next;
|
|
mes "[Geffen]";
|
|
mes "- Guild Grounds: "+getmapusers("gef_fild13.gat");
|
|
mes "- Castle 1 - Reprion: "+getmapusers("gefg_cas01.gat");
|
|
mes "- Castle 2 - Yolbriger: "+getmapusers("gefg_cas02.gat");
|
|
mes "- Castle 3 - Isinlife: "+getmapusers("gefg_cas03.gat");
|
|
mes "- Castle 4 - Berigel: "+getmapusers("gefg_cas04.gat");
|
|
mes "- Castle 5 - Melsedetsu: "+getmapusers("gefg_cas05.gat");
|
|
next;
|
|
mes "[Payon]";
|
|
mes "- Guild Grounds: "+getmapusers("pay_gld.gat");
|
|
mes "- Castle 1 - Mingting: "+getmapusers("payg_cas01.gat");
|
|
mes "- Castle 2 - Tiantan: "+getmapusers("payg_cas02.gat");
|
|
mes "- Castle 3 - Fuying: "+getmapusers("payg_cas03.gat");
|
|
mes "- Castle 4 - Honglou: "+getmapusers("payg_cas04.gat");
|
|
mes "- Castle 5 - Zhulinxian: "+getmapusers("payg_cas05.gat");
|
|
next;
|
|
mes "[Prontera]";
|
|
mes "- Guild Grounds: "+getmapusers("prt_gld.gat");
|
|
mes "- Castle 1 - Creamhilt: "+getmapusers("prtg_cas01.gat");
|
|
mes "- Castle 2 - Sbanhealt: "+getmapusers("prtg_cas02.gat");
|
|
mes "- Castle 3 - Lazrigees: "+getmapusers("prtg_cas03.gat");
|
|
mes "- Castle 4 - Squagul: "+getmapusers("prtg_cas04.gat");
|
|
mes "- Castle 5 - Guindull: "+getmapusers("prtg_cas05.gat");
|
|
next;
|
|
callfunc "F_keIntro", -1, "";
|
|
break;
|
|
}
|
|
} while (@kmenu > 1);
|
|
return;
|
|
|
|
function SF_dungeons {
|
|
do {
|
|
if ($@kewg_showOnline) {
|
|
set @submenu, select(
|
|
"- Cancel",
|
|
"- Baldur Dungeon ("+($@kewg_baldur*@cost/100)+"z/"+getmapusers("gld_dun01.gat")+" "+$@ked_users$+")",
|
|
"- Luina Dungeon ("+($@kewg_luina*@cost/100)+"z/"+getmapusers("gld_dun02.gat")+" "+$@ked_users$+")",
|
|
"- Valkyrie Dungeon ("+($@kewg_valkyrie*@cost/100)+"z/"+getmapusers("gld_dun03.gat")+" "+$@ked_users$+")",
|
|
"- Britoniah Dungeon ("+($@kewg_britoniah*@cost/100)+"z/"+getmapusers("gld_dun04.gat")+" "+$@ked_users$+")"
|
|
);
|
|
} else {
|
|
set @submenu, select(
|
|
"- Cancel",
|
|
"- Baldur Dungeon ("+($@kewg_baldur*@cost/100)+"z)",
|
|
"- Luina Dungeon ("+($@kewg_luina*@cost/100)+"z)",
|
|
"- Valkyrie Dungeon ("+($@kewg_valkyrie*@cost/100)+"z)",
|
|
"- Britoniah Dungeon ("+($@kewg_britoniah*@cost/100)+"z)"
|
|
);
|
|
}
|
|
switch (@submenu) {
|
|
case 2: //Baldur
|
|
callfunc "F_keWarp",$@kewg_baldur,$@kewg_discount,44,"gld_dun01.gat",119,18;
|
|
break;
|
|
case 3: //Luina
|
|
callfunc "F_keWarp",$@kewg_luina,$@kewg_discount,44,"gld_dun02.gat",174,113;
|
|
break;
|
|
case 4: //Valkyrie
|
|
callfunc "F_keWarp",$@kewg_valkyrie,$@kewg_discount,44,"gld_dun03.gat",37,34;
|
|
break;
|
|
case 5: //Britoniah
|
|
callfunc "F_keWarp",$@kewg_britoniah,$@kewg_discount,44,"gld_dun04.gat",42,230;
|
|
break;
|
|
}
|
|
} while (@submenu > 1);
|
|
}
|
|
|
|
}
|