029-5 is now a map which causes diseases. Mitigates slime mother farming.

HP > 70%: Bleeding
HP > 40%: Poison
HP < 00%: Deadly Poison

PS. Formula likely wrong.

1 files changed, 40 insertions, 0 deletions

diff --git a/npc/functions/dungeon.txt b/npc/functions/dungeon.txt
index 1b3f29f2f..ef0bcc08e 100644
--- a/npc/functions/dungeon.txt
+++ b/npc/functions/dungeon.txt
@@ -11,6 +11,7 @@
 OnInit:
     setarray .heatmap$, "007-2";
     setarray .cursemap$, "006-4", "006-4-1", "025-1";
+    setarray .sickmap$, "029-5";
     end;
 
 /////////////////////////////////////////
@@ -75,10 +76,49 @@ OnCurse:
     end;
 }
 
+/////////////////////////////////////////
+// Heartbeat for Disease effects
+OnSick:
+    // Did you left?
+    .@i=array_find(.sickmap$, getmap());
+    if (.@i < 0) {
+        @sick$="";
+        end;
+    }
+
+    // First time seeing this
+    if (@sick$ != getmap()) {
+        @sick$=getmap();
+        dispbottom l("This map contains poisonous class and may cause diseases.");
+    }
+
+    // The effect is based on HP
+    if (MaxHp*7/10 > Hp)
+        .@eff = SC_BLOODING;
+    else if (MaxHp*4/10 > Hp)
+        .@eff = SC_POISON;
+    else
+        .@eff = SC_DPOISON;
+
+    // You are in a SICKMAP$, so suffer damage from disease
+    if (@sickio > gettimetick(2)) {
+        heal -50, 0;
+    } else {
+        heal -rand2(50, 200), 0;
+        SC_Bonus(10, .@eff, 1);
+    }
+
+    // New tick (10 seconds fixed cycle)
+    addtimer2 10000, .name$+"::OnSick";
+    end;
+
+
+
 //////////////////////////////
 007-2	mapflag	nosave	007-1,99,189
 006-4	mapflag	nosave	006-3,54,36
 006-4-1	mapflag	nosave	006-3,54,36
+029-5	mapflag	nosave	029-4,21,97