Transmutation Magic, Initial Version

4 files changed, 148 insertions, 21 deletions

diff --git a/npc/magic/config.txt b/npc/magic/config.txt
index a179982c..2a6a9559 100644
--- a/npc/magic/config.txt
+++ b/npc/magic/config.txt
@@ -401,6 +401,27 @@ function	script	mcharge	{
     return;
 }
 
+// transcheck( {item 1, amount 1}, {item 2, amount 2}... )
+// returns true upon success
+function	script	transcheck	{
+    if (getargcount() < 2 || getargcount() % 2 != 0)
+        return Exception("Faulty transcheck invoked - error");
+
+    // Count items
+    for (.@i=0;.@i < getargcount(); .@i++) {
+        if (countitem(getarg(.@i)) < getarg(.@i+1))
+            return false;
+        .@i++;
+    }
+
+    // Delete Items
+    for (.@i=0;.@i < getargcount(); .@i++) {
+        delitem getarg(.@i), getarg(.@i+1);
+        .@i++;
+    }
+    return true;
+}
+
 -	script	Magic Load	NPC_HIDDEN,{
 OnInit:
     end;
diff --git a/npc/magic/final.txt b/npc/magic/final.txt
index a4de3bc8..58039248 100644
--- a/npc/magic/final.txt
+++ b/npc/magic/final.txt
@@ -34,48 +34,58 @@ function	script	HUB_SkillInvoke	{
             break;
         // Level 0
         case SKILL_CONFRINGO:
-             SK_Confringo(); break;
+            SK_Confringo(); break;
         // Level 1
         case SKILL_ABIZIT:
-             SK_Abizit(); break;
+            SK_Abizit(); break;
         case SKILL_MONSTERINFO:
-             SK_Miteyo(); break;
+            SK_Miteyo(); break;
         case EVOL_AREA_PROVOKE:
             SK_Itenplz(); break;
         case SKILL_FLAR:
-             SK_Flar(); break;
+            SK_Flar(); break;
         case SKILL_MODRIPHOO:
         case SKILL_MODRISUMP:
         case SKILL_MODRIYIKAM:
         case SKILL_MODRILAX:
-             SK_GrowPlants(); break; // FIXME: Unreleased/cannot be learned
+            SK_GrowPlants(); break; // FIXME: Unreleased/cannot be learned
         case SKILL_LUM:
-             SK_Lum(); break;
+            SK_Lum(); break;
         case SKILL_CHIZA:
-             SK_Chiza(); break;
+            SK_Chiza(); break;
+        case SKILL_PARUM:
+        case SKILL_GOLE:
+            SK_Transmute(); break;
         // Level 2
         case SKILL_INMA:
-             SK_Inma(); break;
+            SK_Inma(); break;
         case SKILL_KALAKARENK:
         case SKILL_KALBOO:
         case SKILL_KALGINA:
         case SKILL_KALRENK:
-             SK_SummonLv2(); break;
+            SK_SummonLv2(); break;
         case SKILL_HALHISS:
         case SKILL_HELORP:
-             SK_SummonLv2(); break;
+            SK_SummonLv2(); break;
         case SKILL_KAFLOSH:
-             SK_Kaflosh(); break;
+            SK_Kaflosh(); break;
         case SKILL_BETSANC:
-             SK_Betsanc(); break;
+            SK_Betsanc(); break;
         case SKILL_ASORM:
-             SK_Asorm(); break;
+            SK_Asorm(); break;
         case SKILL_INGRAV:
-             SK_Ingrav(); break;
+            SK_Ingrav(); break;
         case SKILL_UPMARMU:
-             SK_Uparmu(); break;
+            SK_Uparmu(); break;
         case SKILL_PHLEX:
-             SK_Phlex(); break;
+            SK_Phlex(); break;
+        case SKILL_KULARZUFRILL:
+        case SKILL_ZUKMINBIRF:
+        case SKILL_PATMUPLOO:
+        case SKILL_PATVILOREE:
+        case SKILL_PATLOREE:
+        case SKILL_MANPAHIL:
+            SK_Transmute(); break;
         // Level 3
         // Level 4
         // Level 5
@@ -143,16 +153,16 @@ function	script	HUB_SkillInvoke	{
             .@mobId=Moggun;
             if (rand2(6,12) < abizit()+1)
             {
-                .@mobId=Yeti;
+               .@mobId=Yeti;
             }
             SK_summon(.@mobId, 4, any(3,4));
             break;
         case TMW2_STONEHEART:
             .@mobId=Terranite;
             if (rand2(9,12) < abizit()+1 &&
-                BaseLevel > 80)
+               BaseLevel > 80)
             {
-                .@mobId=TerraniteProtector;
+               .@mobId=TerraniteProtector;
             }
             SK_summon(.@mobId, 4, any(4,5));
             break;
@@ -167,7 +177,7 @@ function	script	HUB_SkillInvoke	{
     // Debug
     if ($@GM_OVERRIDE)
         debugmes "Cast skill %d on level %d - Target %d",
-                  @skillId, @skillLv, @skillTarget;
+                 @skillId, @skillLv, @skillTarget;
 
     // Cleanup (double-safe)
     @skillTarget = 0;
@@ -227,7 +237,7 @@ function	script	HUB_PCBonus	{
         if (getequipid(EQI_HAND_R) < 1) {
             bonus bAtk, 10*getskilllv(SKILL_BRAWLING);
         } else if (getiteminfo(
-                   getequipid(EQI_HAND_R), ITEMINFO_SUBTYPE) == W_FIST) {
+                  getequipid(EQI_HAND_R), ITEMINFO_SUBTYPE) == W_FIST) {
             bonus bAtk, 10*getskilllv(SKILL_BRAWLING);
         }
     }
diff --git a/npc/magic/level1-transmutations.txt b/npc/magic/level1-transmutations.txt
new file mode 100644
index 00000000..88e916fc
--- /dev/null
+++ b/npc/magic/level1-transmutations.txt
@@ -0,0 +1,95 @@
+// The Mana World script
+// Author: Jesusalva <jesusalva@themanaworld.org>
+//
+// Magic Script: MULTIPLE (Level 1)
+// School: Transmutation *
+
+function	script	SK_Transmute	{
+    // Setup
+    switch (@skillId) {
+    case SKILL_PARUM:
+        .@prize = MoubooFigurine; .@pc = 1;
+        .@mexp = 1; .@fx = FX_MAGIC_WOOD_CAST;
+        setarray .@component, RawLog;
+        setarray .@co_amount,      1;
+        setarray .@failure, Iten, WarpedLog, WarpedLog;
+        break;
+    case SKILL_KULARZUFRILL:
+        .@prize = Arrow; .@pc = AdjustSpellpower(40+@skillLv*2);
+        .@mexp = 2; .@fx = FX_MAGIC_ARROW_CAST;
+        setarray .@component, RawLog;
+        setarray .@co_amount,      1;
+        setarray .@failure, WarpedLog, WarpedLog;
+        break;
+    case SKILL_ZUKMINBIRF:
+        .@prize = IronPowder; .@pc = 1+AdjustSpellpower(@skillLv*5);
+        .@mexp = 2; .@fx = FX_MAGIC_IRON_CAST;
+        setarray .@component, IronOre;
+        setarray .@co_amount,      1;
+        setarray .@failure, Iten, IronOre, IronOre;
+        break;
+    case SKILL_PATMUPLOO:
+        .@prize = CottonShirt; .@pc = 1;
+        .@mexp = 2; .@fx = FX_MAGIC_SHIRT_CAST;
+        setarray .@component, CottonCloth;
+        setarray .@co_amount,           5;
+        setarray .@failure, CottonCloth, CottonCloth;
+        break;
+    case SKILL_PATVILOREE:
+        .@prize = ShortTankTop; .@pc = 1;
+        .@mexp = 2; .@fx = FX_MAGIC_SHIRT_CAST;
+        setarray .@component, CottonCloth;
+        setarray .@co_amount,           3;
+        setarray .@failure, CottonCloth, CottonCloth;
+        break;
+    case SKILL_PATLOREE:
+        .@prize = TankTop; .@pc = 1;
+        .@mexp = 2; .@fx = FX_MAGIC_SHIRT_CAST;
+        setarray .@component, CottonCloth;
+        setarray .@co_amount,           4;
+        setarray .@failure, CottonCloth, CottonCloth;
+        break;
+    case SKILL_GOLE:
+        .@prize = SulphurPowder; .@pc = 1+AdjustSpellpower(@skillLv*20);
+        .@mexp = 1; .@fx = FX_MAGIC_SULPHUR_CAST;
+        setarray .@component, PileOfAsh;
+        setarray .@co_amount,         1;
+        setarray .@failure, PileOfAsh, PileOfAsh;
+        break;
+    case SKILL_MANPAHIL:
+        .@prize = Lifestone; .@pc = 10;
+        .@mexp = 2; .@fx = FX_MAGIC_STONE_CAST;
+        setarray .@component, BugLeg, MaggotSlime, MauveHerb, AlizarinHerb, CobaltHerb, GambogeHerb;
+        setarray .@co_amount,      1,           1,         1,            1,          1,           1;
+        setarray .@failure, Lifestone, Lifestone;
+        break;
+    default: return;
+    }
+    // Check for items
+    for (.@i=0; .@i < getarraysize(.@component); .@i++) {
+        if (countitem(.@component[.@i]) < .@co_amount[.@i]) {
+            dispbottom l("You do not have enough %s (min %d)",
+                         getitemname(.@component[.@i]), .@co_amount[.@i]);
+            return;
+        }
+    }
+    // Delete reagents
+    inventoryplace Iten, 1, .@prize, .@pc;
+    for (.@i=0; .@i < getarraysize(.@component); .@i++) {
+        delitem(.@component[.@i], .@co_amount[.@i]);
+    }
+    // Effect and EXP
+    specialeffect(.@fx, AREA, getcharid(3));
+    GetManaExp(@skillId, .@mexp);
+    // The chances of success are based on magic exp, abizit and skill level
+    .@rand100 = abizit()*10 + cap_value(MAGIC_EXP/100, 0, 50) + (@skillLv*5);
+    if (.@rand100 > rand2(100)) {
+        getitem .@prize, .@pc;
+    } else {
+        dispbottom l("Your magic takes a mind of its own!");
+        getitem any_of(.@failure), 1;
+    }
+    return;
+}
+
+
diff --git a/npc/scripts.conf b/npc/scripts.conf
index 1c17a4a5..c975d301 100644
--- a/npc/scripts.conf
+++ b/npc/scripts.conf
@@ -77,6 +77,7 @@
 "npc/magic/level1-lesser-heal.txt",
 "npc/magic/level1-magic-blade.txt",
 "npc/magic/level1-summon-maggots.txt",
+"npc/magic/level1-transmutations.txt",
 "npc/magic/level2-arrow-hail.txt",
 "npc/magic/level2-happy-curse.txt",
 "npc/magic/level2-lay-on-hands.txt",