AS OF SVN REV. 5901, WE ARE NOW USING TRUNK. ALL UNTESTED BUGFIXES/FEATURES GO INTO TRUNK.

IF YOU HAVE A WORKING AND TESTED BUGFIX PUT IT INTO STABLE AS WELL AS TRUNK.  EVERYTHING ELSE
GOES INTO TRUNK AND WILL BE MERGED INTO STABLE BY VALARIS AND WIZPUTER. -- VALARIS


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

1 files changed, 112 insertions, 0 deletions

diff --git a/npc/guild/gldfunc_treasure.txt b/npc/guild/gldfunc_treasure.txt
new file mode 100644
index 000000000..f52403c3e
--- /dev/null
+++ b/npc/guild/gldfunc_treasure.txt
@@ -0,0 +1,112 @@
+//===== eAthena Script =======================================

+//= War of Emperium Guild Treasure Room Functions

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

+//= holyAngelX (1.0)

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

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

+//= 1.4

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

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

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

+//= F_GldTreas spawns treasure chests used by the guild master.

+//= F_GldTreasSw allows the player to get out of the treasure room.

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

+//= Break down of arguments used in the F_GldTreas:

+//=   arg(0): name of guild castle

+//=   arg(1): name of script that called the function

+//=   arg(2): $variable for number of boxes to spawn for specific castle

+//=   arg(2): $variable to be used as a counter

+//=   arg(4): $variable for box/monster id number.

+//=   arg(5): box/monster id#

+//=   arg(6): x1 coordinate for areamonster call

+//=   arg(7): y1 coordinate for areamonster call

+//=   arg(8): x2 coordinate for areamonster call

+//=   arg(9): y1 coordinate for areamonster call

+//=   arg(10): 

+//= Break down of arguments used in the F_GldTreasSw:

+//=   arg(0): name of guild castle.

+//=   arg(1): x1 coordinate for warp back to guild castle

+//=   arg(2): y1 coordinate for warp back to guild castle

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

+//= v1.2 Treasure room Spawn, and Treasure room Switch scripts now use these functions.[kobra_k88]

+//= v1.2a Function now returns to script that called it.  Removed TreasureSpawn2.

+//= Changed back to using specific global variables for number of boxes and the box id. [kobra_k88]

+//= v1.2b Added a check to allow un broken treasure chests to respawn after map server restart.[kobra_k88]

+//= 1.3 Fixed treasure boxes spawn. (Unrolled one loop a bit) [Lupus]

+//= 1.4 New number of Treasure Boxes per castle: 25 at 100 Economic pts [Lupus]

+//=		So you get your first chest only when your Economic Pts >= 4

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

+

+

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

+// Treasure Spawning Function

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

+function	script	F_GldTreas	{

+	

+	if(getarg(10) == 1) goto TreasureSpawn;

+	SetCastleData getarg(0)+".gat",4,0;

+	SetCastleData getarg(0)+".gat",5,0;

+	KillMonster getarg(0)+".gat","Treasure_"+getarg(1)+"::OnDied";

+	if (GetCastleData(getarg(0)+".gat",2) > 100) return;

+	if (GetCastleData(getarg(0)+".gat",1) == 0) return;

+//Old Formula for 20 Boxes at 100 pts:

+	//set getarg(2),GetCastleData(getarg(0)+".gat",2)/5+4;

+//New, correct formula for 25 boxes at 100 pts:

+	set getarg(2),GetCastleData(getarg(0)+".gat",2)/4;

+	if (getarg(2) <= 0) return;

+	set getarg(3), getarg(2);	//sets the counter variable = to the box number amount

+

+TreasureSpawn:

+

+	set getarg(4), getarg(5);	//sets the box id variable = to the box id

+	set $@temp, rand(4);

+	if ($@temp > 2) set getarg(4), getarg(4) + 1;

+	areamonster getarg(0)+".gat",getarg(6),getarg(7),getarg(8),getarg(9),"Treasure Chest",getarg(4),1,"Treasure_"+getarg(1)+"::OnDied";

+	set getarg(3), getarg(3) - 1;

+	if(getarg(3) <= 0) return;

+

+	set getarg(4), getarg(5);	//sets the box id variable = to the box id

+	set $@temp, rand(4);

+	if ($@temp > 2) set getarg(4), getarg(4) + 1;

+	areamonster getarg(0)+".gat",getarg(6),getarg(7),getarg(8),getarg(9),"Treasure Chest",getarg(4),1,"Treasure_"+getarg(1)+"::OnDied";

+	set getarg(3), getarg(3) - 1;

+	if(getarg(3) <= 0) return;

+

+	set getarg(4), getarg(5);	//sets the box id variable = to the box id

+	set $@temp, rand(4);

+	if ($@temp > 2) set getarg(4), getarg(4) + 1;

+	areamonster getarg(0)+".gat",getarg(6),getarg(7),getarg(8),getarg(9),"Treasure Chest",getarg(4),1,"Treasure_"+getarg(1)+"::OnDied";

+	set getarg(3), getarg(3) - 1;

+	if(getarg(3) <= 0) return;

+

+	set getarg(4), getarg(5);	//sets the box id variable = to the box id

+	set $@temp, rand(4);

+	if ($@temp > 2) set getarg(4), getarg(4) + 1;

+	areamonster getarg(0)+".gat",getarg(6),getarg(7),getarg(8),getarg(9),"Treasure Chest",getarg(4),1,"Treasure_"+getarg(1)+"::OnDied";

+	set getarg(3), getarg(3) - 1;

+	if(getarg(3) <= 0) return;

+

+	set getarg(4), getarg(5);	//sets the box id variable = to the box id

+	set $@temp, rand(4);

+	if ($@temp > 2) set getarg(4), getarg(4) + 1;

+	areamonster getarg(0)+".gat",getarg(6),getarg(7),getarg(8),getarg(9),"Treasure Chest",getarg(4),1,"Treasure_"+getarg(1)+"::OnDied";

+	set getarg(3), getarg(3) - 1;

+	if(getarg(3) > 0) goto TreasureSpawn;

+	return;

+}

+

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

+//  Treasure Room Switch 

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

+function	script	F_GldTreasSw	{

+	mes " ";

+	mes "There is little switch over here";

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

+	next;

+	menu "Yes",M_1,"No",-;

+	close;

+	

+	M_1:

+		warp getarg(0)+".gat",getarg(1),getarg(2);

+		return;

+}