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

20 files changed, 1352 insertions, 0 deletions

diff --git a/npc/guild/old/treasure/aldeg_cas01_treasure.txt b/npc/guild/old/treasure/aldeg_cas01_treasure.txt
new file mode 100644
index 000000000..7ee9a5d93
--- /dev/null
+++ b/npc/guild/old/treasure/aldeg_cas01_treasure.txt
@@ -0,0 +1,72 @@
+//===== eAthena Script =======================================

+//= War of Emperium - aldeg_cas01 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in aldeg_cas01

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+aldeg_cas01.gat,123,223,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "aldeg_cas01.gat",218,176;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+aldeg_cas01.gat,119,223,0	script	Treasure_A01	-1,{

+OnClock1200:

+	SetCastleData "aldeg_cas01.gat",4,0;

+	SetCastleData "aldeg_cas01.gat",5,0;

+	KillMonster "aldeg_cas01.gat","Treasure_A01::TreasureDied";

+	set $Economy,GetCastleData("aldeg_cas01.gat",2);

+	if ($Economy > 100) break;

+	if (GetCastleData("aldeg_cas01.gat",1) == 0) break;

+	set $boxnum,GetCastleData("aldeg_cas01.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum <= 0) break;

+	set $boxid,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid > 2) goto TreasureSpawn2;

+	areamonster "aldeg_cas01.gat",114,218,123,227,"Treasure Chest",1324,1,"Treasure_A01::TreasureDied";

+	set $boxnum,$boxnum-1;

+	if ($boxnum <= 0) break;

+	goto TreasureCheck;

+	

+TreasureSpawn2:

+	areamonster "aldeg_cas01.gat",114,218,123,227,"Treasure Chest",1325,1,"Treasure_A01::TreasureDied";

+	set $boxnum,$boxnum-1;

+	if ($boxnum <= 0) break;

+	goto TreasureCheck;

+	

+TreasureDied:

+	MapAnnounce "aldeg_cas01.gat","Treasure Chest Broken Open",17;

+	break;

+	

+Rehash:

+	set $boxid,1324;

+	areamonster "aldeg_cas01.gat",114,218,123,227,"Treasure Chest",$boxid,$boxnum,"Treasure_A01::TreasureDied";

+	break;

+}

diff --git a/npc/guild/old/treasure/aldeg_cas02_treasure.txt b/npc/guild/old/treasure/aldeg_cas02_treasure.txt
new file mode 100644
index 000000000..9144bd2a6
--- /dev/null
+++ b/npc/guild/old/treasure/aldeg_cas02_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - aldeg_cas02 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in aldeg_cas02

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+aldeg_cas02.gat,139,235,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "aldeg_cas02.gat",78,75;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+aldeg_cas02.gat,135,231,0	script	Treasure_A02	-1,{

+OnClock1200:

+	SetCastleData "aldeg_cas02.gat",4,0;

+	SetCastleData "aldeg_cas02.gat",5,0;

+	KillMonster "aldeg_cas02.gat","Treasure_A02::TreasureDied";

+	set $Economy1,GetCastleData("aldeg_cas02.gat",2);

+	if ($Economy1 > 100) break;

+	if (GetCastleData("aldeg_cas02.gat",1) == 0) break;

+	set $boxnum1,GetCastleData("aldeg_cas02.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum1 <= 0) break;

+	set $boxid1,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid1 > 2) goto TreasureSpawn2;

+	areamonster "aldeg_cas02.gat",130,226,138,235,"Treasure Chest",1326,1,"Treasure_A02::TreasureDied";

+	set $boxnum1,$boxnum1-1;

+	if ($boxnum1 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureSpawn2:

+	areamonster "aldeg_cas02.gat",130,226,138,235,"Treasure Chest",1327,1,"Treasure_A02::TreasureDied";

+	set $boxnum1,$boxnum1-1;

+	if ($boxnum1 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureDied:

+	MapAnnounce "aldeg_cas02.gat","Treasure Chest Broken Open",17;

+	break;

+}

diff --git a/npc/guild/old/treasure/aldeg_cas03_treasure.txt b/npc/guild/old/treasure/aldeg_cas03_treasure.txt
new file mode 100644
index 000000000..4b75e4b48
--- /dev/null
+++ b/npc/guild/old/treasure/aldeg_cas03_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - aldeg_cas03 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in aldeg_cas03

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+aldeg_cas03.gat,229,267,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "aldeg_cas03.gat",110,119;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+aldeg_cas03.gat,225,269,0	script	Treasure_A03	-1,{

+OnClock1200:

+	SetCastleData "aldeg_cas03.gat",4,0;

+	SetCastleData "aldeg_cas03.gat",5,0;

+	KillMonster "aldeg_cas03.gat","Treasure_A03::TreasureDied";

+	set $Economy2,GetCastleData("aldeg_cas03.gat",2);

+	if ($Economy2 > 100) break;

+	if (GetCastleData("aldeg_cas03.gat",1) == 0) break;

+	set $boxnum2,GetCastleData("aldeg_cas03.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum2 <= 0) break;

+	set $boxid2,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid2 > 2) goto TreasureSpawn2;

+	areamonster "aldeg_cas03.gat",220,264,229,273,"Treasure Chest",1328,1,"Treasure_A03::TreasureDied";

+	set $boxnum2,$boxnum2-1;

+	if ($boxnum2 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureSpawn2:

+	areamonster "aldeg_cas03.gat",220,264,229,273,"Treasure Chest",1329,1,"Treasure_A03::TreasureDied";

+	set $boxnum2,$boxnum2-1;

+	if ($boxnum2 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureDied:

+	MapAnnounce "aldeg_cas03.gat","Treasure Chest Broken Open",17;

+	break;

+}

diff --git a/npc/guild/old/treasure/aldeg_cas04_treasure.txt b/npc/guild/old/treasure/aldeg_cas04_treasure.txt
new file mode 100644
index 000000000..346a905a3
--- /dev/null
+++ b/npc/guild/old/treasure/aldeg_cas04_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - aldeg_cas04 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in aldeg_cas04

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+aldeg_cas04.gat,83,17,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "aldeg_cas04.gat",67,117;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+aldeg_cas04.gat,85,12,0	script	Treasure_A04	-1,{

+OnClock1200:

+	SetCastleData "aldeg_cas04.gat",4,0;

+	SetCastleData "aldeg_cas04.gat",5,0;

+	KillMonster "aldeg_cas04.gat","Treasure_A04::TreasureDied";

+	set $Economy3,GetCastleData("aldeg_cas04.gat",2);

+	if ($Economy3 > 100) break;

+	if (GetCastleData("aldeg_cas04.gat",1) == 0) break;

+	set $boxnum3,GetCastleData("aldeg_cas04.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum3 <= 0) break;

+	set $boxid3,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid3 > 2) goto TreasureSpawn2;

+	areamonster "aldeg_cas04.gat",80,8,89,17,"Treasure Chest",1330,1,"Treasure_A04::TreasureDied";

+	set $boxnum3,$boxnum3-1;

+	if ($boxnum3 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureSpawn2:

+	areamonster "aldeg_cas04.gat",80,8,89,17,"Treasure Chest",1331,1,"Treasure_A04::TreasureDied";

+	set $boxnum3,$boxnum3-1;

+	if ($boxnum3 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureDied:

+	MapAnnounce "aldeg_cas04.gat","Treasure Chest Broken Open",17;

+	break;

+}

diff --git a/npc/guild/old/treasure/aldeg_cas05_treasure.txt b/npc/guild/old/treasure/aldeg_cas05_treasure.txt
new file mode 100644
index 000000000..3a3bbbc86
--- /dev/null
+++ b/npc/guild/old/treasure/aldeg_cas05_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - aldeg_cas05 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in aldeg_cas05

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+aldeg_cas05.gat,64,8,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "aldeg_cas05.gat",51,179;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+aldeg_cas05.gat,62,12,0	script	Treasure_A05	-1,{

+OnClock1200:

+	SetCastleData "aldeg_cas05.gat",4,0;

+	SetCastleData "aldeg_cas05.gat",5,0;

+	KillMonster "aldeg_cas05.gat","Treasure_A05::TreasureDied";

+	set $Economy4,GetCastleData("aldeg_cas05.gat",2);

+	if ($Economy4 > 100) break;

+	if (GetCastleData("aldeg_cas05.gat",1) == 0) break;

+	set $boxnum4,GetCastleData("aldeg_cas05.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum4 <= 0) break;

+	set $boxid4,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid4 > 2) goto TreasureSpawn2;

+	areamonster "aldeg_cas05.gat",58,8,65,15,"Treasure Chest",1332,1,"Treasure_A05::TreasureDied";

+	set $boxnum4,$boxnum4-1;

+	if ($boxnum4 <= 0) break;

+	goto TreasureCheck;

+

+TreasureSpawn2:

+	areamonster "aldeg_cas05.gat",58,8,65,15,"Treasure Chest",1333,1,"Treasure_A05::TreasureDied";

+	set $boxnum4,$boxnum4-1;

+	if ($boxnum4 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureDied:

+	MapAnnounce "aldeg_cas05.gat","Treasure Chest Broken Open",17;

+	break;

+}

diff --git a/npc/guild/old/treasure/gefg_cas01_treasure.txt b/npc/guild/old/treasure/gefg_cas01_treasure.txt
new file mode 100644
index 000000000..122fb660b
--- /dev/null
+++ b/npc/guild/old/treasure/gefg_cas01_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - gefg_cas01 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in gefg_cas01

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+gefg_cas01.gat,151,109,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "gefg_cas01.gat",40,49;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+gefg_cas01.gat,155,112,0	script	Treasure_B01	-1,{

+OnClock1200:

+	SetCastleData "gefg_cas01.gat",4,0;

+	SetCastleData "gefg_cas01.gat",5,0;

+	KillMonster "gefg_cas01.gat","Treasure_B01::TreasureDied";

+	set $Economy5,GetCastleData("gefg_cas01.gat",2);

+	if ($Economy5 > 100) break;

+	if (GetCastleData("gefg_cas01.gat",1) == 0) break;

+	set $boxnum5,GetCastleData("gefg_cas01.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum5 <= 0) break;

+	set $boxid5,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid5 > 2) goto TreasureSpawn2;

+	areamonster "gefg_cas01.gat",150,108,158,114,"Treasure Chest",1334,1,"Treasure_B01::TreasureDied";

+	set $boxnum5,$boxnum5-1;

+	if ($boxnum5 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureSpawn2:

+	areamonster "gefg_cas01.gat",150,108,158,114,"Treasure Chest",1335,1,"Treasure_B01::TreasureDied";

+	set $boxnum5,$boxnum5-1;

+	if ($boxnum5 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureDied:

+	MapAnnounce "gefg_cas01.gat","Treasure Chest Broken Open",17;

+	break;

+}

diff --git a/npc/guild/old/treasure/gefg_cas02_treasure.txt b/npc/guild/old/treasure/gefg_cas02_treasure.txt
new file mode 100644
index 000000000..a161f7190
--- /dev/null
+++ b/npc/guild/old/treasure/gefg_cas02_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - gefg_cas02 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in gefg_cas02

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+gefg_cas02.gat,137,113,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "gefg_cas02.gat",12,67;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+gefg_cas02.gat,141,115,0	script	Treasure_B02	-1,{

+OnClock1200:

+	SetCastleData "gefg_cas02.gat",4,0;

+	SetCastleData "gefg_cas02.gat",5,0;

+	KillMonster "gefg_cas02.gat","Treasure_B02::TreasureDied";

+	set $Economy6,GetCastleData("gefg_cas02.gat",2);

+	if ($Economy6 > 100) break;

+	if (GetCastleData("gefg_cas02.gat",1) == 0) break;

+	set $boxnum6,GetCastleData("gefg_cas02.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum6 <= 0) break;

+	set $boxid6,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid6 > 2) goto TreasureSpawn2;

+	areamonster "gefg_cas02.gat",136,112,145,118,"Treasure Chest",1336,1,"Treasure_B02::TreasureDied";

+	set $boxnum6,$boxnum6-1;

+	if ($boxnum6 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureSpawn2:

+	areamonster "gefg_cas02.gat",136,112,145,118,"Treasure Chest",1337,1,"Treasure_B02::TreasureDied";

+	set $boxnum6,$boxnum6-1;

+	if ($boxnum6 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureDied:

+	MapAnnounce "gefg_cas02.gat","Treasure Chest Broken Open",17;

+	break;

+}

diff --git a/npc/guild/old/treasure/gefg_cas03_treasure.txt b/npc/guild/old/treasure/gefg_cas03_treasure.txt
new file mode 100644
index 000000000..7cf919115
--- /dev/null
+++ b/npc/guild/old/treasure/gefg_cas03_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - gefg_cas03 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in gefg_cas03

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+gefg_cas03.gat,275,289,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "gefg_cas03.gat",106,24;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+gefg_cas03.gat,270,290,0	script	Treasure_B03	-1,{

+OnClock1200:

+	SetCastleData "gefg_cas03.gat",4,0;

+	SetCastleData "gefg_cas03.gat",5,0;

+	KillMonster "gefg_cas03.gat","Treasure_B03::TreasureDied";

+	set $Economy7,GetCastleData("gefg_cas03.gat",2);

+	if ($Economy7 > 100) break;

+	if (GetCastleData("gefg_cas03.gat",1) == 0) break;

+	set $boxnum7,GetCastleData("gefg_cas03.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum7 <= 0) break;

+	set $boxid7,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid7 > 2) goto TreasureSpawn2;

+	areamonster "gefg_cas03.gat",266,286,275,293,"Treasure Chest",1338,1,"Treasure_B03::TreasureDied";

+	set $boxnum7,$boxnum7-1;

+	if ($boxnum7 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureSpawn2:

+	areamonster "gefg_cas03.gat",266,286,275,293,"Treasure Chest",1339,1,"Treasure_B03::TreasureDied";

+	set $boxnum7,$boxnum7-1;

+	if ($boxnum7 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureDied:

+	MapAnnounce "gefg_cas03.gat","Treasure Chest Broken Open",17;

+	break;

+}

diff --git a/npc/guild/old/treasure/gefg_cas04_treasure.txt b/npc/guild/old/treasure/gefg_cas04_treasure.txt
new file mode 100644
index 000000000..648fa5740
--- /dev/null
+++ b/npc/guild/old/treasure/gefg_cas04_treasure.txt
@@ -0,0 +1,68 @@
+//===== eAthena Script =======================================

+//= War of Emperium - gefg_cas04 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in gefg_cas04

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+

+gefg_cas04.gat,117,123,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "gefg_cas04.gat",73,47;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+gefg_cas04.gat,116,118,0	script	Treasure_B04	-1,{

+OnClock1200:

+	SetCastleData "gefg_cas04.gat",4,0;

+	SetCastleData "gefg_cas04.gat",5,0;

+	KillMonster "gefg_cas04.gat","Treasure_B04::TreasureDied";

+	set $Economy8,GetCastleData("gefg_cas04.gat",2);

+	if ($Economy8 > 100) break;

+	if (GetCastleData("gefg_cas04.gat",1) == 0) break;

+	set $boxnum8,GetCastleData("gefg_cas04.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum8 <= 0) break;

+	set $boxid8,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid8 > 2) goto TreasureSpawn2;

+	areamonster "gefg_cas04.gat",112,114,119,123,"Treasure Chest",1340,1,"Treasure_B04::TreasureDied";

+	set $boxnum8,$boxnum8-1;

+	if ($boxnum8 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureSpawn2:

+	areamonster "gefg_cas04.gat",112,114,119,123,"Treasure Chest",1341,1,"Treasure_B04::TreasureDied";

+	set $boxnum8,$boxnum8-1;

+	if ($boxnum8 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureDied:

+	MapAnnounce "gefg_cas04.gat","Treasure Chest Broken Open",17;

+	break;

+}

diff --git a/npc/guild/old/treasure/gefg_cas05_treasure.txt b/npc/guild/old/treasure/gefg_cas05_treasure.txt
new file mode 100644
index 000000000..af54278e0
--- /dev/null
+++ b/npc/guild/old/treasure/gefg_cas05_treasure.txt
@@ -0,0 +1,68 @@
+//===== eAthena Script =======================================

+//= War of Emperium - gefg_cas05 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in gefg_cas05

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+

+gefg_cas05.gat,149,107,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "gefg_cas05.gat",70,53;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+gefg_cas05.gat,144,110,0	script	Treasure_B05	-1,{

+OnClock1200:

+	SetCastleData "gefg_cas05.gat",4,0;

+	SetCastleData "gefg_cas05.gat",5,0;

+	KillMonster "gefg_cas05.gat","Treasure_B05::TreasureDied";

+	set $Economy9,GetCastleData("gefg_cas05.gat",2);

+	if ($Economy9 > 100) break;

+	if (GetCastleData("gefg_cas05.gat",1) == 0) break;

+	set $boxnum9,GetCastleData("gefg_cas05.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum9 <= 0) break;

+	set $boxid9,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid9 > 2) goto TreasureSpawn2;

+	areamonster "gefg_cas05.gat",140,106,147,113,"Treasure Chest",1342,1,"Treasure_B05::TreasureDied";

+	set $boxnum9,$boxnum9-1;

+	if ($boxnum9 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureSpawn2:

+	areamonster "gefg_cas05.gat",140,106,147,113,"Treasure Chest",1343,1,"Treasure_B05::TreasureDied";

+	set $boxnum9,$boxnum9-1;

+	if ($boxnum9 <= 0) break;

+	goto TreasureCheck;

+	

+TreasureDied:

+	MapAnnounce "gefg_cas05.gat","Treasure Chest Broken Open",17;

+	break;

+}

diff --git a/npc/guild/old/treasure/payg_cas01_treasure.txt b/npc/guild/old/treasure/payg_cas01_treasure.txt
new file mode 100644
index 000000000..c2a382316
--- /dev/null
+++ b/npc/guild/old/treasure/payg_cas01_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - payg_cas01 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in payg_cas01

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+payg_cas01.gat,295,8,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "payg_cas01.gat",120,59;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+payg_cas01.gat,290,7,0	script	Treasure_C01	-1,{

+OnClock1200:

+	SetCastleData "payg_cas01.gat",4,0;

+	SetCastleData "payg_cas01.gat",5,0;

+	KillMonster "payg_cas01.gat","Treasure_C01::TreasureDied";

+	set $Economy10,GetCastleData("payg_cas01.gat",2);

+	if ($Economy10 > 100) break;

+	if (GetCastleData("payg_cas01.gat",1) == 0) break;

+	set $boxnum10,GetCastleData("payg_cas01.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum10 <= 0) break;

+	set $boxid10,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid10 > 2) goto TreasureSpawn2;

+	areamonster "payg_cas01.gat",286,4,295,13,"Treasure Chest",1344,1,"Treasure_C01::TreasureDied";

+	set $boxnum10,$boxnum10-1;

+	if ($boxnum10 <= 0) break;

+	goto TreasureCheck;

+

+TreasureSpawn2:

+	areamonster "payg_cas01.gat",286,4,295,13,"Treasure Chest",1345,1,"Treasure_C01::TreasureDied";

+	set $boxnum10,$boxnum10-1;

+	if ($boxnum10 <= 0) break;

+	goto TreasureCheck;

+

+TreasureDied:

+	MapAnnounce "payg_cas01.gat","Treasure Chest Broken Open",17;

+	break;	

+}

diff --git a/npc/guild/old/treasure/payg_cas02_treasure.txt b/npc/guild/old/treasure/payg_cas02_treasure.txt
new file mode 100644
index 000000000..c09679306
--- /dev/null
+++ b/npc/guild/old/treasure/payg_cas02_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - payg_cas02 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in payg_cas02

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+payg_cas02.gat,149,148,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "payg_cas02.gat",22,261;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+payg_cas02.gat,145,143,0	script	Treasure_C02	-1,{

+OnClock1200:

+	SetCastleData "payg_cas02.gat",4,0;

+	SetCastleData "payg_cas02.gat",5,0;

+	KillMonster "payg_cas02.gat","Treasure_C02::TreasureDied";

+	set $Economy11,GetCastleData("payg_cas02.gat",2);

+	if ($Economy11 > 100) break;

+	if (GetCastleData("payg_cas02.gat",1) == 0) break;

+	set $boxnum11,GetCastleData("payg_cas02.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum11 <= 0) break;

+	set $boxid11,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid11 > 2) goto TreasureSpawn2;

+	areamonster "payg_cas02.gat",140,140,148,149,"Treasure Chest",1346,1,"Treasure_C02::TreasureDied";

+	set $boxnum11,$boxnum11-1;

+	if ($boxnum11 <= 0) break;

+	goto TreasureCheck;

+

+TreasureSpawn2:

+	areamonster "payg_cas02.gat",140,140,148,149,"Treasure Chest",1347,1,"Treasure_C02::TreasureDied";

+	set $boxnum11,$boxnum11-1;

+	if ($boxnum11 <= 0) break;

+	goto TreasureCheck;

+

+TreasureDied:

+	MapAnnounce "payg_cas02.gat","Treasure Chest Broken Open",17;

+	break;

+}

diff --git a/npc/guild/old/treasure/payg_cas03_treasure.txt b/npc/guild/old/treasure/payg_cas03_treasure.txt
new file mode 100644
index 000000000..7e2345df5
--- /dev/null
+++ b/npc/guild/old/treasure/payg_cas03_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - payg_cas03 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in payg_cas03

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+payg_cas03.gat,163,167,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "payg_cas03.gat",50,261;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+payg_cas03.gat,158,168,0	script	Treasure_C03	-1,{

+OnClock1200:

+	SetCastleData "payg_cas03.gat",4,0;

+	SetCastleData "payg_cas03.gat",5,0;

+	KillMonster "payg_cas03.gat","Treasure_C03::TreasureDied";

+	set $Economy12,GetCastleData("payg_cas03.gat",2);

+	if ($Economy12 > 100) break;

+	if (GetCastleData("payg_cas03.gat",1) == 0) break;

+	set $boxnum12,GetCastleData("payg_cas03.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum12 <= 0) break;

+	set $boxid12,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid12 > 2) goto TreasureSpawn2;

+	areamonster "payg_cas03.gat",154,164,162,173,"Treasure Chest",1348,1,"Treasure_C03::TreasureDied";

+	set $boxnum12,$boxnum12-1;

+	if ($boxnum12 <= 0) break;

+	goto TreasureCheck;

+

+TreasureSpawn2:

+	areamonster "payg_cas03.gat",154,164,162,173,"Treasure Chest",1349,1,"Treasure_C03::TreasureDied";

+	set $boxnum12,$boxnum12-1;

+	if ($boxnum12 <= 0) break;

+	goto TreasureCheck;

+

+TreasureDied:

+	MapAnnounce "payg_cas03.gat","Treasure Chest Broken Open",17;

+	break;

+}

diff --git a/npc/guild/old/treasure/payg_cas04_treasure.txt b/npc/guild/old/treasure/payg_cas04_treasure.txt
new file mode 100644
index 000000000..1b9b47399
--- /dev/null
+++ b/npc/guild/old/treasure/payg_cas04_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - payg_cas04 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in payg_cas04

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+payg_cas04.gat,151,47,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "payg_cas04.gat",38,285;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+payg_cas04.gat,146,48,0	script	Treasure_C04	-1,{

+OnClock1200:

+	SetCastleData "payg_cas04.gat",4,0;

+	SetCastleData "payg_cas04.gat",5,0;

+	KillMonster "payg_cas04.gat","Treasure_C04::TreasureDied";

+	set $Economy13,GetCastleData("payg_cas04.gat",2);

+	if ($Economy13 > 100) break;

+	if (GetCastleData("payg_cas04.gat",1) == 0) break;

+	set $boxnum13,GetCastleData("payg_cas04.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum13 <= 0) break;

+	set $boxid13,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid13 > 2) goto TreasureSpawn2;

+	areamonster "payg_cas04.gat",142,44,151,51,"Treasure Chest",1350,1,"Treasure_C04::TreasureDied";

+	set $boxnum13,$boxnum13-1;

+	if ($boxnum13 <= 0) break;

+	goto TreasureCheck;

+

+TreasureSpawn2:

+	areamonster "payg_cas04.gat",142,44,151,51,"Treasure Chest",1351,1,"Treasure_C04::TreasureDied";

+	set $boxnum13,$boxnum13-1;

+	if ($boxnum13 <= 0) break;

+	goto TreasureCheck;

+

+TreasureDied:

+	MapAnnounce "payg_cas04.gat","Treasure Chest Broken Open",17;

+	break;

+}

diff --git a/npc/guild/old/treasure/payg_cas05_treasure.txt b/npc/guild/old/treasure/payg_cas05_treasure.txt
new file mode 100644
index 000000000..f4d494870
--- /dev/null
+++ b/npc/guild/old/treasure/payg_cas05_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - payg_cas05 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in payg_cas05

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+payg_cas05.gat,161,136,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "payg_cas05.gat",277,250;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+payg_cas05.gat,156,131,0	script	Treasure_C05	-1,{

+OnClock1200:

+	SetCastleData "payg_cas05.gat",4,0;

+	SetCastleData "payg_cas05.gat",5,0;

+	KillMonster "payg_cas05.gat","Treasure_C05::TreasureDied";

+	set $Economy14,GetCastleData("payg_cas05.gat",2);

+	if ($Economy14 > 100) break;

+	if (GetCastleData("payg_cas05.gat",1) == 0) break;

+	set $boxnum14,GetCastleData("payg_cas05.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum14 <= 0) break;

+	set $boxid14,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid14 > 2) goto TreasureSpawn2;

+	areamonster "payg_cas05.gat",152,128,160,135,"Treasure Chest",1352,1,"Treasure_C05::TreasureDied";

+	set $boxnum14,$boxnum14-1;

+	if ($boxnum14 <= 0) break;

+	goto TreasureCheck;

+

+TreasureSpawn2:

+	areamonster "payg_cas05.gat",152,128,160,135,"Treasure Chest",1353,1,"Treasure_C05::TreasureDied";

+	set $boxnum14,$boxnum14-1;

+	if ($boxnum14 <= 0) break;

+	goto TreasureCheck;

+

+TreasureDied:

+	MapAnnounce "payg_cas05.gat","Treasure Chest Broken Open",17;

+	break;

+}

diff --git a/npc/guild/old/treasure/prtg_cas01_treasure.txt b/npc/guild/old/treasure/prtg_cas01_treasure.txt
new file mode 100644
index 000000000..64ac99730
--- /dev/null
+++ b/npc/guild/old/treasure/prtg_cas01_treasure.txt
@@ -0,0 +1,72 @@
+//===== eAthena Script =======================================

+//= War of Emperium - prtg_cas01 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in prtg_cas01

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+prtg_cas01.gat,15,209,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "prtg_cas01.gat",112,183;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+prtg_cas01.gat,11,208,0	script	Treasure_D01	-1,{

+OnClock1200:

+	SetCastleData "prtg_cas01.gat",4,0;

+	SetCastleData "prtg_cas01.gat",5,0;

+	KillMonster "prtg_cas01.gat","Treasure_D01::TreasureDied";

+	set $Economy15,GetCastleData("prtg_cas01.gat",2);

+	if ($Economy15 > 100) break;

+	if (GetCastleData("prtg_cas01.gat",1) == 0) break;

+	set $boxnum15,GetCastleData("prtg_cas01.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum15 <= 0) break;

+	set $boxid15,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid15 > 2) goto TreasureSpawn2;

+	areamonster "prtg_cas01.gat",6,204,15,213,"Treasure Chest",1354,1,"Treasure_D01::TreasureDied";

+	set $boxnum15,$boxnum15-1;

+	if ($boxnum15 <= 0) break;

+	goto TreasureCheck;

+

+TreasureSpawn2:

+	areamonster "prtg_cas01.gat",6,204,15,213,"Treasure Chest",1355,1,"Treasure_D01::TreasureDied";

+	set $boxnum15,$boxnum15-1;

+	if ($boxnum15 <= 0) break;

+	goto TreasureCheck;

+

+TreasureDied:

+	MapAnnounce "prtg_cas01.gat","Treasure Chest Broken Open",17;

+	break;	

+

+Rehash:

+	set $boxid15,1324;

+	areamonster "prtg_cas01.gat",6,204,15,213,"Treasure Chest",$boxid15,$boxnum15,"Treasure_D01::TreasureDied";

+	break;

+}

diff --git a/npc/guild/old/treasure/prtg_cas02_treasure.txt b/npc/guild/old/treasure/prtg_cas02_treasure.txt
new file mode 100644
index 000000000..c0ca674fb
--- /dev/null
+++ b/npc/guild/old/treasure/prtg_cas02_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - prtg_cas02 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in prtg_cas02

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+prtg_cas02.gat,207,228,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "prtg_cas02.gat",94,62;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+prtg_cas02.gat,202,228,0	script	Treasure_D02	-1,{

+OnClock1200:

+	SetCastleData "prtg_cas02.gat",4,0;

+	SetCastleData "prtg_cas02.gat",5,0;

+	KillMonster "prtg_cas02.gat","Treasure_D02::TreasureDied";

+	set $Economy16,GetCastleData("prtg_cas02.gat",2);

+	if ($Economy16 > 100) break;

+	if (GetCastleData("prtg_cas02.gat",1) == 0) break;

+	set $boxnum16,GetCastleData("prtg_cas02.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum16 <= 0) break;

+	set $boxid16,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid16 > 2) goto TreasureSpawn2;

+	areamonster "prtg_cas02.gat",198,224,207,233,"Treasure Chest",1356,1,"Treasure_D02::TreasureDied";

+	set $boxnum16,$boxnum16-1;

+	if ($boxnum16 <= 0) break;

+	goto TreasureCheck;

+

+TreasureSpawn2:

+	areamonster "prtg_cas02.gat",198,224,207,233,"Treasure Chest",1357,1,"Treasure_D02::TreasureDied";

+	set $boxnum16,$boxnum16-1;

+	if ($boxnum16 <= 0) break;

+	goto TreasureCheck;

+

+TreasureDied:

+	MapAnnounce "prtg_cas02.gat","Treasure Chest Broken Open",17;

+	break;	

+}

diff --git a/npc/guild/old/treasure/prtg_cas03_treasure.txt b/npc/guild/old/treasure/prtg_cas03_treasure.txt
new file mode 100644
index 000000000..d32485b7e
--- /dev/null
+++ b/npc/guild/old/treasure/prtg_cas03_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - prtg_cas03 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in prtg_cas03

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+prtg_cas03.gat,193,130,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "prtg_cas03.gat",51,101;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+prtg_cas03.gat,189,132,0	script	Treasure_D03	-1,{

+OnClock1200:

+	SetCastleData "prtg_cas03.gat",4,0;

+	SetCastleData "prtg_cas03.gat",5,0;

+	KillMonster "prtg_cas03.gat","Treasure_D03::TreasureDied";

+	set $Economy17,GetCastleData("prtg_cas03.gat",2);

+	if ($Economy17 > 100) break;

+	if (GetCastleData("prtg_cas03.gat",1) == 0) break;

+	set $boxnum17,GetCastleData("prtg_cas03.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum17 <= 0) break;

+	set $boxid17,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid17 > 2) goto TreasureSpawn2;

+	areamonster "prtg_cas03.gat",184,128,193,135,"Treasure Chest",1358,1,"Treasure_D03::TreasureDied";

+	set $boxnum17,$boxnum17-1;

+	if ($boxnum17 <= 0) break;

+	goto TreasureCheck;

+

+TreasureSpawn2:

+	areamonster "prtg_cas03.gat",184,128,193,135,"Treasure Chest",1359,1,"Treasure_D03::TreasureDied";

+	set $boxnum17,$boxnum17-1;

+	if ($boxnum17 <= 0) break;

+	goto TreasureCheck;

+

+TreasureDied:

+	MapAnnounce "prtg_cas03.gat","Treasure Chest Broken Open",17;

+	break;	

+}

diff --git a/npc/guild/old/treasure/prtg_cas04_treasure.txt b/npc/guild/old/treasure/prtg_cas04_treasure.txt
new file mode 100644
index 000000000..ee5dbcc16
--- /dev/null
+++ b/npc/guild/old/treasure/prtg_cas04_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - prtg_cas04 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in prtg_cas04

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+prtg_cas04.gat,275,160,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "prtg_cas04.gat",259,265;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+prtg_cas04.gat,271,162,0	script	Treasure_D04	-1,{

+OnClock1200:

+	SetCastleData "prtg_cas04.gat",4,0;

+	SetCastleData "prtg_cas04.gat",5,0;

+	KillMonster "prtg_cas04.gat","Treasure_D04::TreasureDied";

+	set $Economy18,GetCastleData("prtg_cas04.gat",2);

+	if ($Economy18 > 100) break;

+	if (GetCastleData("prtg_cas04.gat",1) == 0) break;

+	set $boxnum18,GetCastleData("prtg_cas04.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum18 <= 0) break;

+	set $boxid18,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid18 > 2) goto TreasureSpawn2;

+	areamonster "prtg_cas04.gat",266,158,275,167,"Treasure Chest",1360,1,"Treasure_D04::TreasureDied";

+	set $boxnum18,$boxnum18-1;

+	if ($boxnum18 <= 0) break;

+	goto TreasureCheck;

+

+TreasureSpawn2:

+	areamonster "prtg_cas04.gat",266,158,275,167,"Treasure Chest",1361,1,"Treasure_D04::TreasureDied";

+	set $boxnum18,$boxnum18-1;

+	if ($boxnum18 <= 0) break;

+	goto TreasureCheck;

+

+TreasureDied:

+	MapAnnounce "prtg_cas04.gat","Treasure Chest Broken Open",17;

+	break;	

+}
\ No newline at end of file
diff --git a/npc/guild/old/treasure/prtg_cas05_treasure.txt b/npc/guild/old/treasure/prtg_cas05_treasure.txt
new file mode 100644
index 000000000..7d126ef31
--- /dev/null
+++ b/npc/guild/old/treasure/prtg_cas05_treasure.txt
@@ -0,0 +1,67 @@
+//===== eAthena Script =======================================

+//= War of Emperium - prtg_cas05 Treasure Room Script

+//===== By: ==================================================

+//= holyAngelX (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena 0.1+; RO Episode 4+

+//===== Description: =========================================

+//= Treasure Room Script in prtg_cas05

+//===== Additional Comments: =================================

+//= 1.1 by Akaru and ho|yAnge|X

+//============================================================

+

+//================================================

+// Exit Treasure Room Switch

+//================================================

+prtg_cas05.gat,281,176,0	script	Switch	111,{

+	mes " ";

+	mes "There is little switch over here";

+	mes "Would you like to pull the switch down?";

+	next;

+	menu "Yes",L1,"No",L2;

+	

+L1:

+	warp "prtg_cas05.gat",36,38;

+	

+L2:

+	close;

+}

+

+//================================================

+// Treasure Spawning Script

+//================================================

+prtg_cas05.gat,277,178,0	script	Treasure_D05	-1,{

+OnClock1200:

+	SetCastleData "prtg_cas05.gat",4,0;

+	SetCastleData "prtg_cas05.gat",5,0;

+	KillMonster "prtg_cas05.gat","Treasure_D05::TreasureDied";

+	set $Economy19,GetCastleData("prtg_cas05.gat",2);

+	if ($Economy19 > 100) break;

+	if (GetCastleData("prtg_cas05.gat",1) == 0) break;

+	set $boxnum19,GetCastleData("prtg_cas05.gat",2)/5+4;

+	goto TreasureCheck;

+

+TreasureCheck:

+	if ($boxnum19 <= 0) break;

+	set $boxid19,rand(4);

+	goto TreasureSpawn;

+

+TreasureSpawn:

+	if ($boxid19 > 2) goto TreasureSpawn2;

+	areamonster "prtg_cas05.gat",272,174,279,181,"Treasure Chest",1362,1,"Treasure_D05::TreasureDied";

+	set $boxnum19,$boxnum19-1;

+	if ($boxnum19 <= 0) break;

+	goto TreasureCheck;

+

+TreasureSpawn2:

+	areamonster "prtg_cas05.gat",272,174,279,181,"Treasure Chest",1363,1,"Treasure_D05::TreasureDied";

+	set $boxnum19,$boxnum19-1;

+	if ($boxnum19 <= 0) break;

+	goto TreasureCheck;

+

+TreasureDied:

+	MapAnnounce "prtg_cas05.gat","Treasure Chest Broken Open",17;

+	break;	

+}
\ No newline at end of file