Snake Transmigration Subsystem (main Audsbel Quest)

1 files changed, 27 insertions, 0 deletions

diff --git a/npc/magic/transmigration.txt b/npc/magic/transmigration.txt
index ca03887f8..c2efa4a9b 100644
--- a/npc/magic/transmigration.txt
+++ b/npc/magic/transmigration.txt
@@ -28,6 +28,7 @@ OnCall:
             l("Crazy Rum"), CrazyRum,
             rif(false, l("Downgrade Snake Skin")), SnakeSkin,
             rif(false, l("Downgrade Snake Egg")), SnakeEgg,
+            rif(false, l("Downgrade Snake Tongue")), SnakeTongue,
             l("Mouboo Figurine"), MoubooFigurine;
 
         mes "";
@@ -56,6 +57,13 @@ OnCall:
             l("Snake Egg -> Cave Snake Egg"), CaveSnakeEgg,
             l("Cancel");
             break;
+        case SnakeTongue:
+            menuint
+            l("Black Mamba Tongue -> Mountain Snake Tongue"), MountainSnakeTongue,
+            l("Mountain Snake Tongue -> Snake Tongue"), SnakeTongue,
+            l("Snake Tongue -> Cave Snake Tongue"), CaveSnakeTongue,
+            l("Cancel");
+            break;
         default:
             Exception("ERROR, INVALID TRANSMIGRATION OPTION", RB_DEFAULT|RB_SPEECH); @menuret=0; break;
         }
@@ -123,6 +131,25 @@ OnCall:
                 end;
             }
             break;
+        // Snake Tongue Chain
+        case MountainSnakeTongue:
+            if (!transcheck(BlackMambaTongue, 1)) {
+                dispbottom l("Not enough items!");
+                end;
+            }
+            break;
+        case SnakeTongue:
+            if (!transcheck(MountainSnakeTongue, 1)) {
+                dispbottom l("Not enough items!");
+                end;
+            }
+            break;
+        case CaveSnakeTongue:
+            if (!transcheck(SnakeTongue, 1)) {
+                dispbottom l("Not enough items!");
+                end;
+            }
+            break;
 
         default:
             Exception("ERROR, INVALID TRANSMIGRATION REAGENTS", RB_DEFAULT|RB_SPEECH|RB_ISFATAL); break;