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;