From 93edb8df66108774739fa48d954a3c363ea327d0 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sun, 2 Oct 2022 01:41:11 -0300
Subject: Fix a bug on summoning when disallowed to (PS. Aegis Shield overrides
 alignment!)

---
 npc/config/magic.txt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/npc/config/magic.txt b/npc/config/magic.txt
index e47392e9e..ed6a8dbc7 100644
--- a/npc/config/magic.txt
+++ b/npc/config/magic.txt
@@ -246,9 +246,11 @@ function	script	alignment_cansummon	{
         if (!@hatesummon) {
             dispbottom l("Nature itself express hate against you!");
             getmapxy(.@m$, .@x, .@y, 0);
-            // FIXME: .@mob is or may be undefined
-            .@opo=monster(.@m$, .@x, .@y, "Failed summon", .@mob, 1);
+            // NOTE: .@mob is or may be undefined, so use EntAbomination
+            .@opo=monster(.@m$, .@x, .@y, "Failed summon", EntAbomination, 1);
             unitattack(.@opo, getcharid(3));
+            setunitdata(.@opo, UDT_MAXHP, BaseLevel*140);
+            setunitdata(.@opo, UDT_HP,    BaseLevel*140);
             @hatesummon=true;
         }
         return false;
-- 
cgit v1.2.3-60-g2f50