Heat waves and the Volcano B1F

1 files changed, 35 insertions, 0 deletions

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;
+}
+