Mana Magic System corrections

2 files changed, 7 insertions, 5 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);
 
diff --git a/npc/magic/parum.txt b/npc/magic/parum.txt
index 535ca3ef6..9e1cc0994 100644
--- a/npc/magic/parum.txt
+++ b/npc/magic/parum.txt
@@ -45,7 +45,7 @@ OnCall:
     if (.@r < 42-(MAGIC_EXP/2)) {
         getitem WarpedLog, 1;
     } else {
-        if (.@r > 30)
+        if (.@r > 30+abizit())
             getitem MoubooFigurine, 1;
         else if (.@r > 20 && MAGIC_EXP > 82)
             getitem WoodenLog, 1;