From b9d13e8d1d9a675c84b1422152a320f56233352c Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Fri, 26 Jun 2020 01:44:26 -0300
Subject: Summoning when blacklisted will, for the first time, cause nature to
 fight you Later attempts will silently fail.

---
 npc/config/magic.txt | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

(limited to 'npc/config')

diff --git a/npc/config/magic.txt b/npc/config/magic.txt
index 81c23de5f..675f36e42 100644
--- a/npc/config/magic.txt
+++ b/npc/config/magic.txt
@@ -185,6 +185,21 @@ function	script	ShowAbizit	{
 }
 
 
+// alignment_cansummon()
+function	script	alignment_cansummon	{
+    if (alignment() < 0 && !isequippedcnt(AegisShield)) {
+        if (!@hatesummon) {
+            dispbottom l("Nature itself express hate against you!");
+            getmapxy(.@m$, .@x, .@y, 0);
+            .@opo=monster(.@m$, .@x, .@y, "Failed summon", .@mob, 1);
+            unitattack(.@opo, getcharid(3));
+            @hatesummon=true;
+        }
+        return false;
+    }
+    return true;
+}
+
 // SK_summon(ID, amount, mexp)
 function	script	SK_summon	{
     .@mob=getarg(0);
@@ -193,7 +208,7 @@ function	script	SK_summon	{
     if ($@GM_OVERRIDE || debug) debugmes "Skill "+@skillId+" Lv "+@skillLv;
 
     // Blocked from summoning magic
-    if (alignment() < 0 && !isequippedcnt(AegisShield))
+    if (!alignment_cansummon())
         return;
 
     if (rand2(5) < abizit()) {
-- 
cgit v1.2.3-70-g09d2