summaryrefslogtreecommitdiff
path: root/npc/pre-re/events/nguild/nguild_treas.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/pre-re/events/nguild/nguild_treas.txt')
-rw-r--r--npc/pre-re/events/nguild/nguild_treas.txt167
1 files changed, 0 insertions, 167 deletions
diff --git a/npc/pre-re/events/nguild/nguild_treas.txt b/npc/pre-re/events/nguild/nguild_treas.txt
deleted file mode 100644
index 1fc8cbaf9..000000000
--- a/npc/pre-re/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;
-}