From 31825ccc2dde034a218d9ad466dd721c40b5651d Mon Sep 17 00:00:00 2001 From: shennetsind Date: Sun, 8 Jul 2012 19:30:07 +0000 Subject: Okie ladies and gentleman if this commit breaks anything it's jman's and maki's fault, yes, blame them. Fixing pre-re / re npc support, moving /config/ folder to src root so other servers may also make use of the #define renewal dir and other stuff. git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@16382 54d463be-8e91-2dee-dedb-b68131a5f0ec --- npc/events/nguild/nguild_dunsw.txt | 67 ---------- npc/events/nguild/nguild_ev_agit.txt | 216 --------------------------------- npc/events/nguild/nguild_flags.txt | 192 ----------------------------- npc/events/nguild/nguild_guardians.txt | 89 -------------- npc/events/nguild/nguild_kafras.txt | 71 ----------- npc/events/nguild/nguild_managers.txt | 174 -------------------------- npc/events/nguild/nguild_treas.txt | 167 ------------------------- npc/events/nguild/nguild_warper.txt | 111 ----------------- 8 files changed, 1087 deletions(-) delete mode 100644 npc/events/nguild/nguild_dunsw.txt delete mode 100644 npc/events/nguild/nguild_ev_agit.txt delete mode 100644 npc/events/nguild/nguild_flags.txt delete mode 100644 npc/events/nguild/nguild_guardians.txt delete mode 100644 npc/events/nguild/nguild_kafras.txt delete mode 100644 npc/events/nguild/nguild_managers.txt delete mode 100644 npc/events/nguild/nguild_treas.txt delete mode 100644 npc/events/nguild/nguild_warper.txt (limited to 'npc/events/nguild') diff --git a/npc/events/nguild/nguild_dunsw.txt b/npc/events/nguild/nguild_dunsw.txt deleted file mode 100644 index 8a34362f3..000000000 --- a/npc/events/nguild/nguild_dunsw.txt +++ /dev/null @@ -1,67 +0,0 @@ -//===== rAthena Script ======================================= -//= War of Emperium Dungeon Switch for NGuild Castles -//===== By: ================================================== -//= kobra_k88 -//===== Current Version: ===================================== -//= 1.1 -//===== Compatible With: ===================================== -//= rAthena 0.1+; RO Episode 4+ -//===== Description: ========================================= -//= Switch that warps guild members to the guild dungeon -//===== Additional Comments: ================================= -//= Based off existing guild scripts. Do not know if it is accurate.[kobra_k88] -//= 1.1 Guild Dungeon Switch Fucntion added. [L0ne_W0lf] -//============================================================ - - -//================================================== -function script F_GldDunSw { - set .@GID, GetCastleData(getarg(0),1); - 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; - - if (select("Pull.:Do not.") == 1) { - if (getcharid(2) == .@GID) { - warp "gld_dun"+getarg(1),getarg(2),getarg(3); - end; - } - mes " "; - mes " Nothing happened."; - } - return; - } -} - -// Castle 1 =============================================== -nguild_alde,212,181,0 script Switch#DunN01 111,{ - callfunc "F_GldDunSw","nguild_alde","02",32,122; - close; -} - -// Castle 2 =============================================== -nguild_gef,78,84,0 script Switch#DunN02 111,{ - callfunc "F_GldDunSw","nguild_gef","04",39,258; - close; -} - -// Castle 3 =============================================== -nguild_pay,101,25,0 script Switch#DunN03 111,{ - callfunc "F_GldDunSw","nguild_pay","01",186,165; - close; -} - -// Castle 4 =============================================== -nguild_prt,94,200,0 script Switch#DunN04 111,{ - callfunc "F_GldDunSw","nguild_prt","03",28,251; - close; -} diff --git a/npc/events/nguild/nguild_ev_agit.txt b/npc/events/nguild/nguild_ev_agit.txt deleted file mode 100644 index 1dad83b83..000000000 --- a/npc/events/nguild/nguild_ev_agit.txt +++ /dev/null @@ -1,216 +0,0 @@ -//===== rAthena Script ======================================= -//= War of Emperium - NGuild Wars Events -//===== By: ================================================== -//= kobra_k88 -//===== Current Version: ===================================== -//= 1.5 -//===== Compatible With: ===================================== -//= rAthena 0.1+; RO Episode 4+ -//===== Description: ========================================= -//= Event Triggers for NGuild Wars -//===== Additional Comments: ================================= -// Based off existing guild scripts. Do not know if it is accurate.[kobra_k88] -//= 1.3 Added code for abandoning captured castles on /breakguild [Lupus] -//= 1.4 AGIT Functions added, treasure spawning added. [L0ne_W0lf] -//= 1.5 Emperium should now properly respawn. [L0ne_W0lf] -//============================================================ - - -// Function for OnAgitStart ========================================= -function script F_AgitStart { - set .@map$, getarg(0); - set .@castle$, getarg(1); - set .@empx, getarg(2); - set .@empy, getarg(3); - - MapRespawnGuildID .@map$,GetCastleData(.@map$,1),2; - monster .@map$,.@empx,.@empy,"Emperium",1288,1,"Agit_"+.@castle$+"::OnAgitBreak"; - GvgOn .@map$; - if (GetCastleData(.@map$,1) != 0) return; - end; -} - -// Function for OnGuildBreak ====================================== -function script F_GuildBreak { - set .@map$, getarg(0); - set .@castle$, getarg(1); - - killmonsterall .@map$; - - Announce "Guild Base [" + GetCastleName(.@map$) + "] has been abandoned.",0; - disablenpc "Kafra Staff#"+.@castle$; - - SetCastleData .@map$,0,0; - return; -} - -// Function for OnAgitBreak ====================================== -function script F_AgitBreak { - set .@map$, getarg(0); - set .@castle$, getarg(1); - - set .@GID,getcharid(2); - if (.@GID <= 0) return; - - set .@Economy,GetCastleData(.@map$,2) - 5; - if (.@Economy < 0) set .@Economy, 0; - SetCastleData .@map$, 2, .@Economy; - - set .@Defence,GetCastleData(.@map$,3) - 5; - if (.@Defence < 0) set .@Defence, 0; - SetCastleData .@map$, 3, .@Defence; - - SetCastleData .@map$,1, .@GID; - MapAnnounce .@map$,"The emperium has been destroyed.",bc_map,0x00CCFF; - Announce "The [" + GetCastleName(.@map$) + "] castle has been conquered by the [" + GetGuildName(.@GID) + "] guild.",bc_all; - donpcevent "::OnRecvCastle"+.@castle$; - - disablenpc "Kafra Staff#"+.@castle$; - - // remove investment data and kafra - for( set .@i, 4; .@i <= 9; set .@i, .@i+1 ) - SetCastleData .@map$, .@i, 0; - - // if the new guild doesn't have Guardian Research, erase guardians - if( getgdskilllv(.@GID,10002) == 0 ) - for( set .@i, 10; .@i <= 17; set .@i, .@i+1 ) - SetCastleData .@map$, .@i, 0; - - return; -} - - -// Function for OnAgitEnd ====================================== -function script F_AgitEnd { - set .@map$, getarg(0); - set .@castle$, getarg(1); - - GvgOff .@map$; - // Disable the following if statment to keep empty - // castles from being aquired after after WoE ends. - if (GetCastleData(.@map$,1) == 0) return; - MapRespawnGuildID .@map$,GetCastleData(.@map$,1),4; - KillMonster .@map$,"Agit_"+.@castle$+"::OnAgitBreak"; - end; -} - -// Castle 1 ================================================================ -nguild_alde,0,0,0 script Agit_N01 -1,{ -OnInterIfInitOnce: - donpcevent "::OnRecvCastleN01"; - end; -OnRecvCastleN01: - RequestGuildInfo GetCastleData("nguild_alde",1); - end; -OnAgitStart: - callfunc "F_AgitStart","nguild_alde","N01",216,24; - end; -OnAgitBreak: - callfunc "F_AgitBreak","nguild_alde","N01"; - goto OnAgitEliminate; - end; -OnGuildBreak: - callfunc "F_GuildBreak","nguild_alde","N01"; - end; -OnAgitEliminate: - MapRespawnGuildID "nguild_alde",GetCastleData("nguild_alde",1),6; - Monster "nguild_alde",216,24,"EMPERIUM",1288,1,"Agit_N01::OnAgitBreak"; - end; -OnAgitEnd: - callfunc "F_AgitEnd","nguild_alde","N01"; - end; -} - -// Castle 2 ================================================================ -nguild_gef,0,0,0 script Agit_N02 -1,{ -OnInterIfInitOnce: - donpcevent "::OnRecvCastleN02"; - end; -OnRecvCastleN02: - RequestGuildInfo GetCastleData("nguild_gef",1); - end; -OnAgitStart: - callfunc "F_AgitStart","nguild_gef","N02",198,182; - end; -OnAgitBreak: - callfunc "F_AgitBreak","nguild_gef","N02"; - goto OnAgitEliminate; - end; -OnGuildBreak: - callfunc "F_GuildBreak","nguild_gef","N02"; - end; -OnAgitEliminate: - MapRespawnGuildID "nguild_gef",GetCastleData("nguild_gef",1),6; - Monster "nguild_gef",198,182,"EMPERIUM",1288,1,"Agit_N02::OnAgitBreak"; - end; -OnAgitEnd: - callfunc "F_AgitEnd","nguild_gef","N02"; - end; -} - -// Castle 3 ================================================================ -nguild_pay,0,0,0 script Agit_N03 -1,{ -OnInterIfInitOnce: - donpcevent "::OnRecvCastleN03"; - end; -OnRecvCastleN03: - RequestGuildInfo GetCastleData("nguild_pay",1); - end; -OnAgitStart: - callfunc "F_AgitStart","nguild_pay","N03",139,139; - end; -OnAgitBreak: - callfunc "F_AgitBreak","nguild_pay","N03"; - goto OnAgitEliminate; - end; -OnGuildBreak: - callfunc "F_GuildBreak","nguild_pay","N03"; - end; -OnAgitEliminate: - MapRespawnGuildID "nguild_pay",GetCastleData("nguild_pay",1),6; - Monster "nguild_pay",139,139,"EMPERIUM",1288,1,"Agit_N03::OnAgitBreak"; - end; -OnAgitEnd: - callfunc "F_AgitEnd","nguild_pay","N03"; - end; -} - -// Castle 4 ================================================================ -nguild_prt,0,0,0 script Agit_N04 -1,{ -OnInterIfInitOnce: - donpcevent "::OnRecvCastleN04"; - end; -OnRecvCastleN04: - RequestGuildInfo GetCastleData("nguild_prt",1); - end; -OnAgitStart: - callfunc "F_AgitStart","nguild_prt","N04",197,197; - end; -OnAgitBreak: - callfunc "F_AgitBreak","nguild_prt","N04"; - goto OnAgitEliminate; - end; -OnGuildBreak: - callfunc "F_GuildBreak","nguild_prt","N04"; - end; -OnAgitEliminate: - MapRespawnGuildID "nguild_prt",GetCastleData("nguild_prt",1),6; - Monster "nguild_prt",197,197,"EMPERIUM",1288,1,"Agit_N04::OnAgitBreak"; - end; -OnAgitEnd: - callfunc "F_AgitEnd","nguild_prt","N04"; - end; -} - -// Treasure Spawn Time -//======================================== -- script TreasSpawn -1,{ - end; - -OnClock0005: - callfunc "F_GldTreas","nguild_alde","N01",$boxNumN01,$@bxN01,$@boxIdN01,1324,114,218,123,227,0; - callfunc "F_GldTreas","nguild_gef","N02",$boxNumN02,$@bxN02,$@boxIdN02,1334,150,108,158,114,0; - callfunc "F_GldTreas","nguild_pay","N03",$boxNumN03,$@bxN03,$@boxIdN03,1344,286,4,295,13,0; - callfunc "F_GldTreas","nguild_prt","N04",$boxNumN04,$@bxN04,$@boxIdN04,1354,6,204,15,213,0; - end; -} diff --git a/npc/events/nguild/nguild_flags.txt b/npc/events/nguild/nguild_flags.txt deleted file mode 100644 index 1642c4419..000000000 --- a/npc/events/nguild/nguild_flags.txt +++ /dev/null @@ -1,192 +0,0 @@ -//===== rAthena Script ======================================= -//= War of Emperium N Guild Flags -//===== By: ================================================== -//= kobra_k88 -//===== Current Version: ===================================== -//= 1.3 -//===== Compatible With: ===================================== -//= rAthena 0.1+; RO Episode 4+ -//===== Description: ========================================= -//= WoE flag scripts. Display guild emblems on flags. -//===== Additional Comments: ================================= -// Based off existing guild scripts. Do not know if it is accurate.[kobra_k88] -// 1.1 Inner Flags don't teleport you to your HQ anymore [Lupus] -// 1.2 updated flags to use the new arguments. [L0ne__W0lf] -// 1.3 Guild flag function added. [L0ne_W0lf] -//============================================================ - -/// Flag Function -//============================================================ -function script F_Flags { - set .@GID, GetCastleData(getarg(1),1); - if (getarg(5) == 0) return; - if (.@GID == 0) { - mes " [ Edict of the Divine Rune Midgard Kingdom ]"; - mes " "; - mes "1. Follow the ordinance of The Divine Rune Midgard Kingdom, "; - mes "We declare that"; - mes "there is no formal master of this castle."; - mes " "; - mes "2. To the one who can "; - mes "overcome all trials"; - mes "and destroy the Emperium,"; - mes "the king will endow the one with"; - mes "ownership of this castle."; - return; - } - else { - if (getcharid(2) == .@GID && getarg(4) == 1) { - 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(getarg(1),1)) - warp getarg(1),getarg(2),getarg(3); - } - return; - } - 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."; - return; - } -} - -//============================================================================// -// Castle 1 -//============================================================================// -n_castle,110,96,1 script NGuild Aldebaran#a1-1 722,{ - callfunc "F_Flags","Al De Baran","nguild_alde",218,170,1,1; - close; - -OnRecvCastleN01: - FlagEmblem GetCastleData("nguild_alde",1); - end; -} - -nguild_alde,30,248,4 script NGuild Aldebaran#a1-6::NGuildAlde 722,{ - callfunc "F_Flags","Al De Baran","nguild_alde",218,170,0,1; - close; - -OnRecvCastleN01: - FlagEmblem GetCastleData("nguild_alde",1); - end; -} -// In Castle ============================================ -nguild_alde,30,246,4 duplicate(NGuildAlde) NGuild Aldebaran#a1-7 722 -nguild_alde,37,248,4 duplicate(NGuildAlde) NGuild Aldebaran#a1-8 722 -nguild_alde,37,246,4 duplicate(NGuildAlde) NGuild Aldebaran#a1-9 722 -nguild_alde,95,80,2 duplicate(NGuildAlde) NGuild Aldebaran#a1-10 722 -nguild_alde,95,59,2 duplicate(NGuildAlde) NGuild Aldebaran#a1-11 722 -nguild_alde,62,75,2 duplicate(NGuildAlde) NGuild Aldebaran#a1-12 722 -nguild_alde,70,75,2 duplicate(NGuildAlde) NGuild Aldebaran#a1-13 722 -nguild_alde,74,75,2 duplicate(NGuildAlde) NGuild Aldebaran#a1-14 722 -nguild_alde,62,64,2 duplicate(NGuildAlde) NGuild Aldebaran#a1-15 722 -nguild_alde,66,64,2 duplicate(NGuildAlde) NGuild Aldebaran#a1-16 722 -nguild_alde,70,64,2 duplicate(NGuildAlde) NGuild Aldebaran#a1-17 722 -nguild_alde,74,64,2 duplicate(NGuildAlde) NGuild Aldebaran#a1-18 722 -nguild_alde,203,150,4 duplicate(NGuildAlde) NGuild Aldebaran#a1-19 722 -nguild_alde,210,150,4 duplicate(NGuildAlde) NGuild Aldebaran#a1-20 722 - - - - -//============================================================================// -// Castle 2 -//============================================================================// -n_castle,110,109,3 script NGuild Geffen#g1-1 722,{ - callfunc "F_Flags","Geffen","nguild_gef",83,47,1,1; - close; - -OnRecvCastleN02: - FlagEmblem GetCastleData("nguild_gef",1); - end; -} - -nguild_gef,28,157,4 script NGuild Geffen#g1-6::NGuildGef 722,{ - callfunc "F_Flags","Geffen","nguild_gef",83,47,0,1; - close; - -OnRecvCastleN02: - FlagEmblem GetCastleData("nguild_gef",1); - end; -} -// In Castle ============================================= -nguild_gef,32,157,4 duplicate(NGuildGef) NGuild Geffen#g1-7 722 -nguild_gef,22,156,5 duplicate(NGuildGef) NGuild Geffen#g1-8 722 -nguild_gef,68,185,3 duplicate(NGuildGef) NGuild Geffen#g1-9 722 -nguild_gef,17,171,5 duplicate(NGuildGef) NGuild Geffen#g1-10 722 -nguild_gef,59,16,4 duplicate(NGuildGef) NGuild Geffen#g1-11 722 -nguild_gef,64,16,4 duplicate(NGuildGef) NGuild Geffen#g1-12 722 - - - -//============================================================================// -// Castle 3 -//============================================================================// -n_castle,94,109,5 script NGuild Payon#f1-1 722,{ - callfunc "F_Flags","Payon","nguild_pay",87,29,1,1; - close; - -OnRecvCastleN03: - FlagEmblem GetCastleData("nguild_pay",1); - end; -} - -nguild_pay,238,67,4 script NGuild Payon#f1-6::NGuildPay 722,{ - callfunc "F_Flags","Payon","nguild_pay",87,29,0,1; - close; - -OnRecvCastleN03: - FlagEmblem GetCastleData("nguild_pay",1); - end; -} -// In Castle =============================================== -nguild_pay,238,67,4 duplicate(NGuildPay) NGuild Payon#f1-6 722 -nguild_pay,233,67,4 duplicate(NGuildPay) NGuild Payon#f1-7 722 -nguild_pay,221,123,4 duplicate(NGuildPay) NGuild Payon#f1-8 722 -nguild_pay,221,116,4 duplicate(NGuildPay) NGuild Payon#f1-9 722 -nguild_pay,206,108,4 duplicate(NGuildPay) NGuild Payon#f1-10 722 -nguild_pay,212,108,4 duplicate(NGuildPay) NGuild Payon#f1-11 722 - - - - -//=============================================================================// -// Castle 4 -//=============================================================================// -n_castle,94,96,7 script NGuild Prontera#p1-1 722,{ - callfunc "F_Flags","Prontera","nguild_prt",97,174,1,1; - close; - -OnRecvCastleN04: - FlagEmblem GetCastleData("nguild_prt",1); - end; -} - -nguild_prt,58,56,4 script NGuild Prontera#p1-7::NGuildPrt 722,{ - callfunc "F_Flags","Prontera","nguild_prt",97,174,0,1; - close; - -OnRecvCastleN04: - FlagEmblem GetCastleData("nguild_prt",1); - end; -} -// In Castle ============================================= -nguild_prt,64,56,4 duplicate(NGuildPrt) NGuild Prontera#p1-8 722 -nguild_prt,76,32,4 duplicate(NGuildPrt) NGuild Prontera#p1-9 722 -nguild_prt,84,32,4 duplicate(NGuildPrt) NGuild Prontera#p1-10 722 -nguild_prt,94,39,4 duplicate(NGuildPrt) NGuild Prontera#p1-11 722 -nguild_prt,94,24,4 duplicate(NGuildPrt) NGuild Prontera#p1-12 722 -nguild_prt,73,14,4 duplicate(NGuildPrt) NGuild Prontera#p1-13 722 -nguild_prt,73,6,4 duplicate(NGuildPrt) NGuild Prontera#p1-14 722 -nguild_prt,55,46,4 duplicate(NGuildPrt) NGuild Prontera#p1-15 722 -nguild_prt,45,46,4 duplicate(NGuildPrt) NGuild Prontera#p1-16 722 diff --git a/npc/events/nguild/nguild_guardians.txt b/npc/events/nguild/nguild_guardians.txt deleted file mode 100644 index 299c3a380..000000000 --- a/npc/events/nguild/nguild_guardians.txt +++ /dev/null @@ -1,89 +0,0 @@ -//===== rAthena Script ======================================= -//= War of Emperium - nguild guardians script -//===== By: ================================================== -//= kobra_k88 -//===== Current Version: ===================================== -//= 1.0 -//===== Compatible With: ===================================== -//= rAthena 0.1+; RO Episode 4+ -//===== Description: ========================================= -//= Re-spawns guardians on server start if they have been -//= purchased. Also announces when a guardian dies. -//===== Additional Comments: ================================= -//= Based off existing guild scripts. Do not know if it is accurate.[kobra_k88] -//============================================================ - - -//------------------------------------------------------------------------------ -nguild_alde,216,24,0 script Guardian_N01 -1,{ -OnAgitInit: - if (GetCastleData("nguild_alde",10) == 1) guardian "nguild_alde",18,219,"Soldier Guardian",1287,"Guardian_N01::OnGuardianDied",0; - if (GetCastleData("nguild_alde",11) == 1) guardian "nguild_alde",117,42,"Soldier Guardian",1287,"Guardian_N01::OnGuardianDied",1; - if (GetCastleData("nguild_alde",12) == 1) guardian "nguild_alde",207,153,"Soldier Guardian",1287,"Guardian_N01::OnGuardianDied",2; - if (GetCastleData("nguild_alde",13) == 1) guardian "nguild_alde",68,70,"Archer Guardian",1285,"Guardian_N01::OnGuardianDied",3; - if (GetCastleData("nguild_alde",14) == 1) guardian "nguild_alde",187,140,"Archer Guardian",1285,"Guardian_N01::OnGuardianDied",4; - if (GetCastleData("nguild_alde",15) == 1) guardian "nguild_alde",62,204,"Knight Guardian",1286,"Guardian_N01::OnGuardianDied",5; - if (GetCastleData("nguild_alde",16) == 1) guardian "nguild_alde",113,100,"Knight Guardian",1286,"Guardian_N01::OnGuardianDied",6; - if (GetCastleData("nguild_alde",17) == 1) guardian "nguild_alde",211,174,"Knight Guardian",1286,"Guardian_N01::OnGuardianDied",7; - end; - -OnGuardianDied: - // Event when Guardian dies - MapAnnounce "nguild_alde","A Guardian Has Fallen",17; - end; -} - -//------------------------------------------------------------------------------ -nguild_gef,198,182,0 script Guardian_N02 -1,{ -OnAgitInit: - if (GetCastleData("nguild_gef",10) == 1) guardian "nguild_gef",30,178,"Soldier Guardian",1287,"Guardian_N02::OnGuardianDied",0; - if (GetCastleData("nguild_gef",11) == 1) guardian "nguild_gef",64,180,"Soldier Guardian",1287,"Guardian_N02::OnGuardianDied",1; - if (GetCastleData("nguild_gef",12) == 1) guardian "nguild_gef",61,25,"Soldier Guardian",1287,"Guardian_N02::OnGuardianDied",2; - if (GetCastleData("nguild_gef",13) == 1) guardian "nguild_gef",61,44,"Archer Guardian",1285,"Guardian_N02::OnGuardianDied",3; - if (GetCastleData("nguild_gef",14) == 1) guardian "nguild_gef",189,43,"Archer Guardian",1285,"Guardian_N02::OnGuardianDied",4; - if (GetCastleData("nguild_gef",15) == 1) guardian "nguild_gef",51,192,"Knight Guardian",1286,"Guardian_N02::OnGuardianDied",5; - if (GetCastleData("nguild_gef",16) == 1) guardian "nguild_gef",49,67,"Knight Guardian",1286,"Guardian_N02::OnGuardianDied",6; - if (GetCastleData("nguild_gef",17) == 1) guardian "nguild_gef",181,14,"Knight Guardian",1286,"Guardian_N02::OnGuardianDied",7; - end; - -OnGuardianDied: - // Event when Guardian dies - MapAnnounce "nguild_gef","A Guardian Has Fallen",17; - end; -} -//------------------------------------------------------------------------------ -nguild_pay,139,139,0 script Guardian_N03 -1,{ -OnAgitInit: - if (GetCastleData("nguild_pay",10) == 1) guardian "nguild_pay",210,120,"Soldier Guardian",1287,"Guardian_N03::OnGuardianDied",0; - if (GetCastleData("nguild_pay",11) == 1) guardian "nguild_pay",69,26,"Soldier Guardian",1287,"Guardian_N03::OnGuardianDied",1; - if (GetCastleData("nguild_pay",12) == 1) guardian "nguild_pay",23,141,"Soldier Guardian",1287,"Guardian_N03::OnGuardianDied",2; - if (GetCastleData("nguild_pay",13) == 1) guardian "nguild_pay",224,87,"Archer Guardian",1285,"Guardian_N03::OnGuardianDied",3; - if (GetCastleData("nguild_pay",14) == 1) guardian "nguild_pay",81,45,"Archer Guardian",1285,"Guardian_N03::OnGuardianDied",4; - if (GetCastleData("nguild_pay",15) == 1) guardian "nguild_pay",214,53,"Knight Guardian",1286,"Guardian_N03::OnGuardianDied",5; - if (GetCastleData("nguild_pay",16) == 1) guardian "nguild_pay",69,26,"Knight Guardian",1286,"Guardian_N03::OnGuardianDied",6; - if (GetCastleData("nguild_pay",17) == 1) guardian "nguild_pay",23,141,"Knight Guardian",1286,"Guardian_N03::OnGuardianDied",7; - end; - -OnGuardianDied: - // Event when Guardian dies - MapAnnounce "nguild_pay","A Guardian Has Fallen",17; - end; -} -//------------------------------------------------------------------------------ -nguild_prt,197,197,0 script Guardian_N04 -1,{ -OnAgitInit: - if (GetCastleData("nguild_prt",10) == 1) guardian "nguild_prt",196,92,"Soldier Guardian",1287,"Guardian_N04::OnGuardianDied",0; - if (GetCastleData("nguild_prt",11) == 1) guardian "nguild_prt",113,200,"Soldier Guardian",1287,"Guardian_N04::OnGuardianDied",1; - if (GetCastleData("nguild_prt",12) == 1) guardian "nguild_prt",111,186,"Soldier Guardian",1287,"Guardian_N04::OnGuardianDied",2; - if (GetCastleData("nguild_prt",13) == 1) guardian "nguild_prt",76,202,"Archer Guardian",1285,"Guardian_N04::OnGuardianDied",3; - if (GetCastleData("nguild_prt",14) == 1) guardian "nguild_prt",90,26,"Archer Guardian",1285,"Guardian_N04::OnGuardianDied",4; - if (GetCastleData("nguild_prt",15) == 1) guardian "nguild_prt",58,59,"Knight Guardian",1286,"Guardian_N04::OnGuardianDied",5; - if (GetCastleData("nguild_prt",16) == 1) guardian "nguild_prt",112,200,"Knight Guardian",1286,"Guardian_N04::OnGuardianDied",6; - if (GetCastleData("nguild_prt",17) == 1) guardian "nguild_prt",101,194,"Knight Guardian",1286,"Guardian_N04::OnGuardianDied",7; - end; - -OnGuardianDied: - // Event when Guardian dies - MapAnnounce "nguild_prt","A Guardian Has Fallen",17; - end; -} diff --git a/npc/events/nguild/nguild_kafras.txt b/npc/events/nguild/nguild_kafras.txt deleted file mode 100644 index a4bd7ff01..000000000 --- a/npc/events/nguild/nguild_kafras.txt +++ /dev/null @@ -1,71 +0,0 @@ -//===== rAthena Script ======================================= -//= War of Emperium Kafras for N Guild Castles -//===== By: ================================================== -//= kobra_k88 -//===== Current Version: ===================================== -//= 1.2 -//===== Compatible With: ===================================== -//= rAthena 0.1+; RO Episode 5+ -//===== Description: ========================================= -//= Provides Kafra services for guild members of NGuild Castles. -//= Used in conjuction with function F_Kafra. -//===== Additional Comments: ================================= -//= Based off existing guild scripts. Do not know if it is accurate.[kobra_k88] -//= 1.1 All N Guild Kafras teleport to Prontera only! [Lupus] -//= 1.2 Added Kafra function. [L0ne_W0lf] -//============================================================ - - -function script F_GKafra { - cutin "kafra_01",2; - set @GID, GetCastleData(getarg(0),1); - if (getcharid(2) == @GID && getgdskilllv(@GID,10001)) goto L_StartG; - - mes "[Kafra Service]"; - mes "I am contracted to provide service only for the ^ff0000" + GetGuildName(@GID) + "^000000 Guild. Please use another Kafra Corporation staff member around here. I am Sorry for your inconvenience."; - cutin "",255; - close; -L_StartG: - set @wrpP[0], 200; - set @wrpD$[0], getarg(1); - setarray @wrpC$[0], @wrpD$[0]+" ^880000"+@wrpP[0]+"^000000 z", "Cancel", "", "", "",""; - callfunc "F_Kafra",2,0,0,0,800; - end; -} - -// Castle 1 =============================================== -nguild_alde,218,170,0 script Kafra Service#N01 117,{ - callfunc "F_GKafra", "nguild_alde", "Prontera"; - end; -OnRecvCastleN01: - if (GetCastleData("nguild_alde",9) < 1) disablenpc "Kafra Service#N01"; - end; -} - -// Castle 2 =============================================== -//nguild_gef,96,173,0 script Kafra Service#N02 117,{ -nguild_gef,35,37,0 script Kafra Service#N02 117,{ - callfunc "F_GKafra", "nguild_gef", "Prontera"; - end; -OnRecvCastleN02: - if (GetCastleData("nguild_gef",9) < 1) disablenpc "Kafra Service#N02"; - end; -} - -// Castle 3 =============================================== -nguild_pay,128,58,3 script Kafra Service#N03 117,{ - callfunc "F_GKafra", "nguild_pay", "Prontera"; - end; -OnRecvCastleN03: - if (GetCastleData("nguild_pay",9) < 1) disablenpc "Kafra Service#N03"; - end; -} - -// Castle 4 =============================================== -nguild_prt,96,173,0 script Kafra Service#N04 117,{ - callfunc "F_GKafra", "nguild_prt", "Prontera"; - end; -OnRecvCastleN04: - if (GetCastleData("nguild_prt",9) < 1) disablenpc "Kafra Service#N04"; - end; -} diff --git a/npc/events/nguild/nguild_managers.txt b/npc/events/nguild/nguild_managers.txt deleted file mode 100644 index 7d5bf52ff..000000000 --- a/npc/events/nguild/nguild_managers.txt +++ /dev/null @@ -1,174 +0,0 @@ -//===== rAthena Script ======================================= -//= War of Emperium Managers for N Guild Castles -//===== By: ================================================== -//= kobra_k88 -//===== Current Version: ===================================== -//= 1.2 -//===== Compatible With: ===================================== -//= rAthena 0.1+; RO Episode 4+ -//===== Description: ========================================= -//= -//============================================== -//= Break down of arguments used in the function: -//= arg(0): name of Castle Manager -//= arg(1): name of guild castle. -//= arg(2): x1 coordinate for warp to treasure room -//= arg(3): y1 coordinate for warp to treasure room -//= arg(4): guild script suffix for kafra, etc. -//===== Additional Comments: ================================= -//= 1.0 Based off existing guild scripts. Do not know if it is accurate.[kobra_k88] -//= 1.1 Added modified guild manager function. [L0ne_W0lf] -//= Removed guardian summoning. -//= 1.2 Corrected function name. (bugreport:1728) [L0ne_W0lf] -//============================================================ - -//============================================== -function script F_GldManager { - - set @GID, GetCastleData(getarg(1),1); - mes "[ "+getarg(0)+" ]"; - if (@GID == 0){ - mes "I am waiting for my master. Brave adventurer, follow your destiny!"; - return; - } - if (getcharid(2) != @GID){ - mes "I am here to follow ^5533FF" + getguildmaster(@GID) + "^000000's command! Hey! Your not even a part of the guild!!"; - mes "Where are the guardians? Destroy these intruders!"; - return; - } - if (strcharinfo(0) != getguildmaster(@GID)){ - mes "You're not ^5533FF" + getguildmaster(@GID) + "^000000! I am here to follow ^5533FF" + getguildmaster(@GID) + "^000000's command only"; - return 0; - } - - mes "Welcome Master ^5533FF" + getguildmaster(@GID) + "^000000 ! I will assist you in any way I can!"; - next; - - menu "Kafra Staff Employment / Dismissal",M_Kaf, "Enter Treasure Room",M_Treas, "Cancel",M_End; - - //=========================== - M_Kaf: - //====== - mes "[ "+getarg(0)+" ]"; - if (GetCastleData(getarg(1),9) == 1) goto L_Dismiss; - if (getgdskilllv(@GID,10001) == 0){ - mes "Master, you don't have a contract with the Kafra Staff Company."; - mes "In order to hire a Kafra, you must first learn the Guild skill ^5533FFContract With Kafra^000000."; - return; - } - - L_Hire: - mes "Would you like to employ the services of a Kafra? You will need ^5533FF10,000 Zeny^000000 to do so... "; - next; - menu "Employ Kafra.",-,"Cancel",sM_KafEnd; - - mes "[ "+getarg(0)+" ]"; - if (Zeny < 10000){ - mes "Master, you do not have enough money to employ a Kafra. Employment has been cancelled."; - return; - } - set Zeny,Zeny-10000; - enablenpc "Kafra Staff#"+getarg(4); - SetCastleData getarg(1),9,1; - mes "You have created a contract with the Kafra Staff Company."; - next; - cutin "kafra_01",2; - mes "[ Kafra Staff ]"; - mes "How do you do? I'm here to provide you with helpful service! I'll do the best I can to serve you."; - next; - cutin "kafra_01",255; - mes "[ "+getarg(0)+" ]"; - //mes "Your employment contract lasts ^5533FF1 month^000000. After this term is over you will have to create a new contract."; - mes "I think the Kafra Staff will benefit our guild members."; - return; - - sM_KafEnd: - mes "[ "+getarg(0)+" ]"; - mes "As you wish Master. But I suggest we get a Kafra as soon as possible!"; - return; - - L_Dismiss: - mes "Would you like to dismiss the current Kafra?"; - next; - menu "Dismissal",-,"Cancel",sM_KafEnd2; - - cutin "kafra_01",2; - mes "[ Kafra Staff ]"; - mes "Have I done anything wrong? If I did, will you please forgive me?"; - next; - menu "Dismiss",-,"Cancel",ssM_KafEnd2; - - mes "[ Kafra Staff ]"; - mes "It's unfortunate that I won't be able to serve your guild anymore...."; - next; - disablenpc "Kafra Staff#"+getarg(4); - SetCastleData getarg(1),9,0; - cutin "kafra_01",255; - mes "[ "+getarg(0)+" ]"; - mes "The Kafra has been dismissed. But... we should really get a Kafra as soon as possible!"; - return; - ssM_KafEnd2: - mes "[ Kafra Staff ]"; - mes "Thank you master, I'll do my best! ^^."; - cutin "kafra_01",255; - return; - sM_KafEnd2: - mes "[ "+getarg(0)+" ]"; - mes "Master, I think you should keep the current Kafra Staff because she is already trying her best to serve us"; - return; - - //========================= - M_Treas: - //======== - mes "[ "+getarg(0)+" ]"; - mes "Would you to go to our Treasure Room? Only you, the Guild Master, are allowed to enter this room."; - next; - menu "Enter Treasure room.",-,"Cancel",sM_TresEnd; - - mes "[ "+getarg(0)+" ]"; - mes "Please follow me through the secret passage way."; - mes "You must pull down on the secret switch in order to get out."; - next; - warp getarg(1),getarg(2),getarg(3); - return; - sM_TresEnd: - mes "[ "+getarg(0)+" ]"; - mes "The goods are produced everyday."; - mes "You should get them whenever you can because they might dissapear if you take them at the wrong time."; - return; - - - //========================== - M_End: - //======= - mes "[ "+getarg(0)+" ]"; - mes "As you wish, master."; - return; -} - -// Castle 1 ================================================================================== -nguild_alde,218,175,0 script Frolo 55,{ - callfunc "F_GldManager","Frolo","nguild_alde",119,223,"N01"; - close; -} - - -// Castle 2 ================================================================================== -nguild_gef,40,48,5 script Leiber 55,{ - callfunc "F_GldManager","Leiber","nguild_gef",155,112,"N02"; - close; -} - - -// Castle 3 ================================================================================== -nguild_pay,120,58,4 script Dundar 55,{ - callfunc "F_GldManager","Dundar","nguild_pay",290,7,"N03"; - close; -} - - -// Castle 4 ================================================================================== -nguild_prt,112,181,0 script Thefton 55,{ - callfunc "F_GldManager","Thefton","nguild_prt",15,209,"N04"; - close; -} diff --git a/npc/events/nguild/nguild_treas.txt b/npc/events/nguild/nguild_treas.txt deleted file mode 100644 index 1fc8cbaf9..000000000 --- a/npc/events/nguild/nguild_treas.txt +++ /dev/null @@ -1,167 +0,0 @@ -//===== rAthena Script ======================================= -//= War of Emperium Treasure Rooms for NGuild Guild Castles -//===== By: ================================================== -//= kobra_k88 -//===== Current Version: ===================================== -//= 1.3b -//===== Compatible With: ===================================== -//= rAthena 0.1+; RO Episode 4+ -//===== Description: ========================================= -//= -//===== Additional Comments: ================================= -//= Based off existing guild scripts. Do not know if it is accurate.[kobra_k88] -//= 1.2 Official treasure spawn [Lupus] -//= 1.3 Added F_GldTreas function. (bugreport:1788) [L0ne_W0lf] -//= 1.3b Added F_GldTreasSw function. (bugreport:3292) [brianluau] -//============================================================ - - -//================================================ -// Treasure Spawning Function -//================================================ -function script F_GldTreas { - if(getarg(10) != 1) { - setcastledata getarg(0),4,0; - setcastledata getarg(0),5,0; - - // Why on earth are we killing old treasure chest spawns? - //killmonster getarg(0),"Treasure_"+getarg(1)+"::OnDied"; - - // Don't spawn treasures if Castle is empty, or Eco is greater than 100 - if(GetCastleData(getarg(0),2) > 100 || GetCastleData(getarg(0),1) == 0) return; - - // Only spawn one treasure chest for novice castles. - if (compare(getarg(0),"nguild")) - set getarg(2),1; - else - set getarg(2),GetCastleData(getarg(0),2)/5+4; - - if (getarg(2) <= 0) return; - - //sets the counter variable = to the box number amount - set getarg(3), getarg(2); - } - for (set .@i,1; .@i <= getarg(3) ; set .@i,.@i+1) { - // set treasure box ID - set getarg(4), getarg(5) + (.@i+1) % 2; - areamonster getarg(0),getarg(6),getarg(7),getarg(8),getarg(9),"Treasure Chest",getarg(4),1,"Treasure_"+getarg(1)+"::OnDied"; - } - return; -} - -//============================================================== -// Treasure Room Switch -//=============================================================== -function script F_GldTreasSw { - mes " "; - mes "There's a small lever. Will you pull it?"; - next; - - if (select("Pull.:Do not.") == 1) { - warp getarg(0),getarg(1),getarg(2); - return; - } - close; -} - -//<=============================== Castle 1 =================================>\\ - -// Treasure Spawn ----------------------- -nguild_alde,1,1,1 script Treasure_N01 -1,{ - -OnRecvCastleN01: - end; -OnInit: - if($boxNumN01 == 0) end; - set $@bxN01, $boxNumN01; - callfunc "F_GldTreas","nguild_alde","N01",$boxNumN01,$@bxN01,$@boxIdN01,1324+rand(10),114,218,123,227,1; - end; - -OnDied: - mapannounce "nguild_alde","Treasure Chest Broken Open",17; - set $boxNumN01, $boxNumN01 -1; - if($boxNumN01 == 0) mapannounce "nguild_alde", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0; - end; -} - -// Treasure Room Switch -------------------- -nguild_alde,123,223,0 script Switch#TresN01 111,{ - callfunc "F_GldTreasSw", "nguild_alde",218,176; - end; -} - -//<================================ Castle 2 ================================>\\ - -// Treasure Spawn ---------------------------- -nguild_gef,1,1,1 script Treasure_N02 -1,{ - -OnRecvCastleN02: - end; -OnInit: - if($boxNumN02 == 0) end; - set $@bxN02, $boxNumN02; - callfunc "F_GldTreas","nguild_gef","N02",$boxNumN02,$@bxN02,$@boxIdN02,1334+rand(10),150,108,158,114,1; - end; - -OnDied: - mapannounce "nguild_gef","Treasure Chest Broken Open",17; - set $boxNumN02, $boxNumN02 -1; - if($boxNumN02 == 0) mapannounce "nguild_gef", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0; - end; -} - -// Room Switch --------------------------------------------------------- -nguild_gef,152,117,0 script Switch#TresN02 111,{ - callfunc "F_GldTreasSw","nguild_gef",40,49; - end; -} - -//<================================ Castle 3 ================================>\\ - -// Treasure Spawn --------------------------- -nguild_pay,1,1,0 script Treasure_N03 -1,{ -OnRecvCastleN03: - end; -OnInit: - if($boxNumN03 == 0) end; - set $@bxN03, $boxNumN03; - callfunc "F_GldTreas","nguild_pay","N03",$boxNumN03,$@bxN03,$@boxIdN03,1344+rand(10),286,4,295,13,1; - end; - -OnDied: - mapannounce "nguild_pay","Treasure Chest Broken Open",17; - set $boxNumN03, $boxNumN03 -1; - if($boxNumN03 == 0) mapannounce "nguild_pay", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0; - end; -} - -// Treasure Room Switch --------------------------------------------------- -nguild_pay,295,8,0 script Switch#TresN03 111,{ - callfunc "F_GldTreasSw", "nguild_pay",120,59; - end; -} - -//<================================ Castle 4 ================================>\\ - -// Treasure Spawn ------------------------------- -nguild_prt,1,1,0 script Treasure_N04 -1,{ -OnRecvCastleN04: - end; -OnInit: - if($boxNumN04 == 0) end; - set $@bxN04, $boxNumN04; - callfunc "F_GldTreas","nguild_prt","N04",$boxNumN04,$@bxN04,$@boxIdN04,1354+rand(10),6,204,15,213,1; - end; - -OnDied: - mapannounce "nguild_prt","Treasure Chest Broken Open",17; - set $boxNumN04, $boxNumN04 -1; - if($boxNumN04 == 0) mapannounce "nguild_prt", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0; - end; -} - -// Treasure Room Switch ---------------------------------------------------- -nguild_prt,15,209,0 script Switch#TresN04 111,{ - callfunc "F_GldTreasSw", "nguild_prt",109,179; - end; -} diff --git a/npc/events/nguild/nguild_warper.txt b/npc/events/nguild/nguild_warper.txt deleted file mode 100644 index 41d51ca59..000000000 --- a/npc/events/nguild/nguild_warper.txt +++ /dev/null @@ -1,111 +0,0 @@ -//===== rAthena Script ======================================= -//= Novice's Guild Castles War of Emperium Usher NPC -//===== By: ================================================== -//= Lupus -//===== Current Version: ===================================== -//= 1.7 -//===== Compatible With: ===================================== -//= rAthena 1+ with eaclass(); RO Episode 4+ -//===== Description: ========================================= -//= -//===== Additional Comments: ================================= -//= Now you have access to 4 N Guild castles. They don't have -//= dungeons. And 2nd Classes can't seize these Castles. -//= These new castles need a new strategy. It would bring some -//= fun and live to your game. -//= NOTE: If your Guild Master is 2nd class, then he could -//= rule the Castles and gather Treasure Boxes after WoE -//= 1.1 Now 2nd classes can't enter NC place at all -//= 1.2 Restricted access of SG/SL. On warp clear some -//= unallowed buffs [Lupus] -//= 1.3 Restricted TK,High classes >=90 BaseLevel, -//= updated list of unallowed buffs [Lupus] -//= 1.4 Restricted it to 80 Base Level [Lupus] -//= 1.5 According to official info: 1 Treasure Chest per Castle -//= 1.6 Only 1st Class < 60 BaseLevel Players can participate -//= 1.7 Guilds with Emergency Call or with 9+ skill points -//= can't take part in NWoE. [Lupus] -//= TODO: The official entrance is in Izlude. -//============================================================ - - -prontera,146,163,6 script Novice Castles 729,{ - mes "[Cita]"; - if(getcharid(2)!=0){ - if(getgdskilllv(getcharid(2),10013)){ - mes "I see... your guild has Emergency Call mastered."; - mes "You cannot enter the Novice Castle area."; - emotion e_hmm; - emotion e_wah,1; - close; - } - if( - getgdskilllv(getcharid(2),10000) + - getgdskilllv(getcharid(2),10001) + - getgdskilllv(getcharid(2),10002) + - getgdskilllv(getcharid(2),10003) + - getgdskilllv(getcharid(2),10004) + - getgdskilllv(getcharid(2),10005) + - getgdskilllv(getcharid(2),10006) + - getgdskilllv(getcharid(2),10007) + - getgdskilllv(getcharid(2),10008) + - getgdskilllv(getcharid(2),10009) + - getgdskilllv(getcharid(2),10010) + - getgdskilllv(getcharid(2),10011) + - getgdskilllv(getcharid(2),10012) + - getgdskilllv(getcharid(2),10013) + - getgdskilllv(getcharid(2),10014) > 9 - ){ - mes "I see... your guild has Emergency Call mastered."; - mes "You cannot enter the Novice Castle area."; - emotion e_hmm; - emotion e_wah,1; - close; - } - } else { - mes "^FF0000You have to enter a guild to be able to hit Emperium!^000000"; - } - mes "I'm a new usher of Novice Castles."; - next; - if( !(eaclass()&(EAJL_2|EAJL_UPPER)) && BaseLevel<60 ) - menu "Warp me to Novice Castles",M_WARP,"Cancel",-; - - mes "[Cita]"; - mes "I'm sorry, you can't enter the sacred Novice Castles place."; - emotion e_sry; - close; - -M_WARP: - //remove several unallowed buffs - sc_end SC_ASSUMPTIO; - sc_end SC_IMPOSITIO; - sc_end SC_SUFFRAGIUM; - sc_end SC_MAGNIFICAT; - sc_end SC_WEAPONPERFECTION; - sc_end SC_GOSPEL; - sc_end SC_BASILICA; - sc_end SC_MAGICPOWER; - sc_end SC_MARIONETTE; - sc_end SC_MARIONETTE2; - sc_end SC_DEVOTION; - sc_end SC_SACRIFICE; - sc_end SC_MAXOVERTHRUST; - sc_end SC_SPIRIT; - warp "n_castle",102,93+rand(14); - close; -} - - -n_castle,102,107,5 script Cita 729,{ - mes "[Cita]"; - mes "Hello, "+ strcharinfo(0) +". Can I help you?"; - next; - menu "Warp me to Prontera!",-,"Cancel",LEnd; - - warp "prontera",155,177+rand(5); - close; - LEnd: - mes "[Cita]"; - mes "Ok."; - close; -} -- cgit v1.2.3-60-g2f50