eACC scripts.

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@5429 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 159 insertions, 0 deletions

diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_woe.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_woe.txt
new file mode 100644
index 000000000..1657ced6e
--- /dev/null
+++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_woe.txt
@@ -0,0 +1,159 @@
+//===== 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);

+}

+

+}