The most important transmigration chain, is the one which allows to downgrade ore.

You can magically exchange your ore by another one of lesser rarity.
Specially useful to convert exceeding Iron Ore into Coal, or Gold Ore into Copper Ore.

1 files changed, 69 insertions, 0 deletions

diff --git a/npc/magic/transmigration.txt b/npc/magic/transmigration.txt
index 2a567856e..fed1b7a36 100644
--- a/npc/magic/transmigration.txt
+++ b/npc/magic/transmigration.txt
@@ -31,6 +31,7 @@ OnCall:
             rif(false, l("Downgrade Snake Tongue")), SnakeTongue,
             rif(false, l("Downgrade Scorpion Stinger")), ScorpionStinger,
             rif(false, l("Downgrade Scorpion Claw")), ScorpionClaw,
+            rif(false, l("Downgrade Ore")), IronOre,
             l("Mouboo Figurine"), MoubooFigurine;
 
         mes "";
@@ -79,6 +80,19 @@ OnCall:
             l("Red Scorpion Claw -> Scorpion Claw"), ScorpionClaw,
             l("Cancel");
             break;
+        case IronOre:
+            menuint
+            l("Platinum Ore -> Iridium Ore"), IridiumOre,
+            l("Iridium Ore -> Titanium Ore"), TitaniumOre,
+            l("Titanium Ore -> Lead Ore"), LeadOre,
+            l("Lead Ore -> Tin Ore"), TinOre,
+            l("Tin Ore -> Gold Ore"), GoldOre,
+            l("Gold Ore -> Silver Ore"), SilverOre,
+            l("Silver Ore -> Copper Ore"), CopperOre,
+            l("Copper Ore -> Iron Ore"), IronOre,
+            l("Iron Ore -> Coal"), Coal,
+            l("Cancel");
+            break;
         default:
             Exception("ERROR, INVALID TRANSMIGRATION OPTION", RB_DEFAULT|RB_SPEECH); @menuret=0; break;
         }
@@ -197,6 +211,61 @@ OnCall:
                 end;
             }
             break;
+        // Ore Chain (the biggest one)
+        case IridiumOre:
+            if (!transcheck(PlatinumOre, 1)) {
+                dispbottom l("Not enough items!");
+                end;
+            }
+            break;
+        case TitaniumOre:
+            if (!transcheck(IridiumOre, 1)) {
+                dispbottom l("Not enough items!");
+                end;
+            }
+            break;
+        case LeadOre:
+            if (!transcheck(TitaniumOre, 1)) {
+                dispbottom l("Not enough items!");
+                end;
+            }
+            break;
+        case TinOre:
+            if (!transcheck(LeadOre, 1)) {
+                dispbottom l("Not enough items!");
+                end;
+            }
+            break;
+        case GoldOre:
+            if (!transcheck(TinOre, 1)) {
+                dispbottom l("Not enough items!");
+                end;
+            }
+            break;
+        case SilverOre:
+            if (!transcheck(GoldOre, 1)) {
+                dispbottom l("Not enough items!");
+                end;
+            }
+            break;
+        case CopperOre:
+            if (!transcheck(SilverOre, 1)) {
+                dispbottom l("Not enough items!");
+                end;
+            }
+            break;
+        case IronOre:
+            if (!transcheck(CopperOre, 1)) {
+                dispbottom l("Not enough items!");
+                end;
+            }
+            break;
+        case Coal:
+            if (!transcheck(IronOre, 1)) {
+                dispbottom l("Not enough items!");
+                end;
+            }
+            break;
 
         default:
             Exception("ERROR, INVALID TRANSMIGRATION REAGENTS", RB_DEFAULT|RB_SPEECH|RB_ISFATAL); break;