diff options
Diffstat (limited to 'npc/guild/old/treasure/prtg_cas01_treasure.txt')
| -rw-r--r-- | npc/guild/old/treasure/prtg_cas01_treasure.txt | 144 |
1 files changed, 72 insertions, 72 deletions
diff --git a/npc/guild/old/treasure/prtg_cas01_treasure.txt b/npc/guild/old/treasure/prtg_cas01_treasure.txt index 64ac99730..1595c8a57 100644 --- a/npc/guild/old/treasure/prtg_cas01_treasure.txt +++ b/npc/guild/old/treasure/prtg_cas01_treasure.txt @@ -1,72 +1,72 @@ -//===== eAthena Script =======================================
-//= War of Emperium - prtg_cas01 Treasure Room Script
-//===== By: ==================================================
-//= holyAngelX (1.0)
-//===== Current Version: =====================================
-//= 1.1
-//===== Compatible With: =====================================
-//= eAthena 0.1+; RO Episode 4+
-//===== Description: =========================================
-//= Treasure Room Script in prtg_cas01
-//===== Additional Comments: =================================
-//= 1.1 by Akaru and ho|yAnge|X
-//============================================================
-
-//================================================
-// Exit Treasure Room Switch
-//================================================
-prtg_cas01.gat,15,209,0 script Switch 111,{
- mes " ";
- mes "There is little switch over here";
- mes "Would you like to pull the switch down?";
- next;
- menu "Yes",L1,"No",L2;
-
-L1:
- warp "prtg_cas01.gat",112,183;
-
-L2:
- close;
-}
-
-//================================================
-// Treasure Spawning Script
-//================================================
-prtg_cas01.gat,11,208,0 script Treasure_D01 -1,{
-OnClock1200:
- SetCastleData "prtg_cas01.gat",4,0;
- SetCastleData "prtg_cas01.gat",5,0;
- KillMonster "prtg_cas01.gat","Treasure_D01::TreasureDied";
- set $Economy15,GetCastleData("prtg_cas01.gat",2);
- if ($Economy15 > 100) break;
- if (GetCastleData("prtg_cas01.gat",1) == 0) break;
- set $boxnum15,GetCastleData("prtg_cas01.gat",2)/5+4;
- goto TreasureCheck;
-
-TreasureCheck:
- if ($boxnum15 <= 0) break;
- set $boxid15,rand(4);
- goto TreasureSpawn;
-
-TreasureSpawn:
- if ($boxid15 > 2) goto TreasureSpawn2;
- areamonster "prtg_cas01.gat",6,204,15,213,"Treasure Chest",1354,1,"Treasure_D01::TreasureDied";
- set $boxnum15,$boxnum15-1;
- if ($boxnum15 <= 0) break;
- goto TreasureCheck;
-
-TreasureSpawn2:
- areamonster "prtg_cas01.gat",6,204,15,213,"Treasure Chest",1355,1,"Treasure_D01::TreasureDied";
- set $boxnum15,$boxnum15-1;
- if ($boxnum15 <= 0) break;
- goto TreasureCheck;
-
-TreasureDied:
- MapAnnounce "prtg_cas01.gat","Treasure Chest Broken Open",17;
- break;
-
-Rehash:
- set $boxid15,1324;
- areamonster "prtg_cas01.gat",6,204,15,213,"Treasure Chest",$boxid15,$boxnum15,"Treasure_D01::TreasureDied";
- break;
-}
+//===== eAthena Script ======================================= +//= War of Emperium - prtg_cas01 Treasure Room Script +//===== By: ================================================== +//= holyAngelX (1.0) +//===== Current Version: ===================================== +//= 1.1 +//===== Compatible With: ===================================== +//= eAthena 0.1+; RO Episode 4+ +//===== Description: ========================================= +//= Treasure Room Script in prtg_cas01 +//===== Additional Comments: ================================= +//= 1.1 by Akaru and ho|yAnge|X +//============================================================ + +//================================================ +// Exit Treasure Room Switch +//================================================ +prtg_cas01.gat,15,209,0 script Switch 111,{ + mes " "; + mes "There is little switch over here"; + mes "Would you like to pull the switch down?"; + next; + menu "Yes",L1,"No",L2; + +L1: + warp "prtg_cas01.gat",112,183; + +L2: + close; +} + +//================================================ +// Treasure Spawning Script +//================================================ +prtg_cas01.gat,11,208,0 script Treasure_D01 -1,{ +OnClock1200: + SetCastleData "prtg_cas01.gat",4,0; + SetCastleData "prtg_cas01.gat",5,0; + KillMonster "prtg_cas01.gat","Treasure_D01::TreasureDied"; + set $Economy15,GetCastleData("prtg_cas01.gat",2); + if ($Economy15 > 100) break; + if (GetCastleData("prtg_cas01.gat",1) == 0) break; + set $boxnum15,GetCastleData("prtg_cas01.gat",2)/5+4; + goto TreasureCheck; + +TreasureCheck: + if ($boxnum15 <= 0) break; + set $boxid15,rand(4); + goto TreasureSpawn; + +TreasureSpawn: + if ($boxid15 > 2) goto TreasureSpawn2; + areamonster "prtg_cas01.gat",6,204,15,213,"Treasure Chest",1354,1,"Treasure_D01::TreasureDied"; + set $boxnum15,$boxnum15-1; + if ($boxnum15 <= 0) break; + goto TreasureCheck; + +TreasureSpawn2: + areamonster "prtg_cas01.gat",6,204,15,213,"Treasure Chest",1355,1,"Treasure_D01::TreasureDied"; + set $boxnum15,$boxnum15-1; + if ($boxnum15 <= 0) break; + goto TreasureCheck; + +TreasureDied: + MapAnnounce "prtg_cas01.gat","Treasure Chest Broken Open",17; + break; + +Rehash: + set $boxid15,1324; + areamonster "prtg_cas01.gat",6,204,15,213,"Treasure Chest",$boxid15,$boxnum15,"Treasure_D01::TreasureDied"; + break; +} |