From a5785771fd4a6d439a9ebb55576127455ca373b7 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Wed, 8 May 2019 15:38:01 -0300
Subject: New summon: Fairy Kingdom

---
 npc/magic/fairykingdom.txt | 59 ++++++++++++++++++++++++++++++++++++++++++++++
 npc/scripts.conf           |  1 +
 2 files changed, 60 insertions(+)
 create mode 100644 npc/magic/fairykingdom.txt

(limited to 'npc')

diff --git a/npc/magic/fairykingdom.txt b/npc/magic/fairykingdom.txt
new file mode 100644
index 000000000..3490ab823
--- /dev/null
+++ b/npc/magic/fairykingdom.txt
@@ -0,0 +1,59 @@
+// TMW2 script
+// Author: Jesusalva <admin@tmw2.org>
+//
+// Magic Script: TMW2_FAIRYKINGDOM
+//
+// Summons snakes (mountain snakes if GHQ was completed and enough skill)
+
+-	script	sk#fairykingdom	32767,{
+    end;
+
+OnCall:
+    // Other requeriments: 1x Fluo Powder
+    if (countitem(FluoPowder) < 1) {
+        dispbottom l("You need 1x @@ to cast this skill.", getitemlink(FluoPowder));
+        end;
+    }
+
+    // Check cooldown
+    if (@fairykingdom_at > gettimetick(2)) {
+        dispbottom l("Skill is in cooldown for @@.", FuzzyTime(@fairykingdom_at));
+        end;
+    }
+
+    // Setup
+    @sk=TMW2_FAIRYKINGDOM;
+    @mp=400;
+    @amp=42;
+
+    // Check if you have mana to cast
+    // MagicCheck(SkillID, Mana{, MP per level})
+    if (!MagicCheck(@sk, @mp, @amp))
+        end;
+
+    // Destroy reagents
+    delitem FluoPowder, 1;
+
+    // set cooldown
+    @fairykingdom_at=gettimetick(2);
+    @fairykingdom_at=@fairykingdom_at+47-abizit();
+
+    // As usual, magic profeciency affects success ratio
+    if (rand(1,6) < abizit()+1) {
+        .@mobId=any(FireFairy, EarthFairy, WaterFairy, WindFairy, PoisonFairy);
+        // 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));
+
+    end;
+
+OnInit:
+    bindatcmd "sk-fairykingdom", "sk#fairykingdom::OnCall", 0, 100, 0;
+    end;
+}
diff --git a/npc/scripts.conf b/npc/scripts.conf
index 1be772346..e725a1393 100644
--- a/npc/scripts.conf
+++ b/npc/scripts.conf
@@ -101,6 +101,7 @@
 // Magic Commands
 "npc/magic/demure.txt",
 "npc/magic/dragokin.txt",
+"npc/magic/fairykingdom.txt",
 "npc/magic/halhiss.txt",
 "npc/magic/kalmurk.txt",
 "npc/magic/kalwulf.txt",
-- 
cgit v1.2.3-60-g2f50