summaryrefslogtreecommitdiff
path: root/npc/guild
diff options
context:
space:
mode:
authormasao87 <masao87@54d463be-8e91-2dee-dedb-b68131a5f0ec>2012-04-22 14:48:03 +0000
committermasao87 <masao87@54d463be-8e91-2dee-dedb-b68131a5f0ec>2012-04-22 14:48:03 +0000
commit1c894d04665bbf5b4c85c8f3cab8d7eba999fe12 (patch)
tree1cda72e352bb74a5e9274b9d1b6f874de7c611a6 /npc/guild
parentf68dc1494d25a167a2858d3654f6d0f2ce51a35a (diff)
downloadhercules-1c894d04665bbf5b4c85c8f3cab8d7eba999fe12.tar.gz
hercules-1c894d04665bbf5b4c85c8f3cab8d7eba999fe12.tar.bz2
hercules-1c894d04665bbf5b4c85c8f3cab8d7eba999fe12.tar.xz
hercules-1c894d04665bbf5b4c85c8f3cab8d7eba999fe12.zip
- Guild folder update.
* Partially rewrote all castle files and updated all Castle flags, NPC's and warp coordinations to latest available official file. * Renamed agit_template to agit_main and also updated it to latest available official file. * Removed the Treasure Room Protection from agit_template and separated it into another file which will now be known as trs_rp.txt - trs_rp.txt will allow that only the Guildleader can be in the Treasure Room, if you want to disable this protection just set an // in scripts_guild.conf before npc: npc/guild/trs_rp.txt . - Moved payon castle map warps from warps/cities/payon.txt to warps/guild/guildcastles.txt . git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@15923 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'npc/guild')
-rw-r--r--npc/guild/agit_main.txt (renamed from npc/guild/agit_template.txt)2717
-rw-r--r--npc/guild/aldeg_cas01.txt154
-rw-r--r--npc/guild/aldeg_cas02.txt147
-rw-r--r--npc/guild/aldeg_cas03.txt147
-rw-r--r--npc/guild/aldeg_cas04.txt149
-rw-r--r--npc/guild/aldeg_cas05.txt147
-rw-r--r--npc/guild/gefg_cas01.txt129
-rw-r--r--npc/guild/gefg_cas02.txt131
-rw-r--r--npc/guild/gefg_cas03.txt137
-rw-r--r--npc/guild/gefg_cas04.txt130
-rw-r--r--npc/guild/gefg_cas05.txt130
-rw-r--r--npc/guild/payg_cas01.txt134
-rw-r--r--npc/guild/payg_cas02.txt137
-rw-r--r--npc/guild/payg_cas03.txt136
-rw-r--r--npc/guild/payg_cas04.txt137
-rw-r--r--npc/guild/payg_cas05.txt140
-rw-r--r--npc/guild/prtg_cas01.txt138
-rw-r--r--npc/guild/prtg_cas02.txt149
-rw-r--r--npc/guild/prtg_cas03.txt141
-rw-r--r--npc/guild/prtg_cas04.txt139
-rw-r--r--npc/guild/prtg_cas05.txt136
-rw-r--r--npc/guild/trs_rp.txt82
22 files changed, 2819 insertions, 2768 deletions
diff --git a/npc/guild/agit_template.txt b/npc/guild/agit_main.txt
index 21563adf9..accf967a8 100644
--- a/npc/guild/agit_template.txt
+++ b/npc/guild/agit_main.txt
@@ -1,1369 +1,1348 @@
-//===== rAthena Script =======================================
-//= War of Emperium Guild Template File
-//===== By: ==================================================
-//= L0ne_W0lf
-//===== Current Version: =====================================
-//= 1.8
-//===== Compatible With: =====================================
-//= rAthena SVN
-//===== Description: =========================================
-//= [ Aegis Conversion]
-//= ----------------------------------------------------------
-//= - THIS FILE IS REQUIRED FOR GUILD CASTLES TO FUNCTION.
-//= ----------------------------------------------------------
-//= - Enables AGIT Manager inside Guild Strongholds.
-//= Visible Name required: Agit
-//= Manages the various functions used in and out of WoE.
-//=
-//= - Enables Stewards inside Guild Strongholds which let's
-//= the guild master invest in Defense and Economy, and
-//= to summon guardians, a Kafra, and enter master's room.
-//=
-//= - Guardian Spawning Template
-//= Visible Name required: Guardian
-//= Spawn guardians when guild castle data is recieved.
-//=
-//= - Enables Kafra Services inside Guild Strongholds.
-//= Visible Name required: Kafra Staff
-//= Storage, Guild Storage, Teleport Service, Cart rental.
-//=
-//= - Treasure Room Protection and Chest spawning.
-//= Chests will NOT be saved anymore in the event of crashes.
-//= Treasures will NOT spawn on a location that already has
-//= treasure chest spawned.
-//===== Additional Comments: =================================
-//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
-//= 1.1 Daily investement will now be reset. [L0ne_W0lf]
-//= Template will no longer try to spawn chests.
-//= 1.2 Fixed Eco Invest option charging twice. [L0ne_W0lf]
-//= 1.3 Fixed a loading flag emblem for Payon 1. [L0ne_W0lf]
-//= Fixed two typos regarding Guild Steward name.
-//= 1.4 Fixed a typo in defense investment. [L0ne_W0lf]
-//= 1.5 Fixed spawn point of the emperium in Payon 1. [L0ne_W0lf]
-//= Double-investing doubles the price now.
-//= 1.6 Corrected Zeny check when summoning guardians. [L0ne_W0lf]
-//= Corrected cost for investing, thanks to Ai4rei.
-//= Second invest is now quadruple the value of the first
-//= Investing now happens at the turn of the day.
-//= 1.6a Corrected conditions in the new investing blocks. [L0ne_W0lf]
-//= 1.6b Moved where investments are added to eco/def. [L0ne_W0lf]
-//= 1.7 Updated Agitbreak announcements, added bc_woe [L0ne_W0lf]
-//= and added extended anouncement format for mapannounce.
-//= 1.8 Fixed a possible exploit in guild castle investment. [Brian]
-//============================================================
-
-// AGIT Manager Template
-//============================================================
-- script Gld_Agit_Manager::Gld_Agit_Manager -1,{
- end;
-
-// War of Emperium has started.
-OnAgitStart:
- if (strnpcinfo(0) == "Gld_Agit_Manager") end;
- MapRespawnGuildID strnpcinfo(2),GetCastleData(strnpcinfo(2),1),2;
- GvgOn strnpcinfo(2);
-
-// Spawn (fall through), or respawn the Emperium once it has been broken.
-OnStartArena:
- // OnAgitStart will fall through and spawn the Emperium.
- if (strnpcinfo(2) == "aldeg_cas01") { setarray .@emproom[0],216,23; }
- else if (strnpcinfo(2) == "aldeg_cas02") { setarray .@emproom[0],213,23; }
- else if (strnpcinfo(2) == "aldeg_cas03") { setarray .@emproom[0],205,31; }
- else if (strnpcinfo(2) == "aldeg_cas04") { setarray .@emproom[0],36,217; }
- else if (strnpcinfo(2) == "aldeg_cas05") { setarray .@emproom[0],27,101; }
- else if (strnpcinfo(2) == "gefg_cas01") { setarray .@emproom[0],197,181; }
- else if (strnpcinfo(2) == "gefg_cas02") { setarray .@emproom[0],176,178; }
- else if (strnpcinfo(2) == "gefg_cas03") { setarray .@emproom[0],244,166; }
- else if (strnpcinfo(2) == "gefg_cas04") { setarray .@emproom[0],174,177; }
- else if (strnpcinfo(2) == "gefg_cas05") { setarray .@emproom[0],194,184; }
- else if (strnpcinfo(2) == "payg_cas01") { setarray .@emproom[0],139,139; }
- else if (strnpcinfo(2) == "payg_cas02") { setarray .@emproom[0],38,25; }
- else if (strnpcinfo(2) == "payg_cas03") { setarray .@emproom[0],269,265; }
- else if (strnpcinfo(2) == "payg_cas04") { setarray .@emproom[0],270,28; }
- else if (strnpcinfo(2) == "payg_cas05") { setarray .@emproom[0],30,30; }
- else if (strnpcinfo(2) == "prtg_cas01") { setarray .@emproom[0],197,197; }
- else if (strnpcinfo(2) == "prtg_cas02") { setarray .@emproom[0],157,174; }
- else if (strnpcinfo(2) == "prtg_cas03") { setarray .@emproom[0],16,220; }
- else if (strnpcinfo(2) == "prtg_cas04") { setarray .@emproom[0],291,14; }
- else if (strnpcinfo(2) == "prtg_cas05") { setarray .@emproom[0],266,266; }
- // Add custom Guild Castles here.
- else {
- end;
- }
- if (!mobcount(strnpcinfo(2),"Agit#"+strnpcinfo(2)+"::OnAgitBreak")) {
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Emperium",1288,1,"Agit#"+strnpcinfo(2)+"::OnAgitBreak";
- }
- end;
-
-// The Emperium has been broken.
-OnAgitBreak:
- set .@GID,getcharid(2);
- // Show and log error if an unguilded player breaks the Emperium. (Should NEVER happen)
- if (.@GID <= 0) {
- set .@notice$,"Character "+strcharinfo(0)+" ("+getcharid(0)+") broke the Emperium in Castle: "+strnpcinfo(2)+" while guildless. No data will be saved and Emperium respawned.";
- logmes .@notice$; debugmes .@notice$;
- donpcevent "Agit#"+strnpcinfo(2)+"::OnStartArena";
- end;
- }
- // Adjust Economy Invest Level for Castle
- set .@Economy,GetCastleData(strnpcinfo(2),2) - 5;
- if (.@Economy < 0) set .@Economy, 0;
- SetCastleData strnpcinfo(2), 2, .@Economy;
- // Adjust Defense Invest Level for Castle
- set .@Defence,GetCastleData(strnpcinfo(2),3) - 5;
- if (.@Defence < 0) set .@Defence, 0;
- SetCastleData strnpcinfo(2), 3, .@Defence;
-
- // Set new Castle Occupant
- SetCastleData strnpcinfo(2),1, .@GID;
-
- // Announce that the Emperium is destroyed, and respawn all but new castle-occupants.
- mapannounce strnpcinfo(2),"The emperium has been destroyed.",bc_map|bc_woe,"0x00CCFF",FW_NORMAL,12;
- MapRespawnGuildID strnpcinfo(2),.@GID,2;
-
- // Refresh castle data, disable Kafra and reset Invest information.
- donpcevent strnpcinfo(0)+"::OnRecvCastle";
- disablenpc "Kafra Staff#"+strnpcinfo(2);
- for( set .@i, 4; .@i <= 9; set .@i, .@i+1 ) {
- SetCastleData strnpcinfo(2), .@i, 0;
- }
- // Erase Guardian Database information if the new owners do not have Guardian Research.
- if( getgdskilllv(.@GID,10002) == 0 ) {
- for( set .@i, 10; .@i <= 17; set .@i, .@i+1 ) {
- SetCastleData strnpcinfo(2), .@i, 0;
- }
- }
- // Respawn the Emperium, and display new owners.
- sleep 500; // Slow down script execution slightly.
- if( agitcheck() )
- donpcevent "Agit#"+strnpcinfo(2)+"::OnStartArena";
- sleep 7000;
- announce "The [" + getcastlename(strnpcinfo(2)) + "] castle has been conquered by the [" + getguildName(.@GID) + "] guild.",bc_all|bc_woe;
- end;
-
-// War of Emperium has ended.
-OnAgitEnd:
- if (strnpcinfo(0) == "Gld_Agit_Manager") end;
- GvgOff strnpcinfo(2);
- // If the castle has no owner at the end of WoE, do not kill Emperium.
- if (GetCastleData(strnpcinfo(2),1)) {
- KillMonster strnpcinfo(2),"Agit#"+strnpcinfo(2)+"::OnAgitBreak";
- }
- end;
-
-// Occupying Guild has been disbanded.
-OnGuildBreak:
- if (strnpcinfo(0) == "Gld_Agit_Manager") end;
- // Kill guardians, disable the Kafra, and set owner to 0.
- killmonster strnpcinfo(2),"Guardian#"+strnpcinfo(2)+"::OnGuardianDied";
- disablenpc "Kafra Staff#"+strnpcinfo(2);
- SetCastleData strnpcinfo(2),0,0;
- // Wait before refreshing guild information.
- sleep 7000;
- Announce "Guild Base [" + GetCastleName(strnpcinfo(2)) + "] has been abandoned.",0;
- donpcevent strnpcinfo(0)+"::OnRecvCastle";
- end;
-
-OnAgitInit:
-OnRecvCastle:
- if (strnpcinfo(0) == "Gld_Agit_Manager") end;
- // Spawn Monsters if the castle is empty.
- set .@GID, GetCastleData(strnpcinfo(2),1);
- if (.@GID == 0) {
- killmonsterall strnpcinfo(2);
- if (compare(strnpcinfo(2),"aldeg")) {
- // Normal Spawns
- monster strnpcinfo(2),0,0,"Evil Druid",1117,10;
- monster strnpcinfo(2),0,0,"Khalitzburg",1132,4;
- monster strnpcinfo(2),0,0,"Abysmal Knight",1219,2;
- monster strnpcinfo(2),0,0,"Executioner",1205,1;
- monster strnpcinfo(2),0,0,"Penomena",1216,10;
- monster strnpcinfo(2),0,0,"Alarm",1193,18;
- monster strnpcinfo(2),0,0,"Clock",1269,9;
- monster strnpcinfo(2),0,0,"Raydric Archer",1276,7;
- monster strnpcinfo(2),0,0,"Wanderer",1208,3;
- monster strnpcinfo(2),0,0,"Alice",1275,1;
- monster strnpcinfo(2),0,0,"Bloody Knight",1268,1;
- monster strnpcinfo(2),0,0,"Dark Lord",1272,1;
- // Set Emperium room spawn coordinates and spawn monsters.
- if (strnpcinfo(2) == "aldeg_cas01") { setarray .@emproom[0],216,23; }
- else if (strnpcinfo(2) == "aldeg_cas02") { setarray .@emproom[0],213,23; }
- else if (strnpcinfo(2) == "aldeg_cas03") { setarray .@emproom[0],205,31; }
- else if (strnpcinfo(2) == "aldeg_cas04") { setarray .@emproom[0],36,217; }
- else if (strnpcinfo(2) == "aldeg_cas05") { setarray .@emproom[0],27,101; }
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Dark Lord",1272,1;
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Tower Keeper",1270,4;
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Bloody Knight",1268,1;
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Abysmal Knight",1219,1;
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Raydric Archer",1276,5;
- }
- else if (compare(strnpcinfo(2),"gefg")) {
- // Normal Spawns
- monster strnpcinfo(2),0,0,"Evil Druid",1117,10;
- monster strnpcinfo(2),0,0,"Wind Ghost",1263,11;
- monster strnpcinfo(2),0,0,"Bathory",1102,10;
- monster strnpcinfo(2),0,0,"Jakk",1130,10;
- monster strnpcinfo(2),0,0,"Marduk",1140,20;
- monster strnpcinfo(2),0,0,"Raydric",1163,9;
- monster strnpcinfo(2),0,0,"Alice",1275,1;
- monster strnpcinfo(2),0,0,"Abysmal Knight",1219,1;
- monster strnpcinfo(2),0,0,"Moonlight Flower",1150,1;
- monster strnpcinfo(2),0,0,"Phreeoni",1159,1;
- // Set Emperium room spawn coordinates and spawn monsters.
- if (strnpcinfo(2) == "gefg_cas01") { setarray .@emproom[0],197,181; }
- else if (strnpcinfo(2) == "gefg_cas02") { setarray .@emproom[0],176,178; }
- else if (strnpcinfo(2) == "gefg_cas03") { setarray .@emproom[0],244,166; }
- else if (strnpcinfo(2) == "gefg_cas04") { setarray .@emproom[0],174,177; }
- else if (strnpcinfo(2) == "gefg_cas05") { setarray .@emproom[0],194,184; }
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Mysteltainn",1203,1;
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Orc Hero",1087,1;
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"High Orc",1213,10;
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Orc Archer",1189,10;
- }
- else if (compare(strnpcinfo(2),"payg")) {
- // Normal Spawns
- monster strnpcinfo(2),0,0,"Greatest General",1277,9;
- monster strnpcinfo(2),0,0,"Wanderer",1208,10;
- monster strnpcinfo(2),0,0,"Mutant Dragonoid",1262,5;
- monster strnpcinfo(2),0,0,"Bathory",1102,5;
- monster strnpcinfo(2),0,0,"Moonlight Flower",1150,1;
- monster strnpcinfo(2),0,0,"Eddga",1115,1;
- monster strnpcinfo(2),0,0,"Horong",1129,11;
- monster strnpcinfo(2),0,0,"Raydric Archer",1276,5;
- monster strnpcinfo(2),0,0,"Kobold Archer",1282,4;
- monster strnpcinfo(2),0,0,"Gargoyle",1253,5;
- // Set Emperium room spawn coordinates and spawn monsters.
- if (strnpcinfo(2) == "payg_cas01") { setarray .@emproom[0],139,139; }
- else if (strnpcinfo(2) == "payg_cas02") { setarray .@emproom[0],38,25; }
- else if (strnpcinfo(2) == "payg_cas03") { setarray .@emproom[0],269,265; }
- else if (strnpcinfo(2) == "payg_cas04") { setarray .@emproom[0],270,28; }
- else if (strnpcinfo(2) == "payg_cas05") { setarray .@emproom[0],30,30; }
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Moonlight Flower",1150,1;
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Eddga",1115,1;
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Wanderer",1208,6;
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Raydric Archer",1276,5;
- }
- else if (compare(strnpcinfo(2),"prtg")) {
- // Normal Spawns
- monster strnpcinfo(2),0,0,"Raydric",1163,1;
- monster strnpcinfo(2),0,0,"Khalitzburg",1132,10;
- monster strnpcinfo(2),0,0,"Abysmal Knight",1219,5;
- monster strnpcinfo(2),0,0,"Bloody Knight",1268,5;
- monster strnpcinfo(2),0,0,"Stormy Knight",1251,1;
- monster strnpcinfo(2),0,0,"Hatii",1252,1;
- monster strnpcinfo(2),0,0,"Raydric Archer",1276,5;
- monster strnpcinfo(2),0,0,"Gryphon",1259,2;
- monster strnpcinfo(2),0,0,"Chimera",1283,3;
- monster strnpcinfo(2),0,0,"Alice",1275,1;
- monster strnpcinfo(2),0,0,"Zealotus",1200,1;
- // Set Emperium room spawn coordinates and spawn monsters.
- if (strnpcinfo(2) == "prtg_cas01") { setarray .@emproom[0],197,197; }
- else if (strnpcinfo(2) == "prtg_cas02") { setarray .@emproom[0],157,174; }
- else if (strnpcinfo(2) == "prtg_cas03") { setarray .@emproom[0],16,220; }
- else if (strnpcinfo(2) == "prtg_cas04") { setarray .@emproom[0],291,14; }
- else if (strnpcinfo(2) == "prtg_cas05") { setarray .@emproom[0],266,266; }
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Guardian Knight",1268,1;
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Guardian Master",1251,1;
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Hatii",1252,1;
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Guardian Knight",1219,1;
- monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Raydric Archer",1276,5;
- }
- // Add custom Guild Castles here.
- else {
- end;
- }
- donpcevent "Agit#"+strnpcinfo(2)+"::OnStartArena";
- // Disable Kafra Staff...
- disablenpc "Kafra Staff#"+strnpcinfo(2);
- end;
- }
- else {
- // Otherwise place the guild emblem on flags.
- if (strnpcinfo(2) == "aldeg_cas01") { donpcevent "::OnRecvCastleA01"; }
- else if (strnpcinfo(2) == "aldeg_cas02") { donpcevent "::OnRecvCastleA02"; }
- else if (strnpcinfo(2) == "aldeg_cas03") { donpcevent "::OnRecvCastleA03"; }
- else if (strnpcinfo(2) == "aldeg_cas04") { donpcevent "::OnRecvCastleA04"; }
- else if (strnpcinfo(2) == "aldeg_cas05") { donpcevent "::OnRecvCastleA05"; }
- else if (strnpcinfo(2) == "gefg_cas01") { donpcevent "::OnRecvCastleG01"; }
- else if (strnpcinfo(2) == "gefg_cas02") { donpcevent "::OnRecvCastleG02"; }
- else if (strnpcinfo(2) == "gefg_cas03") { donpcevent "::OnRecvCastleG03"; }
- else if (strnpcinfo(2) == "gefg_cas04") { donpcevent "::OnRecvCastleG04"; }
- else if (strnpcinfo(2) == "gefg_cas05") { donpcevent "::OnRecvCastleG05"; }
- else if (strnpcinfo(2) == "payg_cas01") { donpcevent "::OnRecvCastlePy01"; }
- else if (strnpcinfo(2) == "payg_cas02") { donpcevent "::OnRecvCastlePy02"; }
- else if (strnpcinfo(2) == "payg_cas03") { donpcevent "::OnRecvCastlePy03"; }
- else if (strnpcinfo(2) == "payg_cas04") { donpcevent "::OnRecvCastlePy04"; }
- else if (strnpcinfo(2) == "payg_cas05") { donpcevent "::OnRecvCastlePy05"; }
- else if (strnpcinfo(2) == "prtg_cas01") { donpcevent "::OnRecvCastlePt01"; }
- else if (strnpcinfo(2) == "prtg_cas02") { donpcevent "::OnRecvCastlePt02"; }
- else if (strnpcinfo(2) == "prtg_cas03") { donpcevent "::OnRecvCastlePt03"; }
- else if (strnpcinfo(2) == "prtg_cas04") { donpcevent "::OnRecvCastlePt04"; }
- else if (strnpcinfo(2) == "prtg_cas05") { donpcevent "::OnRecvCastlePt05"; }
- // Add custom Guild Castles here.
- else {
- end;
- }
- // And load purchased Guardian in castles.
- donpcevent "Guardian#"+strnpcinfo(2)+"::OnSpawnGuardians";
- // And display Kafra if purchased.
- if (GetCastleData(strnpcinfo(2),9) < 1) disablenpc "Kafra Staff#"+strnpcinfo(2);
- }
- end;
-}
-
-// Guild Steward Template
-//============================================================
-- script Gld_Mngr_Template::Gld_Mngr_Template -1,{
- // What is the Display Name of the NPC?
- set .@name$,strnpcinfo(1);
-
- // Store the Guild ID of castle occupant.
- set .@GID, GetCastleData(strnpcinfo(2),1);
-
- // Define the types of guardians on a per castle basis.
- // 1 - Soldier Guardian; 2 - Archer Guardian; 3 - Knight Guardian
- // Define the x spawn point for each uardian.
- // [0] = 1st guardian's x spawn point.
- // Define the y spawn point for each guardian.
- // [0] = 1st guardian's y spawn point.
- // Define the coordinates of the "Treasure Room."
- // Aldebaran (Luina) Castles
- if (strnpcinfo(2) == "aldeg_cas01") {
- setarray .@guardiantype[0],1,2,2,2,2,3,3,3;
- setarray .@guardianposx[0],17,39,38,45,21,218,213,73;
- setarray .@guardianposy[0],218,208,196,228,194,24,24,70;
- setarray .@masterroom[0],113,223;
- }
- else if (strnpcinfo(2) == "aldeg_cas02") {
- setarray .@guardiantype[0],3,3,3,1,1,2,2,2;
- setarray .@guardianposx[0],27,88,117,60,51,21,36,210;
- setarray .@guardianposy[0],184,43,46,202,183,177,183,7;
- setarray .@masterroom[0],134,225;
- }
- else if (strnpcinfo(2) == "aldeg_cas03") {
- setarray .@guardiantype[0],3,3,1,1,1,2,2,2;
- setarray .@guardianposx[0],90,116,86,116,64,212,195,110;
- setarray .@guardianposy[0],112,112,120,76,103,160,151,217;
- setarray .@masterroom[0],229,267;
- }
- else if (strnpcinfo(2) == "aldeg_cas04") {
- setarray .@guardiantype[0],2,2,2,1,1,1,3,3;
- setarray .@guardianposx[0],187,192,148,145,169,198,48,55;
- setarray .@guardianposy[0],100,42,88,209,53,77,72,88;
- setarray .@masterroom[0],83,17;
- }
- else if (strnpcinfo(2) == "aldeg_cas05") {
- setarray .@guardiantype[0],2,2,1,1,3,3,3,3;
- setarray .@guardianposx[0],51,188,157,157,27,145,156,41;
- setarray .@guardianposy[0],202,79,192,74,221,78,73,112;
- setarray .@masterroom[0],64,8;
- }
- // Geffen (Britoniah) Castles
- else if (strnpcinfo(2) == "gefg_cas01") {
- setarray .@guardiantype[0],1,1,1,2,2,3,3,3;
- setarray .@guardianposx[0],67,184,62,36,50,50,189,200;
- setarray .@guardianposy[0],179,20,41,186,186,67,41,167;
- setarray .@masterroom[0],152,117;
- }
- else if (strnpcinfo(2) == "gefg_cas02") {
- setarray .@guardiantype[0],1,1,1,2,2,3,3,3;
- setarray .@guardianposx[0],64,56,166,35,20,19,166,159;
- setarray .@guardianposy[0],168,41,25,148,150,41,42,188;
- setarray .@masterroom[0],145,115;
- }
- else if (strnpcinfo(2) == "gefg_cas03") {
- setarray .@guardiantype[0],2,2,1,1,1,3,3,3;
- setarray .@guardianposx[0],48,113,48,157,243,157,234,238;
- setarray .@guardianposy[0],176,214,207,62,41,45,25,160;
- setarray .@masterroom[0],275,289;
- }
- else if (strnpcinfo(2) == "gefg_cas04") {
- setarray .@guardiantype[0],2,2,1,1,1,3,3,3;
- setarray .@guardianposx[0],53,31,49,29,147,57,160,148;
- setarray .@guardianposy[0],191,178,220,46,65,46,50,189;
- setarray .@masterroom[0],116,123;
- }
- else if (strnpcinfo(2) == "gefg_cas05") {
- setarray .@guardiantype[0],2,2,1,1,1,3,3,3;
- setarray .@guardianposx[0],45,71,72,66,177,66,177,193;
- setarray .@guardianposy[0],149,163,142,47,50,17,35,166;
- setarray .@masterroom[0],149,106;
- }
- // Payon (Baulder) Castles
- else if (strnpcinfo(2) == "payg_cas01") {
- setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
- setarray .@guardianposx[0],229,225,222,99,65,36,51,138;
- setarray .@guardianposy[0],92,80,111,45,31,127,144,133;
- setarray .@masterroom[0],295,8;
- }
- else if (strnpcinfo(2) == "payg_cas02") {
- setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
- setarray .@guardianposx[0],237,228,210,57,42,287,264,27;
- setarray .@guardianposy[0],54,72,41,241,241,257,272,20;
- setarray .@masterroom[0],141,149;
- }
- else if (strnpcinfo(2) == "payg_cas03") {
- setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
- setarray .@guardianposx[0],245,269,36,41,39,19,37,268;
- setarray .@guardianposy[0],37,51,39,39,65,276,277,244;
- setarray .@masterroom[0],163,167;
- }
- else if (strnpcinfo(2) == "payg_cas04") {
- setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
- setarray .@guardianposx[0],251,232,231,32,32,35,36,270;
- setarray .@guardianposy[0],212,212,175,287,232,45,17,41;
- setarray .@masterroom[0],151,47;
- }
- else if (strnpcinfo(2) == "payg_cas05") {
- setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
- setarray .@guardianposx[0],19,33,266,266,263,263,250,36;
- setarray .@guardianposy[0],279,260,234,279,37,21,22,36;
- setarray .@masterroom[0],153,137;
- }
- // Prontera (Valkyrie Realms) Castles
- else if (strnpcinfo(2) == "prtg_cas01") {
- setarray .@guardiantype[0],1,1,1,2,2,3,3,3;
- setarray .@guardianposx[0],182,182,153,59,50,184,196,107;
- setarray .@guardianposy[0],62,116,86,28,36,183,189,179;
- setarray .@masterroom[0],15,209;
- }
- else if (strnpcinfo(2) == "prtg_cas02") {
- setarray .@guardiantype[0],3,3,3,1,1,2,2,2;
- setarray .@guardianposx[0],161,153,178,71,49,64,7,75;
- setarray .@guardianposy[0],161,161,44,75,28,186,196,175;
- setarray .@masterroom[0],207,229;
- }
- else if (strnpcinfo(2) == "prtg_cas03") {
- setarray .@guardiantype[0],3,3,3,1,1,2,2,2;
- setarray .@guardianposx[0],191,137,45,50,41,191,179,191;
- setarray .@guardianposy[0],190,190,99,87,87,42,43,72;
- setarray .@masterroom[0],190,130;
- }
- else if (strnpcinfo(2) == "prtg_cas04") {
- setarray .@guardiantype[0],3,3,3,1,1,1,2,2;
- setarray .@guardianposx[0],276,274,246,38,29,33,78,36;
- setarray .@guardianposy[0],14,35,246,240,240,258,48,61;
- setarray .@masterroom[0],275,160;
- }
- else if (strnpcinfo(2) == "prtg_cas05") {
- setarray .@guardiantype[0],3,3,3,1,1,1,2,2;
- setarray .@guardianposx[0],266,287,245,236,251,278,32,44;
- setarray .@guardianposy[0],262,280,250,63,63,253,253,248;
- setarray .@masterroom[0],281,176;
- }
- // Add custom Guild Castles here.
- else {
- end;
- }
-
- mes "[ Steward " + .@name$ + " ]";
- if (.@GID == 0) {
- mes "I'm waiting for my master to return.";
- mes "If you wish to speak with him, you will have to wait as well. ";
- close;
- }
- if (getcharid(2) != .@GID || strcharinfo(0) != getguildmaster(.@GID)){
- mes "I am loyal and I will follow my master ^ff0000" + getguildmaster(.@GID) + "^000000. We are Guardians! We defend to the bitter end!";
- close;
- }
- mes "Welcome. My honorable master, ^ff0000" + getguildmaster(.@GID) + "^000000...";
- mes "Whatever you need, I am at your service. I will be faithful in my duties.";
- next;
- switch(select("castle briefing:Invest in commercial growth:Invest in safeguard:Summon Guardian:Employ / discharge storehouse staff:Go into Master's room")) {
- case 1:
- mes "[ Steward " + .@name$ + " ]";
- mes "I will report the Castle briefing, Master.";
- mes " ";
- mes " ^0000ffNow, commercial growth level is " + GetCastleData(strnpcinfo(2),2) + ".";
- if (GetCastleData(strnpcinfo(2),4)) {
- mes " You invested " + GetCastleData(strnpcinfo(2),4) + "times in last 1 day.";
- }
- mes " Now, safeguard level is " + GetCastleData(strnpcinfo(2),3) + ".^000000";
- if (GetCastleData(strnpcinfo(2),5)) {
- mes " ^0000ff- You invested " + GetCastleData(strnpcinfo(2),5) + "times in last 1 day.^000000";
- }
- mes " ";
- mes "That's all to report, Master.";
- close;
- case 2:
- set .@Economy,GetCastleData(strnpcinfo(2),2);
- if (.@Economy < 6) { set .@eco_invest,5000; }
- else if ((.@Economy >= 6) && (.@Economy <= 10)) { set .@eco_invest,10000; }
- else if ((.@Economy >= 11) && (.@Economy <= 15)) { set .@eco_invest,20000; }
- else if ((.@Economy >= 16) && (.@Economy <= 20)) { set .@eco_invest,35000; }
- else if ((.@Economy >= 21) && (.@Economy <= 25)) { set .@eco_invest,55000; }
- else if ((.@Economy >= 26) && (.@Economy <= 30)) { set .@eco_invest,80000; }
- else if ((.@Economy >= 31) && (.@Economy <= 35)) { set .@eco_invest,110000; }
- else if ((.@Economy >= 36) && (.@Economy <= 40)) { set .@eco_invest,145000; }
- else if ((.@Economy >= 41) && (.@Economy <= 45)) { set .@eco_invest,185000; }
- else if ((.@Economy >= 46) && (.@Economy <= 50)) { set .@eco_invest,230000; }
- else if ((.@Economy >= 51) && (.@Economy <= 55)) { set .@eco_invest,280000; }
- else if ((.@Economy >= 56) && (.@Economy <= 60)) { set .@eco_invest,335000; }
- else if ((.@Economy >= 61) && (.@Economy <= 65)) { set .@eco_invest,395000; }
- else if ((.@Economy >= 66) && (.@Economy <= 70)) { set .@eco_invest,460000; }
- else if ((.@Economy >= 71) && (.@Economy <= 75)) { set .@eco_invest,530000; }
- else if ((.@Economy >= 76) && (.@Economy <= 80)) { set .@eco_invest,605000; }
- else if ((.@Economy >= 81) && (.@Economy <= 85)) { set .@eco_invest,685000; }
- else if ((.@Economy >= 86) && (.@Economy <= 90)) { set .@eco_invest,770000; }
- else if ((.@Economy >= 91) && (.@Economy <= 95)) { set .@eco_invest,860000; }
- else if ((.@Economy >= 96) && (.@Economy <= 100)) { set .@eco_invest,955000; }
- //Quadruple the cost of investing if you've already invested once.
- if (GetCastleData(strnpcinfo(2),4)) {
- set .@eco_invest,.@eco_invest*4;
- }
- mes "[ Steward " + .@name$ + " ]";
- mes "If you raise commercial growth, the quantity of goods made by the guild will increase. So if you want a prosperous future, investment will be required.";
- mes " ";
- mes "Originally you can invest just once but if you pay more money, you can invest twice.";
- mes " ";
- if (.@Economy == 100) {
- mes "^ff0000But the commercial growth level of our castle is peaked at 100%. It doesn't need any more investment. As I expected you have a great acumen, Master.^000000";
- close;
- }
- if (GetCastleData(strnpcinfo(2),4) >= 2) {
- mes "^ff0000But you already invested twice today so you cannot invest any more.^000000 I expect our riches to increase in growth level.";
- close;
- }
- if (GetCastleData(strnpcinfo(2),4) == 0) {
- mes "Now the needed investment amount is ^ff0000" + .@eco_invest + "^000000 zeny. Will you invest?";
- }
- else {
- mes "You've invested once today... if you wish to invest once more, ^ff0000" + .@eco_invest + "^000000 more zeny will be needed.";
- }
- next;
- switch(select("Invest in commercial growth:Cancel")) {
- case 1:
- if (GetCastleData(strnpcinfo(2),4) >= 2) {
- mes "[ Steward " + .@name$ + " ]";
- mes "I'm sorry but you already invested twice today so you cannot invest any more.";
- close;
- }
- if (Zeny < .@eco_invest) {
- mes "[ Steward " + .@name$ + " ]";
- mes "I'm sorry but there is not enough zeny to invest. You will have to try again when you have the funds, Master.";
- close;
- }
- set zeny,zeny-.@eco_invest;
- SetCastleData strnpcinfo(2),4,GetCastleData(strnpcinfo(2),4)+1;
- mes "[ Steward " + .@name$ + "]";
- mes "We finished the investment safely. I expect that our growth level will be increased by tomorrow.";
- close;
- case 2:
- mes "[ Steward " + .@name$ + " ]";
- mes "I'll do as you bid, my master... There is no hurry. We will do our best.";
- close;
- }
- case 3:
- set .@Defence,GetCastleData(strnpcinfo(2),3);
- if (.@Defence < 6) { set .@def_invest,10000; }
- else if ((.@Defence >= 6) && (.@Defence <= 10)) { set .@def_invest,20000; }
- else if ((.@Defence >= 11) && (.@Defence <= 15)) { set .@def_invest,40000; }
- else if ((.@Defence >= 16) && (.@Defence <= 20)) { set .@def_invest,70000; }
- else if ((.@Defence >= 21) && (.@Defence <= 25)) { set .@def_invest,110000; }
- else if ((.@Defence >= 26) && (.@Defence <= 30)) { set .@def_invest,160000; }
- else if ((.@Defence >= 31) && (.@Defence <= 35)) { set .@def_invest,220000; }
- else if ((.@Defence >= 36) && (.@Defence <= 40)) { set .@def_invest,290000; }
- else if ((.@Defence >= 41) && (.@Defence <= 45)) { set .@def_invest,370000; }
- else if ((.@Defence >= 46) && (.@Defence <= 50)) { set .@def_invest,460000; }
- else if ((.@Defence >= 51) && (.@Defence <= 55)) { set .@def_invest,560000; }
- else if ((.@Defence >= 56) && (.@Defence <= 60)) { set .@def_invest,670000; }
- else if ((.@Defence >= 61) && (.@Defence <= 65)) { set .@def_invest,790000; }
- else if ((.@Defence >= 66) && (.@Defence <= 70)) { set .@def_invest,920000; }
- else if ((.@Defence >= 71) && (.@Defence <= 75)) { set .@def_invest,1060000; }
- else if ((.@Defence >= 76) && (.@Defence <= 80)) { set .@def_invest,1210000; }
- else if ((.@Defence >= 81) && (.@Defence <= 85)) { set .@def_invest,1370000; }
- else if ((.@Defence >= 86) && (.@Defence <= 90)) { set .@def_invest,1540000; }
- else if ((.@Defence >= 91) && (.@Defence <= 95)) { set .@def_invest,1720000; }
- else if ((.@Defence >= 96) && (.@Defence <= 100)) { set .@def_invest,1910000; }
- //Quadruple the cost of investing if you've already invested once.
- if (GetCastleData(strnpcinfo(2),5)) {
- set .@def_invest,.@def_invest*4;
- }
- mes "[ Steward " + .@name$ + " ]";
- mes "If you raise the safeguard, the durability of the Guardians and emperium will increase. So if you expect more defenses in battles, investment will be required.";
- mes " ";
- mes "Originally you can invest just once but if you pay more money, you can invest twice.";
- mes " ";
- if (.@Defence == 100) {
- mes "^ff0000But the safeguard level of our castle is peaked at 100%. It doesn't need any more investment. As I expected you have a great acumen, Master.^000000";
- close;
- }
- if (GetCastleData(strnpcinfo(2),5) >= 2) {
- mes "^ff0000But you already invested twice today so you cannot invest any more.^000000 I expect our riches to increase in growth level.";
- close;
- }
- if (GetCastleData(strnpcinfo(2),5) == 0) {
- mes "Now the needed investment amount is ^ff0000" + .@def_invest + "^000000 zeny. Will you invest?";
- }
- else {
- mes "You've invested once today... if you wish to invest once more, ^ff0000" + .@def_invest + "^000000 more zeny will be needed.";
- }
- next;
- switch(select("Invest in safeguard.:Cancel")) {
- case 1:
- if (GetCastleData(strnpcinfo(2),5) >= 2) {
- mes "[ Steward " + .@name$ + " ]";
- mes "I'm sorry but you already invested twice today so you cannot invest any more.";
- close;
- }
- if (Zeny < .@def_invest) {
- mes "[ Steward " + .@name$ + " ]";
- mes "I'm sorry but there is not enough zeny to invest. You will have to try again when you have the funds, Master.";
- close;
- }
- set zeny,zeny-.@def_invest;
- SetCastleData strnpcinfo(2),5,GetCastleData(strnpcinfo(2),5)+1;
- mes "[ Steward " + .@name$ + "]";
- mes "We finished the investment safely. I expect that the safeguard level will be increased by tomorrow.";
- close;
- case 2:
- mes "[ Steward " + .@name$ + " ]";
- mes "I'll do as you bid, my master... There is no hurry. We will do our best.";
- close;
-
- }
- case 4:
- mes "[ Steward " + .@name$ + " ]";
- mes "Will you summon a Guardian? It'll be a protector to defend us loyally.";
- mes "Please select a guardian to defend us.";
- next;
- for( set .@i, 0; .@i <= 7 ; set .@i, .@i+1 ) {
- if (.@guardiantype[.@i] == 1) { set .@type$,"Guardian Soldier"; }
- else if (.@guardiantype[.@i] == 2) { set .@type$,"Guardian Archer"; }
- else { set .@type$,"Guardian Knight"; }
- if (guardianinfo(strnpcinfo(2),.@i,0)) {
- setarray .@gname$[.@i], .@type$ + " - Implemented (" + guardianinfo(strnpcinfo(2),.@i,2) + "/" + guardianinfo(strnpcinfo(2),.@i,1) + ")";
- }
- else {
- setarray .@gname$[.@i], .@type$ + " - Not Implemented";
- }
- }
- set .@menu$,.@gname$[0]+":"+.@gname$[1]+":"+.@gname$[2]+":"+.@gname$[3]+":"+.@gname$[4]+":"+.@gname$[5]+":"+.@gname$[6]+":"+.@gname$[7];
- set .@GDnum,select(.@menu$)+9;
- mes "[ Steward " + .@name$ + " ]";
- mes "Will you summon the chosen guardian? 10000 zeny is required to summon.";
- next;
- switch(select("Summon:Cancel")) {
- case 1:
- mes "[ Steward " + .@name$ + " ]";
- if (getgdskilllv(.@GID,10002) == 0) {
- mes "Master, we have not the resources to Summon the Guardian. If you want to accumulate them, you have to learn the Guild skill, We failed to summon the Guardian.";
- close;
- }
- if (GetCastleData(strnpcinfo(2),.@GDnum) == 1) {
- mes "Master, you already have summoned that Guardian. We cannot summon another.";
- close;
- }
-
- if (Zeny < 10000) {
- mes "Well... I'm sorry but we don't have funds to summon the Guardian. We failed to summon the Guardian.";
- close;
- }
- set zeny,zeny-10000;
- SetCastleData strnpcinfo(2),.@GDnum,1; // mark as 'installed'
- set .@UseGID,.@GDnum - 10;
- if (.@guardiantype[.@UseGID] == 1) { set .@type,1287; }
- else if (.@guardiantype[.@UseGID] == 2) { set .@type,1285; }
- else { set .@type,1286; }
- guardian strnpcinfo(2),.@guardianposx[.@UseGID],.@guardianposy[.@UseGID],strmobinfo(2,.@type),.@type,"Guardian#"+strnpcinfo(2)+"::OnGuardianDied",.@UseGID;
- mes "We completed the summoning of the Guardian. Our defenses are now increased with it in place.";
- close;
- case 2:
- mes "[ Steward " + .@name$ + " ]";
- mes "I did as you ordered. But please remember if you the have money to spare, it'll be better to set it up.";
- close;
- }
- case 5:
- if (GetCastleData(strnpcinfo(2),9) == 1) {
- mes "[ Steward " + .@name$ + " ]";
- mes "Now about the Kafra staff... Will you discharge the Kafra staff?";
- next;
- switch(select("Discharge:Cancel")) {
- case 1:
- cutin "kafra_01",2;
- mes "[ Hired Kafra staff ]";
- mes "I worked so hard... How can this be, Master?... I'll work harder if you're displeased... Please reconsider, Master.";
- next;
- switch(select("Discharge:Cancel")) {
- case 1:
- mes "[ Hired Kafra staff ]";
- mes "Oh, my god! This is nonsense!";
- next;
- cutin "kafra_01",255;
- break;
- case 2:
- mes "[ Hired Kafra staff ]";
- mes "I'll work harder... Thank you!";
- close2;
- cutin "kafra_01",255;
- end;
- }
- break;
- case 2:
- mes "[ Steward " + .@name$ + " ]";
- mes "Those Kafra are hard workers. I thought it would be best to keep the staff.";
- close;
- }
- disablenpc "Kafra Staff#"+strnpcinfo(2);
- SetCastleData strnpcinfo(2),9,0;
- mes "[ Steward " + .@name$ + " ]";
- mes "....";
- mes "Discharged Kafra staff... But... are you displeased with something?";
- close;
- }
- else {
- mes "[ Steward " + .@name$ + " ]";
- mes "Will you contract with the Kafra head office to hire Kafra staff in our castle?";
- mes "^ff0000 10000zeny is needed to hire. ";
- next;
- switch(select("Hire.:Cancel")) {
- case 1:
- mes "[ Steward " + .@name$ + " ]";
- if (getgdskilllv(.@GID,10001) == 0) {
- mes "Master, we cannot hire Kafra staff because we didn't make a contract with the Kafra head office. If you want to make a contract with the Kafra head office, you have to learn the Guild skill.";
- close;
- }
- if (Zeny < 10000) {
- mes "Well... I'm sorry but we don't have enough funds. We are unable to hire the Kafra staff.";
- close;
- }
- set zeny,zeny-10000;
- enablenpc "Kafra Staff#"+strnpcinfo(2);
- SetCastleData strnpcinfo(2),9,1;
- mes "We finished making the contract with the Kafra head office successfully. We hired a Kafra staff.";
- next;
- cutin "kafra_01",2;
- mes "[ Hired Kafra staff ]";
- mes "How do you do? I'm a dispatched Kafra from head office.";
- mes "I'll do my best to upkeep the reputation of Guild.";
- next;
- cutin "kafra_01",255 ;
- mes "[ Steward " + .@name$ + " ]";
- mes "The contract term of the hired Kafra staff is 1 month and after this term, you will have to pay an additional charge.";
- mes "It will be useful for our members.";
- close;
- case 2:
- mes "[ Steward " + .@name$ + " ]";
- mes "I did as you ordered, but some of our members will be unhappy. It will be better to hire a Kafra staff quickly.";
- close;
- }
- }
- case 6:
- mes "[ Steward " + .@name$ + " ]";
- mes "Do you want to visit the room where our valuables are stored?";
- mes "That room is restricted to you... you are the only one with access to it.";
- next;
- switch(select("Go into Master's room.:Cancel")) {
- case 1:
- mes "[ Steward " + .@name$ + " ]";
- mes "Please follow me, I will show you the secret passage.";
- mes "When you wish to return, pull this lever here...";
- close2;
- warp strnpcinfo(2),.@masterroom[0],.@masterroom[1];
- end;
- case 2:
- mes "[ Steward " + .@name$ + " ]";
- mes "Goods are produced once a day... if you don't make use of them, they will not produce.";
- mes "Therefore it would be better that you remove them over time for the Guild.";
- close;
- }
- }
-}
-
-
-// Guardian Spawner Template
-//============================================================
-- script Gld_Guard_Template::Gld_Guard_Template -1,{
-// Spawn Guardians in castles
-// When adding new castles, ensure that the coordinates coincide
-// with the coordinates defined in the Guild Steward template.
-OnSpawnGuardians:
- // Define the types of guardians on a per castle basis.
- // 1 - Soldier Guardian; 2 - Archer Guardian; 3 - Knight Guardian
- // Define the x spawn point for each uardian.
- // [0] = 1st guardian's x spawn point.
- // Define the y spawn point for each uardian.
- // [0] = 1st guardian's y spawn point.
- // Aldebaran (Luina) Castles
- if (strnpcinfo(2) == "aldeg_cas01") {
- setarray .@guardiantype[0],1,2,2,2,2,3,3,3;
- setarray .@guardianposx[0],17,39,38,45,21,218,213,73;
- setarray .@guardianposy[0],218,208,196,228,194,24,24,70;
- }
- else if (strnpcinfo(2) == "aldeg_cas02") {
- setarray .@guardiantype[0],3,3,3,1,1,2,2,2;
- setarray .@guardianposx[0],27,88,117,60,51,21,36,210;
- setarray .@guardianposy[0],184,43,46,202,183,177,183,7;
- }
- else if (strnpcinfo(2) == "aldeg_cas03") {
- setarray .@guardiantype[0],3,3,1,1,1,2,2,2;
- setarray .@guardianposx[0],90,116,86,116,64,212,195,110;
- setarray .@guardianposy[0],112,112,120,76,103,160,151,217;
- }
- else if (strnpcinfo(2) == "aldeg_cas04") {
- setarray .@guardiantype[0],2,2,2,1,1,1,3,3;
- setarray .@guardianposx[0],187,192,148,145,169,198,48,55;
- setarray .@guardianposy[0],100,42,88,209,53,77,72,88;
- }
- else if (strnpcinfo(2) == "aldeg_cas05") {
- setarray .@guardiantype[0],2,2,1,1,3,3,3,3;
- setarray .@guardianposx[0],51,188,157,157,27,145,156,41;
- setarray .@guardianposy[0],202,79,192,74,221,78,73,112;
- }
- // Geffen (Britoniah) Castles
- else if (strnpcinfo(2) == "gefg_cas01") {
- setarray .@guardiantype[0],1,1,1,2,2,3,3,3;
- setarray .@guardianposx[0],67,184,62,36,50,50,189,200;
- setarray .@guardianposy[0],179,20,41,186,186,67,41,167;
- }
- else if (strnpcinfo(2) == "gefg_cas02") {
- setarray .@guardiantype[0],1,1,1,2,2,3,3,3;
- setarray .@guardianposx[0],64,56,166,35,20,19,166,159;
- setarray .@guardianposy[0],168,41,25,148,150,41,42,188;
- }
- else if (strnpcinfo(2) == "gefg_cas03") {
- setarray .@guardiantype[0],2,2,1,1,1,3,3,3;
- setarray .@guardianposx[0],48,113,48,157,243,157,234,238;
- setarray .@guardianposy[0],176,214,207,62,41,45,25,160;
- }
- else if (strnpcinfo(2) == "gefg_cas04") {
- setarray .@guardiantype[0],2,2,1,1,1,3,3,3;
- setarray .@guardianposx[0],53,31,49,29,147,57,160,148;
- setarray .@guardianposy[0],191,178,220,46,65,46,50,189;
- }
- else if (strnpcinfo(2) == "gefg_cas05") {
- setarray .@guardiantype[0],2,2,1,1,1,3,3,3;
- setarray .@guardianposx[0],45,71,72,66,177,66,177,193;
- setarray .@guardianposy[0],149,163,142,47,50,17,35,166;
- }
- // Payon (Baulder) Castles
- else if (strnpcinfo(2) == "payg_cas01") {
- setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
- setarray .@guardianposx[0],229,225,222,99,65,36,51,138;
- setarray .@guardianposy[0],92,80,111,45,31,127,144,133;
- }
- else if (strnpcinfo(2) == "payg_cas02") {
- setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
- setarray .@guardianposx[0],237,228,210,57,42,287,264,27;
- setarray .@guardianposy[0],54,72,41,241,241,257,272,20;
- }
- else if (strnpcinfo(2) == "payg_cas03") {
- setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
- setarray .@guardianposx[0],245,269,36,41,39,19,37,268;
- setarray .@guardianposy[0],37,51,39,39,65,276,277,244;
- }
- else if (strnpcinfo(2) == "payg_cas04") {
- setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
- setarray .@guardianposx[0],251,232,231,32,32,35,36,270;
- setarray .@guardianposy[0],212,212,175,287,232,45,17,41;
- }
- else if (strnpcinfo(2) == "payg_cas05") {
- setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
- setarray .@guardianposx[0],19,33,266,266,263,263,250,36;
- setarray .@guardianposy[0],279,260,234,279,37,21,22,36;
- }
- // Prontera (Valkyrie Realms) Castles
- else if (strnpcinfo(2) == "prtg_cas01") {
- setarray .@guardiantype[0],1,1,1,2,2,3,3,3;
- setarray .@guardianposx[0],182,182,153,59,50,184,196,107;
- setarray .@guardianposy[0],62,116,86,28,36,183,189,179;
- }
- else if (strnpcinfo(2) == "prtg_cas02") {
- setarray .@guardiantype[0],3,3,3,1,1,2,2,2;
- setarray .@guardianposx[0],161,153,178,71,49,64,7,75;
- setarray .@guardianposy[0],161,161,44,75,28,186,196,175;
- }
- else if (strnpcinfo(2) == "prtg_cas03") {
- setarray .@guardiantype[0],3,3,3,1,1,2,2,2;
- setarray .@guardianposx[0],191,137,45,50,41,191,179,191;
- setarray .@guardianposy[0],190,190,99,87,87,42,43,72;
- }
- else if (strnpcinfo(2) == "prtg_cas04") {
- setarray .@guardiantype[0],3,3,3,1,1,1,2,2;
- setarray .@guardianposx[0],276,274,246,38,29,33,78,36;
- setarray .@guardianposy[0],14,35,246,240,240,258,48,61;
- }
- else if (strnpcinfo(2) == "prtg_cas05") {
- setarray .@guardiantype[0],3,3,3,1,1,1,2,2;
- setarray .@guardianposx[0],266,287,245,236,251,278,32,44;
- setarray .@guardianposy[0],262,280,250,63,63,253,253,248;
- }
- // Add custom Guild Castles here.
- else {
- end;
- }
-
- // Kill all existing guardians before spawning new ones.
- // This should prevent duplicating Guardians when char Server disconnects.
- killmonster strnpcinfo(2),strnpcinfo(0)+"::OnGuardianDied";
-
- for( set .@i, 0; .@i <= 7 ; set .@i, .@i+1 ) {
- set .@UseGID,.@i + 10;
- if (.@guardiantype[.@i] == 1) { set .@type,1287; }
- else if (.@guardiantype[.@i] == 2) { set .@type,1285; }
- else { set .@type,1286; }
- if (GetCastleData(strnpcinfo(2),.@UseGID)) {
- guardian strnpcinfo(2),.@guardianposx[.@i],.@guardianposy[.@i],strmobinfo(2,.@type),.@type,"Guardian#"+strnpcinfo(2)+"::OnGuardianDied",.@i;
- }
- }
- end;
-
-OnGuardianDied:
- end;
-}
-
-// Kafra Template
-//============================================================
-- script Gld_Kafra_Template::Gld_Kafra_Template -1,{
- // Store the Guild ID of castle occupant.
- set .@GID, GetCastleData(strnpcinfo(2),1);
-
- if (compare(strnpcinfo(2),"aldeg")) {
- setarray .@destination$[0],"Al De Baran","aldebaran";
- setarray .@coordinates[0],132,103;
- }
- else if (compare(strnpcinfo(2),"gefg")) {
- setarray .@destination$[0],"Geffen","geffen";
- setarray .@coordinates[0],120,39;
- }
- else if (compare(strnpcinfo(2),"payg")) {
- setarray .@destination$[0],"Payon","payon";
- setarray .@coordinates[0],70,100;
- }
- else if (compare(strnpcinfo(2),"prtg")) {
- setarray .@destination$[0],"Prontera","prontera";
- setarray .@coordinates[0],116,72;
- }
- // Add custom Guild Castles here.
- else {
- end;
- }
-
- cutin "kafra_01",2;
- if (getcharid(2) == .@GID) {
- mes "[Kafra staff]";
- mes "Welcome. ^ff0000" + getguildname(.@GID) + "^000000 Member.";
- mes "The Kafra Coporation will stay with you wherever you go.";
- next;
- switch(select("Use Storage:Use Guild Storage:Use Warp Service:Rent a Cart:Cancel")) {
- case 1:
- if (basicskillcheck() && getskilllv("NV_BASIC") < 6) {
- mes "[Kafra staff]";
- mes "I am sorry but you have to be at least Novice skill level 6 if you want to use the storage.";
- }
- else {
- callfunc("F_CheckKafCode"); //check your storage password, if set
- openstorage;
- }
- break;
- case 2:
- // Unofficial, but since it's already been in eA for ages
- // and used, I can't exactly remove it, now, can I? >:(
- if(guildopenstorage() == 1){
- mes "[Kafra Employee]";
- mes "I'm sorry but another guild member is using the guild storage";
- mes "right now. Please wait until that person is finished.";
- close2;
- cutin "", 255;
- end;
- }
- cutin "", 255;
- close;
- case 3:
- mes "[Kafra staff]";
- mes "Please let me know your destination.";
- next;
- switch(select(.@destination$ + " ^880000200 ^000000z:Cancel")) {
- case 1:
- if (Zeny < 200) {
- mes "[Kafra staff]";
- mes "You don't have enough money. Please check again.";
- }
- else {
- set zeny,zeny-200;
- set kf_10_pit,kf_10_pit+2;
- cutin "kafra_01",255;
- warp .@destination$[1],.@coordinates[0],.@coordinates[1];
- end;
- }
- break;
- case 2:
- break;
- }
- break;
- case 4:
- if(baseClass != Job_Merchant){
- mes "[Kafra staff]";
- mes "I am sorry. The Cart Service is only provided for the Merchant and Blacksmith class.";
- }
- else if(checkcart() == 1){
- mes "[Kafra staff]";
- mes "You have a cart equipped already.";
- }
- else {
- mes "[Kafra staff]" ;
- mes "The cart fee is 800 zeny. Do you want to rent a cart?";
- next;
- switch(select("Yes.:Cancel.")) {
- case 1:
- if (Zeny < 800) {
- mes "[Kafra staff]";
- mes "You don't have enough Money. You need 800 Zeny to rent a cart.";
- }
- else {
- close2;
- cutin "kafra_01",255;
- set kf_10_pit,kf_10_pit+8;
- set zeny,zeny-800;
- setcart;
- end;
- }
- break;
- case 2:
- break;
- }
- }
- break;
- case 5:
- mes "[Kafra staff]";
- mes "The Kafra corp. always tries to give the best service.";
- mes "Thank you for using Kafra corp. Please come again.";
- }
- }
- else {
- mes "[Kafra staff]";
- mes "I am instructed to service only for the ^ff0000" + getguildname(.@GID) + "^000000 Guild. Please try another Kafra staff member around here. Sorry for the inconvenience.";
- }
- close2;
- cutin "kafra_01",255;
- end;
-}
-
-// Guild Dungeon Switch Template
-//============================================================
-- script Gld_Dun_Template::Gld_Dun_Template -1,{
- // Store the Guild ID of castle occupant.
- set .@GID, GetCastleData(strnpcinfo(2),1);
-
- // Pick what Dungeon I should warp too, and where in that dungeon.
- if (compare(strnpcinfo(2),"aldeg")) {
- set .@destination$,"gld_dun02";
- if (compare(strnpcinfo(2),"cas01")) setarray .@coordinates[0],32,122;
- else if (compare(strnpcinfo(2),"cas02")) setarray .@coordinates[0],79,32;
- else if (compare(strnpcinfo(2),"cas03")) setarray .@coordinates[0],165,38;
- else if (compare(strnpcinfo(2),"cas04")) setarray .@coordinates[0],160,148;
- else if (compare(strnpcinfo(2),"cas05")) setarray .@coordinates[0],103,169;
- }
- else if (compare(strnpcinfo(2),"gefg")) {
- set .@destination$,"gld_dun04";
- if (compare(strnpcinfo(2),"cas01")) setarray .@coordinates[0],39,258;
- else if (compare(strnpcinfo(2),"cas02")) setarray .@coordinates[0],125,270;
- else if (compare(strnpcinfo(2),"cas03")) setarray .@coordinates[0],268,251;
- else if (compare(strnpcinfo(2),"cas04")) setarray .@coordinates[0],268,108;
- else if (compare(strnpcinfo(2),"cas05")) setarray .@coordinates[0],230,35;
- }
- else if (compare(strnpcinfo(2),"payg")) {
- set .@destination$,"gld_dun01";
- if (compare(strnpcinfo(2),"cas01")) setarray .@coordinates[0],186,165;
- else if (compare(strnpcinfo(2),"cas02")) setarray .@coordinates[0],54,165;
- else if (compare(strnpcinfo(2),"cas03")) setarray .@coordinates[0],54,39;
- else if (compare(strnpcinfo(2),"cas04")) setarray .@coordinates[0],186,39;
- else if (compare(strnpcinfo(2),"cas05")) setarray .@coordinates[0],223,202;
- }
- else if (compare(strnpcinfo(2),"prtg")) {
- set .@destination$,"gld_dun03";
- if (compare(strnpcinfo(2),"cas01")) setarray .@coordinates[0],28,251;
- else if (compare(strnpcinfo(2),"cas02")) setarray .@coordinates[0],164,268;
- else if (compare(strnpcinfo(2),"cas03")) setarray .@coordinates[0],164,179;
- else if (compare(strnpcinfo(2),"cas04")) setarray .@coordinates[0],268,203;
- else if (compare(strnpcinfo(2),"cas05")) setarray .@coordinates[0],199,28;
- }
- // Add custom Guild Castles here.
- else {
- end;
- }
-
- if (.@GID == 0) {
- mes "[ Echoing Voice ]";
- mes " ' The one who can overcome an ordeal and show true bravery... will find the way... ' ";
- close;
- }
- else {
- mes "[ Echoing Voice ]";
- mes " ' Only the one who can show true bravery can take this test. '";
- next;
- mes " ";
- mes "There's a small lever. Will you pull it?";
- next;
- switch(select("Pull.:Do not.")) {
- case 1:
- if ((getcharid(2) == .@GID)) {
- warp .@destination$,.@coordinates[0],.@coordinates[1];
- end;
- }
- else {
- mes " ";
- mes " Nothing happened.";
- close;
- }
- case 2:
- close;
- }
- }
-}
-
-// Treasure Room Protection Template
-//============================================================
-- script Gld_Trea_Protect::Gld_Trea_Protect -1,{
-//OnTouch2:
-OnTouch:
- // Store the Guild ID of castle occupant.
- set .@GID, GetCastleData(strnpcinfo(2),1);
-
- if (getcharid(2) != .@GID) {
- if (compare(strnpcinfo(2),"aldeg")) {
- warp "aldebaran",132,103;
- }
- else if (compare(strnpcinfo(2),"gefg")) {
- warp "geffen",120,39;
- }
- else if (compare(strnpcinfo(2),"payg")) {
- warp "payon",70,100;
- }
- else if (compare(strnpcinfo(2),"prtg")) {
- warp "prontera",116,72;
- }
- // Add custom Guild Castles here.
- else {
- end;
- }
- }
- end;
-}
-
-// Treasure Room Spawn Template
-//============================================================
-- script Gld_Trea_Spawn::Gld_Trea_Spawn -1,{
- end;
-
-OnClock0001:
- // Do nothing if this script is the template.
- if (strnpcinfo(1) == "Gld_Trea_Spawn") end;
-
- set .@GID, GetCastleData(strnpcinfo(2),1);
-
- // If there is no owner, do nothing.
- if (!.@GID) end;
-
- // Is there Economy in this castle?
- set .@Treasure,GetCastleData(strnpcinfo(2),2)/5+4;
-
- // Set information
- if (strnpcinfo(2) == "aldeg_cas01") {
- set .@treasurebox,1324;
- setarray .@treasurex[0],115,122,115,122,116,117,118,119,120,121,121,121,121,121,121,120,119,118,117,116,116,116,116,116;
- setarray .@treasurey[0],226,226,219,219,225,225,225,225,225,225,224,223,222,221,220,220,220,220,220,220,221,222,223,224;
- }
- else if (strnpcinfo(2) == "aldeg_cas02") {
- set .@treasurebox,1326;
- setarray .@treasurex[0],134,135,135,134,132,133,134,135,136,137,137,137,137,137,137,136,135,134,133,132,132,132,132,132;
- setarray .@treasurey[0],231,231,230,230,233,233,233,233,233,233,232,231,230,229,228,228,228,228,228,228,229,230,231,232;
- }
- else if (strnpcinfo(2) == "aldeg_cas03") {
- set .@treasurebox,1328;
- setarray .@treasurex[0],224,225,225,224,222,223,224,225,226,227,227,227,227,227,227,226,225,224,223,222,222,222,222,222;
- setarray .@treasurey[0],269,269,268,268,271,271,271,271,271,271,270,269,268,267,266,266,266,266,266,266,267,268,269,270;
- }
- else if (strnpcinfo(2) == "aldeg_cas04") {
- set .@treasurebox,1330;
- setarray .@treasurex[0],84,85,85,84,82,83,84,85,86,87,87,87,87,87,87,86,85,84,83,82,82,82,82,82;
- setarray .@treasurey[0],13,13,12,12,15,15,15,15,15,15,14,13,12,11,10,10,10,10,10,10,11,12,13,14;
- }
- else if (strnpcinfo(2) == "aldeg_cas05") {
- set .@treasurebox,1332;
- setarray .@treasurex[0],61,62,62,61,59,60,61,62,63,64,64,64,64,64,64,63,62,61,60,59,59,59,59,59;
- setarray .@treasurey[0],12,12,11,11,14,14,14,14,14,14,13,12,11,10,9,9,9,9,9,9,10,11,12,13;
- }
- else if (strnpcinfo(2) == "gefg_cas01") {
- set .@treasurebox,1334;
- setarray .@treasurex[0],153,154,154,153,151,152,153,154,155,156,156,156,156,156,156,155,154,153,152,151,151,151,151,151;
- setarray .@treasurey[0],113,113,112,112,115,115,115,115,115,115,114,113,112,111,110,110,110,110,110,110,111,112,113,114;
- }
- else if (strnpcinfo(2) == "gefg_cas02") {
- set .@treasurebox,1336;
- setarray .@treasurex[0],139,140,140,139,137,138,139,140,141,142,142,142,142,142,142,141,140,139,138,137,137,137,137,137;
- setarray .@treasurey[0],115,115,114,114,117,117,117,117,117,117,116,115,114,113,112,112,112,112,112,112,113,114,115,116;
- }
- else if (strnpcinfo(2) == "gefg_cas03") {
- set .@treasurebox,1338;
- setarray .@treasurex[0],269,270,270,269,267,268,269,270,271,272,272,272,272,272,272,271,270,269,268,267,267,267,267,267;
- setarray .@treasurey[0],291,291,290,290,293,293,293,293,293,293,292,291,290,289,288,288,288,288,288,288,289,290,291,292;
- }
- else if (strnpcinfo(2) == "gefg_cas04") {
- set .@treasurebox,1340;
- setarray .@treasurex[0],115,116,116,115,113,114,115,116,117,118,118,118,118,118,118,117,116,115,114,113,113,113,113,113;
- setarray .@treasurey[0],119,119,118,118,121,121,121,121,121,121,120,119,118,117,116,116,116,116,116,116,117,118,119,120;
- }
- else if (strnpcinfo(2) == "gefg_cas05") {
- set .@treasurebox,1342;
- setarray .@treasurex[0],143,144,144,143,141,142,143,144,145,146,146,146,146,146,146,145,144,143,142,141,141,141,141,141;
- setarray .@treasurey[0],110,110,109,109,112,112,112,112,112,112,111,110,109,108,107,107,107,107,107,107,108,109,110,111;
- }
- else if (strnpcinfo(2) == "payg_cas01") {
- set .@treasurebox,1344;
- setarray .@treasurex[0],289,292,292,289,288,289,290,291,292,293,293,293,293,293,293,292,291,290,289,288,288,288,288,288;
- setarray .@treasurey[0],10,10,7,7,11,11,11,11,11,11,10,9,8,7,6,6,6,6,6,6,7,8,9,10;
- }
- else if (strnpcinfo(2) == "payg_cas02") {
- set .@treasurebox,1346;
- setarray .@treasurex[0],143,146,146,143,142,143,144,145,146,147,147,147,147,147,147,146,145,144,143,142,142,142,142,142;
- setarray .@treasurey[0],146,146,143,143,147,147,147,147,147,147,146,145,144,143,142,142,142,142,142,142,143,144,145,146;
- }
- else if (strnpcinfo(2) == "payg_cas03") {
- set .@treasurebox,1348;
- setarray .@treasurex[0],158,159,159,158,156,157,158,159,160,161,161,161,161,161,161,160,159,158,157,156,156,156,156,156;
- setarray .@treasurey[0],169,169,168,168,171,171,171,171,171,171,170,169,168,167,166,166,166,166,166,166,167,168,169,170;
- }
- else if (strnpcinfo(2) == "payg_cas04") {
- set .@treasurebox,1350;
- setarray .@treasurex[0],146,147,147,146,144,145,146,147,148,149,149,149,149,149,149,148,147,146,145,144,144,144,144,144;
- setarray .@treasurey[0],48,48,47,47,50,50,50,50,50,50,49,48,47,46,45,45,45,45,45,45,46,47,48,49;
- }
- else if (strnpcinfo(2) == "payg_cas05") {
- set .@treasurebox,1352;
- setarray .@treasurex[0],155,158,158,155,154,155,156,157,158,159,159,159,159,159,159,158,157,156,155,154,154,154,154,154;
- setarray .@treasurey[0],134,134,131,131,135,135,135,135,135,135,134,133,132,131,130,130,130,130,130,130,131,132,133,134;
- }
- else if (strnpcinfo(2) == "prtg_cas01") {
- set .@treasurebox,1354;
- setarray .@treasurex[0],10,11,11,10,8,9,10,11,12,13,13,13,13,13,13,12,11,10,9,8,8,8,8,8;
- setarray .@treasurey[0],209,209,208,208,211,211,211,211,211,211,210,209,208,207,206,206,206,206,206,206,207,208,209,210;
- }
- else if (strnpcinfo(2) == "prtg_cas02") {
- set .@treasurebox,1356;
- setarray .@treasurex[0],201,202,202,201,199,200,201,202,203,204,204,204,204,204,204,203,202,201,200,199,199,199,199,199;
- setarray .@treasurey[0],228,228,227,227,230,230,230,230,230,230,229,228,227,226,225,225,225,225,225,225,226,227,228,229;
- }
- else if (strnpcinfo(2) == "prtg_cas03") {
- set .@treasurebox,1358;
- setarray .@treasurex[0],187,188,188,187,185,186,187,188,189,190,190,190,190,190,190,189,188,187,186,185,185,185,185,185;
- setarray .@treasurey[0],132,132,131,131,134,134,134,134,134,134,133,132,131,130,129,129,129,129,129,129,130,131,132,133;
- }
- else if (strnpcinfo(2) == "prtg_cas04") {
- set .@treasurebox,1360;
- setarray .@treasurex[0],269,270,270,269,267,268,269,270,271,272,272,272,272,272,272,271,270,269,268,267,267,267,267,267;
- setarray .@treasurey[0],162,162,161,161,164,164,164,164,164,164,163,162,161,160,159,159,159,159,159,159,160,161,162,163;
- }
- else if (strnpcinfo(2) == "prtg_cas05") {
- set .@treasurebox,1362;
- setarray .@treasurex[0],275,276,276,275,273,274,275,276,277,278,278,278,278,278,278,277,276,275,274,273,273,273,273,273;
- setarray .@treasurey[0],178,178,177,177,180,180,180,180,180,180,179,178,177,176,175,175,175,175,175,175,176,177,178,179;
- }
- // Add custom Guild Castles here.
- else {
- end;
- }
-
- // Apply investment to Eco. and Def. Only happens if there were investments made.
- // Permanent Development can only happen once per day.
- if (GetCastleData(strnpcinfo(2),4)) {
- set .@Economy,GetCastleData(strnpcinfo(2),2);
- SetCastleData strnpcinfo(2),2,.@Economy + GetCastleData(strnpcinfo(2),4) + (rand(2) && getgdskilllv(.@GID,10014));
- if (GetCastleData(strnpcinfo(2),2) > 100) SetCastleData strnpcinfo(2),2,100;
- }
- if (GetCastleData(strnpcinfo(2),5)) {
- set .@Defence,GetCastleData(strnpcinfo(2),3);
- SetCastleData strnpcinfo(2),3,.@Defence + GetCastleData(strnpcinfo(2),5);
- if (GetCastleData(strnpcinfo(2),3) > 100) SetCastleData strnpcinfo(2),3,100;
- }
- // Reset daily investment limits.
- setcastledata strnpcinfo(2),4,0;
- setcastledata strnpcinfo(2),5,0;
-
- // Spawn boxes in proper order.
- for (set .@i,0; .@i < .@Treasure ; set .@i,.@i+1) {
- // set treasure box ID
- set .@boxid, .@treasurebox + (.@i+2) % 2;
- set .@box,1 << .@i;
- // Spawn or do not spawn chests if one already exists.
- if ((getd("$@"+strnpcinfo(2)+"_treasure") & .@box) == 0) {
- monster strnpcinfo(2),.@treasurex[.@i],.@treasurey[.@i],"Treasure Chest",.@boxid,1,"Treasure#"+strnpcinfo(2)+"::OnTreasureDied"+.@i;
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") | .@box;
- }
- }
- end;
-
-// Individual "You killed a chest" events to ensure proper spawning at the change of day.
-OnTreasureDied0:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~1;
- end;
-OnTreasureDied1:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~2;
- end;
-OnTreasureDied2:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~4;
- end;
-OnTreasureDied3:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~8;
- end;
-OnTreasureDied4:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~16;
- end;
-OnTreasureDied5:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~32;
- end;
-OnTreasureDied6:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~64;
- end;
-OnTreasureDied7:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~128;
- end;
-OnTreasureDied8:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~256;
- end;
-OnTreasureDied9:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~512;
- end;
-OnTreasureDied10:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~1024;
- end;
-OnTreasureDied11:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~2048;
- end;
-OnTreasureDied12:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~4096;
- end;
-OnTreasureDied13:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~8192;
- end;
-OnTreasureDied14:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~16384;
- end;
-OnTreasureDied15:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~32768;
- end;
-OnTreasureDied16:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~65536;
- end;
-OnTreasureDied17:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~131072;
- end;
-OnTreasureDied18:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~262144;
- end;
-OnTreasureDied19:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~524288;
- end;
-OnTreasureDied20:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~1048576;
- end;
-OnTreasureDied21:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~2097152;
- end;
-OnTreasureDied22:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~4194304;
- end;
-OnTreasureDied23:
- setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~8388608;
- end;
-}
+//===== rAthena Script =======================================
+//= War of Emperium Guild Template File
+//===== By: ==================================================
+//= L0ne_W0lf
+//===== Current Version: =====================================
+//= 1.9
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= [ Aegis Conversion]
+//= ----------------------------------------------------------
+//= - THIS FILE IS REQUIRED FOR GUILD CASTLES TO FUNCTION.
+//= ----------------------------------------------------------
+//= - Enables AGIT Manager inside Guild Strongholds.
+//= Visible Name required: Agit
+//= Manages the various functions used in and out of WoE.
+//=
+//= - Enables Stewards inside Guild Strongholds which let's
+//= the guild master invest in Defense and Economy, and
+//= to summon guardians, a Kafra, and enter master's room.
+//=
+//= - Guardian Spawning Template
+//= Visible Name required: Guardian
+//= Spawn guardians when guild castle data is recieved.
+//=
+//= - Enables Kafra Services inside Guild Strongholds.
+//= Visible Name required: Kafra Employee
+//= Storage, Guild Storage, Teleport Service, Cart rental.
+//=
+//= - Treasure Chest spawning.
+//= Chests will NOT be saved anymore in the event of crashes.
+//= Treasures will NOT spawn on a location that already has
+//= treasure chest spawned.
+//===== Additional Comments: =================================
+//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
+//= 1.1 Daily investement will now be reset. [L0ne_W0lf]
+//= Template will no longer try to spawn chests.
+//= 1.2 Fixed Eco Invest option charging twice. [L0ne_W0lf]
+//= 1.3 Fixed a loading flag emblem for Payon 1. [L0ne_W0lf]
+//= Fixed two typos regarding Guild Steward name.
+//= 1.4 Fixed a typo in defense investment. [L0ne_W0lf]
+//= 1.5 Fixed spawn point of the emperium in Payon 1. [L0ne_W0lf]
+//= Double-investing doubles the price now.
+//= 1.6 Corrected Zeny check when summoning guardians. [L0ne_W0lf]
+//= Corrected cost for investing, thanks to Ai4rei.
+//= Second invest is now quadruple the value of the first
+//= Investing now happens at the turn of the day.
+//= 1.6a Corrected conditions in the new investing blocks. [L0ne_W0lf]
+//= 1.6b Moved where investments are added to eco/def. [L0ne_W0lf]
+//= 1.7 Updated Agitbreak announcements, added bc_woe [L0ne_W0lf]
+//= and added extended anouncement format for mapannounce.
+//= 1.8 Fixed a possible exploit in guild castle investment. [Brian]
+//= 1.9 Partially rewrote Script. [Masao]
+//============================================================
+
+// WoE : Main Functions
+//============================================================
+- script Gld_Agit_Manager::Gld_Agit_Manager -1,{
+ end;
+
+// War of Emperium has started.
+OnAgitStart:
+ if (strnpcinfo(0) == "Gld_Agit_Manager") end;
+ MapRespawnGuildID strnpcinfo(2),GetCastleData(strnpcinfo(2),1),2;
+ GvgOn strnpcinfo(2);
+
+// Spawn (fall through), or respawn the Emperium once it has been broken.
+OnStartArena:
+ // OnAgitStart will fall through and spawn the Emperium.
+ if (strnpcinfo(2) == "aldeg_cas01") { setarray .@emproom[0],216,23; }
+ else if (strnpcinfo(2) == "aldeg_cas02") { setarray .@emproom[0],213,23; }
+ else if (strnpcinfo(2) == "aldeg_cas03") { setarray .@emproom[0],205,31; }
+ else if (strnpcinfo(2) == "aldeg_cas04") { setarray .@emproom[0],36,217; }
+ else if (strnpcinfo(2) == "aldeg_cas05") { setarray .@emproom[0],27,101; }
+ else if (strnpcinfo(2) == "gefg_cas01") { setarray .@emproom[0],197,181; }
+ else if (strnpcinfo(2) == "gefg_cas02") { setarray .@emproom[0],176,178; }
+ else if (strnpcinfo(2) == "gefg_cas03") { setarray .@emproom[0],244,166; }
+ else if (strnpcinfo(2) == "gefg_cas04") { setarray .@emproom[0],174,177; }
+ else if (strnpcinfo(2) == "gefg_cas05") { setarray .@emproom[0],194,184; }
+ else if (strnpcinfo(2) == "payg_cas01") { setarray .@emproom[0],139,139; }
+ else if (strnpcinfo(2) == "payg_cas02") { setarray .@emproom[0],38,25; }
+ else if (strnpcinfo(2) == "payg_cas03") { setarray .@emproom[0],269,265; }
+ else if (strnpcinfo(2) == "payg_cas04") { setarray .@emproom[0],270,28; }
+ else if (strnpcinfo(2) == "payg_cas05") { setarray .@emproom[0],30,30; }
+ else if (strnpcinfo(2) == "prtg_cas01") { setarray .@emproom[0],197,197; }
+ else if (strnpcinfo(2) == "prtg_cas02") { setarray .@emproom[0],157,174; }
+ else if (strnpcinfo(2) == "prtg_cas03") { setarray .@emproom[0],16,220; }
+ else if (strnpcinfo(2) == "prtg_cas04") { setarray .@emproom[0],291,14; }
+ else if (strnpcinfo(2) == "prtg_cas05") { setarray .@emproom[0],266,266; }
+ // Add custom Guild Castles here.
+ else {
+ end;
+ }
+ if (!mobcount(strnpcinfo(2),"Agit#"+strnpcinfo(2)+"::OnAgitBreak")) {
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Emperium",1288,1,"Agit#"+strnpcinfo(2)+"::OnAgitBreak";
+ }
+ end;
+
+// The Emperium has been broken.
+OnAgitBreak:
+ set .@GID,getcharid(2);
+ // Show and log error if an unguilded player breaks the Emperium. (Should NEVER happen)
+ if (.@GID <= 0) {
+ set .@notice$,"Character "+strcharinfo(0)+" ("+getcharid(0)+") broke the Emperium in Castle: "+strnpcinfo(2)+" while guildless. No data will be saved and Emperium respawned.";
+ logmes .@notice$; debugmes .@notice$;
+ donpcevent "Agit#"+strnpcinfo(2)+"::OnStartArena";
+ end;
+ }
+ // Adjust Economy Invest Level for Castle
+ set .@Economy,GetCastleData(strnpcinfo(2),2) - 5;
+ if (.@Economy < 0) set .@Economy, 0;
+ SetCastleData strnpcinfo(2), 2, .@Economy;
+ // Adjust Defense Invest Level for Castle
+ set .@Defence,GetCastleData(strnpcinfo(2),3) - 5;
+ if (.@Defence < 0) set .@Defence, 0;
+ SetCastleData strnpcinfo(2), 3, .@Defence;
+
+ // Set new Castle Occupant
+ SetCastleData strnpcinfo(2),1, .@GID;
+
+ // Announce that the Emperium is destroyed, and respawn all but new castle-occupants.
+ mapannounce strnpcinfo(2),"The emperium has been destroyed.",bc_map|bc_woe,"0x00CCFF",FW_NORMAL,12;
+ MapRespawnGuildID strnpcinfo(2),.@GID,2;
+
+ // Refresh castle data, disable Kafra and reset Invest information.
+ donpcevent strnpcinfo(0)+"::OnRecvCastle";
+ disablenpc "Kafra Staff#"+strnpcinfo(2);
+ for( set .@i, 4; .@i <= 9; set .@i, .@i+1 ) {
+ SetCastleData strnpcinfo(2), .@i, 0;
+ }
+ // Erase Guardian Database information if the new owners do not have Guardian Research.
+ if( getgdskilllv(.@GID,10002) == 0 ) {
+ for( set .@i, 10; .@i <= 17; set .@i, .@i+1 ) {
+ SetCastleData strnpcinfo(2), .@i, 0;
+ }
+ }
+ // Respawn the Emperium, and display new owners.
+ sleep 500; // Slow down script execution slightly.
+ if( agitcheck() )
+ donpcevent "Agit#"+strnpcinfo(2)+"::OnStartArena";
+ sleep 7000;
+ announce "The [" + getcastlename(strnpcinfo(2)) + "] castle has been conquered by the [" + getguildName(.@GID) + "] guild.",bc_all|bc_woe;
+ end;
+
+// War of Emperium has ended.
+OnAgitEnd:
+ if (strnpcinfo(0) == "Gld_Agit_Manager") end;
+ GvgOff strnpcinfo(2);
+ // If the castle has no owner at the end of WoE, do not kill Emperium.
+ if (GetCastleData(strnpcinfo(2),1)) {
+ KillMonster strnpcinfo(2),"Agit#"+strnpcinfo(2)+"::OnAgitBreak";
+ }
+ end;
+
+// Occupying Guild has been disbanded.
+OnGuildBreak:
+ if (strnpcinfo(0) == "Gld_Agit_Manager") end;
+ // Kill guardians, disable the Kafra, and set owner to 0.
+ killmonster strnpcinfo(2),"Guardian#"+strnpcinfo(2)+"::OnGuardianDied";
+ disablenpc "Kafra Staff#"+strnpcinfo(2);
+ SetCastleData strnpcinfo(2),0,0;
+ // Wait before refreshing guild information.
+ sleep 7000;
+ Announce "Guild Base [" + GetCastleName(strnpcinfo(2)) + "] has been abandoned.",0;
+ donpcevent strnpcinfo(0)+"::OnRecvCastle";
+ end;
+
+OnAgitInit:
+OnRecvCastle:
+ if (strnpcinfo(0) == "Gld_Agit_Manager") end;
+ // Spawn Monsters if the castle is empty.
+ set .@GID, GetCastleData(strnpcinfo(2),1);
+ if (.@GID == 0) {
+ killmonsterall strnpcinfo(2);
+ if (compare(strnpcinfo(2),"aldeg")) {
+ // Normal Spawns
+ monster strnpcinfo(2),0,0,"Evil Druid",1117,10;
+ monster strnpcinfo(2),0,0,"Khalitzburg",1132,4;
+ monster strnpcinfo(2),0,0,"Abysmal Knight",1219,2;
+ monster strnpcinfo(2),0,0,"Executioner",1205,1;
+ monster strnpcinfo(2),0,0,"Penomena",1216,10;
+ monster strnpcinfo(2),0,0,"Alarm",1193,18;
+ monster strnpcinfo(2),0,0,"Clock",1269,9;
+ monster strnpcinfo(2),0,0,"Raydric Archer",1276,7;
+ monster strnpcinfo(2),0,0,"Wanderer",1208,3;
+ monster strnpcinfo(2),0,0,"Alice",1275,1;
+ monster strnpcinfo(2),0,0,"Bloody Knight",1268,1;
+ monster strnpcinfo(2),0,0,"Dark Lord",1272,1;
+ // Set Emperium room spawn coordinates and spawn monsters.
+ if (strnpcinfo(2) == "aldeg_cas01") { setarray .@emproom[0],216,23; }
+ else if (strnpcinfo(2) == "aldeg_cas02") { setarray .@emproom[0],213,23; }
+ else if (strnpcinfo(2) == "aldeg_cas03") { setarray .@emproom[0],205,31; }
+ else if (strnpcinfo(2) == "aldeg_cas04") { setarray .@emproom[0],36,217; }
+ else if (strnpcinfo(2) == "aldeg_cas05") { setarray .@emproom[0],27,101; }
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Dark Lord",1272,1;
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Tower Keeper",1270,4;
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Bloody Knight",1268,1;
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Abysmal Knight",1219,1;
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Raydric Archer",1276,5;
+ }
+ else if (compare(strnpcinfo(2),"gefg")) {
+ // Normal Spawns
+ monster strnpcinfo(2),0,0,"Evil Druid",1117,10;
+ monster strnpcinfo(2),0,0,"Wind Ghost",1263,11;
+ monster strnpcinfo(2),0,0,"Bathory",1102,10;
+ monster strnpcinfo(2),0,0,"Jakk",1130,10;
+ monster strnpcinfo(2),0,0,"Marduk",1140,20;
+ monster strnpcinfo(2),0,0,"Raydric",1163,9;
+ monster strnpcinfo(2),0,0,"Alice",1275,1;
+ monster strnpcinfo(2),0,0,"Abysmal Knight",1219,1;
+ monster strnpcinfo(2),0,0,"Moonlight Flower",1150,1;
+ monster strnpcinfo(2),0,0,"Phreeoni",1159,1;
+ // Set Emperium room spawn coordinates and spawn monsters.
+ if (strnpcinfo(2) == "gefg_cas01") { setarray .@emproom[0],197,181; }
+ else if (strnpcinfo(2) == "gefg_cas02") { setarray .@emproom[0],176,178; }
+ else if (strnpcinfo(2) == "gefg_cas03") { setarray .@emproom[0],244,166; }
+ else if (strnpcinfo(2) == "gefg_cas04") { setarray .@emproom[0],174,177; }
+ else if (strnpcinfo(2) == "gefg_cas05") { setarray .@emproom[0],194,184; }
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Mysteltainn",1203,1;
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Orc Hero",1087,1;
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"High Orc",1213,10;
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Orc Archer",1189,10;
+ }
+ else if (compare(strnpcinfo(2),"payg")) {
+ // Normal Spawns
+ monster strnpcinfo(2),0,0,"Greatest General",1277,9;
+ monster strnpcinfo(2),0,0,"Wanderer",1208,10;
+ monster strnpcinfo(2),0,0,"Mutant Dragonoid",1262,5;
+ monster strnpcinfo(2),0,0,"Bathory",1102,5;
+ monster strnpcinfo(2),0,0,"Moonlight Flower",1150,1;
+ monster strnpcinfo(2),0,0,"Eddga",1115,1;
+ monster strnpcinfo(2),0,0,"Horong",1129,11;
+ monster strnpcinfo(2),0,0,"Raydric Archer",1276,5;
+ monster strnpcinfo(2),0,0,"Kobold Archer",1282,4;
+ monster strnpcinfo(2),0,0,"Gargoyle",1253,5;
+ // Set Emperium room spawn coordinates and spawn monsters.
+ if (strnpcinfo(2) == "payg_cas01") { setarray .@emproom[0],139,139; }
+ else if (strnpcinfo(2) == "payg_cas02") { setarray .@emproom[0],38,25; }
+ else if (strnpcinfo(2) == "payg_cas03") { setarray .@emproom[0],269,265; }
+ else if (strnpcinfo(2) == "payg_cas04") { setarray .@emproom[0],270,28; }
+ else if (strnpcinfo(2) == "payg_cas05") { setarray .@emproom[0],30,30; }
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Moonlight Flower",1150,1;
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Eddga",1115,1;
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Wanderer",1208,6;
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Raydric Archer",1276,5;
+ }
+ else if (compare(strnpcinfo(2),"prtg")) {
+ // Normal Spawns
+ monster strnpcinfo(2),0,0,"Raydric",1163,1;
+ monster strnpcinfo(2),0,0,"Khalitzburg",1132,10;
+ monster strnpcinfo(2),0,0,"Abysmal Knight",1219,5;
+ monster strnpcinfo(2),0,0,"Bloody Knight",1268,5;
+ monster strnpcinfo(2),0,0,"Stormy Knight",1251,1;
+ monster strnpcinfo(2),0,0,"Hatii",1252,1;
+ monster strnpcinfo(2),0,0,"Raydric Archer",1276,5;
+ monster strnpcinfo(2),0,0,"Gryphon",1259,2;
+ monster strnpcinfo(2),0,0,"Chimera",1283,3;
+ monster strnpcinfo(2),0,0,"Alice",1275,1;
+ monster strnpcinfo(2),0,0,"Zealotus",1200,1;
+ // Set Emperium room spawn coordinates and spawn monsters.
+ if (strnpcinfo(2) == "prtg_cas01") { setarray .@emproom[0],197,197; }
+ else if (strnpcinfo(2) == "prtg_cas02") { setarray .@emproom[0],157,174; }
+ else if (strnpcinfo(2) == "prtg_cas03") { setarray .@emproom[0],16,220; }
+ else if (strnpcinfo(2) == "prtg_cas04") { setarray .@emproom[0],291,14; }
+ else if (strnpcinfo(2) == "prtg_cas05") { setarray .@emproom[0],266,266; }
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Guardian Knight",1268,1;
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Guardian Master",1251,1;
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Hatii",1252,1;
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Guardian Knight",1219,1;
+ monster strnpcinfo(2),.@emproom[0],.@emproom[1],"Raydric Archer",1276,5;
+ }
+ // Add custom Guild Castles here.
+ else {
+ end;
+ }
+ donpcevent "Agit#"+strnpcinfo(2)+"::OnStartArena";
+ // Disable Kafra Staff...
+ disablenpc "Kafra Staff#"+strnpcinfo(2);
+ end;
+ }
+ else {
+ // Otherwise place the guild emblem on flags.
+ if (strnpcinfo(2) == "aldeg_cas01") { donpcevent "::OnRecvCastleA01"; }
+ else if (strnpcinfo(2) == "aldeg_cas02") { donpcevent "::OnRecvCastleA02"; }
+ else if (strnpcinfo(2) == "aldeg_cas03") { donpcevent "::OnRecvCastleA03"; }
+ else if (strnpcinfo(2) == "aldeg_cas04") { donpcevent "::OnRecvCastleA04"; }
+ else if (strnpcinfo(2) == "aldeg_cas05") { donpcevent "::OnRecvCastleA05"; }
+ else if (strnpcinfo(2) == "gefg_cas01") { donpcevent "::OnRecvCastleG01"; }
+ else if (strnpcinfo(2) == "gefg_cas02") { donpcevent "::OnRecvCastleG02"; }
+ else if (strnpcinfo(2) == "gefg_cas03") { donpcevent "::OnRecvCastleG03"; }
+ else if (strnpcinfo(2) == "gefg_cas04") { donpcevent "::OnRecvCastleG04"; }
+ else if (strnpcinfo(2) == "gefg_cas05") { donpcevent "::OnRecvCastleG05"; }
+ else if (strnpcinfo(2) == "payg_cas01") { donpcevent "::OnRecvCastlePy01"; }
+ else if (strnpcinfo(2) == "payg_cas02") { donpcevent "::OnRecvCastlePy02"; }
+ else if (strnpcinfo(2) == "payg_cas03") { donpcevent "::OnRecvCastlePy03"; }
+ else if (strnpcinfo(2) == "payg_cas04") { donpcevent "::OnRecvCastlePy04"; }
+ else if (strnpcinfo(2) == "payg_cas05") { donpcevent "::OnRecvCastlePy05"; }
+ else if (strnpcinfo(2) == "prtg_cas01") { donpcevent "::OnRecvCastlePt01"; }
+ else if (strnpcinfo(2) == "prtg_cas02") { donpcevent "::OnRecvCastlePt02"; }
+ else if (strnpcinfo(2) == "prtg_cas03") { donpcevent "::OnRecvCastlePt03"; }
+ else if (strnpcinfo(2) == "prtg_cas04") { donpcevent "::OnRecvCastlePt04"; }
+ else if (strnpcinfo(2) == "prtg_cas05") { donpcevent "::OnRecvCastlePt05"; }
+ // Add custom Guild Castles here.
+ else {
+ end;
+ }
+ // And load purchased Guardian in castles.
+ donpcevent "Guardian#"+strnpcinfo(2)+"::OnSpawnGuardians";
+ // And display Kafra if purchased.
+ if (GetCastleData(strnpcinfo(2),9) < 1) disablenpc "Kafra Staff#"+strnpcinfo(2);
+ }
+ end;
+}
+
+// WoE : Guild Kafras
+//============================================================
+- script Kafra Staff#woe::guildkafra -1,{
+
+ set .@GID,GetCastleData(strnpcinfo(2),1);
+
+ if (compare(strnpcinfo(2),"aldeg")) {
+ setarray .@destination$[0],"Al De Baran","aldebaran";
+ setarray .@coordinates[0],132,103;
+ }
+ else if (compare(strnpcinfo(2),"gefg")) {
+ setarray .@destination$[0],"Geffen","geffen";
+ setarray .@coordinates[0],120,39;
+ }
+ else if (compare(strnpcinfo(2),"payg")) {
+ setarray .@destination$[0],"Payon","payon";
+ setarray .@coordinates[0],70,100;
+ }
+ else if (compare(strnpcinfo(2),"prtg")) {
+ setarray .@destination$[0],"Prontera","prontera";
+ setarray .@coordinates[0],278,211;
+ }
+ // Add custom Guild Castles here.
+ else {
+ end;
+ }
+
+ cutin "kafra_01",2;
+ if (getcharid(2) == .@GID) {
+ mes "[Kafra Employee]";
+ mes "Welcome. ^ff0000" + GetGuildName(.@GID) + "^000000 Member.";
+ mes "The Kafra Corporation will stay with you wherever you go.";
+ next;
+ switch (select("Use Storage:Use Teleport Service:Rent a Pushcart:Cancel")) {
+ case 1:
+ if (getskilllv("NV_BASIC") < 6) {
+ mes "[Kafra Employee]";
+ mes "I'm sorry, but you";
+ mes "need the Novice's";
+ mes "Basic Skill Level 6 to";
+ mes "use the Storage Service.";
+ close2;
+ cutin "",255;
+ end;
+ }
+ mes "[Kafra Employee]";
+ mes "Here, let me open";
+ mes "your Storage for you.";
+ mes "Thank you for using";
+ mes "the Kafra Service.";
+ close2;
+ cutin "",255;
+ openstorage;
+ end;
+ case 2:
+ mes "[Kafra Employee]";
+ mes "Please choose";
+ mes "your destination.";
+ next;
+ switch (select(.@destination$+" -> 200z:Cancel")) {
+ case 1:
+ if (Zeny < 200) {
+ mes "[Kafra Employee]";
+ mes "I'm sorry, but you don't have";
+ mes "enough zeny for the Teleport";
+ mes "Service. The fee to teleport";
+ mes "to "+.@destination$+" is 200 zeny.";
+ close2;
+ cutin "",255;
+ end;
+ }
+ set Zeny, Zeny - 200;
+ set RESRVPTS,RESRVPTS+2;
+ close2;
+ warp .@destination$[1],.@coordinates[0],.@coordinates[1];
+ end;
+ case 2:
+ close2;
+ cutin "",255;
+ end;
+ }
+ case 3:
+ if (BaseClass != Job_Merchant) {
+ mes "[Kafra Employee]";
+ mes "I'm sorry, but the";
+ mes "Pushcart rental service";
+ mes "is only available to Merchants,";
+ mes "Blacksmiths, Master Smiths,";
+ mes "Alchemists, Biochemists,";
+ mes "Mechanics and Geneticists.";
+ close2;
+ cutin "",255;
+ end;
+ }
+ if (checkcart()) {
+ mes "[Kafra Employee]";
+ mes "You already have";
+ mes "a Pushcart equipped.";
+ mes "Unfortunately, we can't";
+ mes "rent more than one to";
+ mes "each customer at a time.";
+ close2;
+ cutin "",255;
+ end;
+ }
+ mes "[Kafra Employee]";
+ mes "The Pushcart rental";
+ mes "fee is 800 zeny. Would";
+ mes "you like to rent a Pushcart?";
+ next;
+ switch (select("Rent a Pushcart.:Cancel")) {
+ case 1:
+ if (Zeny < 800) {
+ mes "[Kafra Employee]";
+ mes "I'm sorry, but you";
+ mes "don't have enough";
+ mes "zeny to pay the Pushcart";
+ mes "rental fee of 800 zeny.";
+ close2;
+ cutin "",255;
+ end;
+ }
+ set RESRVPTS,RESRVPTS+8;
+ set Zeny, Zeny - 800;
+ setcart;
+ close2;
+ cutin "",255;
+ end;
+ case 2:
+ close2;
+ cutin "",255;
+ end;
+ }
+ case 4:
+ mes "[Kafra Employee]";
+ mes "We, here at Kafra Corporation,";
+ mes "are always endeavoring to provide you with the best services. We hope that we meet your adventuring needs and standards of excellence.";
+ close2;
+ cutin "",255;
+ end;
+ }
+ }
+ mes "[Kafra Employee]";
+ mes "I am instructed to only offer my services to the ^ff0000"+GetGuildName(.@GID)+"^000000 Guild. Please try another Kafra Employee around here. Sorry for the inconvenience.";
+ close2;
+ cutin "",255;
+ end;
+}
+
+// WoE : Castle Managers
+//============================================================
+- script Castle Manager#cm::cm -1,{
+
+ set .@GID,GetCastleData(strnpcinfo(2),1);
+
+ // .@guardiantype = Defines the types of guardians per castle basis.
+ // 1 - Soldier Guardian, 2 - Archer Guardian, 3 - Knight Guardian
+ // .@guardianposx = Define the x spawn point for each uardian.
+ // [0] = 1st guardian's x spawn point.
+ // .@guardianposy = Define the y spawn point for each guardian.
+ // [0] = 1st guardian's y spawn point.
+ // .@masterroom = Defines the coordinates of the Treasure Room.
+ if (strnpcinfo(2) == "aldeg_cas01") {
+ setarray .@guardiantype[0],1,2,2,2,2,3,3,3;
+ setarray .@guardianposx[0],17,39,38,45,21,218,213,73;
+ setarray .@guardianposy[0],218,208,196,228,194,24,24,70;
+ setarray .@masterroom[0],113,223;
+ }
+ else if (strnpcinfo(2) == "aldeg_cas02") {
+ setarray .@guardiantype[0],3,3,3,1,1,2,2,2;
+ setarray .@guardianposx[0],27,88,117,60,51,21,36,210;
+ setarray .@guardianposy[0],184,43,46,202,183,177,183,7;
+ setarray .@masterroom[0],134,225;
+ }
+ else if (strnpcinfo(2) == "aldeg_cas03") {
+ setarray .@guardiantype[0],3,3,1,1,1,2,2,2;
+ setarray .@guardianposx[0],90,116,86,116,64,212,195,110;
+ setarray .@guardianposy[0],112,112,120,76,103,160,151,217;
+ setarray .@masterroom[0],229,267;
+ }
+ else if (strnpcinfo(2) == "aldeg_cas04") {
+ setarray .@guardiantype[0],2,2,2,1,1,1,3,3;
+ setarray .@guardianposx[0],187,192,148,145,169,198,48,55;
+ setarray .@guardianposy[0],100,42,88,209,53,77,72,88;
+ setarray .@masterroom[0],83,17;
+ }
+ else if (strnpcinfo(2) == "aldeg_cas05") {
+ setarray .@guardiantype[0],2,2,1,1,3,3,3,3;
+ setarray .@guardianposx[0],51,188,157,157,27,145,156,41;
+ setarray .@guardianposy[0],202,79,192,74,221,78,73,112;
+ setarray .@masterroom[0],64,8;
+ }
+ // Geffen (Britoniah) Castles
+ else if (strnpcinfo(2) == "gefg_cas01") {
+ setarray .@guardiantype[0],1,1,1,2,2,3,3,3;
+ setarray .@guardianposx[0],67,184,62,36,50,50,189,200;
+ setarray .@guardianposy[0],179,20,41,186,186,67,41,167;
+ setarray .@masterroom[0],152,117;
+ }
+ else if (strnpcinfo(2) == "gefg_cas02") {
+ setarray .@guardiantype[0],1,1,1,2,2,3,3,3;
+ setarray .@guardianposx[0],64,56,166,35,20,19,166,159;
+ setarray .@guardianposy[0],168,41,25,148,150,41,42,188;
+ setarray .@masterroom[0],145,115;
+ }
+ else if (strnpcinfo(2) == "gefg_cas03") {
+ setarray .@guardiantype[0],2,2,1,1,1,3,3,3;
+ setarray .@guardianposx[0],48,113,48,157,243,157,234,238;
+ setarray .@guardianposy[0],176,214,207,62,41,45,25,160;
+ setarray .@masterroom[0],275,289;
+ }
+ else if (strnpcinfo(2) == "gefg_cas04") {
+ setarray .@guardiantype[0],2,2,1,1,1,3,3,3;
+ setarray .@guardianposx[0],53,31,49,29,147,57,160,148;
+ setarray .@guardianposy[0],191,178,220,46,65,46,50,189;
+ setarray .@masterroom[0],116,123;
+ }
+ else if (strnpcinfo(2) == "gefg_cas05") {
+ setarray .@guardiantype[0],2,2,1,1,1,3,3,3;
+ setarray .@guardianposx[0],45,71,72,66,177,66,177,193;
+ setarray .@guardianposy[0],149,163,142,47,50,17,35,166;
+ setarray .@masterroom[0],149,106;
+ }
+ // Payon (Baulder) Castles
+ else if (strnpcinfo(2) == "payg_cas01") {
+ setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
+ setarray .@guardianposx[0],229,225,222,99,65,36,51,138;
+ setarray .@guardianposy[0],92,80,111,45,31,127,144,133;
+ setarray .@masterroom[0],295,8;
+ }
+ else if (strnpcinfo(2) == "payg_cas02") {
+ setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
+ setarray .@guardianposx[0],237,228,210,57,42,287,264,27;
+ setarray .@guardianposy[0],54,72,41,241,241,257,272,20;
+ setarray .@masterroom[0],141,149;
+ }
+ else if (strnpcinfo(2) == "payg_cas03") {
+ setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
+ setarray .@guardianposx[0],245,269,36,41,39,19,37,268;
+ setarray .@guardianposy[0],37,51,39,39,65,276,277,244;
+ setarray .@masterroom[0],163,167;
+ }
+ else if (strnpcinfo(2) == "payg_cas04") {
+ setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
+ setarray .@guardianposx[0],251,232,231,32,32,35,36,270;
+ setarray .@guardianposy[0],212,212,175,287,232,45,17,41;
+ setarray .@masterroom[0],151,47;
+ }
+ else if (strnpcinfo(2) == "payg_cas05") {
+ setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
+ setarray .@guardianposx[0],19,33,266,266,263,263,250,36;
+ setarray .@guardianposy[0],279,260,234,279,37,21,22,36;
+ setarray .@masterroom[0],153,137;
+ }
+ // Prontera (Valkyrie Realms) Castles
+ else if (strnpcinfo(2) == "prtg_cas01") {
+ setarray .@guardiantype[0],1,1,1,2,2,3,3,3;
+ setarray .@guardianposx[0],182,182,153,59,50,184,196,107;
+ setarray .@guardianposy[0],62,116,86,28,36,183,189,179;
+ setarray .@masterroom[0],15,209;
+ }
+ else if (strnpcinfo(2) == "prtg_cas02") {
+ setarray .@guardiantype[0],3,3,3,1,1,2,2,2;
+ setarray .@guardianposx[0],161,153,178,71,49,64,7,75;
+ setarray .@guardianposy[0],161,161,44,75,28,186,196,175;
+ setarray .@masterroom[0],207,229;
+ }
+ else if (strnpcinfo(2) == "prtg_cas03") {
+ setarray .@guardiantype[0],3,3,3,1,1,2,2,2;
+ setarray .@guardianposx[0],191,137,45,50,41,191,179,191;
+ setarray .@guardianposy[0],190,190,99,87,87,42,43,72;
+ setarray .@masterroom[0],190,130;
+ }
+ else if (strnpcinfo(2) == "prtg_cas04") {
+ setarray .@guardiantype[0],3,3,3,1,1,1,2,2;
+ setarray .@guardianposx[0],276,274,246,38,29,33,78,36;
+ setarray .@guardianposy[0],14,35,246,240,240,258,48,61;
+ setarray .@masterroom[0],275,160;
+ }
+ else if (strnpcinfo(2) == "prtg_cas05") {
+ setarray .@guardiantype[0],3,3,3,1,1,1,2,2;
+ setarray .@guardianposx[0],266,287,245,236,251,278,32,44;
+ setarray .@guardianposy[0],262,280,250,63,63,253,253,248;
+ setarray .@masterroom[0],281,176;
+ }
+ // Add custom Guild Castles here.
+ else {
+ end;
+ }
+
+ if (.@GID == 0) {
+ mes "["+strnpcinfo(1)+"]";
+ mes "I have been waiting for a master to fulfill my destiny.";
+ mes "Brave soul... fate will guide you towards your future...";
+ close;
+ }
+ if (GetGuildMaster(.@GID) != strcharinfo(0)) {
+ mes "["+strnpcinfo(1)+"]";
+ mes "No matter how much you pester me, I'll still follow my master ^ff0000"+GetGuildMaster(.@GID)+"^000000. Where are the Guardians?! Send these ruffians away right now!";
+ close;
+ }
+ mes "["+strnpcinfo(1)+"]";
+ mes "Welcome. My honorable master, ^ff0000"+strcharinfo(0)+"^000000...";
+ mes "Your humble servent, "+strnpcinfo(1)+", is here to serve you.";
+ next;
+ switch (select("Castle briefing:Invest in commercial growth:Invest in Castle Defenses:Summon Guardian:Hire / Fire a Kafra Employee:Go into Master's room")) {
+ case 1:
+ mes "["+strnpcinfo(1)+"]";
+ mes "I will report the Castle briefing, Master.";
+ mes " ";
+ mes "^0000ffNow, the commercial growth level is "+GetCastleData(strnpcinfo(2),2)+".";
+ if (GetCastleData(strnpcinfo(2),4)) {
+ mes " You invested "+GetCastleData(strnpcinfo(2),4)+" times in past 1 day.";
+ }
+ mes " Now, the Castle Defense level is "+GetCastleData(strnpcinfo(2),3)+".^000000";
+ if (GetCastleData(strnpcinfo(2),5)) {
+ mes " ^0000ff- You invested "+GetCastleData(strnpcinfo(2),5)+" times in past 1 day.^000000";
+ }
+ mes " ";
+ mes "That's all I have to report, Master.";
+ close;
+ case 2:
+ if (.@Economy < 6) { set .@eco_invest,5000; }
+ else if ((.@Economy >= 6) && (.@Economy <= 10)) { set .@eco_invest,10000; }
+ else if ((.@Economy >= 11) && (.@Economy <= 15)) { set .@eco_invest,20000; }
+ else if ((.@Economy >= 16) && (.@Economy <= 20)) { set .@eco_invest,35000; }
+ else if ((.@Economy >= 21) && (.@Economy <= 25)) { set .@eco_invest,55000; }
+ else if ((.@Economy >= 26) && (.@Economy <= 30)) { set .@eco_invest,80000; }
+ else if ((.@Economy >= 31) && (.@Economy <= 35)) { set .@eco_invest,110000; }
+ else if ((.@Economy >= 36) && (.@Economy <= 40)) { set .@eco_invest,145000; }
+ else if ((.@Economy >= 41) && (.@Economy <= 45)) { set .@eco_invest,185000; }
+ else if ((.@Economy >= 46) && (.@Economy <= 50)) { set .@eco_invest,230000; }
+ else if ((.@Economy >= 51) && (.@Economy <= 55)) { set .@eco_invest,280000; }
+ else if ((.@Economy >= 56) && (.@Economy <= 60)) { set .@eco_invest,335000; }
+ else if ((.@Economy >= 61) && (.@Economy <= 65)) { set .@eco_invest,395000; }
+ else if ((.@Economy >= 66) && (.@Economy <= 70)) { set .@eco_invest,460000; }
+ else if ((.@Economy >= 71) && (.@Economy <= 75)) { set .@eco_invest,530000; }
+ else if ((.@Economy >= 76) && (.@Economy <= 80)) { set .@eco_invest,605000; }
+ else if ((.@Economy >= 81) && (.@Economy <= 85)) { set .@eco_invest,685000; }
+ else if ((.@Economy >= 86) && (.@Economy <= 90)) { set .@eco_invest,770000; }
+ else if ((.@Economy >= 91) && (.@Economy <= 95)) { set .@eco_invest,860000; }
+ else if ((.@Economy >= 96) && (.@Economy <= 100)) { set .@eco_invest,955000; }
+ //Quadruple the cost of investing if you've already invested once.
+ if (GetCastleData(strnpcinfo(2),4)) {
+ set .@eco_invest,.@eco_invest*4;
+ }
+ mes "["+strnpcinfo(1)+"]";
+ mes "If you invest in commercial growth, the quantity of goods made by the guild will increase. Therfore, if you consider our future, investments will be a necessity.";
+ mes " ";
+ mes "Initially, you are able to invest just once but if you pay more money, you will be able to invest twice.";
+ if (.@Economy == 100) {
+ mes " ";
+ mes "^ff0000The commercial growth level of our Castle is at it's highest, 100%. No more investments are needed. Just as I have expected from a great economist like you, Master.^000000";
+ end;
+ }
+ if (GetCastleData(strnpcinfo(2),4) >= 2) {
+ mes " ";
+ mes "^ff0000You have already invested twice today. You cannot invest any more.^000000 I expect riches of the guild to grow at a high rate.";
+ end;
+ }
+ if (GetCastleData(strnpcinfo(2),4) == 0) {
+ mes " ";
+ mes "The current investment amount required is ^ff0000"+.@eco_invest+"^000000 zeny. Will you invest?";
+ }
+ else {
+ mes " ";
+ mes "You've invested once today... if you wish to invest once more, ^ff0000"+.@eco_invest+"^000000 more zeny will be needed.";
+ }
+ next;
+ switch (select("Invest in commercial growth:Cancel")) {
+ case 1:
+ if (Zeny < .@eco_invest) {
+ mes "["+strnpcinfo(1)+"]";
+ mes "I'm sorry but there is not enough zeny to invest. You will have to try again when you have the funds, Master.";
+ close;
+ }
+ set Zeny, Zeny - .@eco_invest;
+ SetCastleData strnpcinfo(2),4,GetCastleData(strnpcinfo(2),4)+1;
+ mes "[ "+strnpcinfo(1)+"]";
+ mes "We finished the investment safely. I expect that our growth level will be increased by tomorrow.";
+ close;
+ case 2:
+ mes "["+strnpcinfo(1)+"]";
+ mes "I'll do as you bid, my master... There is no hurry. We will do our best.";
+ close;
+ }
+ case 3:
+ set .@Defence,GetCastleData(strnpcinfo(2),3);
+ if (.@Defence < 6) { set .@def_invest,10000; }
+ else if ((.@Defence >= 6) && (.@Defence <= 10)) { set .@def_invest,20000; }
+ else if ((.@Defence >= 11) && (.@Defence <= 15)) { set .@def_invest,40000; }
+ else if ((.@Defence >= 16) && (.@Defence <= 20)) { set .@def_invest,70000; }
+ else if ((.@Defence >= 21) && (.@Defence <= 25)) { set .@def_invest,110000; }
+ else if ((.@Defence >= 26) && (.@Defence <= 30)) { set .@def_invest,160000; }
+ else if ((.@Defence >= 31) && (.@Defence <= 35)) { set .@def_invest,220000; }
+ else if ((.@Defence >= 36) && (.@Defence <= 40)) { set .@def_invest,290000; }
+ else if ((.@Defence >= 41) && (.@Defence <= 45)) { set .@def_invest,370000; }
+ else if ((.@Defence >= 46) && (.@Defence <= 50)) { set .@def_invest,460000; }
+ else if ((.@Defence >= 51) && (.@Defence <= 55)) { set .@def_invest,560000; }
+ else if ((.@Defence >= 56) && (.@Defence <= 60)) { set .@def_invest,670000; }
+ else if ((.@Defence >= 61) && (.@Defence <= 65)) { set .@def_invest,790000; }
+ else if ((.@Defence >= 66) && (.@Defence <= 70)) { set .@def_invest,920000; }
+ else if ((.@Defence >= 71) && (.@Defence <= 75)) { set .@def_invest,1060000; }
+ else if ((.@Defence >= 76) && (.@Defence <= 80)) { set .@def_invest,1210000; }
+ else if ((.@Defence >= 81) && (.@Defence <= 85)) { set .@def_invest,1370000; }
+ else if ((.@Defence >= 86) && (.@Defence <= 90)) { set .@def_invest,1540000; }
+ else if ((.@Defence >= 91) && (.@Defence <= 95)) { set .@def_invest,1720000; }
+ else if ((.@Defence >= 96) && (.@Defence <= 100)) { set .@def_invest,1910000; }
+ //Quadruple the cost of investing if you've already invested once.
+ if (GetCastleData(strnpcinfo(2),5)) {
+ set .@def_invest,.@def_invest*4;
+ }
+ mes "["+strnpcinfo(1)+"]";
+ mes "If you raise Castle Defenses, the durability of Guardians and the Emperium will increase. Therefore, if you consider our coming battles, some investment in this area will be required.";
+ mes " ";
+ mes "Originally you can invest just once but if you pay more money, you can invest twice.";
+ if (.@Defence == 100) {
+ mes " ";
+ mes "^ff0000But the Castle Defense level of our Castle is at it's highest, 100%. No more investments are needed. Just as I have expected from a great strategist like you, Master.^000000";
+ close;
+ }
+ if (GetCastleData(strnpcinfo(2),5) >= 2) {
+ mes " ";
+ mes "^ff0000You have already invested twice today. You cannot invest any more.^000000 I expect the Defenses of the guild to grow at a high rate.";
+ close;
+ }
+ if (GetCastleData(strnpcinfo(2),5) == 0) {
+ mes " ";
+ mes "The current investment amount required is ^ff0000"+.@def_invest+"^000000 zeny. Will you invest?";
+ }
+ else {
+ mes " ";
+ mes "You've invested once today... if you wish to invest once more, ^ff0000"+.@def_invest+"^000000 more zeny will be needed.";
+ }
+ next;
+ switch (select("Invest in Castle Defenses.:Cancel")) {
+ case 1:
+ if (Zeny < .@def_invest) {
+ mes "["+strnpcinfo(1)+"]";
+ mes "I'm sorry but there is not enough zeny to invest. You will have to try again when you have the funds, Master.";
+ close;
+ }
+ set Zeny, Zeny - .@def_invest;
+ SetCastleData strnpcinfo(2),5,GetCastleData(strnpcinfo(2),5)+1;
+ mes "[ "+strnpcinfo(1)+"]";
+ mes "We finished the investment safely. I expect that our Castle Defense level will be increased by tomorrow.";
+ close;
+ case 2:
+ mes "["+strnpcinfo(1)+"]";
+ mes "I'll do as you bid, my master... There is no hurry. We will do our best.";
+ close;
+ }
+ case 4:
+ mes "["+strnpcinfo(1)+"]";
+ mes "Will you summon a Guardian? It'll be a protector to defend us loyally.";
+ mes "Please select a guardian to defend us.";
+ next;
+ for( set .@i, 0; .@i <= 7 ; set .@i, .@i+1 ) {
+ if (.@guardiantype[.@i] == 1) { set .@type$,"Guardian Soldier"; }
+ else if (.@guardiantype[.@i] == 2) { set .@type$,"Guardian Archer"; }
+ else { set .@type$,"Guardian Knight"; }
+ if (guardianinfo(strnpcinfo(2),.@i,0)) {
+ setarray .@gname$[.@i], .@type$ + " - Implemented (" + guardianinfo(strnpcinfo(2),.@i,2) + "/" + guardianinfo(strnpcinfo(2),.@i,1) + ")";
+ }
+ else {
+ setarray .@gname$[.@i], .@type$ + " - Not Implemented";
+ }
+ }
+ set .@menu$,.@gname$[0]+":"+.@gname$[1]+":"+.@gname$[2]+":"+.@gname$[3]+":"+.@gname$[4]+":"+.@gname$[5]+":"+.@gname$[6]+":"+.@gname$[7];
+ set .@GDnum,select(.@menu$)+9;
+ mes "["+strnpcinfo(1)+"]";
+ mes "Will you summon the chosen guardian? 10,000 zeny are required to summon a Guardian.";
+ next;
+ switch (select("Summon:Cancel")) {
+ case 1:
+ if (getgdskilllv(.@GID,10002) == 0) {
+ mes "["+strnpcinfo(1)+"]";
+ mes "Master, we have not the resources to Summon the Guardian. If you want to accumulate them, you have to learn the Guild skill. We failed to summon the Guardian.";
+ close;
+ }
+ if (GetCastleData(strnpcinfo(2),.@GDnum) == 1) {
+ mes "["+strnpcinfo(1)+"]";
+ mes "Master, you already have summoned that Guardian. We cannot summon another.";
+ close;
+ }
+ if (Zeny < 10000) {
+ mes "["+strnpcinfo(1)+"]";
+ mes "Well... I'm sorry but we don't have funds to summon the Guardian. We failed to summon the Guardian.";
+ close;
+ }
+ set Zeny, Zeny - 10000;
+ SetCastleData strnpcinfo(2),.@GDnum,1; // mark as 'installed'
+ set .@UseGID,.@GDnum - 10;
+ if (.@guardiantype[.@UseGID] == 1) { set .@type,1287; }
+ else if (.@guardiantype[.@UseGID] == 2) { set .@type,1285; }
+ else { set .@type,1286; }
+ guardian strnpcinfo(2),.@guardianposx[.@UseGID],.@guardianposy[.@UseGID],strmobinfo(2,.@type),.@type,"Guardian#"+strnpcinfo(2)+"::OnGuardianDied",.@UseGID;
+ mes "["+strnpcinfo(1)+"]";
+ mes "We completed the summoning of the Guardian. Our defenses are now increased with it in place.";
+ close;
+ case 2:
+ mes "["+strnpcinfo(1)+"]";
+ mes "I did as you ordered. But please remember if you the have money to spare, it'll be better to set it up.";
+ close;
+ }
+ case 5:
+ if (GetCastleData(strnpcinfo(2),9) == 1) {
+ mes "["+strnpcinfo(1)+"]";
+ mes "We are currently hiring a Kafra Employee... Do you want to fire the Kafra Employee?";
+ next;
+ switch (select("Fire:Cancel")) {
+ case 1:
+ cutin "kafra_01",2;
+ mes "[ Hired Kafra Employee ]";
+ mes "I worked so hard... How can you do that, Master?... Please... Please reconsider... Check it again, Master... Please...";
+ next;
+ switch (select("Fire:Cancel")) {
+ case 1:
+ mes "[ Hired Kafra Employee ]";
+ mes "Oh, my goodness! This is nonsense!";
+ next;
+ cutin "",255;
+ close;
+ case 2:
+ mes "[ Hired Kafra Employee ]";
+ mes "I'll work hard for you... Thank you!";
+ close;
+ }
+ case 2:
+ mes "["+strnpcinfo(1)+"]";
+ mes "She worked hard in my opinion. It was a good decision to keep her.";
+ close;
+ }
+ disablenpc "Kafra Staff#"+strnpcinfo(2);
+ SetCastleData strnpcinfo(2),9,0;
+ mes "["+strnpcinfo(1)+"]";
+ mes "....";
+ mes "I have discharged the Kafra Employee... But... are you unsatisfied with something?";
+ close;
+ }
+ mes "["+strnpcinfo(1)+"]";
+ mes "Will you contact the kafra Main Office and Hire a Employee for our Castle?";
+ mes "^ff0000 10,000 zeny is required for their services. ";
+ next;
+ switch (select("Hire.:Cancel")) {
+ case 1:
+ if (getgdskilllv(.@GID,10001) == 0) {
+ mes "["+strnpcinfo(1)+"]";
+ mes "Master, we can't hire a Kafra Employee because we don't have a contract with the Kafra Main Office. If you want to obtain a contract with the Kafra Main Office, you will need to learn the Guild skill first.";
+ close;
+ }
+ if (Zeny < 10000) {
+ mes "["+strnpcinfo(1)+"]";
+ mes "Well... I'm sorry but we don't have enough funds to hire a Kafra Employee.";
+ close;
+ }
+ set Zeny, Zeny - 10000;
+ enablenpc "Kafra Staff#"+strnpcinfo(2);
+ SetCastleData strnpcinfo(2),9,1;
+ mes "["+strnpcinfo(1)+"]";
+ mes "We obtained a contract with the kafra Main Office, and hired a Kafra Employee.";
+ next;
+ cutin "kafra_01",2;
+ mes "[ Hired Kafra Employee ]";
+ mes "How do you do? I was dispatched from the Main Office.";
+ mes "I'll do my best to not tarnish the reputation of the Guild.";
+ next;
+ cutin "",255;
+ mes "["+strnpcinfo(1)+"]";
+ mes "The Contract terms of the hired Kafra Employee are for 1 month and after this term, you will need to to pay an additional fee.";
+ mes "It will be useful for our members.";
+ close;
+ case 2:
+ mes "["+strnpcinfo(1)+"]";
+ mes "I did as you ordered, but some of our members will be unhappy. It will be better to hire a Kafra Employee quickly.";
+ close;
+ }
+ case 6:
+ mes "["+strnpcinfo(1)+"]";
+ mes "Do you want to visit the room where our valuables are stored?";
+ mes "That room is restricted to you... you are the only one with access to it.";
+ next;
+ switch (select("Go into Master's room.:Cancel")) {
+ case 1:
+ mes "["+strnpcinfo(1)+"]";
+ mes "I'll show you the secret path. Follow me...please.";
+ mes "When you want to return here, please press the secret switch.";
+ close2;
+ warp strnpcinfo(2),.@masterroom[0],.@masterroom[1];
+ end;
+ case 2:
+ mes "["+strnpcinfo(1)+"]";
+ mes "Goods are produced once a day... if you don't remove them in time, they will not be produced anymore.";
+ mes "Therefore, it will be better if you check up on them from time to time.";
+ close;
+ }
+ }
+}
+
+// WoE : Guild Dungeon Entrances
+//============================================================
+- script Lever#gd::gdlever -1,{
+
+ set .@GID,GetCastleData(strnpcinfo(2),1);
+
+ if (.@GID == 0) {
+ mes "[Ringing Voice]";
+ mes "'Those who overcome an ordeal shows a great deal of bravery... and will find their way to another ordeal.'";
+ close;
+ }
+
+ if (compare(strnpcinfo(2),"aldeg")) {
+ set .@destination$,"gld_dun02";
+ if (compare(strnpcinfo(2),"cas01")) setarray .@coordinates[0],32,122;
+ else if (compare(strnpcinfo(2),"cas02")) setarray .@coordinates[0],79,30;
+ else if (compare(strnpcinfo(2),"cas03")) setarray .@coordinates[0],165,38;
+ else if (compare(strnpcinfo(2),"cas04")) setarray .@coordinates[0],160,148;
+ else if (compare(strnpcinfo(2),"cas05")) setarray .@coordinates[0],103,169;
+ }
+ else if (compare(strnpcinfo(2),"gefg")) {
+ set .@destination$,"gld_dun04";
+ if (compare(strnpcinfo(2),"cas01")) setarray .@coordinates[0],39,258;
+ else if (compare(strnpcinfo(2),"cas02")) setarray .@coordinates[0],125,270;
+ else if (compare(strnpcinfo(2),"cas03")) setarray .@coordinates[0],268,251;
+ else if (compare(strnpcinfo(2),"cas04")) setarray .@coordinates[0],268,108;
+ else if (compare(strnpcinfo(2),"cas05")) setarray .@coordinates[0],230,35;
+ }
+ else if (compare(strnpcinfo(2),"payg")) {
+ set .@destination$,"gld_dun01";
+ if (compare(strnpcinfo(2),"cas01")) setarray .@coordinates[0],186,165;
+ else if (compare(strnpcinfo(2),"cas02")) setarray .@coordinates[0],54,165;
+ else if (compare(strnpcinfo(2),"cas03")) setarray .@coordinates[0],54,39;
+ else if (compare(strnpcinfo(2),"cas04")) setarray .@coordinates[0],186,39;
+ else if (compare(strnpcinfo(2),"cas05")) setarray .@coordinates[0],223,202;
+ }
+ else if (compare(strnpcinfo(2),"prtg")) {
+ set .@destination$,"gld_dun03";
+ if (compare(strnpcinfo(2),"cas01")) setarray .@coordinates[0],28,251;
+ else if (compare(strnpcinfo(2),"cas02")) setarray .@coordinates[0],164,268;
+ else if (compare(strnpcinfo(2),"cas03")) setarray .@coordinates[0],164,179;
+ else if (compare(strnpcinfo(2),"cas04")) setarray .@coordinates[0],268,203;
+ else if (compare(strnpcinfo(2),"cas05")) setarray .@coordinates[0],199,28;
+ }
+ // Add custom Guild Castles here.
+ else {
+ end;
+ }
+
+ mes "[Ringing Voice]";
+ mes "'Only the truly brave can take the test.'";
+ next;
+ mes " ";
+ mes "There's a small lever. Will you pull it?";
+ next;
+ if(select("Pull.:Don't pull.") == 1) {
+ if (getcharid(2) == .@GID) {
+ close2;
+ warp .@destination$,.@coordinates[0],.@coordinates[1];
+ end;
+ }
+ mes " ";
+ mes "Nothing happened.";
+ close;
+ }
+ close;
+}
+
+// Guardian Spawner Template
+//============================================================
+- script Gld_Guard_Template::Gld_Guard_Template -1,{
+// Spawn Guardians in castles
+// When adding new castles, ensure that the coordinates coincide
+// with the coordinates defined in the Guild Steward template.
+OnSpawnGuardians:
+ // Define the types of guardians on a per castle basis.
+ // 1 - Soldier Guardian; 2 - Archer Guardian; 3 - Knight Guardian
+ // Define the x spawn point for each uardian.
+ // [0] = 1st guardian's x spawn point.
+ // Define the y spawn point for each uardian.
+ // [0] = 1st guardian's y spawn point.
+ // Aldebaran (Luina) Castles
+ if (strnpcinfo(2) == "aldeg_cas01") {
+ setarray .@guardiantype[0],1,2,2,2,2,3,3,3;
+ setarray .@guardianposx[0],17,39,38,45,21,218,213,73;
+ setarray .@guardianposy[0],218,208,196,228,194,24,24,70;
+ }
+ else if (strnpcinfo(2) == "aldeg_cas02") {
+ setarray .@guardiantype[0],3,3,3,1,1,2,2,2;
+ setarray .@guardianposx[0],27,88,117,60,51,21,36,210;
+ setarray .@guardianposy[0],184,43,46,202,183,177,183,7;
+ }
+ else if (strnpcinfo(2) == "aldeg_cas03") {
+ setarray .@guardiantype[0],3,3,1,1,1,2,2,2;
+ setarray .@guardianposx[0],90,116,86,116,64,212,195,110;
+ setarray .@guardianposy[0],112,112,120,76,103,160,151,217;
+ }
+ else if (strnpcinfo(2) == "aldeg_cas04") {
+ setarray .@guardiantype[0],2,2,2,1,1,1,3,3;
+ setarray .@guardianposx[0],187,192,148,145,169,198,48,55;
+ setarray .@guardianposy[0],100,42,88,209,53,77,72,88;
+ }
+ else if (strnpcinfo(2) == "aldeg_cas05") {
+ setarray .@guardiantype[0],2,2,1,1,3,3,3,3;
+ setarray .@guardianposx[0],51,188,157,157,27,145,156,41;
+ setarray .@guardianposy[0],202,79,192,74,221,78,73,112;
+ }
+ // Geffen (Britoniah) Castles
+ else if (strnpcinfo(2) == "gefg_cas01") {
+ setarray .@guardiantype[0],1,1,1,2,2,3,3,3;
+ setarray .@guardianposx[0],67,184,62,36,50,50,189,200;
+ setarray .@guardianposy[0],179,20,41,186,186,67,41,167;
+ }
+ else if (strnpcinfo(2) == "gefg_cas02") {
+ setarray .@guardiantype[0],1,1,1,2,2,3,3,3;
+ setarray .@guardianposx[0],64,56,166,35,20,19,166,159;
+ setarray .@guardianposy[0],168,41,25,148,150,41,42,188;
+ }
+ else if (strnpcinfo(2) == "gefg_cas03") {
+ setarray .@guardiantype[0],2,2,1,1,1,3,3,3;
+ setarray .@guardianposx[0],48,113,48,157,243,157,234,238;
+ setarray .@guardianposy[0],176,214,207,62,41,45,25,160;
+ }
+ else if (strnpcinfo(2) == "gefg_cas04") {
+ setarray .@guardiantype[0],2,2,1,1,1,3,3,3;
+ setarray .@guardianposx[0],53,31,49,29,147,57,160,148;
+ setarray .@guardianposy[0],191,178,220,46,65,46,50,189;
+ }
+ else if (strnpcinfo(2) == "gefg_cas05") {
+ setarray .@guardiantype[0],2,2,1,1,1,3,3,3;
+ setarray .@guardianposx[0],45,71,72,66,177,66,177,193;
+ setarray .@guardianposy[0],149,163,142,47,50,17,35,166;
+ }
+ // Payon (Baulder) Castles
+ else if (strnpcinfo(2) == "payg_cas01") {
+ setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
+ setarray .@guardianposx[0],229,225,222,99,65,36,51,138;
+ setarray .@guardianposy[0],92,80,111,45,31,127,144,133;
+ }
+ else if (strnpcinfo(2) == "payg_cas02") {
+ setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
+ setarray .@guardianposx[0],237,228,210,57,42,287,264,27;
+ setarray .@guardianposy[0],54,72,41,241,241,257,272,20;
+ }
+ else if (strnpcinfo(2) == "payg_cas03") {
+ setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
+ setarray .@guardianposx[0],245,269,36,41,39,19,37,268;
+ setarray .@guardianposy[0],37,51,39,39,65,276,277,244;
+ }
+ else if (strnpcinfo(2) == "payg_cas04") {
+ setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
+ setarray .@guardianposx[0],251,232,231,32,32,35,36,270;
+ setarray .@guardianposy[0],212,212,175,287,232,45,17,41;
+ }
+ else if (strnpcinfo(2) == "payg_cas05") {
+ setarray .@guardiantype[0],2,2,2,2,2,2,2,3;
+ setarray .@guardianposx[0],19,33,266,266,263,263,250,36;
+ setarray .@guardianposy[0],279,260,234,279,37,21,22,36;
+ }
+ // Prontera (Valkyrie Realms) Castles
+ else if (strnpcinfo(2) == "prtg_cas01") {
+ setarray .@guardiantype[0],1,1,1,2,2,3,3,3;
+ setarray .@guardianposx[0],182,182,153,59,50,184,196,107;
+ setarray .@guardianposy[0],62,116,86,28,36,183,189,179;
+ }
+ else if (strnpcinfo(2) == "prtg_cas02") {
+ setarray .@guardiantype[0],3,3,3,1,1,2,2,2;
+ setarray .@guardianposx[0],161,153,178,71,49,64,7,75;
+ setarray .@guardianposy[0],161,161,44,75,28,186,196,175;
+ }
+ else if (strnpcinfo(2) == "prtg_cas03") {
+ setarray .@guardiantype[0],3,3,3,1,1,2,2,2;
+ setarray .@guardianposx[0],191,137,45,50,41,191,179,191;
+ setarray .@guardianposy[0],190,190,99,87,87,42,43,72;
+ }
+ else if (strnpcinfo(2) == "prtg_cas04") {
+ setarray .@guardiantype[0],3,3,3,1,1,1,2,2;
+ setarray .@guardianposx[0],276,274,246,38,29,33,78,36;
+ setarray .@guardianposy[0],14,35,246,240,240,258,48,61;
+ }
+ else if (strnpcinfo(2) == "prtg_cas05") {
+ setarray .@guardiantype[0],3,3,3,1,1,1,2,2;
+ setarray .@guardianposx[0],266,287,245,236,251,278,32,44;
+ setarray .@guardianposy[0],262,280,250,63,63,253,253,248;
+ }
+ // Add custom Guild Castles here.
+ else {
+ end;
+ }
+
+ // Kill all existing guardians before spawning new ones.
+ // This should prevent duplicating Guardians when char Server disconnects.
+ killmonster strnpcinfo(2),strnpcinfo(0)+"::OnGuardianDied";
+
+ for( set .@i, 0; .@i <= 7 ; set .@i, .@i+1 ) {
+ set .@UseGID,.@i + 10;
+ if (.@guardiantype[.@i] == 1) { set .@type,1287; }
+ else if (.@guardiantype[.@i] == 2) { set .@type,1285; }
+ else { set .@type,1286; }
+ if (GetCastleData(strnpcinfo(2),.@UseGID)) {
+ guardian strnpcinfo(2),.@guardianposx[.@i],.@guardianposy[.@i],strmobinfo(2,.@type),.@type,"Guardian#"+strnpcinfo(2)+"::OnGuardianDied",.@i;
+ }
+ }
+ end;
+
+OnGuardianDied:
+ end;
+}
+
+// Treasure Room Spawn Template
+//============================================================
+- script Gld_Trea_Spawn::Gld_Trea_Spawn -1,{
+ end;
+
+OnClock0001:
+ // Do nothing if this script is the template.
+ if (strnpcinfo(1) == "Gld_Trea_Spawn") end;
+
+ set .@GID, GetCastleData(strnpcinfo(2),1);
+
+ // If there is no owner, do nothing.
+ if (!.@GID) end;
+
+ // Is there Economy in this castle?
+ set .@Treasure,GetCastleData(strnpcinfo(2),2)/5+4;
+
+ // Set information
+ if (strnpcinfo(2) == "aldeg_cas01") {
+ set .@treasurebox,1324;
+ setarray .@treasurex[0],115,122,115,122,116,117,118,119,120,121,121,121,121,121,121,120,119,118,117,116,116,116,116,116;
+ setarray .@treasurey[0],226,226,219,219,225,225,225,225,225,225,224,223,222,221,220,220,220,220,220,220,221,222,223,224;
+ }
+ else if (strnpcinfo(2) == "aldeg_cas02") {
+ set .@treasurebox,1326;
+ setarray .@treasurex[0],134,135,135,134,132,133,134,135,136,137,137,137,137,137,137,136,135,134,133,132,132,132,132,132;
+ setarray .@treasurey[0],231,231,230,230,233,233,233,233,233,233,232,231,230,229,228,228,228,228,228,228,229,230,231,232;
+ }
+ else if (strnpcinfo(2) == "aldeg_cas03") {
+ set .@treasurebox,1328;
+ setarray .@treasurex[0],224,225,225,224,222,223,224,225,226,227,227,227,227,227,227,226,225,224,223,222,222,222,222,222;
+ setarray .@treasurey[0],269,269,268,268,271,271,271,271,271,271,270,269,268,267,266,266,266,266,266,266,267,268,269,270;
+ }
+ else if (strnpcinfo(2) == "aldeg_cas04") {
+ set .@treasurebox,1330;
+ setarray .@treasurex[0],84,85,85,84,82,83,84,85,86,87,87,87,87,87,87,86,85,84,83,82,82,82,82,82;
+ setarray .@treasurey[0],13,13,12,12,15,15,15,15,15,15,14,13,12,11,10,10,10,10,10,10,11,12,13,14;
+ }
+ else if (strnpcinfo(2) == "aldeg_cas05") {
+ set .@treasurebox,1332;
+ setarray .@treasurex[0],61,62,62,61,59,60,61,62,63,64,64,64,64,64,64,63,62,61,60,59,59,59,59,59;
+ setarray .@treasurey[0],12,12,11,11,14,14,14,14,14,14,13,12,11,10,9,9,9,9,9,9,10,11,12,13;
+ }
+ else if (strnpcinfo(2) == "gefg_cas01") {
+ set .@treasurebox,1334;
+ setarray .@treasurex[0],153,154,154,153,151,152,153,154,155,156,156,156,156,156,156,155,154,153,152,151,151,151,151,151;
+ setarray .@treasurey[0],113,113,112,112,115,115,115,115,115,115,114,113,112,111,110,110,110,110,110,110,111,112,113,114;
+ }
+ else if (strnpcinfo(2) == "gefg_cas02") {
+ set .@treasurebox,1336;
+ setarray .@treasurex[0],139,140,140,139,137,138,139,140,141,142,142,142,142,142,142,141,140,139,138,137,137,137,137,137;
+ setarray .@treasurey[0],115,115,114,114,117,117,117,117,117,117,116,115,114,113,112,112,112,112,112,112,113,114,115,116;
+ }
+ else if (strnpcinfo(2) == "gefg_cas03") {
+ set .@treasurebox,1338;
+ setarray .@treasurex[0],269,270,270,269,267,268,269,270,271,272,272,272,272,272,272,271,270,269,268,267,267,267,267,267;
+ setarray .@treasurey[0],291,291,290,290,293,293,293,293,293,293,292,291,290,289,288,288,288,288,288,288,289,290,291,292;
+ }
+ else if (strnpcinfo(2) == "gefg_cas04") {
+ set .@treasurebox,1340;
+ setarray .@treasurex[0],115,116,116,115,113,114,115,116,117,118,118,118,118,118,118,117,116,115,114,113,113,113,113,113;
+ setarray .@treasurey[0],119,119,118,118,121,121,121,121,121,121,120,119,118,117,116,116,116,116,116,116,117,118,119,120;
+ }
+ else if (strnpcinfo(2) == "gefg_cas05") {
+ set .@treasurebox,1342;
+ setarray .@treasurex[0],143,144,144,143,141,142,143,144,145,146,146,146,146,146,146,145,144,143,142,141,141,141,141,141;
+ setarray .@treasurey[0],110,110,109,109,112,112,112,112,112,112,111,110,109,108,107,107,107,107,107,107,108,109,110,111;
+ }
+ else if (strnpcinfo(2) == "payg_cas01") {
+ set .@treasurebox,1344;
+ setarray .@treasurex[0],289,292,292,289,288,289,290,291,292,293,293,293,293,293,293,292,291,290,289,288,288,288,288,288;
+ setarray .@treasurey[0],10,10,7,7,11,11,11,11,11,11,10,9,8,7,6,6,6,6,6,6,7,8,9,10;
+ }
+ else if (strnpcinfo(2) == "payg_cas02") {
+ set .@treasurebox,1346;
+ setarray .@treasurex[0],143,146,146,143,142,143,144,145,146,147,147,147,147,147,147,146,145,144,143,142,142,142,142,142;
+ setarray .@treasurey[0],146,146,143,143,147,147,147,147,147,147,146,145,144,143,142,142,142,142,142,142,143,144,145,146;
+ }
+ else if (strnpcinfo(2) == "payg_cas03") {
+ set .@treasurebox,1348;
+ setarray .@treasurex[0],158,159,159,158,156,157,158,159,160,161,161,161,161,161,161,160,159,158,157,156,156,156,156,156;
+ setarray .@treasurey[0],169,169,168,168,171,171,171,171,171,171,170,169,168,167,166,166,166,166,166,166,167,168,169,170;
+ }
+ else if (strnpcinfo(2) == "payg_cas04") {
+ set .@treasurebox,1350;
+ setarray .@treasurex[0],146,147,147,146,144,145,146,147,148,149,149,149,149,149,149,148,147,146,145,144,144,144,144,144;
+ setarray .@treasurey[0],48,48,47,47,50,50,50,50,50,50,49,48,47,46,45,45,45,45,45,45,46,47,48,49;
+ }
+ else if (strnpcinfo(2) == "payg_cas05") {
+ set .@treasurebox,1352;
+ setarray .@treasurex[0],155,158,158,155,154,155,156,157,158,159,159,159,159,159,159,158,157,156,155,154,154,154,154,154;
+ setarray .@treasurey[0],134,134,131,131,135,135,135,135,135,135,134,133,132,131,130,130,130,130,130,130,131,132,133,134;
+ }
+ else if (strnpcinfo(2) == "prtg_cas01") {
+ set .@treasurebox,1354;
+ setarray .@treasurex[0],10,11,11,10,8,9,10,11,12,13,13,13,13,13,13,12,11,10,9,8,8,8,8,8;
+ setarray .@treasurey[0],209,209,208,208,211,211,211,211,211,211,210,209,208,207,206,206,206,206,206,206,207,208,209,210;
+ }
+ else if (strnpcinfo(2) == "prtg_cas02") {
+ set .@treasurebox,1356;
+ setarray .@treasurex[0],201,202,202,201,199,200,201,202,203,204,204,204,204,204,204,203,202,201,200,199,199,199,199,199;
+ setarray .@treasurey[0],228,228,227,227,230,230,230,230,230,230,229,228,227,226,225,225,225,225,225,225,226,227,228,229;
+ }
+ else if (strnpcinfo(2) == "prtg_cas03") {
+ set .@treasurebox,1358;
+ setarray .@treasurex[0],187,188,188,187,185,186,187,188,189,190,190,190,190,190,190,189,188,187,186,185,185,185,185,185;
+ setarray .@treasurey[0],132,132,131,131,134,134,134,134,134,134,133,132,131,130,129,129,129,129,129,129,130,131,132,133;
+ }
+ else if (strnpcinfo(2) == "prtg_cas04") {
+ set .@treasurebox,1360;
+ setarray .@treasurex[0],269,270,270,269,267,268,269,270,271,272,272,272,272,272,272,271,270,269,268,267,267,267,267,267;
+ setarray .@treasurey[0],162,162,161,161,164,164,164,164,164,164,163,162,161,160,159,159,159,159,159,159,160,161,162,163;
+ }
+ else if (strnpcinfo(2) == "prtg_cas05") {
+ set .@treasurebox,1362;
+ setarray .@treasurex[0],275,276,276,275,273,274,275,276,277,278,278,278,278,278,278,277,276,275,274,273,273,273,273,273;
+ setarray .@treasurey[0],178,178,177,177,180,180,180,180,180,180,179,178,177,176,175,175,175,175,175,175,176,177,178,179;
+ }
+ // Add custom Guild Castles here.
+ else {
+ end;
+ }
+
+ // Apply investment to Eco. and Def. Only happens if there were investments made.
+ // Permanent Development can only happen once per day.
+ if (GetCastleData(strnpcinfo(2),4)) {
+ set .@Economy,GetCastleData(strnpcinfo(2),2);
+ SetCastleData strnpcinfo(2),2,.@Economy + GetCastleData(strnpcinfo(2),4) + (rand(2) && getgdskilllv(.@GID,10014));
+ if (GetCastleData(strnpcinfo(2),2) > 100) SetCastleData strnpcinfo(2),2,100;
+ }
+ if (GetCastleData(strnpcinfo(2),5)) {
+ set .@Defence,GetCastleData(strnpcinfo(2),3);
+ SetCastleData strnpcinfo(2),3,.@Defence + GetCastleData(strnpcinfo(2),5);
+ if (GetCastleData(strnpcinfo(2),3) > 100) SetCastleData strnpcinfo(2),3,100;
+ }
+ // Reset daily investment limits.
+ setcastledata strnpcinfo(2),4,0;
+ setcastledata strnpcinfo(2),5,0;
+
+ // Spawn boxes in proper order.
+ for (set .@i,0; .@i < .@Treasure ; set .@i,.@i+1) {
+ // set treasure box ID
+ set .@boxid, .@treasurebox + (.@i+2) % 2;
+ set .@box,1 << .@i;
+ // Spawn or do not spawn chests if one already exists.
+ if ((getd("$@"+strnpcinfo(2)+"_treasure") & .@box) == 0) {
+ monster strnpcinfo(2),.@treasurex[.@i],.@treasurey[.@i],"Treasure Chest",.@boxid,1,"Treasure#"+strnpcinfo(2)+"::OnTreasureDied"+.@i;
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") | .@box;
+ }
+ }
+ end;
+
+// Individual "You killed a chest" events to ensure proper spawning at the change of day.
+OnTreasureDied0:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~1;
+ end;
+OnTreasureDied1:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~2;
+ end;
+OnTreasureDied2:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~4;
+ end;
+OnTreasureDied3:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~8;
+ end;
+OnTreasureDied4:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~16;
+ end;
+OnTreasureDied5:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~32;
+ end;
+OnTreasureDied6:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~64;
+ end;
+OnTreasureDied7:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~128;
+ end;
+OnTreasureDied8:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~256;
+ end;
+OnTreasureDied9:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~512;
+ end;
+OnTreasureDied10:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~1024;
+ end;
+OnTreasureDied11:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~2048;
+ end;
+OnTreasureDied12:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~4096;
+ end;
+OnTreasureDied13:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~8192;
+ end;
+OnTreasureDied14:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~16384;
+ end;
+OnTreasureDied15:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~32768;
+ end;
+OnTreasureDied16:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~65536;
+ end;
+OnTreasureDied17:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~131072;
+ end;
+OnTreasureDied18:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~262144;
+ end;
+OnTreasureDied19:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~524288;
+ end;
+OnTreasureDied20:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~1048576;
+ end;
+OnTreasureDied21:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~2097152;
+ end;
+OnTreasureDied22:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~4194304;
+ end;
+OnTreasureDied23:
+ setd "$@"+strnpcinfo(2)+"_treasure",getd("$@"+strnpcinfo(2)+"_treasure") & ~8388608;
+ end;
+} \ No newline at end of file
diff --git a/npc/guild/aldeg_cas01.txt b/npc/guild/aldeg_cas01.txt
index 9f3c86212..ba519522a 100644
--- a/npc/guild/aldeg_cas01.txt
+++ b/npc/guild/aldeg_cas01.txt
@@ -1,9 +1,9 @@
//===== rAthena Script =======================================
-//= War of Emperium (Al De baran)
+//= War of Emperium (Al De Baran)
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.1
+//= 1.2
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
@@ -11,26 +11,19 @@
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
//= 1.1 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.2 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
+// Guild Flags (Outside Castle)
//============================================================
-aldebaran,152,97,4 script Neuschwanstein#a1-1::Neuschwanstein 722,{
- end;
-
-OnRecvCastleA01:
- FlagEmblem GetCastleData("aldeg_cas01",1);
- end;
-}
+- script Neuschwanstein#1::OutsideFlagsA1 722,{
-// Guild Flag (Outside Castle)
-//============================================================
-alde_gld,61,87,6 script Neuschwanstein#a1-2::Neuschwanstein2 722,{
set .@GID, GetCastleData("aldeg_cas01",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -39,32 +32,33 @@ alde_gld,61,87,6 script Neuschwanstein#a1-2::Neuschwanstein2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("aldeg_cas01",1)) {
- warp "aldeg_cas01",218,170;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("aldeg_cas01",1)) {
+ warp "aldeg_cas01",218,170;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastleA01:
@@ -72,13 +66,14 @@ OnRecvCastleA01:
end;
}
-alde_gld,61,79,6 duplicate(Neuschwanstein2) Neuschwanstein#a1-3 722
-alde_gld,45,87,8 duplicate(Neuschwanstein2) Neuschwanstein#a1-4 722
-alde_gld,51,87,8 duplicate(Neuschwanstein2) Neuschwanstein#a1-5 722
+alde_gld,61,87,6 duplicate(OutsideFlagsA1) Neuschwanstein#1-2 722
+alde_gld,61,79,6 duplicate(OutsideFlagsA1) Neuschwanstein#2 722
+alde_gld,45,87,8 duplicate(OutsideFlagsA1) Neuschwanstein#3 722
+alde_gld,51,87,8 duplicate(OutsideFlagsA1) Neuschwanstein#4 722
-// Guild Flag (Inside Castle)
+// Guild Flags (Inside Castle)
//============================================================
-aldeg_cas01,30,248,4 script Neuschwanstein#a1-6::Neuschwanstein3 722,{
+- script Neuschwanstein#5::InsideFlagsA1 722,{
end;
OnRecvCastleA01:
@@ -86,57 +81,64 @@ OnRecvCastleA01:
end;
}
-aldeg_cas01,30,246,4 duplicate(Neuschwanstein3) Neuschwanstein#a1-7 722
-aldeg_cas01,37,248,4 duplicate(Neuschwanstein3) Neuschwanstein#a1-8 722
-aldeg_cas01,37,246,4 duplicate(Neuschwanstein3) Neuschwanstein#a1-9 722
-aldeg_cas01,95,80,2 duplicate(Neuschwanstein3) Neuschwanstein#a1-10 722
-aldeg_cas01,95,59,2 duplicate(Neuschwanstein3) Neuschwanstein#a1-11 722
-aldeg_cas01,62,75,2 duplicate(Neuschwanstein3) Neuschwanstein#a1-12 722
-aldeg_cas01,70,75,2 duplicate(Neuschwanstein3) Neuschwanstein#a1-13 722
-aldeg_cas01,74,75,2 duplicate(Neuschwanstein3) Neuschwanstein#a1-14 722
-aldeg_cas01,62,64,2 duplicate(Neuschwanstein3) Neuschwanstein#a1-15 722
-aldeg_cas01,66,64,2 duplicate(Neuschwanstein3) Neuschwanstein#a1-16 722
-aldeg_cas01,70,64,2 duplicate(Neuschwanstein3) Neuschwanstein#a1-17 722
-aldeg_cas01,74,64,2 duplicate(Neuschwanstein3) Neuschwanstein#a1-18 722
-aldeg_cas01,203,150,4 duplicate(Neuschwanstein3) Neuschwanstein#a1-19 722
-aldeg_cas01,210,150,4 duplicate(Neuschwanstein3) Neuschwanstein#a1-20 722
-aldeg_cas01,66,75,2 duplicate(Neuschwanstein3) Neuschwanstein#a1-21 722
+aldeg_cas01,30,248,4 duplicate(InsideFlagsA1) Neuschwanstein#5-2 722
+aldeg_cas01,30,248,4 duplicate(InsideFlagsA1) Neuschwanstein#6 722
+aldeg_cas01,37,248,4 duplicate(InsideFlagsA1) Neuschwanstein#7 722
+aldeg_cas01,37,246,4 duplicate(InsideFlagsA1) Neuschwanstein#8 722
+aldeg_cas01,30,246,4 duplicate(InsideFlagsA1) Neuschwanstein#9 722
+aldeg_cas01,95,80,2 duplicate(InsideFlagsA1) Neuschwanstein#10 722
+aldeg_cas01,95,59,2 duplicate(InsideFlagsA1) Neuschwanstein#11 722
+aldeg_cas01,62,75,2 duplicate(InsideFlagsA1) Neuschwanstein#12 722
+aldeg_cas01,66,75,2 duplicate(InsideFlagsA1) Neuschwanstein#13 722
+aldeg_cas01,70,75,2 duplicate(InsideFlagsA1) Neuschwanstein#14 722
+aldeg_cas01,74,75,2 duplicate(InsideFlagsA1) Neuschwanstein#15 722
+aldeg_cas01,62,64,2 duplicate(InsideFlagsA1) Neuschwanstein#16 722
+aldeg_cas01,66,64,2 duplicate(InsideFlagsA1) Neuschwanstein#17 722
+aldeg_cas01,70,64,2 duplicate(InsideFlagsA1) Neuschwanstein#18 722
+aldeg_cas01,74,64,2 duplicate(InsideFlagsA1) Neuschwanstein#19 722
+aldeg_cas01,74,64,2 duplicate(InsideFlagsA1) Neuschwanstein#20 722
+aldeg_cas01,203,150,4 duplicate(InsideFlagsA1) Neuschwanstein#21 722
+aldeg_cas01,210,150,4 duplicate(InsideFlagsA1) Neuschwanstein#22 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-aldeg_cas01,216,24,0 duplicate(Gld_Agit_Manager) Agit#aldeg_cas01 -1
+aldebaran,152,97,4 duplicate(InsideFlagsA1) Neuschwanstein#23 722
-// Steward
+// Kafra Employee
//============================================================
-aldeg_cas01,218,175,0 duplicate(Gld_Mngr_Template) Alfredo#aldeg_cas01 55
+aldeg_cas01,218,170,0 duplicate(guildkafra) Kafra Staff#aldeg_cas01 117
-// Guardians
+// Steward
//============================================================
-aldeg_cas01,218,175,0 duplicate(Gld_Guard_Template) Guardian#aldeg_cas01 -1
+aldeg_cas01,218,175,0 duplicate(cm) Alfredo#aldeg_cas01 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-aldeg_cas01,218,170,0 duplicate(Gld_Kafra_Template) Kafra Staff#aldeg_cas01 117
+aldeg_cas01,123,223,0 script #lever_A01 111,{
-// Master's Room Exit
-//============================================================
-aldeg_cas01,123,223,0 script #switch_A01 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "aldeg_cas01",218,176;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "aldeg_cas01",218,176;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-aldeg_cas01,118,223,0 duplicate(Gld_Trea_Protect) ban_warp#aldeg_cas01 -1,8,8
+aldeg_cas01,211,181,0 duplicate(gdlever) #aldeg_cas01 111
// Guild Treasure Spawns
//============================================================
aldeg_cas01,118,223,0 duplicate(Gld_Trea_Spawn) Treasure#aldeg_cas01 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+aldeg_cas01,216,24,0 duplicate(Gld_Agit_Manager) Agit#aldeg_cas01 -1
+
+// Guardians
//============================================================
-aldeg_cas01,211,181,0 duplicate(Gld_Dun_Template) #aldeg_cas01 111
+aldeg_cas01,218,175,0 duplicate(Gld_Guard_Template) Guardian#aldeg_cas01 -1 \ No newline at end of file
diff --git a/npc/guild/aldeg_cas02.txt b/npc/guild/aldeg_cas02.txt
index 135da1f14..d9ba54a32 100644
--- a/npc/guild/aldeg_cas02.txt
+++ b/npc/guild/aldeg_cas02.txt
@@ -1,5 +1,5 @@
//===== rAthena Script =======================================
-//= War of Emperium (Al De baran)
+//= War of Emperium (Al De Baran)
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
@@ -10,28 +10,20 @@
//= NPCs that relate to Al De Baran Guild Castle 2
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
-//= 1.1 Corrected flag-in spawn point. [L0ne_W0lf]
-//= 1.2 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.1 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.2 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
+// Guild Flags (Outside Castle)
//============================================================
-aldebaran,149,97,4 script Hohenschwangau#a2-1::Hohenschwangau 722,{
- end;
-
-OnRecvCastleA02:
- FlagEmblem GetCastleData("aldeg_cas02",1);
- end;
-}
+- script Hohenschwangau#1::OutsideFlagsA2 722,{
-// Guild Flag (Outside Castle)
-//============================================================
-alde_gld,99,251,4 script Hohenschwangau#a2-2::Hohenschwangau2 722,{
set .@GID, GetCastleData("aldeg_cas02",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -40,33 +32,33 @@ alde_gld,99,251,4 script Hohenschwangau#a2-2::Hohenschwangau2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("aldeg_cas02",1)) {
- warp "aldeg_cas02",84,74;
- //warp "aldeg_cas02",220,190;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("aldeg_cas02",1)) {
+ warp "aldeg_cas02",220,190;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastleA02:
@@ -74,11 +66,12 @@ OnRecvCastleA02:
end;
}
-alde_gld,99,244,4 duplicate(Hohenschwangau2) Hohenschwangau#a2-3 722
+alde_gld,99,251,4 duplicate(OutsideFlagsA2) Hohenschwangau#1-2 722
+alde_gld,99,244,4 duplicate(OutsideFlagsA2) Hohenschwangau#2 722
-// Guild Flag (Inside Castle)
+// Guild Flags (Inside Castle)
//============================================================
-aldeg_cas02,82,71,2 script Hohenschwangau#a2-4::Hohenschwangau3 722,{
+- script Hohenschwangau#3::InsideFlagsA2 722,{
end;
OnRecvCastleA02:
@@ -86,56 +79,60 @@ OnRecvCastleA02:
end;
}
-aldeg_cas02,67,30,2 duplicate(Hohenschwangau3) Hohenschwangau#a2-5 722
-aldeg_cas02,183,140,2 duplicate(Hohenschwangau3) Hohenschwangau#a2-6 722
-aldeg_cas02,212,152,2 duplicate(Hohenschwangau3) Hohenschwangau#a2-7 722
-aldeg_cas02,108,39,2 duplicate(Hohenschwangau3) Hohenschwangau#a2-8 722
-aldeg_cas02,57,213,2 duplicate(Hohenschwangau3) Hohenschwangau#a2-9 722
-aldeg_cas02,91,181,2 duplicate(Hohenschwangau3) Hohenschwangau#a2-10 722
-aldeg_cas02,103,53,2 duplicate(Hohenschwangau3) Hohenschwangau#a2-11 722
-aldeg_cas02,73,53,2 duplicate(Hohenschwangau3) Hohenschwangau#a2-12 722
-aldeg_cas02,63,41,2 duplicate(Hohenschwangau3) Hohenschwangau#a2-13 722
-aldeg_cas02,229,6,2 duplicate(Hohenschwangau3) Hohenschwangau#a2-14 722
-aldeg_cas02,230,40,2 duplicate(Hohenschwangau3) Hohenschwangau#a2-15 722
-aldeg_cas02,197,40,2 duplicate(Hohenschwangau3) Hohenschwangau#a2-16 722
-aldeg_cas02,32,213,2 duplicate(Hohenschwangau3) Hohenschwangau#a2-17 722
-aldeg_cas02,121,29,2 duplicate(Hohenschwangau3) Hohenschwangau#a2-18 722
+aldeg_cas02,82,71,2 duplicate(InsideFlagsA2) Hohenschwangau#3-2 722
+aldeg_cas02,67,30,2 duplicate(InsideFlagsA2) Hohenschwangau#4 722
+aldeg_cas02,183,140,2 duplicate(InsideFlagsA2) Hohenschwangau#5 722
+aldeg_cas02,212,152,2 duplicate(InsideFlagsA2) Hohenschwangau#6 722
+aldeg_cas02,108,39,2 duplicate(InsideFlagsA2) Hohenschwangau#7 722
+aldeg_cas02,57,213,2 duplicate(InsideFlagsA2) Hohenschwangau#8 722
+aldeg_cas02,103,53,2 duplicate(InsideFlagsA2) Hohenschwangau#9 722
+aldeg_cas02,73,53,2 duplicate(InsideFlagsA2) Hohenschwangau#10 722
+aldeg_cas02,63,41,2 duplicate(InsideFlagsA2) Hohenschwangau#11 722
+aldeg_cas02,229,6,2 duplicate(InsideFlagsA2) Hohenschwangau#12 722
+aldeg_cas02,230,40,2 duplicate(InsideFlagsA2) Hohenschwangau#13 722
+aldeg_cas02,197,40,2 duplicate(InsideFlagsA2) Hohenschwangau#14 722
+aldeg_cas02,32,213,2 duplicate(InsideFlagsA2) Hohenschwangau#15 722
+aldeg_cas02,121,29,2 duplicate(InsideFlagsA2) Hohenschwangau#16 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-aldeg_cas02,214,24,0 duplicate(Gld_Agit_Manager) Agit#aldeg_cas02 -1
+aldebaran,149,97,4 duplicate(InsideFlagsA2) Hohenschwangau#17 722
-// Steward
+// Kafra Employee
//============================================================
-aldeg_cas02,78,74,0 duplicate(Gld_Mngr_Template) Chenchenlie#aldeg_cas02 55
+aldeg_cas02,84,74,0 duplicate(guildkafra) Kafra Staff#aldeg_cas02 117
-// Guardians
+// Steward
//============================================================
-aldeg_cas02,78,74,0 duplicate(Gld_Guard_Template) Guardian#aldeg_cas02 -1
+aldeg_cas02,78,74,0 duplicate(cm) Chenchenlie#aldeg_cas02 55
-// Kafra Staff
+// Treasure Room Lever
//============================================================
-aldeg_cas02,84,74,0 duplicate(Gld_Kafra_Template) Kafra Staff#aldeg_cas02 117
+aldeg_cas02,139,234,0 script #lever_A02 111,{
-// Master's Room Exit
-//============================================================
-aldeg_cas02,139,235,0 script #switch_A02 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "aldeg_cas02",78,75;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "aldeg_cas02",78,75;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Lever
//============================================================
-aldeg_cas02,135,230,0 duplicate(Gld_Trea_Protect) ban_warp#aldeg_cas02 -1,8,8
+aldeg_cas02,194,136,0 duplicate(gdlever) #aldeg_cas02 111
// Guild Treasure Spawns
//============================================================
aldeg_cas02,135,230,0 duplicate(Gld_Trea_Spawn) Treasure#aldeg_cas02 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+aldeg_cas02,214,24,0 duplicate(Gld_Agit_Manager) Agit#aldeg_cas02 -1
+
+// Guardians
//============================================================
-aldeg_cas02,194,136,0 duplicate(Gld_Dun_Template) #aldeg_cas02 111
+aldeg_cas02,78,74,0 duplicate(Gld_Guard_Template) Guardian#aldeg_cas02 -1 \ No newline at end of file
diff --git a/npc/guild/aldeg_cas03.txt b/npc/guild/aldeg_cas03.txt
index eab5a4c5a..2f4e7dff3 100644
--- a/npc/guild/aldeg_cas03.txt
+++ b/npc/guild/aldeg_cas03.txt
@@ -1,9 +1,9 @@
//===== rAthena Script =======================================
-//= War of Emperium (Al De baran)
+//= War of Emperium (Al De Baran)
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.1
+//= 1.2
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
@@ -11,26 +11,19 @@
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
//= 1.1 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.2 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
-//============================================================
-aldebaran,134,97,4 script Nuenberg#a3-1::Nuenberg 722,{
- end;
-
-OnRecvCastleA03:
- FlagEmblem GetCastleData("aldeg_cas03",1);
- end;
-}
-
// Guild Flag (Outside Castle)
//============================================================
-alde_gld,138,82,0 script Nuenberg#a3-2::Nuenberg2 722,{
+- script Nuernberg#1::OutsideFlagsA3 722,{
+
set .@GID, GetCastleData("aldeg_cas03",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -39,33 +32,33 @@ alde_gld,138,82,0 script Nuenberg#a3-2::Nuenberg2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("aldeg_cas03",1)) {
- warp "aldeg_cas03",118,76;
- //warp "aldeg_cas03",205,186;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("aldeg_cas03",1)) {
+ warp "aldeg_cas03",205,186;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastleA03:
@@ -73,11 +66,12 @@ OnRecvCastleA03:
end;
}
-alde_gld,146,82,0 duplicate(Nuenberg2) Nuenberg#a3-3 722
+alde_gld,146,82,8 duplicate(OutsideFlagsA3) Nuernberg#1-2 722
+alde_gld,138,82,8 duplicate(OutsideFlagsA3) Nuernberg#2 722
// Guild Flag (Inside Castle)
//============================================================
-aldeg_cas03,176,175,2 script Nuenberg#a3-4::Nuenberg3 722,{
+- script Nuernberg#3::InsideFlagsA3 722,{
end;
OnRecvCastleA03:
@@ -85,56 +79,63 @@ OnRecvCastleA03:
end;
}
-aldeg_cas03,77,115,2 duplicate(Nuenberg3) Nuenberg#a3-5 722
-aldeg_cas03,77,215,2 duplicate(Nuenberg3) Nuenberg#a3-6 722
-aldeg_cas03,112,107,2 duplicate(Nuenberg3) Nuenberg#a3-7 722
-aldeg_cas03,112,117,2 duplicate(Nuenberg3) Nuenberg#a3-8 722
-aldeg_cas03,69,71,2 duplicate(Nuenberg3) Nuenberg#a3-9 722
-aldeg_cas03,91,69,2 duplicate(Nuenberg3) Nuenberg#a3-10 722
-aldeg_cas03,108,60,2 duplicate(Nuenberg3) Nuenberg#a3-11 722
-aldeg_cas03,121,73,2 duplicate(Nuenberg3) Nuenberg#a3-12 722
-aldeg_cas03,75,102,2 duplicate(Nuenberg3) Nuenberg#a3-13 722
-aldeg_cas03,199,169,2 duplicate(Nuenberg3) Nuenberg#a3-14 722
-aldeg_cas03,181,179,2 duplicate(Nuenberg3) Nuenberg#a3-15 722
-aldeg_cas03,192,44,2 duplicate(Nuenberg3) Nuenberg#a3-16 722
-aldeg_cas03,208,145,2 duplicate(Nuenberg3) Nuenberg#a3-17 722
-aldeg_cas03,96,62,2 duplicate(Nuenberg3) Nuenberg#a3-18 722
+aldeg_cas03,176,175,2 duplicate(InsideFlagsA3) Nuernberg#3-2 722
+aldeg_cas03,77,115,2 duplicate(InsideFlagsA3) Nuernberg#4 722
+aldeg_cas03,77,215,2 duplicate(InsideFlagsA3) Nuernberg#5 722
+aldeg_cas03,112,107,2 duplicate(InsideFlagsA3) Nuernberg#6 722
+aldeg_cas03,112,117,2 duplicate(InsideFlagsA3) Nuernberg#7 722
+aldeg_cas03,69,71,2 duplicate(InsideFlagsA3) Nuernberg#8 722
+aldeg_cas03,91,69,2 duplicate(InsideFlagsA3) Nuernberg#9 722
+aldeg_cas03,108,60,2 duplicate(InsideFlagsA3) Nuernberg#10 722
+aldeg_cas03,121,73,2 duplicate(InsideFlagsA3) Nuernberg#11 722
+aldeg_cas03,121,73,2 duplicate(InsideFlagsA3) Nuernberg#12 722
+aldeg_cas03,75,102,2 duplicate(InsideFlagsA3) Nuernberg#13 722
+aldeg_cas03,199,169,2 duplicate(InsideFlagsA3) Nuernberg#14 722
+aldeg_cas03,181,179,2 duplicate(InsideFlagsA3) Nuernberg#15 722
+aldeg_cas03,192,44,2 duplicate(InsideFlagsA3) Nuernberg#16 722
+aldeg_cas03,208,145,2 duplicate(InsideFlagsA3) Nuernberg#17 722
+aldeg_cas03,207,75,2 duplicate(InsideFlagsA3) Nuernberg#18 722
+aldeg_cas03,96,62,2 duplicate(InsideFlagsA3) Nuernberg#19 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-aldeg_cas03,206,32,0 duplicate(Gld_Agit_Manager) Agit#aldeg_cas03 -1
+aldebaran,134,97,4 duplicate(InsideFlagsA3) Nuernberg#20 722
-// Steward
+// Kafra Employee
//============================================================
-aldeg_cas03,110,118,0 duplicate(Gld_Mngr_Template) Nahzarf#aldeg_cas03 55
+aldeg_cas03,118,76,0 duplicate(guildkafra) Kafra Staff#aldeg_cas03 117
-// Guardians
+// Steward
//============================================================
-aldeg_cas03,110,118,0 duplicate(Gld_Guard_Template) Guardian#aldeg_cas03 -1
+aldeg_cas03,110,118,0 duplicate(cm) Nahzarf#aldeg_cas03 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-aldeg_cas03,118,76,0 duplicate(Gld_Kafra_Template) Kafra Staff#aldeg_cas03 117
+aldeg_cas03,229,267,0 script #lever_A03 111,{
-// Master's Room Exit
-//============================================================
-aldeg_cas03,229,267,0 script #switch_A03 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "aldeg_cas03",110,119;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "aldeg_cas03",110,119;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-aldeg_cas03,225,269,0 duplicate(Gld_Trea_Protect) ban_warp#aldeg_cas03 -1,8,8
+aldeg_cas03,200,177,0 duplicate(gdlever) #aldeg_cas03 111
// Guild Treasure Spawns
//============================================================
aldeg_cas03,225,269,0 duplicate(Gld_Trea_Spawn) Treasure#aldeg_cas03 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+aldeg_cas03,206,32,0 duplicate(Gld_Agit_Manager) Agit#aldeg_cas03 -1
+
+// Guardians
//============================================================
-aldeg_cas03,200,177,0 duplicate(Gld_Dun_Template) #aldeg_cas03 111
+aldeg_cas03,110,118,0 duplicate(Gld_Guard_Template) Guardian#aldeg_cas03 -1 \ No newline at end of file
diff --git a/npc/guild/aldeg_cas04.txt b/npc/guild/aldeg_cas04.txt
index da68f8eb5..944648b89 100644
--- a/npc/guild/aldeg_cas04.txt
+++ b/npc/guild/aldeg_cas04.txt
@@ -1,9 +1,9 @@
//===== rAthena Script =======================================
-//= War of Emperium (Al De baran)
+//= War of Emperium (Al De Baran)
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.1
+//= 1.2
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
@@ -11,26 +11,19 @@
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
//= 1.1 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.2 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
-//============================================================
-aldebaran,131,97,4 script Wuerzburg#a4-1::Wuerzburg 722,{
- end;
-
-OnRecvCastleA04:
- FlagEmblem GetCastleData("aldeg_cas04",1);
- end;
-}
-
// Guild Flag (Outside Castle)
//============================================================
-alde_gld,239,246,2 script Wuerzburg#a4-2::Wuerzburg2 722,{
+- script Wuerzburg#1::OutsideFlagsA4 722,{
+
set .@GID, GetCastleData("aldeg_cas04",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -39,33 +32,33 @@ alde_gld,239,246,2 script Wuerzburg#a4-2::Wuerzburg2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("aldeg_cas04",1)) {
- warp "aldeg_cas04",45,88;
- //warp "aldeg_cas04",116,217;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("aldeg_cas04",1)) {
+ warp "aldeg_cas04",116,217;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastleA04:
@@ -73,11 +66,12 @@ OnRecvCastleA04:
end;
}
-alde_gld,239,239,2 duplicate(Wuerzburg2) Wuerzburg#a4-3 722
+alde_gld,239,246,2 duplicate(OutsideFlagsA4) Wuerzburg#1-2 722
+alde_gld,239,239,2 duplicate(OutsideFlagsA4) Wuerzburg#2 722
// Guild Flag (Inside Castle)
//============================================================
-aldeg_cas04,167,61,2 script Wuerzburg#a4-4::Wuerzburg3 722,{
+- script Wuerzburg#3::InsideFlagsA4 722,{
end;
OnRecvCastleA04:
@@ -85,58 +79,63 @@ OnRecvCastleA04:
end;
}
-aldeg_cas04,164,90,2 duplicate(Wuerzburg3) Wuerzburg#a4-5 722
-aldeg_cas04,129,193,2 duplicate(Wuerzburg3) Wuerzburg#a4-6 722
-aldeg_cas04,112,206,2 duplicate(Wuerzburg3) Wuerzburg#a4-7 722
-aldeg_cas04,113,212,2 duplicate(Wuerzburg3) Wuerzburg#a4-8 722
-aldeg_cas04,77,117,2 duplicate(Wuerzburg3) Wuerzburg#a4-9 722
-aldeg_cas04,186,42,2 duplicate(Wuerzburg3) Wuerzburg#a4-10 722
-aldeg_cas04,30,69,2 duplicate(Wuerzburg3) Wuerzburg#a4-11 722
-aldeg_cas04,55,97,2 duplicate(Wuerzburg3) Wuerzburg#a4-12 722
-aldeg_cas04,45,98,2 duplicate(Wuerzburg3) Wuerzburg#a4-13 722
-aldeg_cas04,33,116,2 duplicate(Wuerzburg3) Wuerzburg#a4-14 722
-aldeg_cas04,130,180,2 duplicate(Wuerzburg3) Wuerzburg#a4-15 722
-aldeg_cas04,129,193,2 duplicate(Wuerzburg3) Wuerzburg#a4-16 722
-aldeg_cas04,33,107,2 duplicate(Wuerzburg3) Wuerzburg#a4-17 722
-aldeg_cas04,133,220,2 duplicate(Wuerzburg3) Wuerzburg#a4-18 722
-aldeg_cas04,169,22,2 duplicate(Wuerzburg3) Wuerzburg#a4-19 722
-aldeg_cas04,169,15,2 duplicate(Wuerzburg3) Wuerzburg#a4-20 722
+aldeg_cas04,167,61,2 duplicate(InsideFlagsA4) Wuerzburg#3-2 722
+aldeg_cas04,164,90,2 duplicate(InsideFlagsA4) Wuerzburg#4 722
+aldeg_cas04,129,193,2 duplicate(InsideFlagsA4) Wuerzburg#5 722
+aldeg_cas04,112,206,2 duplicate(InsideFlagsA4) Wuerzburg#6 722
+aldeg_cas04,113,212,2 duplicate(InsideFlagsA4) Wuerzburg#7 722
+aldeg_cas04,77,117,2 duplicate(InsideFlagsA4) Wuerzburg#8 722
+aldeg_cas04,186,42,2 duplicate(InsideFlagsA4) Wuerzburg#9 722
+aldeg_cas04,30,69,2 duplicate(InsideFlagsA4) Wuerzburg#10 722
+aldeg_cas04,55,97,2 duplicate(InsideFlagsA4) Wuerzburg#11 722
+aldeg_cas04,45,98,2 duplicate(InsideFlagsA4) Wuerzburg#12 722
+aldeg_cas04,33,116,2 duplicate(InsideFlagsA4) Wuerzburg#13 722
+aldeg_cas04,130,180,2 duplicate(InsideFlagsA4) Wuerzburg#14 722
+aldeg_cas04,129,193,2 duplicate(InsideFlagsA4) Wuerzburg#15 722
+aldeg_cas04,33,107,2 duplicate(InsideFlagsA4) Wuerzburg#16 722
+aldeg_cas04,133,220,2 duplicate(InsideFlagsA4) Wuerzburg#17 722
+aldeg_cas04,169,22,2 duplicate(InsideFlagsA4) Wuerzburg#18 722
+aldeg_cas04,169,15,2 duplicate(InsideFlagsA4) Wuerzburg#19 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-aldeg_cas04,36,218,0 duplicate(Gld_Agit_Manager) Agit#aldeg_cas04 -1
+aldebaran,131,97,4 duplicate(InsideFlagsA4) Wuerzburg#20 722
-// Steward
+// Kafra Employee
//============================================================
-aldeg_cas04,67,116,0 duplicate(Gld_Mngr_Template) Brymhensen#aldeg_cas04 55
+aldeg_cas04,45,88,0 duplicate(guildkafra) Kafra Staff#aldeg_cas04 117
-// Guardians
+// Steward
//============================================================
-aldeg_cas04,67,116,0 duplicate(Gld_Guard_Template) Guardian#aldeg_cas04 -1
+aldeg_cas04,67,116,0 duplicate(cm) Brymhensen#aldeg_cas04 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-aldeg_cas04,45,88,0 duplicate(Gld_Kafra_Template) Kafra Staff#aldeg_cas04 117
+aldeg_cas04,83,17,0 script #lever_A04 111,{
-// Master's Room Exit
-//============================================================
-aldeg_cas04,83,17,0 script #switch_A04 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "aldeg_cas04",67,117;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "aldeg_cas04",67,117;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-aldeg_cas04,84,13,0 duplicate(Gld_Trea_Protect) ban_warp#aldeg_cas04 -1,8,8
+aldeg_cas04,76,64,0 duplicate(gdlever) #aldeg_cas04 111
// Guild Treasure Spawns
//============================================================
aldeg_cas04,84,13,0 duplicate(Gld_Trea_Spawn) Treasure#aldeg_cas04 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+aldeg_cas04,36,218,0 duplicate(Gld_Agit_Manager) Agit#aldeg_cas04 -1
+
+// Guardians
//============================================================
-aldeg_cas04,38,76,0 duplicate(Gld_Dun_Template) #aldeg_cas04 111
+aldeg_cas04,67,116,0 duplicate(Gld_Guard_Template) Guardian#aldeg_cas04 -1 \ No newline at end of file
diff --git a/npc/guild/aldeg_cas05.txt b/npc/guild/aldeg_cas05.txt
index e27c48887..7e5d088f2 100644
--- a/npc/guild/aldeg_cas05.txt
+++ b/npc/guild/aldeg_cas05.txt
@@ -1,5 +1,5 @@
//===== rAthena Script =======================================
-//= War of Emperium (Al De baran)
+//= War of Emperium (Al De Baran)
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
@@ -10,28 +10,20 @@
//= NPCs that relate to Al De Baran Guild Castle 5
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
-//= 1.1 Corrected flag-in spawn point. [L0ne_W0lf]
-//= 1.2 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.1 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.2 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
-//============================================================
-aldebaran,128,97,4 script Rothenburg#a5-1::Rothenburg 722,{
- end;
-
-OnRecvCastleA05:
- FlagEmblem GetCastleData("aldeg_cas05",1);
- end;
-}
-
// Guild Flag (Outside Castle)
//============================================================
-alde_gld,265,93,6 script Rothenburg#a5-2::Rothenburg2 722,{
+- script Rothenburg#1::OutsideFlagsA5 722,{
+
set .@GID, GetCastleData("aldeg_cas05",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -40,33 +32,33 @@ alde_gld,265,93,6 script Rothenburg#a5-2::Rothenburg2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("aldeg_cas05",1)) {
- warp "aldeg_cas05",31,190;
- //warp "aldeg_cas05",167,225;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("aldeg_cas05",1)) {
+ warp "aldeg_cas05",167,225;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastleA05:
@@ -74,11 +66,12 @@ OnRecvCastleA05:
end;
}
-alde_gld,265,87,6 duplicate(Rothenburg2) Rothenburg#a5-3 722
+alde_gld,265,93,6 duplicate(OutsideFlagsA5) Rothenburg#1-2 722
+alde_gld,265,87,6 duplicate(OutsideFlagsA5) Rothenburg#2 722
// Guild Flag (Inside Castle)
//============================================================
-aldeg_cas05,170,85,2 script Rothenburg#a5-4::Rothenburg3 722,{
+- script Rothenburg#3::InsideFlagsA5 722,{
end;
OnRecvCastleA05:
@@ -86,56 +79,62 @@ OnRecvCastleA05:
end;
}
-aldeg_cas05,142,212,2 duplicate(Rothenburg3) Rothenburg#a5-5 722
-aldeg_cas05,149,196,2 duplicate(Rothenburg3) Rothenburg#a5-6 722
-aldeg_cas05,41,180,2 duplicate(Rothenburg3) Rothenburg#a5-7 722
-aldeg_cas05,38,201,2 duplicate(Rothenburg3) Rothenburg#a5-8 722
-aldeg_cas05,65,182,2 duplicate(Rothenburg3) Rothenburg#a5-9 722
-aldeg_cas05,65,205,2 duplicate(Rothenburg3) Rothenburg#a5-10 722
-aldeg_cas05,10,218,2 duplicate(Rothenburg3) Rothenburg#a5-11 722
-aldeg_cas05,164,201,2 duplicate(Rothenburg3) Rothenburg#a5-12 722
-aldeg_cas05,14,117,2 duplicate(Rothenburg3) Rothenburg#a5-14 722
-aldeg_cas05,10,225,2 duplicate(Rothenburg3) Rothenburg#a5-15 722
-aldeg_cas05,187,59,2 duplicate(Rothenburg3) Rothenburg#a5-16 722
-aldeg_cas05,154,51,2 duplicate(Rothenburg3) Rothenburg#a5-17 722
-aldeg_cas05,22,211,2 duplicate(Rothenburg3) Rothenburg#a5-18 722
-aldeg_cas05,150,202,2 duplicate(Rothenburg3) Rothenburg#a5-19 722
+aldeg_cas05,170,85,2 duplicate(InsideFlagsA5) Rothenburg#3-2 722
+aldeg_cas05,142,212,2 duplicate(InsideFlagsA5) Rothenburg#4 722
+aldeg_cas05,149,196,2 duplicate(InsideFlagsA5) Rothenburg#5 722
+aldeg_cas05,41,180,2 duplicate(InsideFlagsA5) Rothenburg#6 722
+aldeg_cas05,38,201,2 duplicate(InsideFlagsA5) Rothenburg#7 722
+aldeg_cas05,65,182,2 duplicate(InsideFlagsA5) Rothenburg#8 722
+aldeg_cas05,65,205,2 duplicate(InsideFlagsA5) Rothenburg#9 722
+aldeg_cas05,10,218,2 duplicate(InsideFlagsA5) Rothenburg#10 722
+aldeg_cas05,10,218,2 duplicate(InsideFlagsA5) Rothenburg#11 722
+aldeg_cas05,164,201,2 duplicate(InsideFlagsA5) Rothenburg#12 722
+aldeg_cas05,14,117,2 duplicate(InsideFlagsA5) Rothenburg#13 722
+aldeg_cas05,10,225,2 duplicate(InsideFlagsA5) Rothenburg#14 722
+aldeg_cas05,187,59,2 duplicate(InsideFlagsA5) Rothenburg#15 722
+aldeg_cas05,154,51,2 duplicate(InsideFlagsA5) Rothenburg#16 722
+aldeg_cas05,22,211,2 duplicate(InsideFlagsA5) Rothenburg#17 722
+aldeg_cas05,150,202,2 duplicate(InsideFlagsA5) Rothenburg#18 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-aldeg_cas05,28,102,0 duplicate(Gld_Agit_Manager) Agit#aldeg_cas05 -1
+aldebaran,128,97,4 duplicate(InsideFlagsA5) Rothenburg#19 722
-// Steward
+// Kafra Employee
//============================================================
-aldeg_cas05,52,179,0 duplicate(Gld_Mngr_Template) Blemhemsen#aldeg_cas05 55
+aldeg_cas05,31,190,0 duplicate(guildkafra) Kafra Staff#aldeg_cas05 117
-// Guardians
+// Steward
//============================================================
-aldeg_cas05,52,179,0 duplicate(Gld_Guard_Template) Guardian#aldeg_cas05 -1
+aldeg_cas05,51,179,0 duplicate(cm) Esmarehk#aldeg_cas05 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-aldeg_cas05,31,190,0 duplicate(Gld_Kafra_Template) Kafra Staff#aldeg_cas05 117
+aldeg_cas05,64,8,0 script #lever_A05 111,{
-// Master's Room Exit
-//============================================================
-aldeg_cas05,64,8,0 script #switch_A05 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "aldeg_cas05",51,179;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "aldeg_cas05",51,179;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-aldeg_cas05,62,12,0 duplicate(Gld_Trea_Protect) ban_warp#aldeg_cas05 -1,8,8
+aldeg_cas05,22,205,0 duplicate(gdlever) #aldeg_cas05 111
// Guild Treasure Spawns
//============================================================
aldeg_cas05,62,12,0 duplicate(Gld_Trea_Spawn) Treasure#aldeg_cas05 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+aldeg_cas05,28,102,0 duplicate(Gld_Agit_Manager) Agit#aldeg_cas05 -1
+
+// Guardians
//============================================================
-aldeg_cas05,22,205,0 duplicate(Gld_Dun_Template) #aldeg_cas05 111
+aldeg_cas05,52,179,0 duplicate(Gld_Guard_Template) Guardian#aldeg_cas05 -1 \ No newline at end of file
diff --git a/npc/guild/gefg_cas01.txt b/npc/guild/gefg_cas01.txt
index 6f2503cfa..231ce2805 100644
--- a/npc/guild/gefg_cas01.txt
+++ b/npc/guild/gefg_cas01.txt
@@ -3,7 +3,7 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.1
+//= 1.2
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
@@ -11,26 +11,19 @@
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
//= 1.1 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.2 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
-//============================================================
-geffen,109,123,2 script Repherion#g1-1::Repherion 722,{
- end;
-
-OnRecvCastleG01:
- FlagEmblem GetCastleData("gefg_cas01",1);
- end;
-}
-
// Guild Flag (Outside Castle)
//============================================================
-gef_fild13,148,51,5 script Repherion#g1-2::Repherion2 722,{
+- script Repherion#1::OutsideFlagsG1 722,{
+
set .@GID, GetCastleData("gefg_cas01",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -39,33 +32,33 @@ gef_fild13,148,51,5 script Repherion#g1-2::Repherion2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("gefg_cas01",1)) {
- warp "gefg_cas01",83,47;
- //warp "gefg_cas01",197,36;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("gefg_cas01",1)) {
+ warp "gefg_cas01",197,36;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastleG01:
@@ -73,13 +66,14 @@ OnRecvCastleG01:
end;
}
-gef_fild13,155,54,5 duplicate(Repherion2) Repherion#g1-3 722
-gef_fild13,212,79,6 duplicate(Repherion2) Repherion#g1-4 722
-gef_fild13,211,71,6 duplicate(Repherion2) Repherion#g1-5 722
+gef_fild13,148,51,5 duplicate(OutsideFlagsG1) Repherion#1-2 722
+gef_fild13,155,54,5 duplicate(OutsideFlagsG1) Repherion#2 722
+gef_fild13,212,79,6 duplicate(OutsideFlagsG1) Repherion#3 722
+gef_fild13,211,71,6 duplicate(OutsideFlagsG1) Repherion#4 722
// Guild Flag (Inside Castle)
//============================================================
-gefg_cas01,28,157,4 script Repherion#g1-6::Repherion3 722,{
+- script Repherion#5::InsideFlagsG1 722,{
end;
OnRecvCastleG01:
@@ -87,47 +81,52 @@ OnRecvCastleG01:
end;
}
-gefg_cas01,22,156,5 duplicate(Repherion3) Repherion#g1-7 722
-gefg_cas01,68,185,3 duplicate(Repherion3) Repherion#g1-8 722
-gefg_cas01,17,171,5 duplicate(Repherion3) Repherion#g1-9 722
-gefg_cas01,59,16,4 duplicate(Repherion3) Repherion#g1-10 722
-gefg_cas01,64,16,4 duplicate(Repherion3) Repherion#g1-11 722
+gefg_cas01,28,157,4 duplicate(InsideFlagsG1) Repherion#5-2 722
+gefg_cas01,22,156,5 duplicate(InsideFlagsG1) Repherion#6 722
+gefg_cas01,68,185,3 duplicate(InsideFlagsG1) Repherion#7 722
+gefg_cas01,17,171,5 duplicate(InsideFlagsG1) Repherion#8 722
+gefg_cas01,59,16,4 duplicate(InsideFlagsG1) Repherion#9 722
+gefg_cas01,64,16,4 duplicate(InsideFlagsG1) Repherion#10 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-gefg_cas01,198,182,0 duplicate(Gld_Agit_Manager) Agit#gefg_cas01 -1
+geffen,109,123,2 duplicate(InsideFlagsG1) Repherion#11 722
-// Steward
+// Kafra Employee
//============================================================
-gefg_cas01,40,48,5 duplicate(Gld_Mngr_Template) Gnahcher#gefg_cas01 55
+gefg_cas01,83,47,3 duplicate(guildkafra) Kafra Staff#gefg_cas01 117
-// Guardians
+// Steward
//============================================================
-gefg_cas01,40,48,5 duplicate(Gld_Guard_Template) Guardian#gefg_cas01 -1
+gefg_cas01,40,48,5 duplicate(cm) Gnahcher#gefg_cas01 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-gefg_cas01,84,47,0 duplicate(Gld_Kafra_Template) Kafra Staff#gefg_cas01 117
+gefg_cas01,152,117,0 script #lever_G01 111,{
-// Master's Room Exit
-//============================================================
-gefg_cas01,152,117,0 script #switch_G01 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "gefg_cas01",40,49;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "gefg_cas01",40,49;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-gefg_cas01,154,112,0 duplicate(Gld_Trea_Protect) ban_warp#gefg_cas01 -1,6,6
+gefg_cas01,78,84,0 duplicate(gdlever) #gefg_cas01 111
// Guild Treasure Spawns
//============================================================
gefg_cas01,154,112,0 duplicate(Gld_Trea_Spawn) Treasure#gefg_cas01 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+gefg_cas01,198,182,0 duplicate(Gld_Agit_Manager) Agit#gefg_cas01 -1
+
+// Guardians
//============================================================
-gefg_cas01,78,84,0 duplicate(Gld_Dun_Template) #gefg_cas01 111
+gefg_cas01,40,48,5 duplicate(Gld_Guard_Template) Guardian#gefg_cas01 -1 \ No newline at end of file
diff --git a/npc/guild/gefg_cas02.txt b/npc/guild/gefg_cas02.txt
index 353557947..9758a71ff 100644
--- a/npc/guild/gefg_cas02.txt
+++ b/npc/guild/gefg_cas02.txt
@@ -3,7 +3,7 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.1
+//= 1.2
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
@@ -11,26 +11,19 @@
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
//= 1.1 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.2 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
-//============================================================
-geffen,113,130,1 script Eeyolbriggar#g2-1::Eeyolbriggar 722,{
- end;
-
-OnRecvCastleG02:
- FlagEmblem GetCastleData("gefg_cas02",1);
- end;
-}
-
// Guild Flag (Outside Castle)
//============================================================
-gef_fild13,303,243,4 script Eeyolbriggar#g2-2::Eeyolbriggar2 722,{
+- script Eeyorbriggar#1::OutsideFlagsG2 722,{
+
set .@GID, GetCastleData("gefg_cas02",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -39,33 +32,33 @@ gef_fild13,303,243,4 script Eeyolbriggar#g2-2::Eeyolbriggar2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("gefg_cas02",1)) {
- warp "gefg_cas02",23,66;
- //warp "gefg_cas02",178,43;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("gefg_cas02",1)) {
+ warp "gefg_cas02",178,43;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastleG02:
@@ -73,13 +66,14 @@ OnRecvCastleG02:
end;
}
-gef_fild13,312,243,4 duplicate(Eeyolbriggar2) Eeyolbriggar#g2-3 722
-gef_fild13,290,243,4 duplicate(Eeyolbriggar2) Eeyolbriggar#g2-4 722
-gef_fild13,324,243,4 duplicate(Eeyolbriggar2) Eeyolbriggar#g2-5 722
+gef_fild13,303,243,4 duplicate(OutsideFlagsG2) Eeyorbriggar#1-2 722
+gef_fild13,312,243,4 duplicate(OutsideFlagsG2) Eeyorbriggar#2 722
+gef_fild13,290,243,4 duplicate(OutsideFlagsG2) Eeyorbriggar#3 722
+gef_fild13,324,243,4 duplicate(OutsideFlagsG2) Eeyorbriggar#4 722
// Guild Flag (Inside Castle)
//============================================================
-gefg_cas02,65,130,5 script Eeyolbriggar#g2-6::Eeyolbriggar3 722,{
+- script Eeyorbriggar#5::InsideFlagsG2 722,{
end;
OnRecvCastleG02:
@@ -87,48 +81,53 @@ OnRecvCastleG02:
end;
}
-gefg_cas02,30,123,5 duplicate(Eeyolbriggar3) Eeyolbriggar#g2-7 722
-gefg_cas02,65,139,6 duplicate(Eeyolbriggar3) Eeyolbriggar#g2-8 722
-gefg_cas02,37,177,6 duplicate(Eeyolbriggar3) Eeyolbriggar#g2-9 722
-gefg_cas02,37,168,6 duplicate(Eeyolbriggar3) Eeyolbriggar#g2-10 722
-gefg_cas02,68,47,2 duplicate(Eeyolbriggar3) Eeyolbriggar#g2-11 722
-gefg_cas02,68,36,2 duplicate(Eeyolbriggar3) Eeyolbriggar#g2-12 722
+gefg_cas02,65,130,5 duplicate(InsideFlagsG2) Eeyorbriggar#5-2 722
+gefg_cas02,30,123,5 duplicate(InsideFlagsG2) Eeyorbriggar#6 722
+gefg_cas02,65,139,6 duplicate(InsideFlagsG2) Eeyorbriggar#7 722
+gefg_cas02,37,177,6 duplicate(InsideFlagsG2) Eeyorbriggar#8 722
+gefg_cas02,37,168,6 duplicate(InsideFlagsG2) Eeyorbriggar#9 722
+gefg_cas02,68,47,2 duplicate(InsideFlagsG2) Eeyorbriggar#10 722
+gefg_cas02,68,36,2 duplicate(InsideFlagsG2) Eeyorbriggar#11 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-gefg_cas02,176,178,0 duplicate(Gld_Agit_Manager) Agit#gefg_cas02 -1
+geffen,112,129,1 duplicate(InsideFlagsG2) Eeyorbriggar#12 722
-// Steward
+// Kafra Employee
//============================================================
-gefg_cas02,12,66,5 duplicate(Gld_Mngr_Template) Esmarehk#gefg_cas02 55
+gefg_cas02,23,66,3 duplicate(guildkafra) Kafra Staff#gefg_cas02 117
-// Guardians
+// Steward
//============================================================
-gefg_cas02,12,66,5 duplicate(Gld_Guard_Template) Guardian#gefg_cas02 -1
+gefg_cas02,12,66,5 duplicate(cm) Esmarehk#gefg_cas02 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-gefg_cas02,23,66,3 duplicate(Gld_Kafra_Template) Kafra Staff#gefg_cas02 117
+gefg_cas02,145,114,0 script #lever_G02 111,{
-// Master's Room Exit
-//============================================================
-gefg_cas02,145,115,0 script #switch_G02 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "gefg_cas02",12,67;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "gefg_cas02",12,67;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-gefg_cas02,140,116,0 duplicate(Gld_Trea_Protect) ban_warp#gefg_cas02 -1,6,6
+gefg_cas02,167,40,0 duplicate(gdlever) #gefg_cas2 111
// Guild Treasure Spawns
//============================================================
gefg_cas02,140,116,0 duplicate(Gld_Trea_Spawn) Treasure#gefg_cas02 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+gefg_cas02,176,178,0 duplicate(Gld_Agit_Manager) Agit#gefg_cas02 -1
+
+// Guardians
//============================================================
-gefg_cas02,167,40,0 duplicate(Gld_Dun_Template) #gefg_cas02 111
+gefg_cas02,12,66,5 duplicate(Gld_Guard_Template) Guardian#gefg_cas02 -1 \ No newline at end of file
diff --git a/npc/guild/gefg_cas03.txt b/npc/guild/gefg_cas03.txt
index 93ca575cf..d24392c79 100644
--- a/npc/guild/gefg_cas03.txt
+++ b/npc/guild/gefg_cas03.txt
@@ -3,7 +3,7 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.1
+//= 1.2
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
@@ -11,26 +11,19 @@
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
//= 1.1 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.2 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
-//============================================================
-geffen,120,132,8 script Yesnelph#g3-1::Yesnelph 722,{
- end;
-
-OnRecvCastleG03:
- FlagEmblem GetCastleData("gefg_cas03",1);
- end;
-}
-
// Guild Flag (Outside Castle)
//============================================================
-gef_fild13,78,182,4 script Yesnelph#g3-2::Yesnelph2 722,{
+- script Yesnelph#1::OutsideFlagsG3 722,{
+
set .@GID, GetCastleData("gefg_cas03",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -39,33 +32,33 @@ gef_fild13,78,182,4 script Yesnelph#g3-2::Yesnelph2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("gefg_cas03",1)) {
- warp "gefg_cas03",116,89;
- //warp "gefg_cas03",221,30;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("gefg_cas03",1)) {
+ warp "gefg_cas03",221,30;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastleG03:
@@ -73,15 +66,16 @@ OnRecvCastleG03:
end;
}
-gef_fild13,87,182,4 duplicate(Yesnelph2) Yesnelph#g3-3 722
-gef_fild13,73,295,7 duplicate(Yesnelph2) Yesnelph#g3-4 722
-gef_fild13,113,274,7 duplicate(Yesnelph2) Yesnelph#g3-5 722
-gef_fild13,144,235,6 duplicate(Yesnelph2) Yesnelph#g3-6 722
-gef_fild13,144,244,4 duplicate(Yesnelph2) Yesnelph#g3-7 722
+gef_fild13,78,182,4 duplicate(OutsideFlagsG3) Yesnelph#1-2 722
+gef_fild13,87,182,4 duplicate(OutsideFlagsG3) Yesnelph#2 722
+gef_fild13,73,295,7 duplicate(OutsideFlagsG3) Yesnelph#3 722
+gef_fild13,113,274,7 duplicate(OutsideFlagsG3) Yesnelph#4 722
+gef_fild13,144,235,6 duplicate(OutsideFlagsG3) Yesnelph#5 722
+gef_fild13,144,244,6 duplicate(OutsideFlagsG3) Yesnelph#6 722
// Guild Flag (Inside Castle)
//============================================================
-gefg_cas03,122,220,6 script Yesnelph#g3-8::Yesnelph3 722,{
+- script Yesnelph#7::InsideFlagsG3 722,{
end;
OnRecvCastleG03:
@@ -89,49 +83,54 @@ OnRecvCastleG03:
end;
}
-gefg_cas03,122,229,6 duplicate(Yesnelph3) Yesnelph#g3-9 722
-gefg_cas03,91,257,7 duplicate(Yesnelph3) Yesnelph#g3-10 722
-gefg_cas03,52,276,7 duplicate(Yesnelph3) Yesnelph#g3-11 722
-gefg_cas03,56,164,4 duplicate(Yesnelph3) Yesnelph#g3-12 722
-gefg_cas03,65,164,4 duplicate(Yesnelph3) Yesnelph#g3-13 722
-gefg_cas03,37,214,1 duplicate(Yesnelph3) Yesnelph#g3-14 722
-gefg_cas03,34,208,1 duplicate(Yesnelph3) Yesnelph#g3-15 722
+gefg_cas03,122,220,6 duplicate(InsideFlagsG3) Yesnelph#7-2 722
+gefg_cas03,122,229,6 duplicate(InsideFlagsG3) Yesnelph#8 722
+gefg_cas03,91,257,7 duplicate(InsideFlagsG3) Yesnelph#9 722
+gefg_cas03,52,276,7 duplicate(InsideFlagsG3) Yesnelph#10 722
+gefg_cas03,56,164,4 duplicate(InsideFlagsG3) Yesnelph#11 722
+gefg_cas03,65,164,4 duplicate(InsideFlagsG3) Yesnelph#12 722
+gefg_cas03,37,214,1 duplicate(InsideFlagsG3) Yesnelph#13 722
+gefg_cas03,34,208,1 duplicate(InsideFlagsG3) Yesnelph#14 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-gefg_cas03,245,167,0 duplicate(Gld_Agit_Manager) Agit#gefg_cas03 -1
+geffen,120,132,8 duplicate(InsideFlagsG3) Yesnelph#15 722
-// Steward
+// Kafra Employee
//============================================================
-gefg_cas03,106,23,5 duplicate(Gld_Mngr_Template) Jean#gefg_cas03 55
+gefg_cas03,116,89,5 duplicate(guildkafra) Kafra Staff#gefg_cas03 117
-// Guardians
+// Steward
//============================================================
-gefg_cas03,106,23,5 duplicate(Gld_Guard_Template) Guardian#gefg_cas03 -1
+gefg_cas03,106,23,5 duplicate(cm) Jyang#gefg_cas03 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-gefg_cas03,116,89,5 duplicate(Gld_Kafra_Template) Kafra Staff#gefg_cas03 117
+gefg_cas03,275,289,0 script #lever_G03 111,{
-// Master's Room Exit
-//============================================================
-gefg_cas03,275,289,0 script #switch_G03 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "gefg_cas03",106,24;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "gefg_cas03",106,24;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-gefg_cas03,271,290,0 duplicate(Gld_Trea_Protect) ban_warp#gefg_cas03 -1,6,6
+gefg_cas03,221,43,0 duplicate(gdlever) #gefg_cas03 111
// Guild Treasure Spawns
//============================================================
gefg_cas03,271,290,0 duplicate(Gld_Trea_Spawn) Treasure#gefg_cas03 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+gefg_cas03,245,167,0 duplicate(Gld_Agit_Manager) Agit#gefg_cas03 -1
+
+// Guardians
//============================================================
-gefg_cas03,221,43,0 duplicate(Gld_Dun_Template) #gefg_cas03 111
+gefg_cas03,106,23,5 duplicate(Gld_Guard_Template) Guardian#gefg_cas03 -1 \ No newline at end of file
diff --git a/npc/guild/gefg_cas04.txt b/npc/guild/gefg_cas04.txt
index d77826f5e..21157c9ae 100644
--- a/npc/guild/gefg_cas04.txt
+++ b/npc/guild/gefg_cas04.txt
@@ -10,28 +10,20 @@
//= NPCs that relate to Geffen Guild Castle 4
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
-//= 1.1 Corrected treasure room switch coordinates. [L0ne_W0lf]
-//= 1.2 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.1 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.2 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
-//============================================================
-geffen,127,130,7 script Bergel#g4-1::Bergel 722,{
- end;
-
-OnRecvCastleG04:
- FlagEmblem GetCastleData("gefg_cas04",1);
- end;
-}
-
// Guild Flag (Outside Castle)
//============================================================
-gef_fild13,190,283,3 script Bergel#g4-2::Bergel2 722,{
+- script Bergel#1::OutsideFlagsG4 722,{
+
set .@GID, GetCastleData("gefg_cas04",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -40,33 +32,33 @@ gef_fild13,190,283,3 script Bergel#g4-2::Bergel2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("gefg_cas04",1)) {
- warp "gefg_cas04",59,70;
- //warp "gefg_cas04",168 43;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("gefg_cas04",1)) {
+ warp "gefg_cas04",168,43;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastleG04:
@@ -74,11 +66,12 @@ OnRecvCastleG04:
end;
}
-gef_fild13,199,274,3 duplicate(Bergel2) Bergel#g4-3 722
+gef_fild13,190,283,3 duplicate(OutsideFlagsG4) Bergel#1-2 722
+gef_fild13,199,274,3 duplicate(OutsideFlagsG4) Bergel#2 722
// Guild Flag (Inside Castle)
//============================================================
-gefg_cas04,24,157,4 script Bergel#g4-4::Bergel3 722,{
+- script Bergel#3::InsideFlagsG4 722,{
end;
OnRecvCastleG04:
@@ -86,49 +79,54 @@ OnRecvCastleG04:
end;
}
-gefg_cas04,35,158,4 duplicate(Bergel3) Bergel#g4-5 722
-gefg_cas04,44,184,4 duplicate(Bergel3) Bergel#g4-6 722
-gefg_cas04,51,184,4 duplicate(Bergel3) Bergel#g4-7 722
-gefg_cas04,39,212,7 duplicate(Bergel3) Bergel#g4-8 722
-gefg_cas04,29,212,1 duplicate(Bergel3) Bergel#g4-9 722
-gefg_cas04,24,73,1 duplicate(Bergel3) Bergel#g4-10 722
-gefg_cas04,35,73,4 duplicate(Bergel3) Bergel#g4-11 722
+gefg_cas04,24,157,4 duplicate(InsideFlagsG4) Bergel#3-2 722
+gefg_cas04,35,158,4 duplicate(InsideFlagsG4) Bergel#4 722
+gefg_cas04,44,184,4 duplicate(InsideFlagsG4) Bergel#5 722
+gefg_cas04,51,184,4 duplicate(InsideFlagsG4) Bergel#6 722
+gefg_cas04,39,212,7 duplicate(InsideFlagsG4) Bergel#7 722
+gefg_cas04,29,212,1 duplicate(InsideFlagsG4) Bergel#8 722
+gefg_cas04,24,73,1 duplicate(InsideFlagsG4) Bergel#9 722
+gefg_cas04,35,73,4 duplicate(InsideFlagsG4) Bergel#10 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-gefg_cas04,174,178,0 duplicate(Gld_Agit_Manager) Agit#gefg_cas04 -1
+geffen,127,130,7 duplicate(InsideFlagsG4) Bergel#11 722
-// Steward
+// Kafra Employee
//============================================================
-gefg_cas04,73,46,3 duplicate(Gld_Mngr_Template) Kellvahni#gefg_cas04 55
+gefg_cas04,59,70,3 duplicate(guildkafra) Kafra Staff#gefg_cas04 117
-// Guardians
+// Steward
//============================================================
-gefg_cas04,73,46,3 duplicate(Gld_Guard_Template) Guardian#gefg_cas04 -1
+gefg_cas04,73,46,3 duplicate(cm) Kellvahni#gefg_cas04 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-gefg_cas04,59,70,3 duplicate(Gld_Kafra_Template) Kafra Staff#gefg_cas04 117
+gefg_cas04,116,123,0 script #lever_G04 111,{
-// Master's Room Exit
-//============================================================
-gefg_cas04,117,123,0 script #switch_G04 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "gefg_cas04",73,47;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "gefg_cas04",73,47;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-gefg_cas04,116,119,0 duplicate(Gld_Trea_Protect) ban_warp#gefg_cas04 -1,6,6
+gefg_cas04,58,75,0 duplicate(gdlever) #gefg_cas04 111
// Guild Treasure Spawns
//============================================================
gefg_cas04,116,119,0 duplicate(Gld_Trea_Spawn) Treasure#gefg_cas04 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+gefg_cas04,174,178,0 duplicate(Gld_Agit_Manager) Agit#gefg_cas04 -1
+
+// Guardians
//============================================================
-gefg_cas04,58,75,0 duplicate(Gld_Dun_Template) #gefg_cas04 111
+gefg_cas04,73,46,3 duplicate(Gld_Guard_Template) Guardian#gefg_cas04 -1 \ No newline at end of file
diff --git a/npc/guild/gefg_cas05.txt b/npc/guild/gefg_cas05.txt
index 91dd3ecd9..e79ae46f4 100644
--- a/npc/guild/gefg_cas05.txt
+++ b/npc/guild/gefg_cas05.txt
@@ -3,7 +3,7 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.1
+//= 1.2
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
@@ -11,26 +11,19 @@
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
//= 1.1 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.2 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
-//============================================================
-geffen,131,123,6 script Mersetzdeitz#g5-1::Mersetzdeitz 722,{
- end;
-
-OnRecvCastleG05:
- FlagEmblem GetCastleData("gefg_cas05",1);
- end;
-}
-
// Guild Flag (Outside Castle)
//============================================================
-gef_fild13,302,87,7 script Mersetzdeitz#g5-2::Mersetzdeitz2 722,{
+- script Mersetzdeitz#1::OutsideFlagsG5 722,{
+
set .@GID, GetCastleData("gefg_cas05",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -39,33 +32,33 @@ gef_fild13,302,87,7 script Mersetzdeitz#g5-2::Mersetzdeitz2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("gefg_cas05",1)) {
- warp "gefg_cas05",61,52;
- //warp "gefg_cas05",168,31;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("gefg_cas05",1)) {
+ warp "gefg_cas05",168,31;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastleG05:
@@ -73,13 +66,14 @@ OnRecvCastleG05:
end;
}
-gef_fild13,313,83,0 duplicate(Mersetzdeitz2) Mersetzdeitz#g5-3 722
-gef_fild13,252,51,2 duplicate(Mersetzdeitz2) Mersetzdeitz#g5-4 722
-gef_fild13,26,147,2 duplicate(Mersetzdeitz2) Mersetzdeitz#g5-5 722
+gef_fild13,302,87,7 duplicate(OutsideFlagsG5) Mersetzdeitz#1-2 722
+gef_fild13,313,83,0 duplicate(OutsideFlagsG5) Mersetzdeitz#2 722
+gef_fild13,252,51,2 duplicate(OutsideFlagsG5) Mersetzdeitz#3 722
+gef_fild13,26,147,2 duplicate(OutsideFlagsG5) Mersetzdeitz#4 722
// Guild Flag (Inside Castle)
//============================================================
-gefg_cas05,77,185,7 script Mersetzdeitz#g5-5::Mersetzdeitz3 722,{
+- script Mersetzdeitz#5::InsideFlagsG5 722,{
end;
OnRecvCastleG05:
@@ -87,48 +81,52 @@ OnRecvCastleG05:
end;
}
-gefg_cas05,92,181,0 duplicate(Mersetzdeitz3) Mersetzdeitz#g5-7 722
-gefg_cas05,83,158,1 duplicate(Mersetzdeitz3) Mersetzdeitz#g5-8 722
-gefg_cas05,62,144,7 duplicate(Mersetzdeitz3) Mersetzdeitz#g5-9 722
-gefg_cas05,62,66,4 duplicate(Mersetzdeitz3) Mersetzdeitz#g5-10 722
-gefg_cas05,69,66,4 duplicate(Mersetzdeitz3) Mersetzdeitz#g5-11 722
+gefg_cas05,77,185,7 duplicate(InsideFlagsG5) Mersetzdeitz#5-2 722
+gefg_cas05,92,181,0 duplicate(InsideFlagsG5) Mersetzdeitz#6 722
+gefg_cas05,83,158,1 duplicate(InsideFlagsG5) Mersetzdeitz#7 722
+gefg_cas05,62,144,7 duplicate(InsideFlagsG5) Mersetzdeitz#8 722
+gefg_cas05,62,66,4 duplicate(InsideFlagsG5) Mersetzdeitz#9 722
+gefg_cas05,69,66,4 duplicate(InsideFlagsG5) Mersetzdeitz#10 722
-
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-gefg_cas05,194,184,0 duplicate(Gld_Agit_Manager) Agit#gefg_cas05 -1
+geffen,131,123,6 duplicate(InsideFlagsG5) Mersetzdeitz#11 722
-// Steward
+// Kafra Employee
//============================================================
-gefg_cas05,70,52,3 duplicate(Gld_Mngr_Template) Byohre#gefg_cas05 55
+gefg_cas05,61,52,5 duplicate(guildkafra) Kafra Staff#gefg_cas05 117
-// Guardians
+// Steward
//============================================================
-gefg_cas05,70,52,3 duplicate(Gld_Guard_Template) Guardian#gefg_cas05 -1
+gefg_cas05,70,52,3 duplicate(cm) Byohre#gefg_cas05 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-gefg_cas05,61,52,3 duplicate(Gld_Kafra_Template) Kafra Staff#gefg_cas05 117
+gefg_cas05,149,107,0 script #lever_G05 111,{
-// Master's Room Exit
-//============================================================
-gefg_cas05,149,107,0 script #switch_G05 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "gefg_cas05",70,53;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "gefg_cas05",70,53;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-gefg_cas05,144,110,0 duplicate(Gld_Trea_Protect) ban_warp#gefg_cas05 -1,6,6
+gefg_cas05,65,22,0 duplicate(gdlever) #gefg_cas05 111
// Guild Treasure Spawns
//============================================================
gefg_cas05,144,110,0 duplicate(Gld_Trea_Spawn) Treasure#gefg_cas05 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+gefg_cas05,194,184,0 duplicate(Gld_Agit_Manager) Agit#gefg_cas05 -1
+
+// Guardians
//============================================================
-gefg_cas05,66,29,0 duplicate(Gld_Dun_Template) #gefg_cas05 111
+gefg_cas05,70,52,3 duplicate(Gld_Guard_Template) Guardian#gefg_cas05 -1 \ No newline at end of file
diff --git a/npc/guild/payg_cas01.txt b/npc/guild/payg_cas01.txt
index 266597d38..efb104040 100644
--- a/npc/guild/payg_cas01.txt
+++ b/npc/guild/payg_cas01.txt
@@ -3,7 +3,7 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.2
+//= 1.3
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
@@ -13,28 +13,19 @@
//= 1.1 Corrected flag-in spawn point. [L0ne_W0lf]
//= 1.2 Removed dialog from interior flags. [L0ne_W0lf]
//= Fixed position of Guild dungeon switch.
+//= 1.3 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
+// Guild Flags (Outside Castle)
//============================================================
-payon,166,161,3 script Bright Arbor#f1-1::BrightArbor 722,{
- end;
-
-OnRecvCastlePy01:
- FlagEmblem GetCastleData("payg_cas01",1);
- end;
-}
-
-payon,90,322,4 duplicate(BrightArbor) Bright Arbor#f1-2 722
+- script Bright Arbor#1::OutsideFlagsPA1 722,{
-// Guild Flag (Outside Castle)
-//============================================================
-pay_gld,125,236,4 script Bright Arbor#f1-3::BrightArbor2 722,{
set .@GID, GetCastleData("payg_cas01",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -43,33 +34,33 @@ pay_gld,125,236,4 script Bright Arbor#f1-3::BrightArbor2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("payg_cas01",1)) {
- warp "payg_cas01",212,108;
- //warp "payg_cas01",54 144;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("payg_cas01",1)) {
+ warp "payg_cas01",54,144;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastlePy01:
@@ -77,13 +68,14 @@ OnRecvCastlePy01:
end;
}
-pay_gld,110,233,4 duplicate(BrightArbor2) Bright Arbor#f1-4 722
-pay_gld,116,233,4 duplicate(BrightArbor2) Bright Arbor#f1-5 722
-pay_gld,91,239,2 duplicate(BrightArbor2) Bright Arbor#f1-6 722
+pay_gld,125,236,4 duplicate(OutsideFlagsPA1) Bright Arbor#1-2 722
+pay_gld,110,233,4 duplicate(OutsideFlagsPA1) Bright Arbor#2 722
+pay_gld,116,233,4 duplicate(OutsideFlagsPA1) Bright Arbor#3 722
+pay_gld,91,239,2 duplicate(OutsideFlagsPA1) Bright Arbor#4 722
-// Guild Flag (Inside Castle)
+// Guild Flags (Inside Castle)
//============================================================
-payg_cas01,238,67,4 script Bright Arbor#f1-7::BrightArbor3 722,{
+- script Bright Arbor#5::InsideFlagsPA1 722,{
end;
OnRecvCastlePy01:
@@ -91,47 +83,53 @@ OnRecvCastlePy01:
end;
}
-payg_cas01,233,67,4 duplicate(BrightArbor3) Bright Arbor#f1-8 722
-payg_cas01,221,123,4 duplicate(BrightArbor3) Bright Arbor#f1-9 722
-payg_cas01,221,116,4 duplicate(BrightArbor3) Bright Arbor#f1-10 722
-payg_cas01,206,108,4 duplicate(BrightArbor3) Bright Arbor#f1-11 722
-payg_cas01,212,108,4 duplicate(BrightArbor3) Bright Arbor#f1-12 722
+payg_cas01,238,67,4 duplicate(InsideFlagsPA1) Bright Arbor#5-2 722
+payg_cas01,233,67,4 duplicate(InsideFlagsPA1) Bright Arbor#6 722
+payg_cas01,221,123,4 duplicate(InsideFlagsPA1) Bright Arbor#7 722
+payg_cas01,221,116,4 duplicate(InsideFlagsPA1) Bright Arbor#8 722
+payg_cas01,206,108,4 duplicate(InsideFlagsPA1) Bright Arbor#9 722
+payg_cas01,212,108,4 duplicate(InsideFlagsPA1) Bright Arbor#10 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-payg_cas01,139,139,0 duplicate(Gld_Agit_Manager) Agit#payg_cas01 -1
+payon,90,322,4 duplicate(InsideFlagsPA1) Bright Arbor#11 722
+payon,166,177,3 duplicate(InsideFlagsPA1) Bright Arbor#12 722
-// Steward
+// Kafra Employee
//============================================================
-payg_cas01,120,58,4 duplicate(Gld_Mngr_Template) Kurunnadi#payg_cas01 55
+payg_cas01,128,58,3 duplicate(guildkafra) Kafra Staff#payg_cas01 117
-// Guardians
+// Steward
//============================================================
-payg_cas01,120,58,4 duplicate(Gld_Guard_Template) Guardian#payg_cas01 -1
+payg_cas01,120,58,4 duplicate(cm) Kurunnadi#payg_cas01 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-payg_cas01,128,58,3 duplicate(Gld_Kafra_Template) Kafra Staff#payg_cas01 117
+payg_cas01,295,8,0 script #lever_PA01 111,{
-// Master's Room Exit
-//============================================================
-payg_cas01,295,8,0 script #switch_Py01 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "payg_cas01",120,59;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "payg_cas01",120,59;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-payg_cas01,291,8,0 duplicate(Gld_Trea_Protect) ban_warp#payg_cas01 -1,6,6
+payg_cas01,101,25,0 duplicate(gdlever) #payg_cas01 111
// Guild Treasure Spawns
//============================================================
payg_cas01,291,8,0 duplicate(Gld_Trea_Spawn) Treasure#payg_cas01 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+payg_cas01,139,139,0 duplicate(Gld_Agit_Manager) Agit#payg_cas01 -1
+
+// Guardians
//============================================================
-payg_cas01,101,25,0 duplicate(Gld_Dun_Template) #payg_cas01 111
+payg_cas01,120,58,4 duplicate(Gld_Guard_Template) Guardian#payg_cas01 -1 \ No newline at end of file
diff --git a/npc/guild/payg_cas02.txt b/npc/guild/payg_cas02.txt
index baa766e68..eaf6fa1be 100644
--- a/npc/guild/payg_cas02.txt
+++ b/npc/guild/payg_cas02.txt
@@ -3,37 +3,29 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.2
+//= 1.3
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
-//= NPCs that relate to Payon Guild Castle 2
+//= NPCs that relate to Payon Guild Castle 1
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
//= 1.1 Corrected flag-in spawn point. [L0ne_W0lf]
//= 1.2 Removed dialog from interior flags. [L0ne_W0lf]
+//= Fixed position of Guild dungeon switch.
+//= 1.3 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
+// Guild Flags (Outside Castle)
//============================================================
-payon,166,173,3 script Scarlet Palace#f2-1::ScarletPalace 722,{
- end;
-
-OnRecvCastlePy02:
- FlagEmblem GetCastleData("payg_cas02",1);
- end;
-}
-
-payon,97,322,4 duplicate(ScarletPalace) Scarlet Palace#f2-2 722
+- script Sacred Palace#1::OutsideFlagsPA2 722,{
-// Guild Flag (Outside Castle)
-//============================================================
-pay_gld,292,112,6 script Scarlet Palace#f2-3::ScarletPalace2 722,{
set .@GID, GetCastleData("payg_cas02",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -42,33 +34,33 @@ pay_gld,292,112,6 script Scarlet Palace#f2-3::ScarletPalace2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("payg_cas02",1)) {
- warp "payg_cas02",22,275;
- //warp "payg_cas02",278,251;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("payg_cas02",1)) {
+ warp "payg_cas02",278,251;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastlePy02:
@@ -76,13 +68,14 @@ OnRecvCastlePy02:
end;
}
-pay_gld,292,120,6 duplicate(ScarletPalace2) Scarlet Palace#f2-4 722
-pay_gld,291,135,6 duplicate(ScarletPalace2) Scarlet Palace#f2-5 722
-pay_gld,271,163,0 duplicate(ScarletPalace2) Scarlet Palace#f2-6 722
+pay_gld,292,112,6 duplicate(OutsideFlagsPA2) Sacred Palace#1-2 722
+pay_gld,292,120,6 duplicate(OutsideFlagsPA2) Sacred Palace#2 722
+pay_gld,291,135,6 duplicate(OutsideFlagsPA2) Sacred Palace#3 722
+pay_gld,271,163,0 duplicate(OutsideFlagsPA2) Sacred Palace#4 722
-// Guild Flag (Inside Castle)
+// Guild Flags (Inside Castle)
//============================================================
-payg_cas02,254,40,6 script Scarlet Palace#f2-7::ScarletPalace3 722,{
+- script Sacred Palace#5::InsideFlagsPA2 722,{
end;
OnRecvCastlePy02:
@@ -90,47 +83,53 @@ OnRecvCastlePy02:
end;
}
-payg_cas02,254,48,6 duplicate(ScarletPalace3) Scarlet Palace#f2-8 722
-payg_cas02,202,49,0 duplicate(ScarletPalace3) Scarlet Palace#f2-9 722
-payg_cas02,209,49,0 duplicate(ScarletPalace3) Scarlet Palace#f2-10 722
-payg_cas02,59,282,4 duplicate(ScarletPalace3) Scarlet Palace#f2-11 722
-payg_cas02,70,282,4 duplicate(ScarletPalace3) Scarlet Palace#f2-12 722
+payg_cas02,254,40,6 duplicate(InsideFlagsPA2) Sacred Palace#5-2 722
+payg_cas02,254,48,6 duplicate(InsideFlagsPA2) Sacred Palace#6 722
+payg_cas02,202,49,0 duplicate(InsideFlagsPA2) Sacred Palace#7 722
+payg_cas02,209,49,0 duplicate(InsideFlagsPA2) Sacred Palace#8 722
+payg_cas02,59,282,4 duplicate(InsideFlagsPA2) Sacred Palace#9 722
+payg_cas02,70,282,4 duplicate(InsideFlagsPA2) Sacred Palace#10 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-payg_cas02,39,25,0 duplicate(Gld_Agit_Manager) Agit#payg_cas02 -1
+payon,97,322,4 duplicate(InsideFlagsPA2) Sacred Altar#11 722
+payon,166,173,3 duplicate(InsideFlagsPA2) Sacred Altar#12 722
-// Steward
+// Kafra Employee
//============================================================
-payg_cas02,22,260,7 duplicate(Gld_Mngr_Template) Cherieos#payg_cas02 55
+payg_cas02,22,275,5 duplicate(guildkafra) Kafra Staff#payg_cas02 117
-// Guardians
+// Steward
//============================================================
-payg_cas02,22,260,7 duplicate(Gld_Guard_Template) Guardian#payg_cas02 -1
+payg_cas02,22,260,7 duplicate(cm) Cherieos#payg_cas02 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-payg_cas02,22,275,5 duplicate(Gld_Kafra_Template) Kafra Staff#payg_cas02 117
+payg_cas02,149,149,0 script #lever_PA02 111,{
-// Master's Room Exit
-//============================================================
-payg_cas02,149,148,0 script #switch_Py02 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "payg_cas02",22,261;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "payg_cas02",22,261;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-payg_cas02,145,144,0 duplicate(Gld_Trea_Protect) ban_warp#payg_cas02 -1,6,6
+payg_cas02,278,247,0 duplicate(gdlever) #payg_cas02 111
// Guild Treasure Spawns
//============================================================
payg_cas02,145,144,0 duplicate(Gld_Trea_Spawn) Treasure#payg_cas02 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+payg_cas02,39,25,0 duplicate(Gld_Agit_Manager) Agit#payg_cas02 -1
+
+// Guardians
//============================================================
-payg_cas02,278,247,0 duplicate(Gld_Dun_Template) #payg_cas02 111
+payg_cas02,22,260,7 duplicate(Gld_Guard_Template) Guardian#payg_cas02 -1 \ No newline at end of file
diff --git a/npc/guild/payg_cas03.txt b/npc/guild/payg_cas03.txt
index b067e7652..ff21e1200 100644
--- a/npc/guild/payg_cas03.txt
+++ b/npc/guild/payg_cas03.txt
@@ -3,37 +3,29 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.2
+//= 1.3
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
-//= NPCs that relate to Payon Guild Castle 3
+//= NPCs that relate to Payon Guild Castle 1
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
-//= 1.1 Corrected treasure room switch coordinates. [L0ne_W0lf]
+//= 1.1 Corrected flag-in spawn point. [L0ne_W0lf]
//= 1.2 Removed dialog from interior flags. [L0ne_W0lf]
+//= Fixed position of Guild dungeon switch.
+//= 1.3 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
+// Guild Flags (Outside Castle)
//============================================================
-payon,166,177,3 script Holy Shadow#f3-1::HolyShadow 722,{
- end;
-
-OnRecvCastlePy03:
- FlagEmblem GetCastleData("payg_cas03",1);
- end;
-}
-
-payon,113,322,4 duplicate(HolyShadow) Holy Shadow#f3-2 722
+- script Holy Shadow#1::OutsideFlagsPA3 722,{
-// Guild Flag (Outside Castle)
-//============================================================
-pay_gld,321,298,2 script Holy Shadow#f3-3::HolyShadow2 722,{
set .@GID, GetCastleData("payg_cas03",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -42,32 +34,33 @@ pay_gld,321,298,2 script Holy Shadow#f3-3::HolyShadow2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("payg_cas03",1)) {
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("payg_cas03",1)) {
warp "payg_cas03",9,263;
- end;
- }
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastlePy03:
@@ -75,13 +68,14 @@ OnRecvCastlePy03:
end;
}
-pay_gld,321,289,2 duplicate(HolyShadow2) Holy Shadow#f3-4 722
-pay_gld,327,304,1 duplicate(HolyShadow2) Holy Shadow#f3-5 722
-pay_gld,333,254,4 duplicate(HolyShadow2) Holy Shadow#f3-6 722
+pay_gld,321,298,2 duplicate(OutsideFlagsPA3) Holy Shadow#1-2 722
+pay_gld,321,289,2 duplicate(OutsideFlagsPA3) Holy Shadow#2 722
+pay_gld,327,304,1 duplicate(OutsideFlagsPA3) Holy Shadow#3 722
+pay_gld,333,254,4 duplicate(OutsideFlagsPA3) Holy Shadow#4 722
-// Guild Flag (Inside Castle)
+// Guild Flags (Inside Castle)
//============================================================
-payg_cas03,236,54,2 script Holy Shadow#f3-7::HolyShadow3 722,{
+- script Holy Shadow#5::InsideFlagsPA3 722,{
end;
OnRecvCastlePy03:
@@ -89,47 +83,53 @@ OnRecvCastlePy03:
end;
}
-payg_cas03,236,45,2 duplicate(HolyShadow3) Holy Shadow#f3-8 722
-payg_cas03,259,66,4 duplicate(HolyShadow3) Holy Shadow#f3-9 722
-payg_cas03,266,66,4 duplicate(HolyShadow3) Holy Shadow#f3-10 722
-payg_cas03,34,31,4 duplicate(HolyShadow3) Holy Shadow#f3-11 722
-payg_cas03,43,31,4 duplicate(HolyShadow3) Holy Shadow#f3-12 722
+payg_cas03,236,54,2 duplicate(InsideFlagsPA3) Holy Shadow#5-2 722
+payg_cas03,236,45,2 duplicate(InsideFlagsPA3) Holy Shadow#6 722
+payg_cas03,259,66,4 duplicate(InsideFlagsPA3) Holy Shadow#7 722
+payg_cas03,266,66,4 duplicate(InsideFlagsPA3) Holy Shadow#8 722
+payg_cas03,34,31,4 duplicate(InsideFlagsPA3) Holy Shadow#9 722
+payg_cas03,43,31,4 duplicate(InsideFlagsPA3) Holy Shadow#10 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-payg_cas03,269,265,0 duplicate(Gld_Agit_Manager) Agit#payg_cas03 -1
+payon,113,322,4 duplicate(InsideFlagsPA3) Holy Shadow#11 722
+payon,166,169,3 duplicate(InsideFlagsPA3) Holy Shadow#12 722
-// Steward
+// Kafra Employee
//============================================================
-payg_cas03,10,277,0 duplicate(Gld_Mngr_Template) Gheriot#payg_cas03 55
+payg_cas03,9,263,5 duplicate(guildkafra) Kafra Staff#payg_cas03 117
-// Guardians
+// Steward
//============================================================
-payg_cas03,10,277,0 duplicate(Gld_Guard_Template) Guardian#payg_cas03 -1
+payg_cas03,50,261,3 duplicate(cm) Gheriot#payg_cas03 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-payg_cas03,9,263,5 duplicate(Gld_Kafra_Template) Kafra Staff#payg_cas03 117
+payg_cas03,163,167,0 script #lever_PA03 111,{
-// Master's Room Exit
-//============================================================
-payg_cas03,163,167,0 script #switch_Py03 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "payg_cas03",50,261;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "payg_cas03",50,261;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-payg_cas03,159,168,0 duplicate(Gld_Trea_Protect) ban_warp#payg_cas03 -1,6,6
+payg_cas03,38,42,0 duplicate(gdlever) #payg_cas03 111
// Guild Treasure Spawns
//============================================================
payg_cas03,159,168,0 duplicate(Gld_Trea_Spawn) Treasure#payg_cas03 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+payg_cas03,269,265,0 duplicate(Gld_Agit_Manager) Agit#payg_cas03 -1
+
+// Guardians
//============================================================
-payg_cas03,20,44,0 duplicate(Gld_Dun_Template) #payg_cas03 111
+payg_cas03,10,277,0 duplicate(Gld_Guard_Template) Guardian#payg_cas03 -1 \ No newline at end of file
diff --git a/npc/guild/payg_cas04.txt b/npc/guild/payg_cas04.txt
index d884e604a..9deb148ea 100644
--- a/npc/guild/payg_cas04.txt
+++ b/npc/guild/payg_cas04.txt
@@ -3,36 +3,29 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.1
+//= 1.3
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
-//= NPCs that relate to Payon Guild Castle 4
+//= NPCs that relate to Payon Guild Castle 1
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
-//= 1.1 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.1 Corrected flag-in spawn point. [L0ne_W0lf]
+//= 1.2 Removed dialog from interior flags. [L0ne_W0lf]
+//= Fixed position of Guild dungeon switch.
+//= 1.3 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
+// Guild Flags (Outside Castle)
//============================================================
-payon,166,169,3 script Sacred Altar#f4-1::SacredAltar 722,{
- end;
-
-OnRecvCastlePy04:
- FlagEmblem GetCastleData("payg_cas04",1);
- end;
-}
-
-payon,118,322,4 duplicate(SacredAltar) Sacred Altar#f4-2 722
+- script Scarlet Palace#1::OutsideFlagsPA4 722,{
-// Guild Flag (Outside Castle)
-//============================================================
-pay_gld,137,160,0 script Sacred Altar#f4-3::SacredAltar2 722,{
set .@GID, GetCastleData("payg_cas04",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -41,32 +34,33 @@ pay_gld,137,160,0 script Sacred Altar#f4-3::SacredAltar2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("payg_cas04",1)) {
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("payg_cas04",1)) {
warp "payg_cas04",40,235;
- end;
- }
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastlePy04:
@@ -74,13 +68,14 @@ OnRecvCastlePy04:
end;
}
-pay_gld,143,160,0 duplicate(SacredAltar2) Sacred Altar#f4-4 722
-pay_gld,133,151,2 duplicate(SacredAltar2) Sacred Altar#f4-5 722
-pay_gld,153,166,1 duplicate(SacredAltar2) Sacred Altar#f4-6 722
+pay_gld,137,160,0 duplicate(OutsideFlagsPA4) Scarlet Palace#1-2 722
+pay_gld,143,160,0 duplicate(OutsideFlagsPA4) Scarlet Palace#2 722
+pay_gld,133,151,2 duplicate(OutsideFlagsPA4) Scarlet Palace#3 722
+pay_gld,153,166,1 duplicate(OutsideFlagsPA4) Scarlet Palace#4 722
-// Guild Flag (Inside Castle)
+// Guild Flags (Inside Castle)
//============================================================
-payg_cas04,255,259,0 script Sacred Altar#f4-7::SacredAltar3 722,{
+- script Scarlet Palace#5::InsideFlagsPA4 722,{
end;
OnRecvCastlePy04:
@@ -88,47 +83,53 @@ OnRecvCastlePy04:
end;
}
-payg_cas04,248,259,0 duplicate(SacredAltar3) Sacred Altar#f4-8 722
-payg_cas04,248,168,6 duplicate(SacredAltar3) Sacred Altar#f4-9 722
-payg_cas04,248,160,6 duplicate(SacredAltar3) Sacred Altar#f4-10 722
-payg_cas04,232,181,4 duplicate(SacredAltar3) Sacred Altar#f4-11 722
-payg_cas04,239,181,4 duplicate(SacredAltar3) Sacred Altar#f4-12 722
+payg_cas04,255,259,0 duplicate(InsideFlagsPA4) Scarlet Palace#5-2 722
+payg_cas04,248,259,0 duplicate(InsideFlagsPA4) Scarlet Palace#6 722
+payg_cas04,248,168,6 duplicate(InsideFlagsPA4) Scarlet Palace#7 722
+payg_cas04,248,160,6 duplicate(InsideFlagsPA4) Scarlet Palace#8 722
+payg_cas04,232,181,4 duplicate(InsideFlagsPA4) Scarlet Palace#9 722
+payg_cas04,239,181,4 duplicate(InsideFlagsPA4) Scarlet Palace#10 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-payg_cas04,271,29,0 duplicate(Gld_Agit_Manager) Agit#payg_cas04 -1
+payon,118,322,4 duplicate(InsideFlagsPA4) Scarlet Palace#11 722
+payon,166,165,3 duplicate(InsideFlagsPA4) Scarlet Palace#12 722
-// Steward
+// Kafra Employee
//============================================================
-payg_cas04,38,284,3 duplicate(Gld_Mngr_Template) DJ#payg_cas04 55
+payg_cas04,40,235,1 duplicate(guildkafra) Kafra Staff#payg_cas04 117
-// Guardians
+// Steward
//============================================================
-payg_cas04,38,284,3 duplicate(Gld_Guard_Template) Guardian#payg_cas04 -1
+payg_cas04,38,284,3 duplicate(cm) DJ#payg_cas04 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-payg_cas04,40,235,1 duplicate(Gld_Kafra_Template) Kafra Staff#payg_cas04 117
+payg_cas04,151,47,0 script #lever_PA04 111,{
-// Master's Room Exit
-//============================================================
-payg_cas04,151,47,0 script #switch_Py04 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "payg_cas04",38,285;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "payg_cas04",38,285;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-payg_cas04,147,48,0 duplicate(Gld_Trea_Protect) ban_warp#payg_cas04 -1,6,6
+payg_cas04,52,48,0 duplicate(gdlever) #payg_cas04 111
// Guild Treasure Spawns
//============================================================
payg_cas04,147,48,0 duplicate(Gld_Trea_Spawn) Treasure#payg_cas04 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+payg_cas04,271,29,0 duplicate(Gld_Agit_Manager) Agit#payg_cas04 -1
+
+// Guardians
//============================================================
-payg_cas04,52,48,0 duplicate(Gld_Dun_Template) #payg_cas04 111
+payg_cas04,38,284,3 duplicate(Gld_Guard_Template) Guardian#payg_cas04 -1 \ No newline at end of file
diff --git a/npc/guild/payg_cas05.txt b/npc/guild/payg_cas05.txt
index 91b8aaca2..f7916dc2b 100644
--- a/npc/guild/payg_cas05.txt
+++ b/npc/guild/payg_cas05.txt
@@ -3,36 +3,29 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.1
+//= 1.3
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
-//= NPCs that relate to Payon Guild Castle 5
+//= NPCs that relate to Payon Guild Castle 1
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
-//= 1.1 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.1 Corrected flag-in spawn point. [L0ne_W0lf]
+//= 1.2 Removed dialog from interior flags. [L0ne_W0lf]
+//= Fixed position of Guild dungeon switch.
+//= 1.3 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
+// Guild Flags (Outside Castle)
//============================================================
-payon,166,165,3 script Bamboo Grove Hill#f5-1::BambooGroveHill 722,{
- end;
-
-OnRecvCastlePy05:
- FlagEmblem GetCastleData("payg_cas05",1);
- end;
-}
-
-payon,123,322,4 duplicate(BambooGroveHill) Bamboo Grove Hill#f5-2 722
+- script Bamboo Grove Hill#1::OutsideFlagsPA5 722,{
-// Guild Flag (Outside Castle)
-//============================================================
-pay_gld,208,268,4 script Bamboo Grove Hill#f5-3::BambooGroveHill2 722,{
set .@GID, GetCastleData("payg_cas05",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -41,33 +34,33 @@ pay_gld,208,268,4 script Bamboo Grove Hill#f5-3::BambooGroveHill2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("payg_cas05",1)) {
- warp "payg_cas05",276,227;
- //warp "payg_cas05",243;27;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("payg_cas05",1)) {
+ warp "payg_cas05",243,27;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastlePy05:
@@ -75,13 +68,14 @@ OnRecvCastlePy05:
end;
}
-pay_gld,199,268,4 duplicate(BambooGroveHill2) Bamboo Grove Hill#f5-4 722
-pay_gld,190,277,3 duplicate(BambooGroveHill2) Bamboo Grove Hill#f5-5 722
-pay_gld,187,294,2 duplicate(BambooGroveHill2) Bamboo Grove Hill#f5-6 722
+pay_gld,208,268,4 duplicate(OutsideFlagsPA5) Bamboo Grove Hill#1-2 722
+pay_gld,199,268,4 duplicate(OutsideFlagsPA5) Bamboo Grove Hill#2 722
+pay_gld,190,277,3 duplicate(OutsideFlagsPA5) Bamboo Grove Hill#3 722
+pay_gld,187,294,2 duplicate(OutsideFlagsPA5) Bamboo Grove Hill#4 722
-// Guild Flag (Inside Castle)
+// Guild Flags (Inside Castle)
//============================================================
-payg_cas05,32,249,4 script Bamboo Grove Hill#f5-7::BambooGroveHill3 722,{
+- script Bamboo Grove Hill#5::InsideFlagsPA5 722,{
end;
OnRecvCastlePy05:
@@ -89,47 +83,53 @@ OnRecvCastlePy05:
end;
}
-payg_cas05,24,249,4 duplicate(BambooGroveHill3) Bamboo Grove Hill#f5-8 722
-payg_cas05,62,271,0 duplicate(BambooGroveHill3) Bamboo Grove Hill#f5-9 722
-payg_cas05,57,271,0 duplicate(BambooGroveHill3) Bamboo Grove Hill#f5-10 722
-payg_cas05,55,252,2 duplicate(BambooGroveHill3) Bamboo Grove Hill#f5-11 722
-payg_cas05,55,260,2 duplicate(BambooGroveHill3) Bamboo Grove Hill#f5-12 722
+payg_cas05,32,249,4 duplicate(InsideFlagsPA5) Bamboo Grove Hill#5-2 722
+payg_cas05,24,249,4 duplicate(InsideFlagsPA5) Bamboo Grove Hill#6 722
+payg_cas05,62,271,0 duplicate(InsideFlagsPA5) Bamboo Grove Hill#7 722
+payg_cas05,57,271,0 duplicate(InsideFlagsPA5) Bamboo Grove Hill#8 722
+payg_cas05,55,252,2 duplicate(InsideFlagsPA5) Bamboo Grove Hill#9 722
+payg_cas05,55,260,2 duplicate(InsideFlagsPA5) Bamboo Grove Hill#10 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-payg_cas05,30,30,0 duplicate(Gld_Agit_Manager) Agit#payg_cas05 -1
+payon,123,322,4 duplicate(InsideFlagsPA5) Bamboo Grove Hill#11 722
+payon,166,161,3 duplicate(InsideFlagsPA5) Bamboo Grove Hill#12 722
-// Steward
+// Kafra Employee
//============================================================
-payg_cas05,277,249,3 duplicate(Gld_Mngr_Template) Nahzarf#payg_cas05 55
+payg_cas05,276,227,1 duplicate(guildkafra) Kafra Staff#payg_cas05 117
-// Guardians
+// Steward
//============================================================
-payg_cas05,277,249,3 duplicate(Gld_Guard_Template) Guardian#payg_cas05 -1
+payg_cas05,277,249,3 duplicate(cm) Nahzarf#payg_cas05 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-payg_cas05,276,227,1 duplicate(Gld_Kafra_Template) Kafra Staff#payg_cas05 117
+payg_cas05,161,136,0 script #lever_PA05 111,{
-// Master's Room Exit
-//============================================================
-payg_cas05,161,136,0 script #switch_Py05 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "payg_cas05",277,250;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "payg_cas05",277,250;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-payg_cas05,157,132,0 duplicate(Gld_Trea_Protect) ban_warp#payg_cas05 -1,6,6
+payg_cas05,249,15,0 duplicate(gdlever) #payg_cas05 111
// Guild Treasure Spawns
//============================================================
payg_cas05,157,132,0 duplicate(Gld_Trea_Spawn) Treasure#payg_cas05 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+payg_cas05,30,30,0 duplicate(Gld_Agit_Manager) Agit#payg_cas05 -1
+
+// Guardians
//============================================================
-payg_cas05,248,14,0 duplicate(Gld_Dun_Template) #payg_cas05 111
+payg_cas05,277,249,3 duplicate(Gld_Guard_Template) Guardian#payg_cas05 -1 \ No newline at end of file
diff --git a/npc/guild/prtg_cas01.txt b/npc/guild/prtg_cas01.txt
index 6cbd50803..e6085f83a 100644
--- a/npc/guild/prtg_cas01.txt
+++ b/npc/guild/prtg_cas01.txt
@@ -3,7 +3,7 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.3
+//= 1.4
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
@@ -13,26 +13,19 @@
//= 1.1 Corrected flag-in spawn point. [L0ne_W0lf]
//= 1.2 Corrected treasure room switch coordinates. [L0ne_W0lf]
//= 1.3 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.4 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
+// Guild Flags (Outside Castle)
//============================================================
-prontera,155,190,4 script Kriemhild#p1-1::Kriemhild 722,{
- end;
-
-OnRecvCastlePt01:
- FlagEmblem GetCastleData("prtg_cas01",1);
- end;
-}
+- script Kriemhild#1::OutsideFlagsPR1 722,{
-// Guild Flag (Outside Castle)
-//============================================================
-prt_gld,131,60,6 script Kriemhild#p1-2::Kriemhild2 722,{
set .@GID, GetCastleData("prtg_cas01",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -41,32 +34,33 @@ prt_gld,131,60,6 script Kriemhild#p1-2::Kriemhild2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("prtg_cas01",1)) {
- warp "prtg_cas01",96,173;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("prtg_cas01",1)) {
+ warp "prtg_cas01",96,173;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastlePt01:
@@ -74,13 +68,14 @@ OnRecvCastlePt01:
end;
}
-prt_gld,138,68,6 duplicate(Kriemhild2) Kriemhild#p1-3 722
-prt_gld,138,60,6 duplicate(Kriemhild2) Kriemhild#p1-4 722
-prt_gld,135,60,6 duplicate(Kriemhild2) Kriemhild#p1-5 722
+prt_gld,131,60,6 duplicate(OutsideFlagsPR1) Kriemhild#1-2 722
+prt_gld,138,68,6 duplicate(OutsideFlagsPR1) Kriemhild#2 722
+prt_gld,138,60,6 duplicate(OutsideFlagsPR1) Kriemhild#3 722
+prt_gld,135,60,6 duplicate(OutsideFlagsPR1) Kriemhild#4 722
-// Guild Flag (Inside Castle)
+// Guild Flags (Inside Castle)
//============================================================
-prtg_cas01,58,56,4 script Kriemhild#p1-4::Kriemhild3 722,{
+- script Kriemhild#5::InsideFlagsPR1 722,{
end;
OnRecvCastlePt01:
@@ -88,51 +83,56 @@ OnRecvCastlePt01:
end;
}
-prtg_cas01,64,56,4 duplicate(Kriemhild3) Kriemhild#p1-7 722
-prtg_cas01,76,32,4 duplicate(Kriemhild3) Kriemhild#p1-8 722
-prtg_cas01,84,32,4 duplicate(Kriemhild3) Kriemhild#p1-9 722
-prtg_cas01,94,39,4 duplicate(Kriemhild3) Kriemhild#p1-10 722
-prtg_cas01,94,24,4 duplicate(Kriemhild3) Kriemhild#p1-11 722
-prtg_cas01,73,14,4 duplicate(Kriemhild3) Kriemhild#p1-12 722
-prtg_cas01,73,6,4 duplicate(Kriemhild3) Kriemhild#p1-13 722
-prtg_cas01,55,46,4 duplicate(Kriemhild3) Kriemhild#p1-14 722
-prtg_cas01,45,46,4 duplicate(Kriemhild3) Kriemhild#p1-15 722
+prtg_cas01,58,56,4 duplicate(InsideFlagsPR1) Kriemhild#5-2 722
+prtg_cas01,64,56,4 duplicate(InsideFlagsPR1) Kriemhild#6 722
+prtg_cas01,76,32,4 duplicate(InsideFlagsPR1) Kriemhild#7 722
+prtg_cas01,84,32,4 duplicate(InsideFlagsPR1) Kriemhild#8 722
+prtg_cas01,94,39,4 duplicate(InsideFlagsPR1) Kriemhild#9 722
+prtg_cas01,94,24,4 duplicate(InsideFlagsPR1) Kriemhild#10 722
+prtg_cas01,73,14,4 duplicate(InsideFlagsPR1) Kriemhild#11 722
+prtg_cas01,73,6,4 duplicate(InsideFlagsPR1) Kriemhild#12 722
+prtg_cas01,55,46,4 duplicate(InsideFlagsPR1) Kriemhild#13 722
+prtg_cas01,45,46,4 duplicate(InsideFlagsPR1) Kriemhild#14 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-prtg_cas01,197,197,0 duplicate(Gld_Agit_Manager) Agit#prtg_cas01 -1
+prontera,155,190,4 duplicate(InsideFlagsPR1) Kriemhild#15 722
-// Steward
+// Kafra Employee
//============================================================
-prtg_cas01,112,181,0 duplicate(Gld_Mngr_Template) Ahvray#prtg_cas01 55
+prtg_cas01,96,173,0 duplicate(guildkafra) Kafra Staff#prtg_cas01 117
-// Guardians
+// Steward
//============================================================
-prtg_cas01,112,181,0 duplicate(Gld_Guard_Template) Guardian#prtg_cas01 -1
+prtg_cas01,112,181,0 duplicate(cm) Ahvray#prtg_cas01 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-prtg_cas01,96,173,0 duplicate(Gld_Kafra_Template) Kafra Staff#prtg_cas01 117
+prtg_cas01,15,208,0 script #Lever_PR01 111,{
-// Master's Room Exit
-//============================================================
-prtg_cas01,15,209,0 script #switch_Pt01 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "prtg_cas01",112,183;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "prtg_cas01",112,183;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-prtg_cas01,11,208,0 duplicate(Gld_Trea_Protect) ban_warp#prtg_cas01 -1,6,6
+prtg_cas01,94,200,0 duplicate(gdlever) #prtg_cas01 111
// Guild Treasure Spawns
//============================================================
prtg_cas01,11,208,0 duplicate(Gld_Trea_Spawn) Treasure#prtg_cas01 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+prtg_cas01,197,197,0 duplicate(Gld_Agit_Manager) Agit#prtg_cas01 -1
+
+// Guardians
//============================================================
-prtg_cas01,94,200,0 duplicate(Gld_Dun_Template) #prtg_cas01 111
+prtg_cas01,112,181,0 duplicate(Gld_Guard_Template) Guardian#prtg_cas01 -1 \ No newline at end of file
diff --git a/npc/guild/prtg_cas02.txt b/npc/guild/prtg_cas02.txt
index 12dcb6eee..1fe55faa1 100644
--- a/npc/guild/prtg_cas02.txt
+++ b/npc/guild/prtg_cas02.txt
@@ -3,34 +3,29 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.1
+//= 1.4
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
-//= NPCs that relate to Prontera Guild Castle 1
+//= NPCs that relate to Prontera Guild Castle 2
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
-//= 1.1 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.1 Corrected flag-in spawn point. [L0ne_W0lf]
+//= 1.2 Corrected treasure room switch coordinates. [L0ne_W0lf]
+//= 1.3 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.4 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
+// Guild Flags (Outside Castle)
//============================================================
-prontera,146,194,3 script Swanhild#p2-1::Swanhild 722,{
- end;
-
-OnRecvCastlePt02:
- FlagEmblem GetCastleData("prtg_cas02",1);
- end;
-}
+- script Swanhild#1::OutsideFlagsPR2 722,{
-// Guild Flag (Outside Castle)
-//============================================================
-prt_gld,244,126,8 script Swanhild#p2-2::Swanhild2 722,{
set .@GID, GetCastleData("prtg_cas02",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -39,33 +34,33 @@ prt_gld,244,126,8 script Swanhild#p2-2::Swanhild2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("prtg_cas02",1)) {
- warp "prtg_cas02",71,36;
- //warp "prtg_cas02",169,55;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("prtg_cas02",1)) {
+ warp "prtg_cas02",169,55;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastlePt02:
@@ -73,13 +68,14 @@ OnRecvCastlePt02:
end;
}
-prt_gld,244,128,8 duplicate(Swanhild2) Swanhild#p2-3 722
-prt_gld,236,126,8 duplicate(Swanhild2) Swanhild#p2-4 722
-prt_gld,236,128,8 duplicate(Swanhild2) Swanhild#p2-5 722
+prt_gld,244,126,8 duplicate(OutsideFlagsPR2) Swanhild#1-2 722
+prt_gld,244,128,8 duplicate(OutsideFlagsPR2) Swanhild#2 722
+prt_gld,236,126,8 duplicate(OutsideFlagsPR2) Swanhild#3 722
+prt_gld,236,128,8 duplicate(OutsideFlagsPR2) Swanhild#4 722
-// Guild Flag (Inside Castle)
+// Guild Flags (Inside Castle)
//============================================================
-prtg_cas02,40,227,4 script Swanhild#p2-6::Swanhild3 722,{
+- script Swanhild#5::InsideFlagsPR2 722,{
end;
OnRecvCastlePt02:
@@ -87,53 +83,58 @@ OnRecvCastlePt02:
end;
}
-prtg_cas02,46,227,4 duplicate(Swanhild3) Swanhild#p2-7 722
-prtg_cas02,11,219,4 duplicate(Swanhild3) Swanhild#p2-8 722
-prtg_cas02,11,214,4 duplicate(Swanhild3) Swanhild#p2-9 722
-prtg_cas02,20,219,4 duplicate(Swanhild3) Swanhild#p2-10 722
-prtg_cas02,20,214,4 duplicate(Swanhild3) Swanhild#p2-11 722
-prtg_cas02,79,227,8 duplicate(Swanhild3) Swanhild#p2-12 722
-prtg_cas02,70,227,8 duplicate(Swanhild3) Swanhild#p2-13 722
-prtg_cas02,38,189,8 duplicate(Swanhild3) Swanhild#p2-14 722
-prtg_cas02,34,189,8 duplicate(Swanhild3) Swanhild#p2-15 722
-prtg_cas02,153,161,4 duplicate(Swanhild3) Swanhild#p2-16 722
-prtg_cas02,162,161,4 duplicate(Swanhild3) Swanhild#p2-17 722
+prtg_cas02,40,227,4 duplicate(InsideFlagsPR2) Swanhild#5-2 722
+prtg_cas02,46,227,4 duplicate(InsideFlagsPR2) Swanhild#6 722
+prtg_cas02,11,219,4 duplicate(InsideFlagsPR2) Swanhild#7 722
+prtg_cas02,11,214,4 duplicate(InsideFlagsPR2) Swanhild#8 722
+prtg_cas02,20,219,4 duplicate(InsideFlagsPR2) Swanhild#9 722
+prtg_cas02,20,214,4 duplicate(InsideFlagsPR2) Swanhild#10 722
+prtg_cas02,79,227,8 duplicate(InsideFlagsPR2) Swanhild#11 722
+prtg_cas02,70,227,8 duplicate(InsideFlagsPR2) Swanhild#12 722
+prtg_cas02,38,189,8 duplicate(InsideFlagsPR2) Swanhild#13 722
+prtg_cas02,34,189,8 duplicate(InsideFlagsPR2) Swanhild#14 722
+prtg_cas02,153,161,4 duplicate(InsideFlagsPR2) Swanhild#15 722
+prtg_cas02,162,161,4 duplicate(InsideFlagsPR2) Swanhild#16 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-prtg_cas02,158,174,0 duplicate(Gld_Agit_Manager) Agit#prtg_cas02 -1
+prontera,146,194,3 duplicate(InsideFlagsPR2) Swanhild#17 722
-// Steward
+// Kafra Employee
//============================================================
-prtg_cas02,94,61,4 duplicate(Gld_Mngr_Template) Roy#prtg_cas02 55
+prtg_cas02,71,36,4 duplicate(guildkafra) Kafra Staff#prtg_cas02 117
-// Guardians
+// Steward
//============================================================
-prtg_cas02,94,61,4 duplicate(Gld_Guard_Template) Guardian#prtg_cas02 -1
+prtg_cas02,94,61,4 duplicate(cm) Roy#prtg_cas02 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-prtg_cas02,71,36,4 duplicate(Gld_Kafra_Template) Kafra Staff#prtg_cas02 117
+prtg_cas02,207,228,0 script #Lever_PR02 111,{
-// Master's Room Exit
-//============================================================
-prtg_cas02,207,228,0 script #switch_Pt02 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "prtg_cas02",94,62;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "prtg_cas02",94,62;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-prtg_cas02,202,228,0 duplicate(Gld_Trea_Protect) ban_warp#prtg_cas02 -1,6,6
+prtg_cas02,84,72,0 duplicate(gdlever) #prtg_cas02 111
// Guild Treasure Spawns
//============================================================
prtg_cas02,202,228,0 duplicate(Gld_Trea_Spawn) Treasure#prtg_cas02 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+prtg_cas02,158,174,0 duplicate(Gld_Agit_Manager) Agit#prtg_cas02 -1
+
+// Guardians
//============================================================
-prtg_cas02,84,72,0 duplicate(Gld_Dun_Template) #prtg_cas02 111
+prtg_cas02,94,61,4 duplicate(Gld_Guard_Template) Guardian#prtg_cas02 -1 \ No newline at end of file
diff --git a/npc/guild/prtg_cas03.txt b/npc/guild/prtg_cas03.txt
index 9f73114e7..0f6df8c2b 100644
--- a/npc/guild/prtg_cas03.txt
+++ b/npc/guild/prtg_cas03.txt
@@ -3,37 +3,29 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.3
+//= 1.4
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
-//= NPCs that relate to Prontera Guild Castle 1
+//= NPCs that relate to Prontera Guild Castle 3
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
//= 1.1 Corrected flag-in spawn point. [L0ne_W0lf]
//= 1.2 Corrected treasure room switch coordinates. [L0ne_W0lf]
//= 1.3 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.4 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
+// Guild Flags (Outside Castle)
//============================================================
-prontera,143,203,2 script Fadhgridh#p3-1::Fadhgridh 722,{
- end;
-
-
-OnRecvCastlePt03:
- FlagEmblem GetCastleData("prtg_cas03",1);
- end;
-}
+- script Fadhgridh#1::OutsideFlagsPR3 722,{
-// Guild Flag (Outside Castle)
-//============================================================
-prt_gld,147,140,4 script Fadhgridh#p3-2::Fadhgridh2 722,{
set .@GID, GetCastleData("prtg_cas03",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -42,32 +34,33 @@ prt_gld,147,140,4 script Fadhgridh#p3-2::Fadhgridh2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("prtg_cas03",1)) {
- warp "prtg_cas03",181,215;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("prtg_cas03",1)) {
+ warp "prtg_cas03",181,215;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastlePt03:
@@ -75,13 +68,14 @@ OnRecvCastlePt03:
end;
}
-prt_gld,147,136,4 duplicate(Fadhgridh2) Fadhgridh#p3-3 722
-prt_gld,158,140,4 duplicate(Fadhgridh2) Fadhgridh#p3-4 722
-prt_gld,158,136,4 duplicate(Fadhgridh2) Fadhgridh#p3-5 722
+prt_gld,147,140,4 duplicate(OutsideFlagsPR3) Fadhgridh#1-2 722
+prt_gld,147,136,4 duplicate(OutsideFlagsPR3) Fadhgridh#2 722
+prt_gld,158,140,4 duplicate(OutsideFlagsPR3) Fadhgridh#3 722
+prt_gld,158,136,4 duplicate(OutsideFlagsPR3) Fadhgridh#4 722
-// Guild Flag (Inside Castle)
+// Guild Flags (Inside Castle)
//============================================================
-prtg_cas03,168,28,4 script Fadhgridh#p3-6::Fadhgridh3 722,{
+- script Fadhgridh#5::InsideFlagsPR3 722,{
end;
OnRecvCastlePt03:
@@ -89,51 +83,56 @@ OnRecvCastlePt03:
end;
}
-prtg_cas03,182,28,4 duplicate(Fadhgridh3) Fadhgridh#p3-7 722
-prtg_cas03,43,50,4 duplicate(Fadhgridh3) Fadhgridh#p3-8 722
-prtg_cas03,48,50,4 duplicate(Fadhgridh3) Fadhgridh#p3-9 722
-prtg_cas03,43,58,4 duplicate(Fadhgridh3) Fadhgridh#p3-10 722
-prtg_cas03,48,58,4 duplicate(Fadhgridh3) Fadhgridh#p3-11 722
-prtg_cas03,158,210,4 duplicate(Fadhgridh3) Fadhgridh#p3-12 722
-prtg_cas03,169,210,4 duplicate(Fadhgridh3) Fadhgridh#p3-13 722
-prtg_cas03,162,201,4 duplicate(Fadhgridh3) Fadhgridh#p3-14 722
-prtg_cas03,165,201,4 duplicate(Fadhgridh3) Fadhgridh#p3-15 722
+prtg_cas03,168,28,4 duplicate(InsideFlagsPR3) Fadhgridh#5-2 722
+prtg_cas03,182,28,4 duplicate(InsideFlagsPR3) Fadhgridh#6 722
+prtg_cas03,43,50,4 duplicate(InsideFlagsPR3) Fadhgridh#7 722
+prtg_cas03,48,50,4 duplicate(InsideFlagsPR3) Fadhgridh#8 722
+prtg_cas03,43,58,4 duplicate(InsideFlagsPR3) Fadhgridh#9 722
+prtg_cas03,48,58,4 duplicate(InsideFlagsPR3) Fadhgridh#10 722
+prtg_cas03,158,210,4 duplicate(InsideFlagsPR3) Fadhgridh#11 722
+prtg_cas03,169,210,4 duplicate(InsideFlagsPR3) Fadhgridh#12 722
+prtg_cas03,162,201,4 duplicate(InsideFlagsPR3) Fadhgridh#13 722
+prtg_cas03,165,201,4 duplicate(InsideFlagsPR3) Fadhgridh#14 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-prtg_cas03,17,221,0 duplicate(Gld_Agit_Manager) Agit#prtg_cas03 -1
+prontera,143,203,2 duplicate(InsideFlagsPR3) Fadhgridh#15 722
-// Steward
+// Kafra Employee
//============================================================
-prtg_cas03,51,100,4 duplicate(Gld_Mngr_Template) Sttick#prtg_cas03 55
+prtg_cas03,181,215,4 duplicate(guildkafra) Kafra Staff#prtg_cas03 117
-// Guardians
+// Steward
//============================================================
-prtg_cas03,51,100,4 duplicate(Gld_Guard_Template) Guardian#prtg_cas03 -1
+prtg_cas03,51,100,4 duplicate(cm) Sttick#prtg_cas03 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-prtg_cas03,181,215,4 duplicate(Gld_Kafra_Template) Kafra Staff#prtg_cas03 117
+prtg_cas03,193,130,0 script #Lever_PR03 111,{
-// Master's Room Exit
-//============================================================
-prtg_cas03,193,130,0 script #switch_Pt03 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "prtg_cas03",51,101;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "prtg_cas03",51,101;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-prtg_cas03,189,132,0 duplicate(Gld_Trea_Protect) ban_warp#prtg_cas03 -1,6,6
+prtg_cas03,5,70,0 duplicate(gdlever) #prtg_cas03 111
// Guild Treasure Spawns
//============================================================
prtg_cas03,189,132,0 duplicate(Gld_Trea_Spawn) Treasure#prtg_cas03 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+prtg_cas03,17,221,0 duplicate(Gld_Agit_Manager) Agit#prtg_cas03 -1
+
+// Guardians
//============================================================
-prtg_cas03,5,70,0 duplicate(Gld_Dun_Template) #prtg_cas03 111
+prtg_cas03,51,100,4 duplicate(Gld_Guard_Template) Guardian#prtg_cas03 -1 \ No newline at end of file
diff --git a/npc/guild/prtg_cas04.txt b/npc/guild/prtg_cas04.txt
index 1695a87e7..1ef4ad918 100644
--- a/npc/guild/prtg_cas04.txt
+++ b/npc/guild/prtg_cas04.txt
@@ -3,7 +3,7 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.2
+//= 1.4
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
@@ -11,27 +11,21 @@
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
//= 1.1 Corrected flag-in spawn point. [L0ne_W0lf]
-//= 1.2 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.2 Corrected treasure room switch coordinates. [L0ne_W0lf]
+//= 1.3 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.4 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
+// Guild Flags (Outside Castle)
//============================================================
-prontera,167,203,6 script Skoegul#p4-1::Skoegul 722,{
- end;
-
-OnRecvCastlePt04:
- FlagEmblem GetCastleData("prtg_cas04",1);
- end;
-}
+- script Skoegul#1::OutsideFlagsPR4 722,{
-// Guild Flag (Outside Castle)
-//============================================================
-prt_gld,120,243,6 script Skoegul#p4-2::Skoegul2 722,{
set .@GID, GetCastleData("prtg_cas04",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -40,32 +34,33 @@ prt_gld,120,243,6 script Skoegul#p4-2::Skoegul2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("prtg_cas04",1)) {
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("prtg_cas04",1)) {
warp "prtg_cas04",258,247;
- end;
- }
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastlePt04:
@@ -73,13 +68,14 @@ OnRecvCastlePt04:
end;
}
-prt_gld,120,236,6 duplicate(Skoegul2) Skoegul#p4-3 722
-prt_gld,122,243,6 duplicate(Skoegul2) Skoegul#p4-4 722
-prt_gld,122,236,6 duplicate(Skoegul2) Skoegul#p4-5 722
+prt_gld,120,243,6 duplicate(OutsideFlagsPR4) Skoegul#1-2 722
+prt_gld,120,236,6 duplicate(OutsideFlagsPR4) Skoegul#2 722
+prt_gld,122,243,6 duplicate(OutsideFlagsPR4) Skoegul#3 722
+prt_gld,122,236,6 duplicate(OutsideFlagsPR4) Skoegul#4 722
-// Guild Flag (Inside Castle)
+// Guild Flags (Inside Castle)
//============================================================
-prtg_cas04,82,29,4 script Skoegul#p4-6::Skoegul3 722,{
+- script Skoegul#5::InsideFlagsPR4 722,{
end;
OnRecvCastlePt04:
@@ -87,51 +83,56 @@ OnRecvCastlePt04:
end;
}
-prtg_cas04,75,29,4 duplicate(Skoegul3) Skoegul#p4-7 722
-prtg_cas04,75,27,4 duplicate(Skoegul3) Skoegul#p4-8 722
-prtg_cas04,82,27,4 duplicate(Skoegul3) Skoegul#p4-9 722
-prtg_cas04,59,29,4 duplicate(Skoegul3) Skoegul#p4-10 722
-prtg_cas04,67,29,4 duplicate(Skoegul3) Skoegul#p4-11 722
-prtg_cas04,258,25,4 duplicate(Skoegul3) Skoegul#p4-12 722
-prtg_cas04,258,20,4 duplicate(Skoegul3) Skoegul#p4-13 722
-prtg_cas04,263,20,4 duplicate(Skoegul3) Skoegul#p4-14 722
-prtg_cas04,263,27,4 duplicate(Skoegul3) Skoegul#p4-15 722
+prtg_cas04,82,29,4 duplicate(InsideFlagsPR4) Skoegul#5-2 722
+prtg_cas04,75,29,4 duplicate(InsideFlagsPR4) Skoegul#6 722
+prtg_cas04,75,27,4 duplicate(InsideFlagsPR4) Skoegul#7 722
+prtg_cas04,82,27,4 duplicate(InsideFlagsPR4) Skoegul#8 722
+prtg_cas04,59,29,4 duplicate(InsideFlagsPR4) Skoegul#9 722
+prtg_cas04,67,29,4 duplicate(InsideFlagsPR4) Skoegul#10 722
+prtg_cas04,258,25,4 duplicate(InsideFlagsPR4) Skoegul#11 722
+prtg_cas04,258,20,4 duplicate(InsideFlagsPR4) Skoegul#12 722
+prtg_cas04,263,20,4 duplicate(InsideFlagsPR4) Skoegul#13 722
+prtg_cas04,263,27,4 duplicate(InsideFlagsPR4) Skoegul#14 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-prtg_cas04,292,14,0 duplicate(Gld_Agit_Manager) Agit#prtg_cas04 -1
+prontera,167,203,6 duplicate(InsideFlagsPR4) Skoegul#15 722
-// Steward
+// Kafra Employee
//============================================================
-prtg_cas04,259,265,4 duplicate(Gld_Mngr_Template) Van Dreth#prtg_cas04 55
+prtg_cas04,258,247,4 duplicate(guildkafra) Kafra Staff#prtg_cas04 117
-// Guardians
+// Steward
//============================================================
-prtg_cas04,259,265,4 duplicate(Gld_Guard_Template) Guardian#prtg_cas04 -1
+prtg_cas04,259,265,4 duplicate(cm) Van Dreth#prtg_cas04 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-prtg_cas04,258,247,4 duplicate(Gld_Kafra_Template) Kafra Staff#prtg_cas04 117
+prtg_cas04,275,160,0 script #Lever_PR04 111,{
-// Master's Room Exit
-//============================================================
-prtg_cas04,275,160,0 script #switch_Pt04 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "prtg_cas04",259,265;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "prtg_cas04",259,265;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-prtg_cas04,271,162,0 duplicate(Gld_Trea_Protect) ban_warp#prtg_cas04 -1,6,6
+prtg_cas04,56,283,0 duplicate(gdlever) #prtg_cas04 111
// Guild Treasure Spawns
//============================================================
prtg_cas04,271,162,0 duplicate(Gld_Trea_Spawn) Treasure#prtg_cas04 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+prtg_cas04,292,14,0 duplicate(Gld_Agit_Manager) Agit#prtg_cas04 -1
+
+// Guardians
//============================================================
-prtg_cas04,56,283,0 duplicate(Gld_Dun_Template) #prtg_cas04 111
+prtg_cas04,259,265,4 duplicate(Gld_Guard_Template) Guardian#prtg_cas04 -1 \ No newline at end of file
diff --git a/npc/guild/prtg_cas05.txt b/npc/guild/prtg_cas05.txt
index 6676e4a0b..fde4cc7d0 100644
--- a/npc/guild/prtg_cas05.txt
+++ b/npc/guild/prtg_cas05.txt
@@ -3,36 +3,29 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.3
+//= 1.4
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
-//= NPCs that relate to Prontera Guild Castle 1
+//= NPCs that relate to Prontera Guild Castle 5
//===== Additional Comments: =================================
//= 1.0 First Version. No longer uses functions. [L0ne_W0lf]
//= 1.1 Corrected flag-in spawn point. [L0ne_W0lf]
//= 1.2 Corrected treasure room switch coordinates. [L0ne_W0lf]
//= 1.3 Removed dialog from interior flags. [L0ne_W0lf]
+//= 1.4 Partially rewrote Script. [Masao]
//============================================================
-// Guild Flag (Town)
+// Guild Flags (Outside Castle)
//============================================================
-prontera,165,194,5 script Gondul#p5-1::Gondul 722,{
- end;
-
-OnRecvCastlePt05:
- FlagEmblem GetCastleData("prtg_cas05",1);
- end;
-}
+- script Gondul#1::OutsideFlagsPR5 722,{
-// Guild Flag (Outside Castle)
-//============================================================
-prt_gld,199,243,2 script Gondul#p5-2::Gondul2 722,{
set .@GID, GetCastleData("prtg_cas05",1);
+
if (.@GID == 0) {
- mes " [ Edict of the Divine Rune Midgard Kingdom ]";
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
mes " ";
- mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
mes "We declare that";
mes "there is no formal master of this castle.";
mes " ";
@@ -41,32 +34,33 @@ prt_gld,199,243,2 script Gondul#p5-2::Gondul2 722,{
mes "and destroy the Emperium,";
mes "the king will endow the one with";
mes "ownership of this castle.";
+ close;
}
- else {
- if (getcharid(2) == .@GID) {
- mes "Brave ones...";
- mes "Do you wish to return to your honorable place?";
- next;
- if (select("Return to the guild castle.:Quit.") == 1) {
- if (getcharid(2) == GetCastleData("prtg_cas05",1)) {
- warp "prtg_cas05",52,41;
- end;
- }
+ if (getcharid(2) == .@GID) {
+ mes "[ Echoing Voice ]";
+ mes "Brave ones...";
+ mes "Do you wish to return to your honorable place?";
+ next;
+ if(select("Return to the guild castle.:Quit.") == 1) {
+ close2;
+ if (getcharid(2) == GetCastleData("prtg_cas05",1)) {
+ warp "prtg_cas05",52,41;
+ end;
}
- close;
+ end;
}
- mes "[ Edict of the Divine Rune Midgard Kingdom ]";
- mes " ";
- mes "1. Following the ordinance of the";
- mes "Divine Rune Midgard Kingdom,";
- mes "we approve that this place is in";
- mes "the private possession of ^ff0000" + GetGuildName(.@GID) + "^000000 Guild.";
- mes " ";
- mes "2. The guild Master of ^ff0000"+ GetGuildName(.@GID) + "^000000 Guild is";
- mes "^FF0000" + GetGuildMaster(.@GID) + "^000000";
- mes "If there is anyone who objects to this,";
- mes " prove your strength and honor with a steel blade in your hand.";
+ close;
}
+ mes "[ Edict of the Divine Rune-Midgarts Kingdom ]";
+ mes " ";
+ mes "1. Follow the ordinance of The Divine Rune-Midgarts Kingdom, ";
+ mes "we approve that this place is in";
+ mes "the private prossession of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild.";
+ mes " ";
+ mes "2. The guild Master of ^ff0000"+GetGuildName(.@GID)+"^000000 Guild is";
+ mes "^ff0000"+GetGuildMaster(.@GID)+"^000000";
+ mes "If there is anyone who objects to this,";
+ mes "prove your strength and honor with a steel blade in your hand.";
close;
OnRecvCastlePt05:
@@ -74,13 +68,14 @@ OnRecvCastlePt05:
end;
}
-prt_gld,199,236,2 duplicate(Gondul2) Gondul#p5-3 722
-prt_gld,197,243,2 duplicate(Gondul2) Gondul#p5-4 722
-prt_gld,197,236,2 duplicate(Gondul2) Gondul#p5-5 722
+prt_gld,199,243,2 duplicate(OutsideFlagsPR5) Gondul#1-2 722
+prt_gld,199,236,2 duplicate(OutsideFlagsPR5) Gondul#2 722
+prt_gld,197,243,2 duplicate(OutsideFlagsPR5) Gondul#3 722
+prt_gld,197,236,2 duplicate(OutsideFlagsPR5) Gondul#4 722
-// Guild Flag (Inside Castle)
+// Guild Flags (Inside Castle)
//============================================================
-prtg_cas05,19,247,4 script Gondul#p5-6::Gondul3 722,{
+- script Gondul#5::InsideFlagsPR5 722,{
end;
OnRecvCastlePt05:
@@ -88,49 +83,54 @@ OnRecvCastlePt05:
end;
}
-prtg_cas05,19,243,4 duplicate(Gondul3) Gondul#p5-7 722
-prtg_cas05,26,247,4 duplicate(Gondul3) Gondul#p5-8 722
-prtg_cas05,26,243,4 duplicate(Gondul3) Gondul#p5-9 722
-prtg_cas05,249,289,4 duplicate(Gondul3) Gondul#p5-10 722
-prtg_cas05,256,289,4 duplicate(Gondul3) Gondul#p5-11 722
-prtg_cas05,253,271,4 duplicate(Gondul3) Gondul#p5-12 722
-prtg_cas05,273,257,4 duplicate(Gondul3) Gondul#p5-13 722
+prtg_cas05,19,247,4 duplicate(InsideFlagsPR5) Gondul#5-2 722
+prtg_cas05,19,243,4 duplicate(InsideFlagsPR5) Gondul#6 722
+prtg_cas05,26,247,4 duplicate(InsideFlagsPR5) Gondul#7 722
+prtg_cas05,26,243,4 duplicate(InsideFlagsPR5) Gondul#8 722
+prtg_cas05,249,289,4 duplicate(InsideFlagsPR5) Gondul#9 722
+prtg_cas05,256,289,4 duplicate(InsideFlagsPR5) Gondul#10 722
+prtg_cas05,253,271,4 duplicate(InsideFlagsPR5) Gondul#11 722
+prtg_cas05,273,257,4 duplicate(InsideFlagsPR5) Gondul#12 722
-// AGIT Manager
+// Guild Flag (Town)
//============================================================
-prtg_cas05,266,266,0 duplicate(Gld_Agit_Manager) Agit#prtg_cas05 -1
+prontera,165,194,5 duplicate(InsideFlagsPR5) Gondul#13 722
-// Steward
+// Kafra Employee
//============================================================
-prtg_cas05,36,37,4 duplicate(Gld_Mngr_Template) Raynor#prtg_cas05 55
+prtg_cas05,52,41,4 duplicate(guildkafra) Kafra Staff#prtg_cas05 117
-// Guardians
+// Steward
//============================================================
-prtg_cas05,36,37,4 duplicate(Gld_Guard_Template) Guardian#prtg_cas05 -1
+prtg_cas05,36,37,4 duplicate(cm) Raynor#prtg_cas05 55
-// Kafra Staff
+// Treasure Room Exit
//============================================================
-prtg_cas05,52,41,4 duplicate(Gld_Kafra_Template) Kafra Staff#prtg_cas05 117
+prtg_cas05,281,176,0 script #Lever_PR05 111,{
-// Master's Room Exit
-//============================================================
-prtg_cas05,281,176,0 script #switch_Pt05 111,{
mes " ";
- mes "There's a small lever. Will you pull it? ";
+ mes "There's a small lever. Will you pull it?";
next;
- if(select("Pull.:Do not.") == 2) close;
- warp "prtg_cas05",36,38;
- end;
+ if(select("Pull.:Do not.") == 1) {
+ close2;
+ warp "prtg_cas05",36,38;
+ end;
+ }
+ close;
}
-// Guild Treasure Protection
+// Guild Dungeon Switch
//============================================================
-prtg_cas05,276,178,0 duplicate(Gld_Trea_Protect) ban_warp#prtg_cas05 -1,6,6
+prtg_cas05,212,95,0 duplicate(gdlever) #prtg_cas05 111
// Guild Treasure Spawns
//============================================================
prtg_cas05,276,178,0 duplicate(Gld_Trea_Spawn) Treasure#prtg_cas05 -1
-// Guild Dungeon Switch
+// AGIT Manager
+//============================================================
+prtg_cas05,266,266,0 duplicate(Gld_Agit_Manager) Agit#prtg_cas05 -1
+
+// Guardians
//============================================================
-prtg_cas05,212,94,0 duplicate(Gld_Dun_Template) #prtg_cas05 111
+prtg_cas05,36,37,4 duplicate(Gld_Guard_Template) Guardian#prtg_cas05 -1 \ No newline at end of file
diff --git a/npc/guild/trs_rp.txt b/npc/guild/trs_rp.txt
new file mode 100644
index 000000000..96fae1abe
--- /dev/null
+++ b/npc/guild/trs_rp.txt
@@ -0,0 +1,82 @@
+//===== rAthena Script =======================================
+//= Treasure Room Protection
+//===== By: ==================================================
+//= Masao
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= rAthena
+//===== Description: =========================================
+//= Warps every Player out of the Treasure Room except for the
+//= Guildleader.
+//===== Additional Comments: =================================
+//= 1.0 Converted from the official script.
+//============================================================
+
+- script ban_warp#1::prtg 139,6,6,{
+
+OnTouch:
+ set .@GID,getcharid(2);
+ if (GetGuildMaster(.@GID) != strcharinfo(0)) {
+ warp "prontera",119,64;
+ end;
+ }
+ end;
+}
+
+prtg_cas01,11,208,0 duplicate(prtg) ban_warp#1-2 139,6,6
+prtg_cas02,202,228,0 duplicate(prtg) ban_warp#2 139,6,6
+prtg_cas03,189,132,0 duplicate(prtg) ban_warp#3 139,6,6
+prtg_cas04,271,162,0 duplicate(prtg) ban_warp#4 139,6,6
+prtg_cas05,276,178,0 duplicate(prtg) ban_warp#5 139,6,6
+
+- script ban_warp#6::payg 139,6,6,{
+
+OnTouch:
+ set .@GID,getcharid(2);
+ if (GetGuildMaster(.@GID) != strcharinfo(0)) {
+ warp "payon",100,100;
+ end;
+ }
+ end;
+}
+
+payg_cas01,291,8,0 duplicate(payg) ban_warp#6-2 139,6,6
+payg_cas02,145,144,0 duplicate(payg) ban_warp#7 139,6,6
+payg_cas03,159,168,0 duplicate(payg) ban_warp#8 139,6,6
+payg_cas04,147,48,0 duplicate(payg) ban_warp#9 139,6,6
+payg_cas05,157,132,0 duplicate(payg) ban_warp#10 139,6,6
+
+- script ban_warp#11::aldeg 139,8,8,{
+
+OnTouch:
+ set .@GID,getcharid(2);
+ if (GetGuildMaster(.@GID) != strcharinfo(0)) {
+ warp "aldebaran",143,112;
+ end;
+ }
+ end;
+}
+
+aldeg_cas01,118,223,0 duplicate(aldeg) ban_warp#11-2 139,8,8
+aldeg_cas02,135,230,0 duplicate(aldeg) ban_warp#12 139,8,8
+aldeg_cas03,225,269,0 duplicate(aldeg) ban_warp#13 139,8,8
+aldeg_cas04,84,13,0 duplicate(aldeg) ban_warp#14 139,8,8
+aldeg_cas05,62,12,0 duplicate(aldeg) ban_warp#15 139,8,8
+
+- script ban_warp#16::gefg 139,6,6,{
+
+OnTouch:
+ set .@GID,getcharid(2);
+ if (GetGuildMaster(.@GID) != strcharinfo(0)) {
+ warp "geffen",120,38;
+ end;
+ }
+ end;
+}
+
+gefg_cas01,154,112,0 duplicate(gefg) ban_warp#16-2 139,6,6
+gefg_cas02,140,116,0 duplicate(gefg) ban_warp#17 139,6,6
+gefg_cas03,271,290,0 duplicate(gefg) ban_warp#18 139,6,6
+gefg_cas04,116,119,0 duplicate(gefg) ban_warp#19 139,6,6
+gefg_cas05,144,110,0 duplicate(gefg) ban_warp#20 139,6,6 \ No newline at end of file