summaryrefslogtreecommitdiff
path: root/npc/guild/old/aldeg_cas01.txt
diff options
context:
space:
mode:
authoramber <amber@54d463be-8e91-2dee-dedb-b68131a5f0ec>2004-11-14 16:18:26 +0000
committeramber <amber@54d463be-8e91-2dee-dedb-b68131a5f0ec>2004-11-14 16:18:26 +0000
commit581475bc6416790765c498aa3d611f6868ffb64a (patch)
tree347ebf88eaa76e50488f23989d67cad834f3c9b1 /npc/guild/old/aldeg_cas01.txt
parent600362764ce348c5c9de96eababff2e08bb90d4a (diff)
downloadhercules-581475bc6416790765c498aa3d611f6868ffb64a.tar.gz
hercules-581475bc6416790765c498aa3d611f6868ffb64a.tar.bz2
hercules-581475bc6416790765c498aa3d611f6868ffb64a.tar.xz
hercules-581475bc6416790765c498aa3d611f6868ffb64a.zip
Fixed some file types
git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/athena@172 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'npc/guild/old/aldeg_cas01.txt')
-rw-r--r--npc/guild/old/aldeg_cas01.txt1350
1 files changed, 675 insertions, 675 deletions
diff --git a/npc/guild/old/aldeg_cas01.txt b/npc/guild/old/aldeg_cas01.txt
index d61a2d5c7..350e79f3c 100644
--- a/npc/guild/old/aldeg_cas01.txt
+++ b/npc/guild/old/aldeg_cas01.txt
@@ -1,675 +1,675 @@
-//===== eAthena Script =======================================
-//= War of Emperium - aldeg_cas01 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 aldeg_cas01
-//===== Additional Comments: =================================
-//= 1.1 by Akaru, ho|yAnge|X, and Valaris
-//============================================================
-
-aldeg_cas01.gat,30,248,4 script Noisyubantian#a1-6::NoisyubantianNW 722,{
- set @GIDa1,GetCastleData("aldeg_cas01.gat",1);
- if (@GIDa1 != 0) goto LStartg;
- mes "[ Edict of the Divine Rune Midgard Kingdom of Al de Baran ]";
- mes " ";
- mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Al de Baran,";
- 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 Al de Baran ]";
- mes " ";
- mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Al de Baran,";
- mes " we approve that this base is in the private possession of ^ff0000" + GetGuildName(@GIDa1) + "^000000 guild";
- mes " ";
- mes "2. The guild master of ^ff0000" + GetGuildName(@GIDa1) + "^000000 is";
- mes " ^ff0000" + GetGuildMaster(@GIDa1) + "^000000. If anyone who objects to that,";
- mes " raise your sword to honor yourself.";
- close;
-OnRecvCastleA01:
- FlagEmblem GetCastleData("aldeg_cas01.gat",1);
- break;
-}
-
-aldeg_cas01.gat,30,246,4 duplicate(NoisyubantianNW) Noisyubantian#a1-7 722
-aldeg_cas01.gat,37,248,4 duplicate(NoisyubantianNW) Noisyubantian#a1-8 722
-aldeg_cas01.gat,37,246,4 duplicate(NoisyubantianNW) Noisyubantian#a1-9 722
-aldeg_cas01.gat,95,80,2 duplicate(NoisyubantianNW) Noisyubantian#a1-10 722
-aldeg_cas01.gat,95,59,2 duplicate(NoisyubantianNW) Noisyubantian#a1-11 722
-aldeg_cas01.gat,62,75,2 duplicate(NoisyubantianNW) Noisyubantian#a1-12 722
-aldeg_cas01.gat,70,75,2 duplicate(NoisyubantianNW) Noisyubantian#a1-13 722
-aldeg_cas01.gat,74,75,2 duplicate(NoisyubantianNW) Noisyubantian#a1-14 722
-aldeg_cas01.gat,62,64,2 duplicate(NoisyubantianNW) Noisyubantian#a1-15 722
-aldeg_cas01.gat,66,64,2 duplicate(NoisyubantianNW) Noisyubantian#a1-16 722
-aldeg_cas01.gat,70,64,2 duplicate(NoisyubantianNW) Noisyubantian#a1-17 722
-aldeg_cas01.gat,74,64,2 duplicate(NoisyubantianNW) Noisyubantian#a1-18 722
-aldeg_cas01.gat,203,150,4 duplicate(NoisyubantianNW) Noisyubantian#a1-19 722
-aldeg_cas01.gat,210,150,4 duplicate(NoisyubantianNW) Noisyubantian#a1-20 722
-
-//================================================
-// Kafra Service
-//================================================
-aldeg_cas01.gat,218,170,0 script Kafra Service#alde1 117,{
- cutin "kafra_01",2;
- set @GIDa1,GetCastleData("aldeg_cas01.gat",1);
- if (getcharid(2) == @GIDa1) goto LStartg;
- mes "[Kafra Service]";
- mes "I am here to serve only ^ff0000" + GetGuildName(@GIDa1) + "^000000 members. Please use different Kafra Service. Thank you.";
- goto L_EXIT;
-LStartg:
- mes "[Kafra Service]";
- mes "Welcome, ^ff0000" + GetGuildName(@GIDa1) + "^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 "Al de Baran -> 200 z",L3_1,"Cancel",L3_2;
- L3_1:
- if (Zeny < 200) goto Lerror3;
- set Zeny,Zeny-200;
- warp "aldebaran.gat",132,103;
-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("aldeg_cas01.gat",9) == 1) break;
- disablenpc "Kafra Service#alde1";
- break;
-}
-
-//================================================
-// Guild Dungeon Switch
-//================================================
-aldeg_cas01.gat,123,223,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 @GIDa1,GetCastleData("aldeg_cas01.gat",1);
- if (getcharid(2) != @GIDa1) goto L1n;
- warp "gld_dun02.gat",32,122;
- break;
-L1n:
- mes "[ Vibration of Man's Voice ]";
- mes " ' ... ' ";
-L2:
- close;
-}
-
-//================================================
-// Guild Castle Manager
-//================================================
-
-aldeg_cas01.gat,218,175,0 script Arl Fredo 55,{
- set @GIDa1,GetCastleData("aldeg_cas01.gat",1);
- if (@GIDa1 == 0) goto LStart;
- if (getcharid(2) != @GIDa1) goto LStart2;
- if (strcharinfo(0) == getguildmaster(@GIDa1)) goto LStart3;
- goto LStart1;
-
-//================================================
-// Guild Members
-//================================================
-LStart1:
- mes "[ Arl Fredo ]";
- mes "You're not ^ff0000" + getguildmaster(@GIDa1) + "^000000 ! I am here to follow ^ff0000" + getguildmaster(@GIDa1) + "^000000 's command only";
- close;
-//================================================
-// Castle not owned
-//================================================
-LStart:
- mes "[ Arl Fredo ]";
- mes "I am waiting for my master.";
- mes "Brave Player! Follow your destiny!";
- close;
-//================================================
-// Non-Guild Members
-//================================================
-LStart2:
- mes "[ Arl Fredo ]";
- mes "I am here to follow ^ff0000" + getguildmaster(@GIDa1) + "^000000 's command! Where are the guardians? Destroy these bastards!";
- close;
-//================================================
-// Guild Leader
-//================================================
-LStart3:
- mes "[ Arl Fredo ]";
- mes "Welcome Master ^ff0000" + getguildmaster(@GIDa1) + "^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 "[ Arl Fredo ]";
- mes "Guild Base Investment Information.";
- mes " ";
- mes "Current Commerce Investment is : " + GetCastleData("aldeg_cas01.gat",2) + " points.";
- mes "^0000ff - You have invested " + GetCastleData("aldeg_cas01.gat",4) + "times today.^000000";
- mes " ";
- mes "Current Defence Investment is : " + GetCastleData("aldeg_cas01.gat",3) + "points.";
- mes "^0000ff- You have invested" + GetCastleData("aldeg_cas01.gat",5) + "times today.^000000";
- mes " ";
- mes "That is about it.";
- close;
-//================================================
-// Commerce Investment
-//================================================
-L2:
- set @TriggerE,GetCastleData("aldeg_cas01.gat",4);
- set @Economy,GetCastleData("aldeg_cas01.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 "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- mes "As you wish, master.";
- close;
- L2_1_1:
- if(Zeny < $eco_invest) goto L2_error;
- set Zeny,Zeny-$eco_invest;
- SetCastleData "aldeg_cas01.gat",4,@TriggerE+1;
- SetCastleData "aldeg_cas01.gat",2,@Economy+1;
- mes "[ Arl Fredo ]";
- mes "You have invested successfully.";
- close;
-
-L2_1_2:
- set $eco_invest,$eco_invest*4;
- mes "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- mes "As you wish, master.";
- close;
- L2_1_3:
- if(Zeny < $eco_invest) goto L2_error;
- set Zeny,Zeny-$eco_invest;
- SetCastleData "aldeg_cas01.gat",4,@TriggerE+1;
- SetCastleData "aldeg_cas01.gat",2,@Economy+1;
- mes "[ Arl Fredo ]";
- mes "You have invested successfully";
- close;
-
-L2_2:
- mes "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- mes "Master, you do not have enough money to invest. Investment has been cancelled.";
- close;
-//================================================
-// Defence Investment
-//================================================
-L3:
- set @TriggerD,GetCastleData("aldeg_cas01.gat",5);
- set @Defence,GetCastleData("aldeg_cas01.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 "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- mes "As you wish, master.";
- close;
-
- L3_1_1:
- if(Zeny < $def_invest) goto L3_error;
- set Zeny,Zeny-$def_invest;
- SetCastleData "aldeg_cas01.gat",5,@TriggerD+1;
- SetCastleData "aldeg_cas01.gat",3,@Defence+1;
- mes "[ Arl Fredo ]";
- mes "You have invested successfully.";
- close;
-L3_1_2:
- set $def_invest,$def_invest*4;
- mes "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- mes "As you wish, master.";
- close;
-
- L3_1_3:
- if(Zeny < $def_invest) goto L3_error;
- set Zeny,Zeny-$def_invest;
- SetCastleData "aldeg_cas01.gat",5,@TriggerD+1;
- SetCastleData "aldeg_cas01.gat",3,@Defence+1;
- mes "[ Arl Fredo ]";
- mes "You have invested successfully.";
- close;
-L3_2:
- mes "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- 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("aldeg_cas01.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 "[ Arl Fredo ]";
- 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("aldeg_cas01.gat",10) == 1) goto L4Error2;
- set @GDnum,10;
- set @GDnum2,18;
- set @GuardianHP,@SGuardian;
- goto L4_9;
- L4_2:
- if (GetCastleData("aldeg_cas01.gat",11) == 1) goto L4Error2;
- set @GDnum,11;
- set @GDnum2,19;
- set @GuardianHP,@SGuardian;
- goto L4_9;
- L4_3:
- if (GetCastleData("aldeg_cas01.gat",12) == 1) goto L4Error2;
- set @GDnum,12;
- set @GDnum2,20;
- set @GuardianHP,@SGuardian;
- goto L4_9;
- L4_4:
- if (GetCastleData("aldeg_cas01.gat",13) == 1) goto L4Error2;
- set @GDnum,13;
- set @GDnum2,21;
- set @GuardianHP,@AGuardian;
- goto L4_9;
- L4_5:
- if (GetCastleData("aldeg_cas01.gat",14) == 1) goto L4Error2;
- set @GDnum,14;
- set @GDnum2,22;
- set @GuardianHP,@AGuardian;
- goto L4_9;
- L4_6:
- if (GetCastleData("aldeg_cas01.gat",15) == 1) goto L4Error2;
- set @GDnum,15;
- set @GDnum2,23;
- set @GuardianHP,@KGuardian;
- goto L4_9;
- L4_7:
- if (GetCastleData("aldeg_cas01.gat",16) == 1) goto L4Error2;
- set @GDnum,16;
- set @GDnum2,24;
- set @GuardianHP,@KGuardian;
- goto L4_9;
- L4_8:
- if (GetCastleData("aldeg_cas01.gat",17) == 1) goto L4Error2;
- set @GDnum,17;
- set @GDnum2,25;
- set @GuardianHP,@KGuardian;
- goto L4_9;
-
- L4_9:
- mes "[ Arl Fredo ]";
- mes "Would you really like to install guardian? You need 10,000 zeny to install.";
- next;
- menu "Install",L4_9_1,"Cancel",-;
- mes "[ Arl Fredo ]";
- 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 "aldeg_cas01.gat",@GDnum,1;
- SetCastleData "aldeg_cas01.gat",@GDnum2,@GuardianHP;
- if(@GDnum==10) guardian "aldeg_cas01.gat",18,219,"Soldier Guardian",1287,1,"Guardian_A01::OnGuardianDied",0;
- if(@GDnum==11) guardian "aldeg_cas01.gat",117,42,"Soldier Guardian",1287,1,"Guardian_A01::OnGuardianDied",1;
- if(@GDnum==12) guardian "aldeg_cas01.gat",207,153,"Soldier Guardian",1287,1,"Guardian_A01::OnGuardianDied",2;
- if(@GDnum==13) guardian "aldeg_cas01.gat",68,70,"Archer Guardian",1285,1,"Guardian_A01::OnGuardianDied",3;
- if(@GDnum==14) guardian "aldeg_cas01.gat",187,140,"Archer Guardian",1285,1,"Guardian_A01::OnGuardianDied",4;
- if(@GDnum==15) guardian "aldeg_cas01.gat",62,204,"Knight Guardian",1286,1,"Guardian_A01::OnGuardianDied",5;
- if(@GDnum==16) guardian "aldeg_cas01.gat",113,100,"Knight Guardian",1286,1,"Guardian_A01::OnGuardianDied",6;
- if(@GDnum==17) guardian "aldeg_cas01.gat",211,174,"Knight Guardian",1286,1,"Guardian_A01::OnGuardianDied",7;
- mes "[ Arl Fredo ]";
- mes "Guardian has been installed, guardian will protect our guild base against enemies.";
- close;
-L4Error:
- mes "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- mes "Master, that guardian has already been installed..";
- close;
-L4Error3:
- mes "[ Arl Fredo ]";
- mes "Master, you do not have enough money to invest, investment has been cancelled.";
- close;
-
-//================================================
-// Kafra Employment
-//================================================
-L5:
- if (GetCastleData("aldeg_cas01.gat",9) == 1) goto Lkafra_dimi;
-//================================================
-//(When Kafra is off) Employment
-//================================================
- If(getskilllv(10001) == 0) goto L_k_a;
- mes "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- 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#alde1";
- SetCastleData "aldeg_cas01.gat",9,1;
- mes "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- mes "Your employment contract lasts one month.";
- mes "After this term, you'll have to alde again.";
- mes "I think the Kafra Service will benefit our guild members.";
- close;
-L_k_e:
- mes "[ Arl Fredo ]";
- mes "Yes, Master. But we should really get a Kafra as soon as possible!";
- close;
-//=========================
-//(When Kafra is on) Dismissal
-//=========================
-Lkafra_dimi:
- mes "[ Arl Fredo ]";
- 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#alde1";
- SetCastleData "aldeg_cas01.gat",9,0;
- cutin "kafra_01",255;
- mes "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- mes "Please follow me through the secret way.";
- mes "You must push down the secret switch in order to get out.";
- next;
- warp "aldeg_cas01",119,223;
- L6_1:
- mes "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- 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 "[ Arl Fredo ]";
- mes "Master, please reconsider...!!";
- next;
- menu "Cancel",L7_2,"Empty Guild Base",-;
- mes "[ Arl Fredo ]";
- mes "Master!!.....";
- mes "Oh well..";
- next;
- SetCastleData "aldeg_cas01.gat",1,0;
- SetCastleData "aldeg_cas01.gat",2,0;
- SetCastleData "aldeg_cas01.gat",3,0;
- SetCastleData "aldeg_cas01.gat",4,0;
- SetCastleData "aldeg_cas01.gat",5,0;
- SetCastleData "aldeg_cas01.gat",6,0;
- SetCastleData "aldeg_cas01.gat",7,0;
- SetCastleData "aldeg_cas01.gat",8,0;
- SetCastleData "aldeg_cas01.gat",9,0;
- SetCastleData "aldeg_cas01.gat",10,0;
- SetCastleData "aldeg_cas01.gat",11,0;
- SetCastleData "aldeg_cas01.gat",12,0;
- SetCastleData "aldeg_cas01.gat",13,0;
- SetCastleData "aldeg_cas01.gat",14,0;
- SetCastleData "aldeg_cas01.gat",15,0;
- SetCastleData "aldeg_cas01.gat",16,0;
- SetCastleData "aldeg_cas01.gat",17,0;
- SetCastleData "aldeg_cas01.gat",18,0;
- SetCastleData "aldeg_cas01.gat",19,0;
- SetCastleData "aldeg_cas01.gat",20,0;
- SetCastleData "aldeg_cas01.gat",21,0;
- SetCastleData "aldeg_cas01.gat",22,0;
- SetCastleData "aldeg_cas01.gat",23,0;
- SetCastleData "aldeg_cas01.gat",24,0;
- SetCastleData "aldeg_cas01.gat",25,0;
- Announce "[" + GetGuildName(@GIDa1) + "] has surrendered Agit [" + GetCastleName("aldeg_cas01.gat") + "]",0;
- MapRespawnGuildID "aldeg_cas01.gat",GetCastleData("aldeg_cas01.gat",1),7;
- break;
- L7_2:
- mes "[ Arl Fredo ]";
- mes "I knew it master!!";
- mes "Please, don't freak me out like that again.";
- close;
-
-}
+//===== eAthena Script =======================================
+//= War of Emperium - aldeg_cas01 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 aldeg_cas01
+//===== Additional Comments: =================================
+//= 1.1 by Akaru, ho|yAnge|X, and Valaris
+//============================================================
+
+aldeg_cas01.gat,30,248,4 script Noisyubantian#a1-6::NoisyubantianNW 722,{
+ set @GIDa1,GetCastleData("aldeg_cas01.gat",1);
+ if (@GIDa1 != 0) goto LStartg;
+ mes "[ Edict of the Divine Rune Midgard Kingdom of Al de Baran ]";
+ mes " ";
+ mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Al de Baran,";
+ 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 Al de Baran ]";
+ mes " ";
+ mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Al de Baran,";
+ mes " we approve that this base is in the private possession of ^ff0000" + GetGuildName(@GIDa1) + "^000000 guild";
+ mes " ";
+ mes "2. The guild master of ^ff0000" + GetGuildName(@GIDa1) + "^000000 is";
+ mes " ^ff0000" + GetGuildMaster(@GIDa1) + "^000000. If anyone who objects to that,";
+ mes " raise your sword to honor yourself.";
+ close;
+OnRecvCastleA01:
+ FlagEmblem GetCastleData("aldeg_cas01.gat",1);
+ break;
+}
+
+aldeg_cas01.gat,30,246,4 duplicate(NoisyubantianNW) Noisyubantian#a1-7 722
+aldeg_cas01.gat,37,248,4 duplicate(NoisyubantianNW) Noisyubantian#a1-8 722
+aldeg_cas01.gat,37,246,4 duplicate(NoisyubantianNW) Noisyubantian#a1-9 722
+aldeg_cas01.gat,95,80,2 duplicate(NoisyubantianNW) Noisyubantian#a1-10 722
+aldeg_cas01.gat,95,59,2 duplicate(NoisyubantianNW) Noisyubantian#a1-11 722
+aldeg_cas01.gat,62,75,2 duplicate(NoisyubantianNW) Noisyubantian#a1-12 722
+aldeg_cas01.gat,70,75,2 duplicate(NoisyubantianNW) Noisyubantian#a1-13 722
+aldeg_cas01.gat,74,75,2 duplicate(NoisyubantianNW) Noisyubantian#a1-14 722
+aldeg_cas01.gat,62,64,2 duplicate(NoisyubantianNW) Noisyubantian#a1-15 722
+aldeg_cas01.gat,66,64,2 duplicate(NoisyubantianNW) Noisyubantian#a1-16 722
+aldeg_cas01.gat,70,64,2 duplicate(NoisyubantianNW) Noisyubantian#a1-17 722
+aldeg_cas01.gat,74,64,2 duplicate(NoisyubantianNW) Noisyubantian#a1-18 722
+aldeg_cas01.gat,203,150,4 duplicate(NoisyubantianNW) Noisyubantian#a1-19 722
+aldeg_cas01.gat,210,150,4 duplicate(NoisyubantianNW) Noisyubantian#a1-20 722
+
+//================================================
+// Kafra Service
+//================================================
+aldeg_cas01.gat,218,170,0 script Kafra Service#alde1 117,{
+ cutin "kafra_01",2;
+ set @GIDa1,GetCastleData("aldeg_cas01.gat",1);
+ if (getcharid(2) == @GIDa1) goto LStartg;
+ mes "[Kafra Service]";
+ mes "I am here to serve only ^ff0000" + GetGuildName(@GIDa1) + "^000000 members. Please use different Kafra Service. Thank you.";
+ goto L_EXIT;
+LStartg:
+ mes "[Kafra Service]";
+ mes "Welcome, ^ff0000" + GetGuildName(@GIDa1) + "^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 "Al de Baran -> 200 z",L3_1,"Cancel",L3_2;
+ L3_1:
+ if (Zeny < 200) goto Lerror3;
+ set Zeny,Zeny-200;
+ warp "aldebaran.gat",132,103;
+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("aldeg_cas01.gat",9) == 1) break;
+ disablenpc "Kafra Service#alde1";
+ break;
+}
+
+//================================================
+// Guild Dungeon Switch
+//================================================
+aldeg_cas01.gat,123,223,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 @GIDa1,GetCastleData("aldeg_cas01.gat",1);
+ if (getcharid(2) != @GIDa1) goto L1n;
+ warp "gld_dun02.gat",32,122;
+ break;
+L1n:
+ mes "[ Vibration of Man's Voice ]";
+ mes " ' ... ' ";
+L2:
+ close;
+}
+
+//================================================
+// Guild Castle Manager
+//================================================
+
+aldeg_cas01.gat,218,175,0 script Arl Fredo 55,{
+ set @GIDa1,GetCastleData("aldeg_cas01.gat",1);
+ if (@GIDa1 == 0) goto LStart;
+ if (getcharid(2) != @GIDa1) goto LStart2;
+ if (strcharinfo(0) == getguildmaster(@GIDa1)) goto LStart3;
+ goto LStart1;
+
+//================================================
+// Guild Members
+//================================================
+LStart1:
+ mes "[ Arl Fredo ]";
+ mes "You're not ^ff0000" + getguildmaster(@GIDa1) + "^000000 ! I am here to follow ^ff0000" + getguildmaster(@GIDa1) + "^000000 's command only";
+ close;
+//================================================
+// Castle not owned
+//================================================
+LStart:
+ mes "[ Arl Fredo ]";
+ mes "I am waiting for my master.";
+ mes "Brave Player! Follow your destiny!";
+ close;
+//================================================
+// Non-Guild Members
+//================================================
+LStart2:
+ mes "[ Arl Fredo ]";
+ mes "I am here to follow ^ff0000" + getguildmaster(@GIDa1) + "^000000 's command! Where are the guardians? Destroy these bastards!";
+ close;
+//================================================
+// Guild Leader
+//================================================
+LStart3:
+ mes "[ Arl Fredo ]";
+ mes "Welcome Master ^ff0000" + getguildmaster(@GIDa1) + "^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 "[ Arl Fredo ]";
+ mes "Guild Base Investment Information.";
+ mes " ";
+ mes "Current Commerce Investment is : " + GetCastleData("aldeg_cas01.gat",2) + " points.";
+ mes "^0000ff - You have invested " + GetCastleData("aldeg_cas01.gat",4) + "times today.^000000";
+ mes " ";
+ mes "Current Defence Investment is : " + GetCastleData("aldeg_cas01.gat",3) + "points.";
+ mes "^0000ff- You have invested" + GetCastleData("aldeg_cas01.gat",5) + "times today.^000000";
+ mes " ";
+ mes "That is about it.";
+ close;
+//================================================
+// Commerce Investment
+//================================================
+L2:
+ set @TriggerE,GetCastleData("aldeg_cas01.gat",4);
+ set @Economy,GetCastleData("aldeg_cas01.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 "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ mes "As you wish, master.";
+ close;
+ L2_1_1:
+ if(Zeny < $eco_invest) goto L2_error;
+ set Zeny,Zeny-$eco_invest;
+ SetCastleData "aldeg_cas01.gat",4,@TriggerE+1;
+ SetCastleData "aldeg_cas01.gat",2,@Economy+1;
+ mes "[ Arl Fredo ]";
+ mes "You have invested successfully.";
+ close;
+
+L2_1_2:
+ set $eco_invest,$eco_invest*4;
+ mes "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ mes "As you wish, master.";
+ close;
+ L2_1_3:
+ if(Zeny < $eco_invest) goto L2_error;
+ set Zeny,Zeny-$eco_invest;
+ SetCastleData "aldeg_cas01.gat",4,@TriggerE+1;
+ SetCastleData "aldeg_cas01.gat",2,@Economy+1;
+ mes "[ Arl Fredo ]";
+ mes "You have invested successfully";
+ close;
+
+L2_2:
+ mes "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ mes "Master, you do not have enough money to invest. Investment has been cancelled.";
+ close;
+//================================================
+// Defence Investment
+//================================================
+L3:
+ set @TriggerD,GetCastleData("aldeg_cas01.gat",5);
+ set @Defence,GetCastleData("aldeg_cas01.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 "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ mes "As you wish, master.";
+ close;
+
+ L3_1_1:
+ if(Zeny < $def_invest) goto L3_error;
+ set Zeny,Zeny-$def_invest;
+ SetCastleData "aldeg_cas01.gat",5,@TriggerD+1;
+ SetCastleData "aldeg_cas01.gat",3,@Defence+1;
+ mes "[ Arl Fredo ]";
+ mes "You have invested successfully.";
+ close;
+L3_1_2:
+ set $def_invest,$def_invest*4;
+ mes "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ mes "As you wish, master.";
+ close;
+
+ L3_1_3:
+ if(Zeny < $def_invest) goto L3_error;
+ set Zeny,Zeny-$def_invest;
+ SetCastleData "aldeg_cas01.gat",5,@TriggerD+1;
+ SetCastleData "aldeg_cas01.gat",3,@Defence+1;
+ mes "[ Arl Fredo ]";
+ mes "You have invested successfully.";
+ close;
+L3_2:
+ mes "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ 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("aldeg_cas01.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 "[ Arl Fredo ]";
+ 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("aldeg_cas01.gat",10) == 1) goto L4Error2;
+ set @GDnum,10;
+ set @GDnum2,18;
+ set @GuardianHP,@SGuardian;
+ goto L4_9;
+ L4_2:
+ if (GetCastleData("aldeg_cas01.gat",11) == 1) goto L4Error2;
+ set @GDnum,11;
+ set @GDnum2,19;
+ set @GuardianHP,@SGuardian;
+ goto L4_9;
+ L4_3:
+ if (GetCastleData("aldeg_cas01.gat",12) == 1) goto L4Error2;
+ set @GDnum,12;
+ set @GDnum2,20;
+ set @GuardianHP,@SGuardian;
+ goto L4_9;
+ L4_4:
+ if (GetCastleData("aldeg_cas01.gat",13) == 1) goto L4Error2;
+ set @GDnum,13;
+ set @GDnum2,21;
+ set @GuardianHP,@AGuardian;
+ goto L4_9;
+ L4_5:
+ if (GetCastleData("aldeg_cas01.gat",14) == 1) goto L4Error2;
+ set @GDnum,14;
+ set @GDnum2,22;
+ set @GuardianHP,@AGuardian;
+ goto L4_9;
+ L4_6:
+ if (GetCastleData("aldeg_cas01.gat",15) == 1) goto L4Error2;
+ set @GDnum,15;
+ set @GDnum2,23;
+ set @GuardianHP,@KGuardian;
+ goto L4_9;
+ L4_7:
+ if (GetCastleData("aldeg_cas01.gat",16) == 1) goto L4Error2;
+ set @GDnum,16;
+ set @GDnum2,24;
+ set @GuardianHP,@KGuardian;
+ goto L4_9;
+ L4_8:
+ if (GetCastleData("aldeg_cas01.gat",17) == 1) goto L4Error2;
+ set @GDnum,17;
+ set @GDnum2,25;
+ set @GuardianHP,@KGuardian;
+ goto L4_9;
+
+ L4_9:
+ mes "[ Arl Fredo ]";
+ mes "Would you really like to install guardian? You need 10,000 zeny to install.";
+ next;
+ menu "Install",L4_9_1,"Cancel",-;
+ mes "[ Arl Fredo ]";
+ 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 "aldeg_cas01.gat",@GDnum,1;
+ SetCastleData "aldeg_cas01.gat",@GDnum2,@GuardianHP;
+ if(@GDnum==10) guardian "aldeg_cas01.gat",18,219,"Soldier Guardian",1287,1,"Guardian_A01::OnGuardianDied",0;
+ if(@GDnum==11) guardian "aldeg_cas01.gat",117,42,"Soldier Guardian",1287,1,"Guardian_A01::OnGuardianDied",1;
+ if(@GDnum==12) guardian "aldeg_cas01.gat",207,153,"Soldier Guardian",1287,1,"Guardian_A01::OnGuardianDied",2;
+ if(@GDnum==13) guardian "aldeg_cas01.gat",68,70,"Archer Guardian",1285,1,"Guardian_A01::OnGuardianDied",3;
+ if(@GDnum==14) guardian "aldeg_cas01.gat",187,140,"Archer Guardian",1285,1,"Guardian_A01::OnGuardianDied",4;
+ if(@GDnum==15) guardian "aldeg_cas01.gat",62,204,"Knight Guardian",1286,1,"Guardian_A01::OnGuardianDied",5;
+ if(@GDnum==16) guardian "aldeg_cas01.gat",113,100,"Knight Guardian",1286,1,"Guardian_A01::OnGuardianDied",6;
+ if(@GDnum==17) guardian "aldeg_cas01.gat",211,174,"Knight Guardian",1286,1,"Guardian_A01::OnGuardianDied",7;
+ mes "[ Arl Fredo ]";
+ mes "Guardian has been installed, guardian will protect our guild base against enemies.";
+ close;
+L4Error:
+ mes "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ mes "Master, that guardian has already been installed..";
+ close;
+L4Error3:
+ mes "[ Arl Fredo ]";
+ mes "Master, you do not have enough money to invest, investment has been cancelled.";
+ close;
+
+//================================================
+// Kafra Employment
+//================================================
+L5:
+ if (GetCastleData("aldeg_cas01.gat",9) == 1) goto Lkafra_dimi;
+//================================================
+//(When Kafra is off) Employment
+//================================================
+ If(getskilllv(10001) == 0) goto L_k_a;
+ mes "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ 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#alde1";
+ SetCastleData "aldeg_cas01.gat",9,1;
+ mes "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ mes "Your employment contract lasts one month.";
+ mes "After this term, you'll have to alde again.";
+ mes "I think the Kafra Service will benefit our guild members.";
+ close;
+L_k_e:
+ mes "[ Arl Fredo ]";
+ mes "Yes, Master. But we should really get a Kafra as soon as possible!";
+ close;
+//=========================
+//(When Kafra is on) Dismissal
+//=========================
+Lkafra_dimi:
+ mes "[ Arl Fredo ]";
+ 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#alde1";
+ SetCastleData "aldeg_cas01.gat",9,0;
+ cutin "kafra_01",255;
+ mes "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ mes "Please follow me through the secret way.";
+ mes "You must push down the secret switch in order to get out.";
+ next;
+ warp "aldeg_cas01",119,223;
+ L6_1:
+ mes "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ 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 "[ Arl Fredo ]";
+ mes "Master, please reconsider...!!";
+ next;
+ menu "Cancel",L7_2,"Empty Guild Base",-;
+ mes "[ Arl Fredo ]";
+ mes "Master!!.....";
+ mes "Oh well..";
+ next;
+ SetCastleData "aldeg_cas01.gat",1,0;
+ SetCastleData "aldeg_cas01.gat",2,0;
+ SetCastleData "aldeg_cas01.gat",3,0;
+ SetCastleData "aldeg_cas01.gat",4,0;
+ SetCastleData "aldeg_cas01.gat",5,0;
+ SetCastleData "aldeg_cas01.gat",6,0;
+ SetCastleData "aldeg_cas01.gat",7,0;
+ SetCastleData "aldeg_cas01.gat",8,0;
+ SetCastleData "aldeg_cas01.gat",9,0;
+ SetCastleData "aldeg_cas01.gat",10,0;
+ SetCastleData "aldeg_cas01.gat",11,0;
+ SetCastleData "aldeg_cas01.gat",12,0;
+ SetCastleData "aldeg_cas01.gat",13,0;
+ SetCastleData "aldeg_cas01.gat",14,0;
+ SetCastleData "aldeg_cas01.gat",15,0;
+ SetCastleData "aldeg_cas01.gat",16,0;
+ SetCastleData "aldeg_cas01.gat",17,0;
+ SetCastleData "aldeg_cas01.gat",18,0;
+ SetCastleData "aldeg_cas01.gat",19,0;
+ SetCastleData "aldeg_cas01.gat",20,0;
+ SetCastleData "aldeg_cas01.gat",21,0;
+ SetCastleData "aldeg_cas01.gat",22,0;
+ SetCastleData "aldeg_cas01.gat",23,0;
+ SetCastleData "aldeg_cas01.gat",24,0;
+ SetCastleData "aldeg_cas01.gat",25,0;
+ Announce "[" + GetGuildName(@GIDa1) + "] has surrendered Agit [" + GetCastleName("aldeg_cas01.gat") + "]",0;
+ MapRespawnGuildID "aldeg_cas01.gat",GetCastleData("aldeg_cas01.gat",1),7;
+ break;
+ L7_2:
+ mes "[ Arl Fredo ]";
+ mes "I knew it master!!";
+ mes "Please, don't freak me out like that again.";
+ close;
+
+}