From dc898d64d3dc02b9c2954eb208562e983b097300 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Tue, 3 Jul 2018 02:09:15 -0300
Subject: Add a draft space for First Party Dungeon, and TODOs. I'm going to
 sleep now, have things to study too...

---
 npc/008-0/master.txt | 32 ++++++++++++++++++++++++++------
 1 file changed, 26 insertions(+), 6 deletions(-)

(limited to 'npc/008-0')

diff --git a/npc/008-0/master.txt b/npc/008-0/master.txt
index 94aeb148d..be216f8d5 100644
--- a/npc/008-0/master.txt
+++ b/npc/008-0/master.txt
@@ -2,7 +2,7 @@
 // Author:
 //  Jesusalva
 // Description:
-//  This NPC serves no purpose currently. She is here to make Tulimshar more crowded.
+//  This NPC is a work on progress. It measures all players equal.
 
 008-0,47,63,0	script	Party Master	NPC_BRGUARD_SWORD,{
     mesn;
@@ -17,6 +17,7 @@
     mesn;
     mesq l("I protect a very dangerous dungeon, and it is so dangerous, that only parties can go in.");
     next;
+    // TODO allow to go there if party leader is inside
     if (strcharinfo(0) != getpartyleader(getcharid(1))) goto L_NotYou;
     mesn;
     mesq l("There are five floors, and they're all very dangerous. But there are riches to be found.");
@@ -52,9 +53,15 @@
     // How many are logged in and here?
     if (.@count_online < 3 && !$@GM_OVERRIDE) goto L_TooSmall;
 
+    // TODO: Query if exp sharing is enabled
+    // TODO: Instance for party
+
     // Warp everyone and add timers
     partytimer("008-0", 1000, "Party Master::OnStart", getcharid(1));
-    warpparty("003-1", 41, 48, getcharid(1), "008-0", true);
+    warpparty("008-1", 176, 20, getcharid(1), "008-0", true);
+
+    // TODO: Monsters
+    monster("008-1", 90, 69, "Time Bonus", Scorpion, 1, "Party Master::OnAddTime");
     close;
 
 L_NotYou:
@@ -70,10 +77,23 @@ L_TooSmall:
 OnStart:
     @pmloop=0;
 OnLoop:
-    @pmloop+=1;
-    if (@pmloop < 1500)
-        addtimer(1000, "Party Master::OnLoop");
-    close;
+    if (getmapname() ~= "008-*") {
+        @pmloop+=1;
+        if (@pmloop < 1500) {
+            addtimer(1000, "Party Master::OnLoop");
+        } else {
+            warp "008-0", 47, 64;
+            dispbottom l("You ran out of time...");
+        }
+    } else {
+        @pmloop=0;
+    }
+    end;
+
+// TODO: We must use areatimer() and grant time bonus to everyone who killed it
+OnAddTime:
+    @pmloop=60;
+    end;
 
 OnInit:
     .sex = G_MALE;
-- 
cgit v1.2.3-60-g2f50