b95f742af8
git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@11646 54d463be-8e91-2dee-dedb-b68131a5f0ec
160 lines
6.3 KiB
Plaintext
160 lines
6.3 KiB
Plaintext
//===== eAthena Script =======================================
|
|
//= Kafra Express - WoE Warping Module
|
|
//===== By: ==================================================
|
|
//= Skotlex
|
|
//===== Current Version: =====================================
|
|
//= 1.8
|
|
//===== 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 -1,{
|
|
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) {
|
|
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")
|
|
+getmapusers("aldeg_cas01")+getmapusers("aldeg_cas02")+getmapusers("aldeg_cas03")
|
|
+getmapusers("aldeg_cas04")+getmapusers("aldeg_cas05"))+" "+$@ked_users$+")",
|
|
"- Geffen Guild ("+($@kewg_geffen*@cost/100)+"z/"+(getmapusers("gef_fild13")
|
|
+getmapusers("gefg_cas01")+getmapusers("gefg_cas02")+getmapusers("gefg_cas03")
|
|
+getmapusers("gefg_cas04")+getmapusers("gefg_cas05"))+" "+$@ked_users$+")",
|
|
"- Payon Guild ("+($@kewg_payon*@cost/100)+"z/"+(getmapusers("pay_gld")
|
|
+getmapusers("payg_cas01")+getmapusers("payg_cas02")+getmapusers("payg_cas03")
|
|
+getmapusers("payg_cas04")+getmapusers("payg_cas05"))+" "+$@ked_users$+")",
|
|
"- Prontera Guild ("+($@kewg_prontera*@cost/100)+"z/"+(getmapusers("prt_gld")
|
|
+getmapusers("prtg_cas01")+getmapusers("prtg_cas02")+getmapusers("prtg_cas03")
|
|
+getmapusers("prtg_cas04")+getmapusers("prtg_cas05"))+" "+$@ked_users$+")",
|
|
// "- Guild Dungeons ("+(getmapusers("gld_dun01")+getmapusers("gld_dun02")
|
|
// +getmapusers("gld_dun03")+getmapusers("gld_dun04"))+" "+$@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",153,160;
|
|
break;
|
|
case 3: //Geffen
|
|
callfunc "F_keWarp",$@kewg_geffen,$@kewg_discount,44,"gef_fild13",243,180;
|
|
break;
|
|
case 4: //Payon
|
|
callfunc "F_keWarp",$@kewg_payon,$@kewg_discount,44,"pay_gld",249,177;
|
|
break;
|
|
case 5: //Prontera
|
|
callfunc "F_keWarp",$@kewg_prontera,$@kewg_discount,44,"prt_gld",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");
|
|
mes "- Castle 1 - Noisyubantian: "+getmapusers("aldeg_cas01");
|
|
mes "- Castle 2 - Hohensyubangawoo: "+getmapusers("aldeg_cas02");
|
|
mes "- Castle 3 - Nyirenverk: "+getmapusers("aldeg_cas03");
|
|
mes "- Castle 4 - Byirtsburi: "+getmapusers("aldeg_cas04");
|
|
mes "- Castle 5 - Rotenburk: "+getmapusers("aldeg_cas05");
|
|
next;
|
|
mes "[Geffen]";
|
|
mes "- Guild Grounds: "+getmapusers("gef_fild13");
|
|
mes "- Castle 1 - Reprion: "+getmapusers("gefg_cas01");
|
|
mes "- Castle 2 - Yolbriger: "+getmapusers("gefg_cas02");
|
|
mes "- Castle 3 - Isinlife: "+getmapusers("gefg_cas03");
|
|
mes "- Castle 4 - Berigel: "+getmapusers("gefg_cas04");
|
|
mes "- Castle 5 - Melsedetsu: "+getmapusers("gefg_cas05");
|
|
next;
|
|
mes "[Payon]";
|
|
mes "- Guild Grounds: "+getmapusers("pay_gld");
|
|
mes "- Castle 1 - Mingting: "+getmapusers("payg_cas01");
|
|
mes "- Castle 2 - Tiantan: "+getmapusers("payg_cas02");
|
|
mes "- Castle 3 - Fuying: "+getmapusers("payg_cas03");
|
|
mes "- Castle 4 - Honglou: "+getmapusers("payg_cas04");
|
|
mes "- Castle 5 - Zhulinxian: "+getmapusers("payg_cas05");
|
|
next;
|
|
mes "[Prontera]";
|
|
mes "- Guild Grounds: "+getmapusers("prt_gld");
|
|
mes "- Castle 1 - Creamhilt: "+getmapusers("prtg_cas01");
|
|
mes "- Castle 2 - Sbanhealt: "+getmapusers("prtg_cas02");
|
|
mes "- Castle 3 - Lazrigees: "+getmapusers("prtg_cas03");
|
|
mes "- Castle 4 - Squagul: "+getmapusers("prtg_cas04");
|
|
mes "- Castle 5 - Guindull: "+getmapusers("prtg_cas05");
|
|
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")+" "+$@ked_users$+")",
|
|
"- Luina Dungeon ("+($@kewg_luina*@cost/100)+"z/"+getmapusers("gld_dun02")+" "+$@ked_users$+")",
|
|
"- Valkyrie Dungeon ("+($@kewg_valkyrie*@cost/100)+"z/"+getmapusers("gld_dun03")+" "+$@ked_users$+")",
|
|
"- Britoniah Dungeon ("+($@kewg_britoniah*@cost/100)+"z/"+getmapusers("gld_dun04")+" "+$@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",119,18;
|
|
break;
|
|
case 3: //Luina
|
|
callfunc "F_keWarp",$@kewg_luina,$@kewg_discount,44,"gld_dun02",174,113;
|
|
break;
|
|
case 4: //Valkyrie
|
|
callfunc "F_keWarp",$@kewg_valkyrie,$@kewg_discount,44,"gld_dun03",37,34;
|
|
break;
|
|
case 5: //Britoniah
|
|
callfunc "F_keWarp",$@kewg_britoniah,$@kewg_discount,44,"gld_dun04",42,230;
|
|
break;
|
|
}
|
|
} while (@submenu > 1);
|
|
}
|
|
|
|
}
|