From 7ec7411f6e631d69a3b2e1286d1e069138c3c860 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Tue, 28 Jul 2020 22:49:17 -0300
Subject: Heat waves and the Volcano B1F

---
 npc/functions/dungeon.txt | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 npc/functions/dungeon.txt

(limited to 'npc/functions/dungeon.txt')

diff --git a/npc/functions/dungeon.txt b/npc/functions/dungeon.txt
new file mode 100644
index 000000000..0e83bed49
--- /dev/null
+++ b/npc/functions/dungeon.txt
@@ -0,0 +1,35 @@
+// TMW2 Script
+// Authors:
+//    Jesusalva
+// Description:
+//    Dungeon utilities
+
+-	script	#DungeonCore	NPC_HIDDEN,{
+    end;
+
+// Main initialization
+OnInit:
+    setarray .heatmap$, "007-2";
+    end;
+
+// Heartbeat for Heat effects
+OnHeat:
+    // Did you left?
+    .@i=array_find(.heatmap$, getmap());
+    if (.@i < 0) {
+        @heat$="";
+        end;
+    }
+
+    // First time seeing this
+    if (@heat$ != getmap()) {
+        @heat$=getmap();
+        dispbottom l("This is a hot map, you're suffering damage over time.");
+    }
+
+    // You are in a HEATMAP$, so suffer damage from heat
+    percentheal -5, 0;
+    addtimer2 5000, .name$+"::OnHeat";
+    end;
+}
+
-- 
cgit v1.2.3-70-g09d2