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

1 files changed, 360 insertions, 0 deletions

diff --git a/npc/guild/old/payg_flag.txt b/npc/guild/old/payg_flag.txt
new file mode 100644
index 000000000..e00a87c08
--- /dev/null
+++ b/npc/guild/old/payg_flag.txt
@@ -0,0 +1,360 @@
+//===== eAthena Script =======================================

+//= War of Emperium - Payon Guild Flags

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

+//= jAthena (1.0)

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

+//= 1.4

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

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

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

+//= Castle Guild Flags in Payon and pay_gld

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

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

+//= 1.2 Darkchild/MissActek Flags moved to a better spot till we know exact

+//= 1.3 To exact spot

+//= 1.4 Better spots

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

+

+//Payon Castle 01 - Mingting

+payon.gat,165,177,3	script	Mingting#f1-1	722,{

+	set @GIDf1,GetCastleData("payg_cas01.gat",1);

+	if (@GIDf1 != 0) goto LStartg;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    this guild base has not been taken by any guild yet";

+		mes " ";

+		mes "2. In order to take this guild base, you must defeat all the guardians";

+		mes "    that are protecting the guild base and eliminate the Emperium";

+		close;

+LStartg:

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    we approve that this base is in the private possession of ^ff0000" + GetGuildName(@GIDf1) + "^000000 guild";

+		mes " ";

+		mes "2. The guild master of ^ff0000" + GetGuildName(@GIDf1) + "^000000 is";

+		mes "    ^ff0000" + GetGuildMaster(@GIDf1) + "^000000. If anyone who objects to that,";

+		mes "    raise your sword to honor yourself.";

+		close;

+OnRecvCastleF01:

+	FlagEmblem GetCastleData("payg_cas01.gat",1);

+	break;

+}

+

+pay_gld.gat,125,236,4	script	Mingting#f1-2::MingtingW	722,{

+	set @GIDf1,GetCastleData("payg_cas01.gat",1);

+	if (@GIDf1 != 0) goto LStartg;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    this guild base has not been taken by any guild yet";

+		mes " ";

+		mes "2. In order to take this guild base, you must defeat all the guardians";

+		mes "    that are protecting the guild base and eliminate the Emperium";

+		close;

+LStartg:

+		if (getcharid(2) == @GIDf1) goto LStartg2;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    we approve that this base is in the private possession of ^ff0000" + GetGuildName(@GIDf1) + "^000000 guild";

+		mes " ";

+		mes "2. The guild master of ^ff0000" + GetGuildName(@GIDf1) + "^000000 is";

+		mes "    ^ff0000" + GetGuildMaster(@GIDf1) + "^000000. If anyone who objects to that,";

+		mes "    raise your sword to honor yourself.";

+		close;

+LStartg2:

+		mes "[ Ringing Voice ]";

+		mes "Brave man...";

+		mes "Would you return to your honorable be?";

+		next;

+		menu "Go back to your agitating point",Lenter,"Cancel",-;

+		close;

+Lenter:

+		warp "payg_cas01.gat",87,29;

+		break;

+OnRecvCastleF01:

+	FlagEmblem GetCastleData("payg_cas01.gat",1);

+	break;

+}

+

+pay_gld.gat,110,233,4	duplicate(MingtingW)	Mingting#f1-3	722

+pay_gld.gat,116,233,4	duplicate(MingtingW)	Mingting#f1-4	722

+pay_gld.gat,91,239,2	duplicate(MingtingW)	Mingting#f1-5	722

+

+//Payon Castle 02 - Tiantan

+

+payon.gat,165,173,3	script	Tiantan#f2-1	722,{

+	set @GIDf2,GetCastleData("payg_cas02.gat",1);

+	if (@GIDf2 != 0) goto LStartg;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    this guild base has not been taken by any guild yet";

+		mes " ";

+		mes "2. In order to take this guild base, you must defeat all the guardians";

+		mes "    that are protecting the guild base and eliminate the Emperium";

+		close;

+LStartg:

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    we approve that this base is in the private possession of ^ff0000" + GetGuildName(@GIDf2) + "^000000 guild";

+		mes " ";

+		mes "2. The guild master of ^ff0000" + GetGuildName(@GIDf2) + "^000000 is";

+		mes "    ^ff0000" + GetGuildMaster(@GIDf2) + "^000000. If anyone who objects to that,";

+		mes "    raise your sword to honor yourself.";

+		close;

+OnRecvCastleF02:

+	FlagEmblem GetCastleData("payg_cas02.gat",1);

+	break;

+}

+

+pay_gld.gat,292,112,6	script	Tiantan#f2-2::TiantanW	722,{

+	set @GIDf2,GetCastleData("payg_cas02.gat",1);

+	if (@GIDf2 != 0) goto LStartg;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    this guild base has not been taken by any guild yet";

+		mes " ";

+		mes "2. In order to take this guild base, you must defeat all the guardians";

+		mes "    that are protecting the guild base and eliminate the Emperium";

+		close;

+LStartg:

+		if (getcharid(2) == @GIDf2) goto LStartg2;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    we approve that this base is in the private possession of ^ff0000" + GetGuildName(@GIDf2) + "^000000 guild";

+		mes " ";

+		mes "2. The guild master of ^ff0000" + GetGuildName(@GIDf2) + "^000000 is";

+		mes "    ^ff0000" + GetGuildMaster(@GIDf2) + "^000000. If anyone who objects to that,";

+		mes "    raise your sword to honor yourself.";

+		close;

+LStartg2:

+		mes "[ Ringing Voice ]";

+		mes "Brave man...";

+		mes "Would you return to your honorable be?";

+		next;

+		menu "Go back to your agitating point",Lenter,"Cancel",-;

+		close;

+Lenter:

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

+		break;

+OnRecvCastleF02:

+	FlagEmblem GetCastleData("payg_cas02.gat",1);

+	break;

+}

+

+pay_gld.gat,292,120,6	duplicate(TiantanW)	Tiantan#f2-3	722

+pay_gld.gat,291,135,6	duplicate(TiantanW)	Tiantan#f2-4	722

+pay_gld.gat,271,163,0	duplicate(TiantanW)	Tiantan#f2-5	722

+

+//Payon Castle 03 - Fuying

+

+payon.gat,165,169,3	script	Fuying#f3-1	722,{

+	set @GIDf3,GetCastleData("payg_cas03.gat",1);

+	if (@GIDf3 != 0) goto LStartg;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    this guild base has not been taken by any guild yet";

+		mes " ";

+		mes "2. In order to take this guild base, you must defeat all the guardians";

+		mes "    that are protecting the guild base and eliminate the Emperium";

+		close;

+LStartg:

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    we approve that this base is in the private possession of ^ff0000" + GetGuildName(@GIDf3) + "^000000 guild";

+		mes " ";

+		mes "2. The guild master of ^ff0000" + GetGuildName(@GIDf3) + "^000000 is";

+		mes "    ^ff0000" + GetGuildMaster(@GIDf3) + "^000000. If anyone who objects to that,";

+		mes "    raise your sword to honor yourself.";

+		close;

+OnRecvCastleF03:

+	FlagEmblem GetCastleData("payg_cas03.gat",1);

+	break;

+}

+

+pay_gld.gat,321,298,2	script	Fuying#f3-2::FuyingW	722,{

+	set @GIDf3,GetCastleData("payg_cas03.gat",1);

+	if (@GIDf3 != 0) goto LStartg;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    this guild base has not been taken by any guild yet";

+		mes " ";

+		mes "2. In order to take this guild base, you must defeat all the guardians";

+		mes "    that are protecting the guild base and eliminate the Emperium";

+		close;

+LStartg:

+		if (getcharid(2) == @GIDf3) goto LStartg2;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    we approve that this base is in the private possession of ^ff0000" + GetGuildName(@GIDf3) + "^000000 guild";

+		mes " ";

+		mes "2. The guild master of ^ff0000" + GetGuildName(@GIDf3) + "^000000 is";

+		mes "    ^ff0000" + GetGuildMaster(@GIDf3) + "^000000. If anyone who objects to that,";

+		mes "    raise your sword to honor yourself.";

+		close;

+LStartg2:

+		mes "[ Ringing Voice ]";

+		mes "Brave man...";

+		mes "Would you return to your honorable be?";

+		next;

+		menu "Go back to your agitating point",Lenter,"Cancel",-;

+		close;

+Lenter:

+		warp "payg_cas03.gat",9,263;

+		break;

+OnRecvCastleF03:

+	FlagEmblem GetCastleData("payg_cas03.gat",1);

+	break;

+}

+

+pay_gld.gat,321,289,2	duplicate(FuyingW)	Fuying#f3-3	722

+pay_gld.gat,327,304,1	duplicate(FuyingW)	Fuying#f3-4	722

+pay_gld.gat,333,254,4	duplicate(FuyingW)	Fuying#f3-5	722

+

+//Payon Castle 04 - Honglou

+

+payon.gat,165,165,3	script	Honglou#f4-1	722,{

+	set @GIDf4,GetCastleData("payg_cas04.gat",1);

+	if (@GIDf4 != 0) goto LStartg;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    this guild base has not been taken by any guild yet";

+		mes " ";

+		mes "2. In order to take this guild base, you must defeat all the guardians";

+		mes "    that are protecting the guild base and eliminate the Emperium";

+		close;

+LStartg:

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    we approve that this base is in the private possession of ^ff0000" + GetGuildName(@GIDf4) + "^000000 guild";

+		mes " ";

+		mes "2. The guild master of ^ff0000" + GetGuildName(@GIDf4) + "^000000 is";

+		mes "    ^ff0000" + GetGuildMaster(@GIDf4) + "^000000. If anyone who objects to that,";

+		mes "    raise your sword to honor yourself.";

+		close;

+OnRecvCastleF04:

+	FlagEmblem GetCastleData("payg_cas04.gat",1);

+	break;

+}

+

+pay_gld.gat,143,160,0	script	Honglou#f4-2::HonglouW	722,{

+	set @GIDf4,GetCastleData("payg_cas04.gat",1);

+	if (@GIDf4 != 0) goto LStartg;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    this guild base has not been taken by any guild yet";

+		mes " ";

+		mes "2. In order to take this guild base, you must defeat all the guardians";

+		mes "    that are protecting the guild base and eliminate the Emperium";

+		close;

+LStartg:

+		if (getcharid(2) == @GIDf4) goto LStartg2;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    we approve that this base is in the private possession of ^ff0000" + GetGuildName(@GIDf4) + "^000000 guild";

+		mes " ";

+		mes "2. The guild master of ^ff0000" + GetGuildName(@GIDf4) + "^000000 is";

+		mes "    ^ff0000" + GetGuildMaster(@GIDf4) + "^000000. If anyone who objects to that,";

+		mes "    raise your sword to honor yourself.";

+		close;

+LStartg2:

+		mes "[ Ringing Voice ]";

+		mes "Brave man...";

+		mes "Would you return to your honorable be?";

+		next;

+		menu "Go back to your agitating point",Lenter,"Cancel",-;

+		close;

+Lenter:

+		warp "payg_cas04.gat",40,235;

+		break;

+OnRecvCastleF04:

+	FlagEmblem GetCastleData("payg_cas04.gat",1);

+	break;

+}

+

+pay_gld.gat,143,160,0	duplicate(HonglouW)	Honglou#f4-3	722

+pay_gld.gat,133,151,2	duplicate(HonglouW)	Honglou#f4-4	722

+pay_gld.gat,153,166,1	duplicate(HonglouW)	Honglou#f4-5	722

+

+//Payon Castle 05 - Zhulinxian

+

+payon.gat,165,161,3	script	Zhulinxian#f5-1	722,{

+	set @GIDf5,GetCastleData("payg_cas05.gat",1);

+	if (@GIDf5 != 0) goto LStartg;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    this guild base has not been taken by any guild yet";

+		mes " ";

+		mes "2. In order to take this guild base, you must defeat all the guardians";

+		mes "    that are protecting the guild base and eliminate the Emperium";

+		close;

+LStartg:

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    we approve that this base is in the private possession of ^ff0000" + GetGuildName(@GIDf5) + "^000000 guild";

+		mes " ";

+		mes "2. The guild master of ^ff0000" + GetGuildName(@GIDf5) + "^000000 is";

+		mes "    ^ff0000" + GetGuildMaster(@GIDf5) + "^000000. If anyone who objects to that,";

+		mes "    raise your sword to honor yourself.";

+		close;

+OnRecvCastleF05:

+	FlagEmblem GetCastleData("payg_cas05.gat",1);

+	break;

+}

+

+pay_gld.gat,208,268,4	script	Zhulinxian#f5-2::ZhulinxianW	722,{

+	set @GIDf5,GetCastleData("payg_cas05.gat",1);

+	if (@GIDf5 != 0) goto LStartg;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    this guild base has not been taken by any guild yet";

+		mes " ";

+		mes "2. In order to take this guild base, you must defeat all the guardians";

+		mes "    that are protecting the guild base and eliminate the Emperium";

+		close;

+LStartg:

+		if (getcharid(2) == @GIDf5) goto LStartg2;

+		mes "[ Edict of the Divine Rune Midgard Kingdom of Payon ]";

+		mes " ";

+		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Payon,";

+		mes "    we approve that this base is in the private possession of ^ff0000" + GetGuildName(@GIDf5) + "^000000 guild";

+		mes " ";

+		mes "2. The guild master of ^ff0000" + GetGuildName(@GIDf5) + "^000000 is";

+		mes "    ^ff0000" + GetGuildMaster(@GIDf5) + "^000000. If anyone who objects to that,";

+		mes "    raise your sword to honor yourself.";

+		close;

+LStartg2:

+		mes "[ Ringing Voice ]";

+		mes "Brave man...";

+		mes "Would you return to your honorable be?";

+		next;

+		menu "Go back to your agitating point",Lenter,"Cancel",-;

+		close;

+Lenter:

+		warp "payg_cas05.gat",276,227;

+		break;

+OnRecvCastleF05:

+	FlagEmblem GetCastleData("payg_cas05.gat",1);

+	break;

+}

+

+pay_gld.gat,199,268,4	duplicate(ZhulinxianW)	Zhulinxian#f5-3	722

+pay_gld.gat,190,277,3	duplicate(ZhulinxianW)	Zhulinxian#f5-4	722

+pay_gld.gat,187,294,2	duplicate(ZhulinxianW)	Zhulinxian#f5-5	722
\ No newline at end of file