Mana Magic System corrections

1 files changed, 6 insertions, 4 deletions

diff --git a/npc/magic/kalmurk.txt b/npc/magic/kalmurk.txt
index 98905c448..aea4fde5e 100644
--- a/npc/magic/kalmurk.txt
+++ b/npc/magic/kalmurk.txt
@@ -38,10 +38,6 @@ OnCall:
     if (!MagicCheck(@sk, @mp, @amp))
         end;
 
-    // Summon Magic
-    // SummonMagic(SkillID, MobID{, MobPerSkillLevel=2{, Level Override}})
-    SummonMagic(@sk, Maggot, 2, abizit()+getskilllv(@sk));
-
     // Destroy reagents
     delitem MaggotSlime, 2;
 
@@ -49,6 +45,12 @@ OnCall:
     @kalmurk_at=gettimetick(2);
     @kalmurk_at=@kalmurk_at+16;
 
+    if (rand(0,5) < abizit()+1) {
+        // Summon Magic
+        // SummonMagic(SkillID, MobID{, MobPerSkillLevel=2{, Level Override}})
+        SummonMagic(@sk, Maggot, 2, MAGIC_LVL+getskilllv(@sk));
+    }
+
     // Get a single mana experience point (this is NOT used by Soul Menhir)
     GetManaExp(@sk, abizit()+1);