diff options
Diffstat (limited to 'npc/guild/old/payg_cas05.txt')
| -rw-r--r-- | npc/guild/old/payg_cas05.txt | 666 |
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; - -} |