1 files changed, 51 insertions, 0 deletions
diff --git a/npc/magic/kalmurk.txt b/npc/magic/kalmurk.txt
new file mode 100644
index 000000000..761b28c53
--- /dev/null
+++ b/npc/magic/kalmurk.txt
@@ -0,0 +1,51 @@
+// TMW2 script
+// Author: Jesusalva <admin@tmw2.org>
+//
+// Magic Script: TMW2_KALMURK
+// 
+// Spawns Maggots.
+
+
+-	script	sk#kalmurk	32767,{
+    end;
+
+/*
+OnFriendlyDeath:
+    emote 4;
+    end;
+*/
+
+OnCall:
+    // Other requeriments
+    if (countitem(MaggotSlime) < 2) {
+        dispbottom l("You need 2x @@ to cast this skill.", getitemlink(MaggotSlime));
+        end;
+    }
+
+    // Check cooldown
+    /* TODO */
+    // This will only vanish upon logout =/
+    if (@kalmurk_caveat) {
+        dispbottom l("Skill is in cooldown.");
+        end;
+    }
+
+    // Summon Magic
+    // SummonMagic( SkillID, Mana, MobID{, MP per level, MobPerSkillLevel=2} )
+    SummonMagic(TMW2_KALMURK, 200, Maggot, 50, 2);
+    delitem MaggotSlime, 2;
+
+    // Get a single mana experience point (this is NOT used by Soul Menhir)
+    GetManaExp(TMW2_KALMURK, 1);
+
+    /*
+    // set cooldown
+    @skkalmurkor_cooldown=gettimetick(2)+20;
+    */
+    @kalmurk_caveat=1;
+    end;
+
+OnInit:
+    bindatcmd "sk-kalmurk", "sk#kalmurk::OnCall", 0, 100, 0;
+    end;
+}