Clearing trunk.

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

1 files changed, 0 insertions, 666 deletions

diff --git a/npc/guild/old/payg_cas05.txt b/npc/guild/old/payg_cas05.txt
deleted file mode 100644
index 8035bfd21..000000000
--- a/npc/guild/old/payg_cas05.txt
+++ /dev/null
@@ -1,666 +0,0 @@
-//===== eAthena Script =======================================
-//= War of Emperium - payg_cas05 script
-//===== By: ==================================================
-//= jAthena - kalen (1.0)
-//===== Current Version: =====================================
-//= 1.1
-//===== Compatible With: =====================================
-//= eAthena 0.1+; RO Episode 4+
-//===== Description: =========================================
-//= Guild Flags, Kafra and Guild Manager scripts in payg_cas05
-//===== Additional Comments: =================================
-//= 1.1 by Akaru, ho|yAnge|X, and Valaris
-//============================================================
-
-payg_cas05.gat,32,249,4	script	Zhulinxian#f5-6::ZhulinxianNW	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;
-}
-
-payg_cas05.gat,24,249,4	duplicate(ZhulinxianNW)	Zhulinxian#f5-7	722
-payg_cas05.gat,62,271,0	duplicate(ZhulinxianNW)	Zhulinxian#f5-8	722
-payg_cas05.gat,57,271,0	duplicate(ZhulinxianNW)	Zhulinxian#f5-9	722
-payg_cas05.gat,55,252,2	duplicate(ZhulinxianNW)	Zhulinxian#f5-10	722
-payg_cas05.gat,55,260,2	duplicate(ZhulinxianNW)	Zhulinxian#f5-11	722
-
-//================================================
-// Kafra Service
-//================================================
-payg_cas05.gat,276,227,1	script	Kafra Service#pay5	117,{
-	cutin "kafra_01",2;
-	set @GIDf5,GetCastleData("payg_cas05.gat",1);
-	if (getcharid(2) == @GIDf5) goto LStartg;
-	mes "[Kafra Service]";
-	mes "I am here to serve only ^ff0000" + GetGuildName(@GIDf5) + "^000000 members. Please use different Kafra Service. Thank you.";
-	goto L_EXIT;
-LStartg:
-	mes "[Kafra Service]";
-	mes "Welcome, ^ff0000" + GetGuildName(@GIDf5) + "^000000 members";
-	mes "We will stay with you wherever you go";
-	next;
-	menu "Open Storage",L2,"Teleport Service",L3,"Use Cart Service",L4,"Cancel",L7;
-//================================================
-// Storage
-//================================================
-L2:
-	if(getskilllv(1) < 6) goto Lerror2_1;
-		openstorage;
-		goto L_EXIT;
-	Lerror2_1:
-		mes "[Kafra Service]";
-		mes "You must have lvl 6 or higher novice skill.";
-		goto L_EXIT;
-//================================================
-// Teleport Service
-//================================================
-L3:
-	mes "[Kafra Service]";
-	mes "Please confirm your destination.";
-	next;
-	menu "Payon -> 200 z",L3_1,"Cancel",L3_2;
-		L3_1:
-			if (Zeny < 200) goto Lerror3;
-			set Zeny,Zeny-200;
-			warp "payon.gat",82,128;
-break;
-		L3_2:
-				mes "[Kafra Service]";
-				mes "Kafra Service always trying to offer best service for you.";
-				mes "Thank you for using our service.";
-				goto L_EXIT;
-		Lerror3:
-				mes "[Kafra Service]";
-  				mes "Sorry, you don't have enough Zeny to use the teleport service.";
-				goto L_EXIT;
-//================================================
-// Cart Rental
-//================================================
-L4:
-	if (!((Class == 5) || (Class == 10) || (Class == 18) || (Class == 4006) || (Class == 4011) || (Class == 4019))) goto Lerror4_1;
-	if (checkcart(0) == 1) goto Lerror4_3;
-	mes "[Kafra Service]";
-	mes "The cart rental fee is 800 Zeny.";
-	mes "Would you like to rent a cart?";
-	next;
-	menu "Rent a Cart",L4_1,"Cancel",-;
-		mes "[Kafra Service]";
-		mes "We always try to serve you better.";
-		mes "Thank you for using our service.";
-		goto L_EXIT;
-	L4_1:
-		If(getskilllv(39) == 0) goto Lerror4_4;
-		if (Zeny < 800) goto Lerror4_2;
-		set Zeny,Zeny-800;
-		setcart;
-		goto L_EXIT;
-	//Not a merchant class
-	Lerror4_1:
-		mes "[Kafra Service]";
-		mes "Sorry, the cart rental service is only for the merchant class.";
-		goto L_EXIT;
-	//Not enough zenny
-	Lerror4_2:
-		mes "[Kafra Service]";
-		mes "Sorry, you don't have enough zeny. You need 800 Zeny.";
-		goto L_EXIT;
-	//Already have cart
-	Lerror4_3:
-		mes "[Kafra Service]";
-		mes "Sorry, you already have a cart now.";
-		mes "Return when you dont have one and are in need of our service.";
-		goto L_EXIT;
-	//No Pushcart Skill
-	Lerror4_4:
-		mes "[Kafra Service]";
-		mes "Sorry, you need to learn the skill [Pushcart] first";
-		goto L_EXIT;
-//================================================
-// Cancel
-//================================================
-L7:
-	mes "[Kafra Service]";
-	mes "We will always try to serve you better.";
-	mes "Thank you for using our service.";
-	goto L_EXIT;
-L_EXIT:
-	cutin "kafra_01",255;
-	close;
-OnInit:
-	if (GetCastleData("payg_cas05.gat",9) == 1) break;
-	disablenpc "Kafra Service#pay5";
-	break;
-}
-
-//================================================
-// Guild Dungeon Switch
-//================================================
-payg_cas05.gat,238,11,0	script	Switch	111,{
-	mes "[ Vibration of Man's Voice ]";
-	mes " ' Only brave man get to lead the guild base.. '";
-	next;
-	mes " ";
-	mes "There is little switch over here";
-	mes "Would you like to pull the switch down?";
-	next;
-	menu "Yes",-,"No",L2;
-	set @GIDf5,GetCastleData("payg_cas05.gat",1);
-	if (getcharid(2) != @GIDf5) goto L1n;
-	warp "gld_dun01.gat",223,202;
-	break;
-L1n:
-	mes "[ Vibration of Man's Voice ]";
-	mes " ' ... ' ";
-L2:
-	close;
-}
-
-//================================================
-// Guild Castle Manager
-//================================================
-
-payg_cas05.gat,277,249,3	script	Najarf	55,{
-	set @GIDf5,GetCastleData("payg_cas05.gat",1);
-	if (@GIDf5 == 0) goto LStart;
-	if (getcharid(2) != @GIDf5) goto LStart2;
-	if (strcharinfo(0) == getguildmaster(@GIDf5)) goto LStart3;
-	goto LStart1;
-
-//================================================
-// Guild Members
-//================================================
-LStart1:
-	mes "[ Najarf ]";
-	mes "You're not ^ff0000" + getguildmaster(@GIDf5) + "^000000 ! I am here to follow ^ff0000" + getguildmaster(@GIDf5) + "^000000 's command only";
-	close;
-//================================================
-// Castle not owned
-//================================================
-LStart:
-	mes "[ Najarf ]";
-	mes "I am waiting for my master.";
-	mes "Brave Player! Follow your destiny!";
-	close;
-//================================================
-// Non-Guild Members
-//================================================
-LStart2:
-	mes "[ Najarf ]";
-	mes "I am here to follow ^ff0000" + getguildmaster(@GIDf5) + "^000000 's command! Where are the guardians? Destroy these bastards!";
-	close;
-//================================================
-// Guild Leader
-//================================================
-LStart3:
-	mes "[ Najarf ]";
-	mes "Welcome Master ^ff0000" + getguildmaster(@GIDf5) + "^000000 !";
-	mes "I'll do anything you tell me to do sir!.";
-	next;
-	menu "Guild Base Briefing",L1,"Commerce Investment",L2,"Defence Investment",L3,"Guardian Installation",L4,"Kafra Service Employment / Dismissal",L5,"Enter Master's Room",L6,"Empty Guild Base",L7;
-//-----------------------------------------------------------
-//================================================
-// Guild Base Briefing
-//================================================
-L1:
-	mes "[ Najarf ]";
-	mes "Guild Base Investment Information.";
-	mes " ";
-	mes "Current Commerce Investment is : " + GetCastleData("payg_cas05.gat",2) + " points.";
-	mes "^0000ff - You have invested " + GetCastleData("payg_cas05.gat",4)  + "times today.^000000";
-	mes " ";
-	mes "Current Defence Investment is : " + GetCastleData("payg_cas05.gat",3)  + "points.";
-	mes "^0000ff- You have invested" +  GetCastleData("payg_cas05.gat",5)  + "times today.^000000";
-	mes " ";
-	mes "That is about it.";
-	close;
-//================================================
-// Commerce Investment
-//================================================
-L2:
-	set @TriggerE,GetCastleData("payg_cas05.gat",4);
-	set @Economy,GetCastleData("payg_cas05.gat",2);
-	if(@Economy < 8) set $eco_invest,10000;
-	if(@Economy >= 8) set $eco_invest,20000;
-	if(@Economy >= 16) set $eco_invest,40000;
-	if(@Economy >= 25) set $eco_invest,80000;
-	if(@Economy >= 34) set $eco_invest,160000;
-	if(@Economy >= 44) set $eco_invest,320000;
-	if(@Economy >= 54) set $eco_invest,640000;
-	if(@Economy >= 65) set $eco_invest,1280000;
-	if(@Economy >= 76) set $eco_invest,2560000;
-	if(@Economy >= 88) set $eco_invest,5120000;
-	if(@TriggerE == 0) goto L2_1;
-	if(@TriggerE == 1) goto L2_1_2;
-	if(@Economy >= 100) goto L2_2;
-	mes "[ Najarf ]";
-	mes "If you improve your Commerce Investment, the guild's productive power increases to produce more goods. So an investment will be required if you consider the future";
-	mes " ";
-	mes "You can invest up to two times a day, but the second time costs more";
-	mes " ";
-	mes "^ff0000You have already invested twice today, and that's the limit.^000000 I'm expecting to see our riches grow at a high level.";
- 	close;
-L2_1:
-	if(@TriggerE == 1) goto L2_1_2;
-	mes "[ Najarf ]";
-	mes "If you improve your Commerce Investment, the guild's productive power increases to produce more goods. So an investment will be required if you consider the future";
-	mes " ";
-	mes "You can invest up to two times a day, but the second time costs more";
-	mes " ";
-	mes "The needed investment amount is ^ff0000" + $eco_invest + "^000000 zeny. Would you like to invest?";
-	next;
-	menu "Invest Commerce.",L2_1_1,"Cancel.",-;
-		mes "[ Najarf ]";
-		mes "As you wish, master.";
-		close;
-	L2_1_1:
-		if(Zeny < $eco_invest) goto L2_error;
-		set Zeny,Zeny-$eco_invest;
-		SetCastleData "payg_cas05.gat",4,@TriggerE+1;
-		SetCastleData "payg_cas05.gat",2,@Economy+1;
-		mes "[ Najarf ]";
-		mes "You have invested successfully.";
-		close;
-		
-L2_1_2:
-	set $eco_invest,$eco_invest*4;
-	mes "[ Najarf ]";
-	mes "If you improve your Commerce Investment, the guild's productive power increases to produce more goods. So an investment will be required if you consider the future";
-	mes " ";
-	mes "You can invest up to two times a day, but the second time costs more";
-	mes " ";
-	mes "You've already invested once today, but you can invest again at ^ff0000" + $eco_invest + "^000000 Zeny. Would you like to invest again?";
-	next;
-	menu "Invest Commerce.",L2_1_3,"Cancel.",-;
-		mes "[ Najarf ]";
-		mes "As you wish, master.";
-		close;
-	L2_1_3:
-		if(Zeny < $eco_invest) goto L2_error;
-		set Zeny,Zeny-$eco_invest;
-		SetCastleData "payg_cas05.gat",4,@TriggerE+1;
-		SetCastleData "payg_cas05.gat",2,@Economy+1;
-		mes "[ Najarf ]";
-		mes "You have invested successfully";
-		close;
-
-L2_2:
-		mes "[ Najarf ]";
-		mes " ";
-		mes "^ff0000This Castle's commerce investment is already maxed at 100 points. You don't have to invest any further.^000000";
-	 	close;
-
-L2_error:
-	mes "[ Najarf ]";
-	mes "Master, you do not have enough money to invest. Investment has been cancelled.";
-	close;
-//================================================
-// Defence Investment
-//================================================
-L3:
-	set @TriggerD,GetCastleData("payg_cas05.gat",5);
-	set @Defence,GetCastleData("payg_cas05.gat",3);
-	if(@Defence < 8) set $def_invest,20000;
-	if(@Defence >= 8) set $def_invest,40000;
-	if(@Defence >= 16) set $def_invest,80000;
-	if(@Defence >= 25) set $def_invest,160000;
-	if(@Defence >= 34) set $def_invest,320000;
-	if(@Defence >= 44) set $def_invest,640000;
-	if(@Defence >= 54) set $def_invest,1280000;
-	if(@Defence >= 65) set $def_invest,2560000;
-	if(@Defence >= 76) set $def_invest,5120000;
-	if(@Defence >= 88) set $def_invest,10240000;
-	if(@TriggerD == 0) goto L3_1;
-	if(@TriggerD == 1) goto L3_1_2;
-	if(@Defence >= 100) goto L3_2;
-	mes "[ Najarf ]";
-	mes "If you improve investment of defence, the durability of our guardians and the emperium will increase. So if you consider our future battles, an investment will be required.";
-	mes " ";
-	mes "You can invest up to two times a day, but the second time costs more";
-	mes " ";
-	mes "^ff0000You have already invested twice today, and that's the limit.^000000 I'm expecting to see our riches grow at a high level.";
- 	close;
- 	
-L3_1:
-	if(@TriggerD == 1) goto L3_1_2;
-	mes "[ Najarf ]";
-	mes "If you improve investment of defence, the durability of our guardians and the emperium will increase. So if you consider our future battles, an investment will be required.";
-	mes " ";
-	mes "You can invest up to two times a day, but the second time costs more";
-	mes " ";
-	mes "The needed investment amount is ^ff0000" + $def_invest + "^000000 zeny. Would you like to invest?";
-	next;
-	menu "Invest Defence.",L3_1_1,"Cancel",-;
-		mes "[ Najarf ]";
-		mes "As you wish, master.";
-		close;
-		
-	L3_1_1:
-		if(Zeny < $def_invest) goto L3_error;
-		set Zeny,Zeny-$def_invest;
-		SetCastleData "payg_cas05.gat",5,@TriggerD+1;
-		SetCastleData "payg_cas05.gat",3,@Defence+1;
-		mes "[ Najarf ]";
-		mes "You have invested successfully.";
-		close;
-L3_1_2:
-	set $def_invest,$def_invest*4;
-	mes "[ Najarf ]";
-	mes "If you improve investment of defence, the durability of our guardians and the emperium will increase. So if you consider our future battles, an investment will be required.";
-	mes " ";
-	mes "You can invest up to two times a day, but the second time costs more";
-	mes " ";
-	mes "You've already invested once today, but you can invest again at ^ff0000" + $eco_invest + "^000000 Zeny. Would you like to invest again?";
-	next;
-	menu "Invest Defence.",L3_1_3,"Cancel",-;
-		mes "[ Najarf ]";
-		mes "As you wish, master.";
-		close;
-		
-	L3_1_3:
-		if(Zeny < $def_invest) goto L3_error;
-		set Zeny,Zeny-$def_invest;
-		SetCastleData "payg_cas05.gat",5,@TriggerD+1;
-		SetCastleData "payg_cas05.gat",3,@Defence+1;
-		mes "[ Najarf ]";
-		mes "You have invested successfully.";
-		close;
-L3_2:
-		mes "[ Najarf ]";
-		mes " ";
-		mes "^ff0000This Castle's Defence Investment is already maxed at 100 points. You don't have to invest any further.^000000";
-	 	close;
-L3_error:
-	mes "[ Najarf ]";
-	mes "Master, you do not have enough money to invest, investment has been cancelled.";
-	close;
-//================================================
-// Guardian Installation
-//================================================
-L4:
-	If(getskilllv(10002) == 0) goto L4Error;
-	set @Defence,GetCastleData("payg_cas05.gat",3);
-	set @Guardian0,guardianinfo(0);
-	set @Guardian1,guardianinfo(1);
-	set @Guardian2,guardianinfo(2);
-	set @Guardian3,guardianinfo(3);
-	set @Guardian4,guardianinfo(4);
-	set @Guardian5,guardianinfo(5);
-	set @Guardian6,guardianinfo(6);
-	set @Guardian7,guardianinfo(7);
-	set @SGuardian,strmobinfo(4,1287)+2000*@Defence;
-	set @AGuardian,strmobinfo(4,1286)+2000*@Defence;
-	set @KGuardian,strmobinfo(4,1285)+2000*@Defence;
-
-	mes "[ Najarf ]";
-	mes "Would you like to install a guardian? Guardian will protect guild base from enemies.";
-	mes "Please choose guardian.";
-	next;
-	
-	menu 	"Soldier Guardian (" + @Guardian0 + "/" + @SGuardian + ")",L4_1,
-		"Soldier Guardian (" + @Guardian1 + "/" + @SGuardian + ")",L4_2,
-		"Soldier Guardian (" + @Guardian2 + "/" + @SGuardian + ")",L4_3,
-		"Archer Guardian (" + @Guardian3 + "/" + @AGuardian + ")",L4_4,
-		"Archer Guardian (" + @Guardian4 +"/" + @AGuardian + ")",L4_5,
-		"Knight Guardian (" + @Guardian5 +"/" + @KGuardian + ")",L4_6,
-		"Knight Guardian (" + @Guardian6 + "/" + @KGuardian + ")",L4_7,
-		"Knight Guardian (" + @Guardian7 + "/" + @KGuardian + ")",L4_8;
-	
-		L4_1:
-			if (GetCastleData("payg_cas05.gat",10) == 1) goto L4Error2;
-			set @GDnum,10;
-			set @GDnum2,18;
-			set @GuardianHP,@SGuardian;
-			goto L4_9;
-		L4_2:
-			if (GetCastleData("payg_cas05.gat",11) == 1) goto L4Error2;
-			set @GDnum,11;
-			set @GDnum2,19;
-			set @GuardianHP,@SGuardian;
-			goto L4_9;
-		L4_3:
-			if (GetCastleData("payg_cas05.gat",12) == 1) goto L4Error2;
-			set @GDnum,12;
-			set @GDnum2,20;
-			set @GuardianHP,@SGuardian;
-			goto L4_9;
-		L4_4:
-			if (GetCastleData("payg_cas05.gat",13) == 1) goto L4Error2;
-			set @GDnum,13;
-			set @GDnum2,21;			
-			set @GuardianHP,@AGuardian;
-			goto L4_9;
-		L4_5:
-			if (GetCastleData("payg_cas05.gat",14) == 1) goto L4Error2;
-			set @GDnum,14;
-			set @GDnum2,22;			
-			set @GuardianHP,@AGuardian;			
-			goto L4_9;
-		L4_6:
-			if (GetCastleData("payg_cas05.gat",15) == 1) goto L4Error2;
-			set @GDnum,15;
-			set @GDnum2,23;		
-			set @GuardianHP,@KGuardian;
-			goto L4_9;
-		L4_7:
-			if (GetCastleData("payg_cas05.gat",16) == 1) goto L4Error2;
-			set @GDnum,16;
-			set @GDnum2,24;
-			set @GuardianHP,@KGuardian;
-			goto L4_9;
-		L4_8:
-			if (GetCastleData("payg_cas05.gat",17) == 1) goto L4Error2;
-			set @GDnum,17;
-			set @GDnum2,25;			
-			set @GuardianHP,@KGuardian;
-			goto L4_9;
-
-	L4_9:
-		mes "[ Najarf ]";
-		mes "Would you really like to install guardian? You need 10,000 zeny to install.";
-		next;
-		menu "Install",L4_9_1,"Cancel",-;
-			mes "[ Najarf ]";
-			mes "I'll follow your order sir, but it is worth to have a guardian soon or later.";
-			close;
-		L4_9_1:
-		if (Zeny < 10000) goto L4Error3;
-		set Zeny,Zeny-10000;
-		SetCastleData "payg_cas05.gat",@GDnum,1;
-		SetCastleData "payg_cas05.gat",@GDnum2,@GuardianHP;
-		if(@GDnum==10) guardian "payg_cas05.gat",51,258,"Soldier Guardian",1287,1,"Guardian_C05::OnGuardianDied",0; 
-		if(@GDnum==11) guardian "payg_cas05.gat",286,235,"Soldier Guardian",1287,1,"Guardian_C05::OnGuardianDied",1; 
-		if(@GDnum==12) guardian "payg_cas05.gat",282,277,"Soldier Guardian",1287,1,"Guardian_C05::OnGuardianDied",2;
-		if(@GDnum==13) guardian "payg_cas05.gat",46,273,"Archer Guardian",1285,1,"Guardian_C05::OnGuardianDied",3; 
-		if(@GDnum==14) guardian "payg_cas05.gat",289,256,"Archer Guardian",1285,1,"Guardian_C05::OnGuardianDied",4; 
-		if(@GDnum==15) guardian "payg_cas05.gat",275,42,"Knight Guardian",1286,1,"Guardian_C05::OnGuardianDied",5; 
-		if(@GDnum==16) guardian "payg_cas05.gat",254,9,"Knight Guardian",1286,1,"Guardian_C05::OnGuardianDied",6; 
-		if(@GDnum==17) guardian "payg_cas05.gat",236,256,"Knight Guardian",1286,1,"Guardian_C05::OnGuardianDied",7;
-		mes "[ Najarf ]";
-		mes "Guardian has been installed, guardian will protect our guild base against enemies.";
-		close;
-L4Error:
-	mes "[ Najarf ]";
-	mes "Master, you cannot install guardians because the guild had not learnt the ^ff0000Guardian Research^000000 skill. Guardian Installation has been cancelled.";
-	close;
-L4Error2:
-	mes "[ Najarf ]";
-	mes "Master, that guardian has already been installed..";
-	close;
-L4Error3:
-	mes "[ Najarf ]";
-	mes "Master, you do not have enough money to invest, investment has been cancelled.";
-	close;
-
-//================================================
-// Kafra Employment
-//================================================
-L5:
-	if (GetCastleData("payg_cas05.gat",9) == 1) goto Lkafra_dimi;
-//================================================
-//(When Kafra is off) Employment
-//================================================
-	If(getskilllv(10001) == 0) goto L_k_a;
-	mes "[ Najarf ]";
-	mes "Would you like to employ the services of a Kafra Service?";
-	mes "^ff0000 You need 10,000 Zeny to employ... ";
-	next;
-	menu "Employ Kafra.",L_k_0,"Cancel",L_k_E;
-
-	L_k_a:
-		mes "[ Najarf ]";
-		mes "Master, you don't have a contract with the Kafra Service Company. In order to hire, a kafra, it is important to be contracted with the Kafra Service by having Guild Skill ^ff0000Contract With Kafra^000000. Employment has been cancelled .";
-		close;
-	L_k_0:
-		if (Zeny > 10000) goto L_k_1;
-		mes "[ Najarf ]";
-		mes "Master, you do not have enough money to employ Kafra. Employment has been cancelled.";
-		close;
-	L_k_1:
-		set Zeny,Zeny-10000;
-		enablenpc "Kafra Service#pay5";
-		SetCastleData "payg_cas05.gat",9,1;
-		mes "[ Najarf ]";
-		mes "You have been contracted with Kafra Service Company.";
-		next;
-		cutin "kafra_01",2;
-		mes "[ Kafra Service ]";
-		mes "How do you do? I came here to follow your orders!.";
-		mes "I'll do the best I can to serve you better.";
-		next;
-		cutin "kafra_01",255;
-		mes "[ Najarf ]";
-		mes "Your employment contract lasts one month.";
-		mes "After this term, you'll have to pay again.";
-		mes "I think the Kafra Service will benefit our guild members.";
-		close;
-L_k_e:
-		mes "[ Najarf ]";
-		mes "Yes, Master. But we should really get a Kafra as soon as possible!";
-		close;
-//=========================
-//(When Kafra is on) Dismissal
-//=========================
-Lkafra_dimi:
-	mes "[ Najarf ]";
-	mes "Would you like to dismiss the current Kafra Service?";
-	next;
-	menu "Dismissal",-,"Cancel",L_D_1;
-		cutin "kafra_01",2;
-		mes "[ Kafra Service ]";
-		mes "Have I did anything wrong? If yes, would you please forgive me?";
-		next;
-		menu "Dismiss",-,"Cancel",L_D_2;
-				mes "[ Kafra Service ]";
-				mes "It's such unfortunate that I'm unable to serve master anymore";
-				next;
-				disablenpc "Kafra Service#pay5";
-				SetCastleData "payg_cas05.gat",9,0;
-				cutin "kafra_01",255;
-				mes "[ Najarf ]";
-				mes "The Kafra Service had been dismissed";
-				mes "But... we should really get a Kafra as soon as possible!";
-				close;
-			L_D_2:
-				mes "[ Kafra Service ]";
-				mes "Thank you master, I'll do my best! ^^.";
-				cutin "kafra_01",255;
-				close;
-		L_D_1:
-			mes "[ Najarf ]";
-			mes "Master, I think you should keep the current Kafra Service because she is already trying her best to serve us";
-			close;
-L5_1:
-//================================================
-// Guild Treasure Room
-//================================================
-L6:
-	mes "[ Najarf ]";
-	mes "Would you like to get into our treasure room?";
-	mes "That place is only for guild master, which means you are the only one who has access to enter.";
-	next;
-	menu "Enter Master's room.",-,"Cancel",L6_1;
-			mes "[ Najarf ]";
-			mes "Please follow me through the secret way.";
-			mes "You must push down the secret switch in order to get out.";
-			next;
-			warp "payg_cas05",156,131;
-		L6_1:
-			mes "[ Najarf ]";
-			mes "The goods are produced everyday.";
-			mes "You should get them whenever you can because they might dissapear if you take them at the wrong time.";
-			close;
-//================================================
-// Surrender Castle
-//================================================
-L7:
-	mes "[ Najarf ]";
-	mes "Master..";
-	mes "Do you really want to give up this guild base?";
-	mes "It is not worth it to give up this guild base, master!!!";
-	mes "Please reconsider, master!!";
-	next;
-	menu "Empty Guild Base",L7_1,"Cancel",L7_2;
-		L7_1:
-			mes "[ Najarf ]";
-			mes "Master, please reconsider...!!";
-			next;
-			menu "Cancel",L7_2,"Empty Guild Base",-;
-				mes "[ Najarf ]";
-				mes "Master!!.....";
-				mes "Oh well..";
-				next;
-		SetCastleData "payg_cas05.gat",1,0;
-		SetCastleData "payg_cas05.gat",2,0;
-		SetCastleData "payg_cas05.gat",3,0;
-		SetCastleData "payg_cas05.gat",4,0;
-		SetCastleData "payg_cas05.gat",5,0;
-		SetCastleData "payg_cas05.gat",6,0;
-		SetCastleData "payg_cas05.gat",7,0;
-		SetCastleData "payg_cas05.gat",8,0;
-		SetCastleData "payg_cas05.gat",9,0;
-		SetCastleData "payg_cas05.gat",10,0;
-		SetCastleData "payg_cas05.gat",11,0;
-		SetCastleData "payg_cas05.gat",12,0;
-		SetCastleData "payg_cas05.gat",13,0;
-		SetCastleData "payg_cas05.gat",14,0;
-		SetCastleData "payg_cas05.gat",15,0;
-		SetCastleData "payg_cas05.gat",16,0;
-		SetCastleData "payg_cas05.gat",17,0;
-		SetCastleData "payg_cas05.gat",18,0;
-		SetCastleData "payg_cas05.gat",19,0;
-		SetCastleData "payg_cas05.gat",20,0;
-		SetCastleData "payg_cas05.gat",21,0;
-		SetCastleData "payg_cas05.gat",22,0;
-		SetCastleData "payg_cas05.gat",23,0;
-		SetCastleData "payg_cas05.gat",24,0;
-		SetCastleData "payg_cas05.gat",25,0;
-		Announce "[" + GetGuildName(@GIDf5) + "] has surrendered Agit [" + GetCastleName("payg_cas05.gat") + "]",0;
-		MapRespawnGuildID "payg_cas05.gat",GetCastleData("payg_cas05.gat",1),7;
-		break;
-		L7_2:
-			mes "[ Najarf ]";
-			mes "I knew it master!!";
-			mes "Please, don't freak me out like that again.";
-			close;
-
-}