From ec2d2fbae03b7436d05a98175aaf85576a155397 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Mon, 21 Oct 2019 14:47:25 -0300
Subject: halhiss now makes use of the new magical system

---
 npc/functions/hub.txt | 10 ++++++++++
 npc/magic/halhiss.txt | 50 ++------------------------------------------------
 2 files changed, 12 insertions(+), 48 deletions(-)

(limited to 'npc')

diff --git a/npc/functions/hub.txt b/npc/functions/hub.txt
index 50f22b33c..d6b597a42 100644
--- a/npc/functions/hub.txt
+++ b/npc/functions/hub.txt
@@ -205,6 +205,16 @@ function	script	HUB_SkillInvoke	{
         case TMW2_LIMERIZER:
             SK_summon(any(GreenSlime,AzulSlime,RedSlime,AngryYellowSlime), 2, any(3,4));
             break;
+        case TMW2_HALHISS:
+            .@mobId=Snake;
+            if (abizit() > 3 &&
+                GHMEMO[GHQ_GetQuestIDByMonsterID(MountainSnake)] >= 10000 &&
+                rand2(1,3) == 2)
+            {
+                .@mobId=MountainSnake;        
+            }
+            SK_summon(.@mobId, 2, 4, any(3,4));
+            break;
     }
 
     // Debug
diff --git a/npc/magic/halhiss.txt b/npc/magic/halhiss.txt
index e497d8826..96ac5292d 100644
--- a/npc/magic/halhiss.txt
+++ b/npc/magic/halhiss.txt
@@ -9,54 +9,8 @@
     end;
 
 OnCall:
-    // Other requeriments: 20x Maggot Slime
-    if (countitem(SnakeEgg) < 1) {
-        dispbottom l("You need 1x @@ to cast this skill.", getitemlink(SnakeEgg));
-        end;
-    }
-
-    // Check cooldown
-    if (@halhiss_at > gettimetick(2)) {
-        dispbottom l("Skill is in cooldown for @@.", FuzzyTime(@halhiss_at));
-        end;
-    }
-
-    // Setup
-    @sk=TMW2_HALHISS;
-    @mp=35;
-    @amp=6;
-
-    // Check if you have mana to cast
-    // MagicCheck(SkillID, Mana{, MP per level})
-    if (!MagicCheck(@sk, @mp, @amp))
-        end;
-
-    // Destroy reagents
-    delitem SnakeEgg, 1;
-
-    // set cooldown
-    @halhiss_at=gettimetick(2);
-    @halhiss_at=@halhiss_at+44;
-
-    // As usual, magic profeciency affects success ratio
-    if (rand(1,4) < abizit()+1) {
-        .@mobId=Snake;
-        if (abizit() > 3 &&
-            GHMEMO[GHQ_GetQuestIDByMonsterID(MountainSnake)] >= 10000 &&
-            rand(1,3) == 2)
-        {
-            .@mobId=MountainSnake;        
-        }
-        // 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 3~4 mana experience point (this is NOT used by Mana Stone)
-    GetManaExp(@sk, rand(3,4));
-
+    // Deprecated
+    dispbottom l("The usage of @sk-commands was deprecated");
     end;
 
 OnInit:
-- 
cgit v1.2.3-60-g2f50