From 408b323da151252b9173762a1759cfecdbda7d8b Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sun, 17 Jan 2021 01:53:31 -0300
Subject: Fortress Gate had been incorrectly not configured to scale. It now
 scales, +8000 HP per successful attempt

---
 npc/025-1/ctrl.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/npc/025-1/ctrl.c b/npc/025-1/ctrl.c
index 327d0cc58..f8f197ae4 100644
--- a/npc/025-1/ctrl.c
+++ b/npc/025-1/ctrl.c
@@ -88,6 +88,7 @@ function	script	FTStatue	{
 
     // Break the statues?
     mesc l("Break the Statue?"), 1;
+    mesc l("* Will be stun you for 10 seconds!");
     next;
     if (askyesno() == ASK_YES) {
         if ($@FORTRESS_STATUE & .@id)
@@ -174,7 +175,11 @@ function	script	FTStatue	{
     $@FORTRESS_STATUE=2048;
 
     // Spawn the gate
-    monster("025-1", 99, 113, strmobinfo(1, FortressGate), FortressGate, 1, "Gate#F::OnSesame");
+    .@g=monster("025-1", 99, 113, strmobinfo(1, FortressGate), FortressGate, 1, "Gate#F::OnSesame");
+    .@bhp=getunitdata(.@g, UDT_MAXHP);
+    .@bhp=.@bhp*(25+$MK_TEMPVAR)/25; // +4% per success or 8,000 HP
+    setunitdata(.@g, UDT_MAXHP, .@bhp);
+    setunitdata(.@g, UDT_HP,    .@bhp);
 
     // Initial defending waves
     spawnCore(true);
-- 
cgit v1.2.3-70-g09d2