From c01ee518f81d117b92ac69f634c50e42f69eafe4 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Wed, 7 Aug 2019 19:48:52 -0300
Subject: Replace makepot with Transmigration/Transmutation general spell
 (TODO/WIP)

---
 npc/magic/mkpot.txt          | 70 --------------------------------------------
 npc/magic/transmigration.txt | 62 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 62 insertions(+), 70 deletions(-)
 delete mode 100644 npc/magic/mkpot.txt
 create mode 100644 npc/magic/transmigration.txt

(limited to 'npc/magic')

diff --git a/npc/magic/mkpot.txt b/npc/magic/mkpot.txt
deleted file mode 100644
index 576de7ebc..000000000
--- a/npc/magic/mkpot.txt
+++ /dev/null
@@ -1,70 +0,0 @@
-// TMW2 script
-// Author: Jesusalva <admin@tmw2.org>
-//
-// Magic Script: TMW2_MKPOT
-//
-// Attempts to make a haste potion from Mouboo Milk and Plushroom.
-// May make sewer water on failure.
-// TODO: Using too much transmutation magic may have dire consequences! Like, uh, transmutating your head!
-// Nah, it is probably just propaganda... I hope. ¬.¬
-
--	script	sk#mkpot	32767,{
-    end;
-
-/*
-OnFriendlyDeath:
-    emote 4;
-    end;
-*/
-
-OnCall:
-    // Other requeriments
-    if (countitem(Plushroom) < 10 || !countitem(Milk)) {
-        dispbottom l("You need @@ @@ and @@ to cast this skill.", 10, getitemlink(Plushroom), getitemlink(Milk));
-        end;
-    }
-
-    // Check cooldown
-    if (@mkpot_at > gettimetick(2)) {
-        dispbottom l("Skill is in cooldown for @@.", FuzzyTime(@mkpot_at));
-        end;
-    }
-
-    // Check requisites
-    if (!MagicCheck(TMW2_MKPOT, 185, -5))
-        end;
-
-    // Consume items
-    delitem Plushroom, 10;
-    delitem Milk, 1;
-
-    // Create the stuff based on MAGIC_EXP
-    // The closer to zero, best;
-    // Each 3 mexp reduces chance to get a fail
-    // Each skill level reduces chances to get a fail
-    .@r=rand(141,181)-(MAGIC_EXP/3)-getskilllv(TMW2_MKPOT);
-    if (.@r < 21) {
-            // Get up to 6 Haste Potions depending on your skill.
-            getitem HastePotion, abizit()+1;
-    } else if (.@r < 82) {
-        getitem any(BottleOfTonoriWater, BottleOfWoodlandWater, BottleOfDivineWater, Milk, CelestiaTea, PileOfAsh), 1;
-    } else if (.@r < 122) {
-        getitem any(BottleOfSewerWater, Milk, CelestiaTea, PileOfAsh), 1;
-    } else if (.@r < 162) {
-        getitem any(BottleOfSewerWater, BottleOfSewerWater, PileOfAsh), 1;
-    } else {
-        dispbottom l("Your items vanishes into thin air. What?!");
-    }
-
-    // set cooldown
-    @mkpot_at=gettimetick(2);
-    @mkpot_at=@mkpot_at+6;
-
-    // Get a few mana experience points (this is NOT used by Mana Stone)
-    GetManaExp(TMW2_MKPOT, rand(4,11));
-    end;
-
-OnInit:
-    bindatcmd "sk-mkpot", "sk#mkpot::OnCall", 0, 100, 0;
-    end;
-}
diff --git a/npc/magic/transmigration.txt b/npc/magic/transmigration.txt
new file mode 100644
index 000000000..4e45d8510
--- /dev/null
+++ b/npc/magic/transmigration.txt
@@ -0,0 +1,62 @@
+// TMW2 script
+// Author: Jesusalva <admin@tmw2.org>
+//
+// Magic Script: TMW2_TRANSMIGRATION
+//
+// Attempts to make stuff from other stuff
+// This is actually referred as transmutation in human-readable forms, and
+// transmigration in scripts.
+
+-	script	sk#mkpot	32767,{
+    end;
+OnCall:
+    // Other requeriments
+    if (countitem(Plushroom) < 10 || !countitem(Milk)) {
+        dispbottom l("You need @@ @@ and @@ to cast this skill.", 10, getitemlink(Plushroom), getitemlink(Milk));
+        end;
+    }
+
+    // Check cooldown
+    if (@mkpot_at > gettimetick(2)) {
+        dispbottom l("Skill is in cooldown for @@.", FuzzyTime(@mkpot_at));
+        end;
+    }
+
+    // Check requisites
+    if (!MagicCheck(TMW2_TRANSMIGRATION, 185, -5))
+        end;
+
+    // Consume items
+    delitem Plushroom, 10;
+    delitem Milk, 1;
+
+    // Create the stuff based on MAGIC_EXP
+    // The closer to zero, best;
+    // Each 3 mexp reduces chance to get a fail
+    // Each skill level reduces chances to get a fail
+    .@r=rand(141,181)-(MAGIC_EXP/3)-getskilllv(TMW2_TRANSMIGRATION);
+    if (.@r < 21) {
+            // Get up to 6 Haste Potions depending on your skill.
+            getitem HastePotion, abizit()+1;
+    } else if (.@r < 82) {
+        getitem any(BottleOfTonoriWater, BottleOfWoodlandWater, BottleOfDivineWater, Milk, CelestiaTea, PileOfAsh), 1;
+    } else if (.@r < 122) {
+        getitem any(BottleOfSewerWater, Milk, CelestiaTea, PileOfAsh), 1;
+    } else if (.@r < 162) {
+        getitem any(BottleOfSewerWater, BottleOfSewerWater, PileOfAsh), 1;
+    } else {
+        dispbottom l("Your items vanishes into thin air. What?!");
+    }
+
+    // set cooldown
+    @mkpot_at=gettimetick(2);
+    @mkpot_at=@mkpot_at+6;
+
+    // Get a few mana experience points (this is NOT used by Mana Stone)
+    GetManaExp(TMW2_TRANSMIGRATION, rand2(4,11));
+    end;
+
+OnInit:
+    bindatcmd "sk-trans", "sk#mkpot::OnCall", 0, 100, 0;
+    end;
+}
-- 
cgit v1.2.3-70-g09d2