Dragokin: Use new system

1 files changed, 4 insertions, 27 deletions

diff --git a/npc/magic/dragokin.txt b/npc/magic/dragokin.txt
index cfcc2ef44..544859cce 100644
--- a/npc/magic/dragokin.txt
+++ b/npc/magic/dragokin.txt
@@ -7,22 +7,13 @@
 //
 // Cooldown is cast duration
 
--	script	sk#dragokin	32767,{
-    end;
-
-OnCall:
+function	script	SK_Dragokin	{
     // Other requeriments: 5x Dragon Scale or Demure Axe
     if (!(countitem(DragonScales) >= 4 || countitem(DemureAxe))) {
         dispbottom l("You need 4x @@ to cast this skill.", getitemlink(DragonScales));
         end;
     }
 
-    // Check cooldown
-    if (@dragokin_at > gettimetick(2)) {
-        dispbottom l("Skill is in cooldown for @@.", FuzzyTime(@dragokin_at));
-        end;
-    }
-
     // Setup
     @sk=TMW2_DRAGOKIN;
     @mp=50;
@@ -41,21 +32,7 @@ OnCall:
     @dragokin_at=gettimetick(2);
     @dragokin_at=@dragokin_at+16;
 
-    // As usual, magic profeciency affects
-    if (rand(1,6) < abizit()+1) {
-        // Summon Magic
-        // SummonMagic(SkillID, MobID{, SkillLevelPerMob=2{, Level Override}})
-        SummonMagic(@sk, GreenDragon, 5, MAGIC_LVL+getskilllv(@sk)-1);
-    } else {
-        dispbottom l("The spell fails!");
-    }
-
-    // Get five mana experience point (this is NOT used by Mana Stone)
-    GetManaExp(@sk, 5);
-
-    end;
-
-OnInit:
-    bindatcmd "sk-dragokin", "sk#dragokin::OnCall", 0, 100, 0;
-    end;
+    // Summon the dragons and give Mana EXP
+    SK_summon(GreenDragon, 5, 5);
+    return;
 }