diff options
Diffstat (limited to 'npc/guild/old/treasure/prtg_cas04_treasure.txt')
| -rw-r--r-- | npc/guild/old/treasure/prtg_cas04_treasure.txt | 132 |
1 files changed, 66 insertions, 66 deletions
diff --git a/npc/guild/old/treasure/prtg_cas04_treasure.txt b/npc/guild/old/treasure/prtg_cas04_treasure.txt index ee5dbcc16..a4890dc38 100644 --- a/npc/guild/old/treasure/prtg_cas04_treasure.txt +++ b/npc/guild/old/treasure/prtg_cas04_treasure.txt @@ -1,67 +1,67 @@ -//===== eAthena Script =======================================
-//= War of Emperium - prtg_cas04 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_cas04
-//===== Additional Comments: =================================
-//= 1.1 by Akaru and ho|yAnge|X
-//============================================================
-
-//================================================
-// Exit Treasure Room Switch
-//================================================
-prtg_cas04.gat,275,160,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_cas04.gat",259,265;
-
-L2:
- close;
-}
-
-//================================================
-// Treasure Spawning Script
-//================================================
-prtg_cas04.gat,271,162,0 script Treasure_D04 -1,{
-OnClock1200:
- SetCastleData "prtg_cas04.gat",4,0;
- SetCastleData "prtg_cas04.gat",5,0;
- KillMonster "prtg_cas04.gat","Treasure_D04::TreasureDied";
- set $Economy18,GetCastleData("prtg_cas04.gat",2);
- if ($Economy18 > 100) break;
- if (GetCastleData("prtg_cas04.gat",1) == 0) break;
- set $boxnum18,GetCastleData("prtg_cas04.gat",2)/5+4;
- goto TreasureCheck;
-
-TreasureCheck:
- if ($boxnum18 <= 0) break;
- set $boxid18,rand(4);
- goto TreasureSpawn;
-
-TreasureSpawn:
- if ($boxid18 > 2) goto TreasureSpawn2;
- areamonster "prtg_cas04.gat",266,158,275,167,"Treasure Chest",1360,1,"Treasure_D04::TreasureDied";
- set $boxnum18,$boxnum18-1;
- if ($boxnum18 <= 0) break;
- goto TreasureCheck;
-
-TreasureSpawn2:
- areamonster "prtg_cas04.gat",266,158,275,167,"Treasure Chest",1361,1,"Treasure_D04::TreasureDied";
- set $boxnum18,$boxnum18-1;
- if ($boxnum18 <= 0) break;
- goto TreasureCheck;
-
-TreasureDied:
- MapAnnounce "prtg_cas04.gat","Treasure Chest Broken Open",17;
- break;
+//===== eAthena Script ======================================= +//= War of Emperium - prtg_cas04 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_cas04 +//===== Additional Comments: ================================= +//= 1.1 by Akaru and ho|yAnge|X +//============================================================ + +//================================================ +// Exit Treasure Room Switch +//================================================ +prtg_cas04.gat,275,160,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_cas04.gat",259,265; + +L2: + close; +} + +//================================================ +// Treasure Spawning Script +//================================================ +prtg_cas04.gat,271,162,0 script Treasure_D04 -1,{ +OnClock1200: + SetCastleData "prtg_cas04.gat",4,0; + SetCastleData "prtg_cas04.gat",5,0; + KillMonster "prtg_cas04.gat","Treasure_D04::TreasureDied"; + set $Economy18,GetCastleData("prtg_cas04.gat",2); + if ($Economy18 > 100) break; + if (GetCastleData("prtg_cas04.gat",1) == 0) break; + set $boxnum18,GetCastleData("prtg_cas04.gat",2)/5+4; + goto TreasureCheck; + +TreasureCheck: + if ($boxnum18 <= 0) break; + set $boxid18,rand(4); + goto TreasureSpawn; + +TreasureSpawn: + if ($boxid18 > 2) goto TreasureSpawn2; + areamonster "prtg_cas04.gat",266,158,275,167,"Treasure Chest",1360,1,"Treasure_D04::TreasureDied"; + set $boxnum18,$boxnum18-1; + if ($boxnum18 <= 0) break; + goto TreasureCheck; + +TreasureSpawn2: + areamonster "prtg_cas04.gat",266,158,275,167,"Treasure Chest",1361,1,"Treasure_D04::TreasureDied"; + set $boxnum18,$boxnum18-1; + if ($boxnum18 <= 0) break; + goto TreasureCheck; + +TreasureDied: + MapAnnounce "prtg_cas04.gat","Treasure Chest Broken Open",17; + break; }
\ No newline at end of file |