Register four new summoning skills for Sagratha

4 files changed, 235 insertions, 0 deletions

diff --git a/npc/magic/cuteheart.txt b/npc/magic/cuteheart.txt
new file mode 100644
index 000000000..d273feb31
--- /dev/null
+++ b/npc/magic/cuteheart.txt
@@ -0,0 +1,59 @@
+// TMW2 script
+// Author: Jesusalva <admin@tmw2.org>
+//
+// Magic Script: TMW2_CUTEHEART
+//
+// Summons mouboo
+
+-	script	sk#cuteheart	32767,{
+    end;
+
+OnCall:
+    // Other requeriments: 1x WhiteFur
+    if (countitem(WhiteFur) < 1) {
+        dispbottom l("You need 1x @@ to cast this skill.", getitemlink(WhiteFur));
+        end;
+    }
+
+    // Check cooldown
+    if (@cuteheart_at > gettimetick(2)) {
+        dispbottom l("Skill is in cooldown for @@.", FuzzyTime(@cuteheart_at));
+        end;
+    }
+
+    // Setup
+    @sk=TMW2_CUTEHEART;
+    @mp=235;
+    @amp=45;
+
+    // Check if you have mana to cast
+    // MagicCheck(SkillID, Mana{, MP per level})
+    if (!MagicCheck(@sk, @mp, @amp))
+        end;
+
+    // Destroy reagents
+    delitem WhiteFur, 1;
+
+    // set cooldown
+    @cuteheart_at=gettimetick(2);
+    @cuteheart_at=@cuteheart_at+44;
+
+    // As usual, magic profeciency affects success ratio
+    if (rand(1,6) < abizit()+1) {
+        .@mobId=Fluffy;
+        // 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));
+
+    end;
+
+OnInit:
+    bindatcmd "sk-cuteheart", "sk#cuteheart::OnCall", 0, 100, 0;
+    end;
+}
diff --git a/npc/magic/kalboo.txt b/npc/magic/kalboo.txt
new file mode 100644
index 000000000..6956cdc2a
--- /dev/null
+++ b/npc/magic/kalboo.txt
@@ -0,0 +1,59 @@
+// TMW2 script
+// Author: Jesusalva <admin@tmw2.org>
+//
+// Magic Script: TMW2_KALBOO
+//
+// Summons mouboo
+
+-	script	sk#kalboo	32767,{
+    end;
+
+OnCall:
+    // Other requeriments: 1x MoubooFigurine
+    if (countitem(MoubooFigurine) < 1) {
+        dispbottom l("You need 1x @@ to cast this skill.", getitemlink(MoubooFigurine));
+        end;
+    }
+
+    // Check cooldown
+    if (@kalboo_at > gettimetick(2)) {
+        dispbottom l("Skill is in cooldown for @@.", FuzzyTime(@kalboo_at));
+        end;
+    }
+
+    // Setup
+    @sk=TMW2_KALBOO;
+    @mp=250;
+    @amp=55;
+
+    // Check if you have mana to cast
+    // MagicCheck(SkillID, Mana{, MP per level})
+    if (!MagicCheck(@sk, @mp, @amp))
+        end;
+
+    // Destroy reagents
+    delitem MoubooFigurine, 1;
+
+    // set cooldown
+    @kalboo_at=gettimetick(2);
+    @kalboo_at=@kalboo_at+44;
+
+    // As usual, magic profeciency affects success ratio
+    if (rand(1,6) < abizit()+1) {
+        .@mobId=Mouboo;
+        // 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));
+
+    end;
+
+OnInit:
+    bindatcmd "sk-kalboo", "sk#kalboo::OnCall", 0, 100, 0;
+    end;
+}
diff --git a/npc/magic/kalspike.txt b/npc/magic/kalspike.txt
new file mode 100644
index 000000000..f3d07c32c
--- /dev/null
+++ b/npc/magic/kalspike.txt
@@ -0,0 +1,59 @@
+// TMW2 script
+// Author: Jesusalva <admin@tmw2.org>
+//
+// Magic Script: TMW2_KALSPIKE
+//
+// Summons mouboo
+
+-	script	sk#kalspike	32767,{
+    end;
+
+OnCall:
+    // Other requeriments: 1x MushroomSpores
+    if (countitem(MushroomSpores) < 1) {
+        dispbottom l("You need 1x @@ to cast this skill.", getitemlink(MushroomSpores));
+        end;
+    }
+
+    // Check cooldown
+    if (@kalspike_at > gettimetick(2)) {
+        dispbottom l("Skill is in cooldown for @@.", FuzzyTime(@kalspike_at));
+        end;
+    }
+
+    // Setup
+    @sk=TMW2_KALSPIKE;
+    @mp=250;
+    @amp=55;
+
+    // Check if you have mana to cast
+    // MagicCheck(SkillID, Mana{, MP per level})
+    if (!MagicCheck(@sk, @mp, @amp))
+        end;
+
+    // Destroy reagents
+    delitem MushroomSpores, 1;
+
+    // set cooldown
+    @kalspike_at=gettimetick(2);
+    @kalspike_at=@kalspike_at+44;
+
+    // As usual, magic profeciency affects success ratio
+    if (rand(1,6) < abizit()+1) {
+        .@mobId=PoisonSpikyMushroom;
+        // 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));
+
+    end;
+
+OnInit:
+    bindatcmd "sk-kalspike", "sk#kalspike::OnCall", 0, 100, 0;
+    end;
+}
diff --git a/npc/magic/plantkingdom.txt b/npc/magic/plantkingdom.txt
new file mode 100644
index 000000000..4afa8e010
--- /dev/null
+++ b/npc/magic/plantkingdom.txt
@@ -0,0 +1,58 @@
+// TMW2 script
+// Author: Jesusalva <admin@tmw2.org>
+//
+// Magic Script: TMW2_PLANTKINGDOM
+//
+// Summons plants
+
+-	script	sk#plantkingdom	32767,{
+    end;
+
+OnCall:
+    // Other requeriments: 2x Root
+    if (countitem(Root) < 2) {
+        dispbottom l("You need 2x @@ to cast this skill.", getitemlink(Root));
+        end;
+    }
+
+    // Check cooldown
+    if (@plantkingdom_at > gettimetick(2)) {
+        dispbottom l("Skill is in cooldown for @@.", FuzzyTime(@plantkingdom_at));
+        end;
+    }
+
+    // Setup
+    @sk=TMW2_PLANTKINGDOM;
+    @mp=300;
+    @amp=30;
+
+    // Check if you have mana to cast
+    // MagicCheck(SkillID, Mana{, MP per level})
+    if (!MagicCheck(@sk, @mp, @amp))
+        end;
+
+    // Destroy reagents
+    delitem Root, 2;
+
+    // set cooldown
+    @plantkingdom_at=gettimetick(2);
+    @plantkingdom_at=@plantkingdom_at+54;
+
+    // As usual, magic profeciency affects
+    if (rand(1,6) < abizit()+1) {
+        // Summon Magic
+        // SummonMagic(SkillID, MobID{, SkillLevelPerMob=2{, Level Override}})
+        SummonMagic(@sk, any(ShadowPlant, AlizarinPlant, CobaltPlant, MauvePlant, GambogePlant, PlushroomField, ChagashroomField, AlizarinPlant, CobaltPlant, MauvePlant, GambogePlant), 2, 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-plantkingdom", "sk#plantkingdom::OnCall", 0, 100, 0;
+    end;
+}