From a22f523b8eedb27dd0a5d0d85124079588ff9431 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sun, 16 Feb 2020 12:21:35 -0300
Subject: Stoneheart - Deprecate @sk-command, merge with other magiscripts

---
 npc/functions/hub.txt    | 43 ++++++++++++++++++++++++++++---------------
 npc/magic/stoneheart.txt | 48 ++----------------------------------------------
 2 files changed, 30 insertions(+), 61 deletions(-)

(limited to 'npc')

diff --git a/npc/functions/hub.txt b/npc/functions/hub.txt
index 0d0c297ac..fbb024f10 100644
--- a/npc/functions/hub.txt
+++ b/npc/functions/hub.txt
@@ -211,18 +211,35 @@ function	script	HUB_SkillInvoke	{
         //case TMW2_SPEECH:
             UserCtrlPanel();
             break;
-        case TMW2_ZARKOR:
-            SK_zarkor();
-            break;
         case TMW2_PARUM:
             SK_parum();
             break;
+        // Highly complex summons
+        case TMW2_ZARKOR:
+            SK_zarkor();
+            break;
+        // Less complex summons
         case TMW2_KALMURK:
             SK_summon(Maggot, 2, any(1,2));
             break;
+        case TMW2_KALWULF:
+            SK_summon(Wolvern, 4, any(3,4));
+            break;
+        case TMW2_KALBOO:
+            SK_summon(Mouboo, 4, any(2,3));
+            break;
+        case TMW2_KALSPIKE:
+            SK_summon(PoisonSpikyMushroom, 4, any(2,3));
+            break;
+        // Slightly more complex summons
         case TMW2_LIMERIZER:
             SK_summon(any(GreenSlime,AzulSlime,RedSlime,AngryYellowSlime), 2, any(3,4));
             break;
+        case TMW2_FAIRYKINGDOM:
+            // TODO: Allow Pixie summoning
+            SK_summon(any(FireFairy, EarthFairy, WaterFairy, WindFairy, PoisonFairy), 4, any(3,4));
+            break;
+        // More complex summons
         case TMW2_HALHISS:
             .@mobId=Snake;
             if (abizit() > 3 &&
@@ -233,18 +250,14 @@ function	script	HUB_SkillInvoke	{
             }
             SK_summon(.@mobId, 4, any(3,4));
             break;
-        case TMW2_KALWULF:
-            SK_summon(Wolvern, 4, any(3,4));
-            break;
-        case TMW2_FAIRYKINGDOM:
-            // TODO: Allow Pixie summoning
-            SK_summon(any(FireFairy, EarthFairy, WaterFairy, WindFairy, PoisonFairy), 4, any(3,4));
-            break;
-        case TMW2_KALBOO:
-            SK_summon(Mouboo, 4, any(2,3));
-            break;
-        case TMW2_KALSPIKE:
-            SK_summon(PoisonSpikyMushroom, 4, any(2,3));
+        case TMW2_STONEHEART:
+            .@mobId=Terranite;
+            if (rand2(9,12) < (abizit()*2)+1 &&
+                BaseLevel > 80)
+            {
+                .@mobId=TerraniteProtector;
+            }
+            SK_summon(.@mobId, 4, any(4,5));
             break;
 
         // Special exception
diff --git a/npc/magic/stoneheart.txt b/npc/magic/stoneheart.txt
index 192067c19..5273f0327 100644
--- a/npc/magic/stoneheart.txt
+++ b/npc/magic/stoneheart.txt
@@ -9,52 +9,8 @@
     end;
 
 OnCall:
-    // Other requeriments: 1x Terranite Ore
-    if (countitem(TerraniteOre) < 1) {
-        dispbottom l("You need 1x @@ to cast this skill.", getitemlink(TerraniteOre));
-        end;
-    }
-
-    // Check cooldown
-    if (@stoneheart_at > gettimetick(2)) {
-        dispbottom l("Skill is in cooldown for @@.", FuzzyTime(@stoneheart_at));
-        end;
-    }
-
-    // Setup
-    @sk=TMW2_STONEHEART;
-    @mp=47;
-    @amp=5;
-
-    // Check if you have mana to cast
-    // MagicCheck(SkillID, Mana{, MP per level})
-    if (!MagicCheck(@sk, @mp, @amp))
-        end;
-
-    // Destroy reagents
-    delitem TerraniteOre, 1;
-
-    // set cooldown
-    @stoneheart_at=gettimetick(2);
-    @stoneheart_at=@stoneheart_at+44;
-
-    // As usual, magic profeciency affects success ratio
-    if (rand(1,6) < abizit()+1) {
-        .@mobId=Terranite;
-        if (rand(9,12) < (abizit()*2)+1 && BaseLevel > 80)
-        {
-            .@mobId=TerraniteProtector;       
-        }
-        // Summon Magic
-        // SummonMagic(SkillID, MobID{, SkillLevelPerMob=2{, Level Override}})
-        SummonMagic(@sk, .@mobId, 4, MAGIC_LVL+getskilllv(@sk)-1);
-    } else {
-        dispbottom l("The spell fails!");
-    }
-
-    // Get 4~5 mana experience point (this is NOT used by Mana Stone)
-    GetManaExp(@sk, rand(4,5));
-
+    // Deprecated
+    dispbottom l("The usage of @sk-commands was deprecated");
     end;
 
 OnInit:
-- 
cgit v1.2.3-70-g09d2