eACC scripts.

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

1 files changed, 66 insertions, 0 deletions

diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_shop.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_shop.txt
new file mode 100644
index 000000000..b8fdf9f66
--- /dev/null
+++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_shop.txt
@@ -0,0 +1,66 @@
+//===== eAthena Script =======================================
+//= Kafra Express - Portable Shop Module
+//===== By: ==================================================
+//= Skotlex
+//===== Current Version: =====================================
+//= 0.1
+//===== Compatible With: =====================================
+//= eAthena SVN R5195+
+//===== Description: =========================================
+//= Part of the Kafra Express Script Package.
+//= Offers buying/selling shop.
+//===== Additional Comments: =================================
+//= See config.txt for configuration.
+//============================================================
+
+-	script	keInit_shop	{
+OnInit:	//Load Config
+	donpcevent "keConfig::OnLoadShop";
+	end;
+}
+
+//Sample shops, adjust as needed!
+-	shop	ke_townshop	-,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,645:-1,656:-1,657:-1
+-	shop	ke_dunshop	-,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1
+
+function	script	F_keShop	{
+
+	if (getarg(0) == 0) { //Town shop
+		set @type, $@kesh_towntype;
+		set @shop$, $@kesh_townshop$;
+	} else {
+		set @type, $@kesh_duntype;
+		set @shop$, $@kesh_dunshop$;
+	}
+
+	switch (@type) {
+		case 1:
+			set @kmenu, select(
+				"- Return",
+				"- Buy items"
+			);
+			break;
+		case 2:
+			set @kmenu, select(
+				"- Return",
+				"- Sell items"
+			);
+			if (@kmenu > 1)
+				set @kmenu,3;
+			break;
+		default:
+			set @kmenu, select(
+				"- Return",
+				"- Buy items",
+				"- Sell items"
+			);
+			break;		
+	}
+	if (@kmenu == 1)
+		return;
+	mes "Thank you for using Kafra Services.";
+	close2;
+	cutin getarg(1), 255;
+	callshop @shop$, @kmenu-1;
+	end;
+}