Teach the Snake and Scorpion Conversion at Audsbel.

2 files changed, 117 insertions, 5 deletions

diff --git a/npc/003-0-1/audsbel.txt b/npc/003-0-1/audsbel.txt
index b5ad4e4a0..1ea71742e 100644
--- a/npc/003-0-1/audsbel.txt
+++ b/npc/003-0-1/audsbel.txt
@@ -267,6 +267,116 @@ L_Magic:
         mesn;
         mesq l("Also, job levels get really hard to obtain after a while. The decision is up to you, just be aware there's that possibility.");
         break;
+    // Help on research to gain his favor
+    case 5:
+        mesn;
+        mesq l("Well, I decided to resume an old research of mine, now that I have a minion (you) to gather stuff for me.");
+        next;
+        mesn;
+        mesq l("Now please be a good helper, and aid me by bringing:");
+        mesc l("* @@/@@ @@", countitem(HastePotion), 10, getitemlink(HastePotion));
+        mesc l("* @@/@@ @@", countitem(StrengthPotion), 10, getitemlink(StrengthPotion));
+        mesc l("* @@/@@ @@", countitem(HerbalTea), 10, getitemlink(HerbalTea));
+        mesc l("* @@/@@ @@", countitem(RedScorpionStinger), 25, getitemlink(RedScorpionStinger));
+        mesc l("* @@/@@ @@", countitem(SilkCocoon), 100, getitemlink(SilkCocoon));
+        next;
+        select
+            l("I'll try to find them."),
+            l("I actually have them, here.");
+        if (@menu == 2) {
+            mes "";
+            mesn;
+            mesq l("Excellent! Let me see...");
+            next;
+            if (!transcheck(
+                HastePotion, 10,
+                StrengthPotion, 10,
+                HerbalTea, 10,
+                RedScorpionStinger, 25,
+                SilkCocoon, 100))
+                    goto L_Lie;
+            getexp 7500, 0;
+            Zeny=Zeny+1250;
+            setq General_Auldsbel, 6;
+            mesn;
+            mesq l("Thanks. I'm actually conducting experiments with scorpions. Please come back later.");
+            mesc l("Gained 7500 XP and 1250 GP");
+        }
+        break;
+    // Learn transmigration: Scorpion Stinger and Claw
+    case 6:
+        if (MAGIC_LVL < 2)
+            goto L_Magicless;
+        mesn;
+        mesq l("Well, I'm currently researching scorpions, as you can imagine.");
+        next;
+        setq General_Auldsbel, 7;
+        mesn;
+        mesq l("I'll teach you how to transmute some parts of theirs. You can use it to convert a @@ into a @@, but not the other way around, for example.", getitemlink(BlackScorpionStinger), getitemlink(RedScorpionStinger));
+        next;
+        mesn;
+        mesq l("This have many uses. Maybe. Anyway, I'm soon done with my experiment, so please come back later.");
+        close; // On purpose
+        break;
+    // Help on research to gain his favor
+    case 7:
+        mesn;
+        mesq l("Hmm... See, the thing is that transmuting living beings is not normally something that transmutation magic can do.");
+        next;
+        mesn;
+        mesq l("But I will not give up on my little experiment. Incidentally, Snakes are shaddy enough for my experiment. I promise you, I'll succeed this time.");
+        next;
+        mesn;
+        mesq l("Oh. And don't mention anyone what I'm researching here. No need to fuss over minor things, don't you agree? It's totally not shaddy. Not shaddy at all!");
+        next;
+        mesn;
+        mesq l("Now please be a good helper, and aid me by bringing:");
+        mesc l("* @@/@@ @@", countitem(MountainSnakeTongue), 15, getitemlink(MountainSnakeTongue));
+        mesc l("* @@/@@ @@", countitem(SnakeTongue), 15, getitemlink(SnakeTongue));
+        mesc l("* @@/@@ @@", countitem(CaveSnakeTongue), 15, getitemlink(CaveSnakeTongue));
+        mesc l("* @@/@@ @@", countitem(MountainSnakeEgg), 15, getitemlink(MountainSnakeEgg));
+        mesc l("* @@/@@ @@", countitem(SnakeEgg), 15, getitemlink(SnakeEgg));
+        mesc l("* @@/@@ @@", countitem(CaveSnakeEgg), 15, getitemlink(CaveSnakeEgg));
+        next;
+        select
+            l("I'll try to find them."),
+            l("I actually have them, here.");
+        if (@menu == 2) {
+            mes "";
+            mesn;
+            mesq l("Excellent! Let me see...");
+            next;
+            if (!transcheck(
+                MountainSnakeTongue, 15,
+                SnakeTongue, 15,
+                CaveSnakeTongue, 15,
+                MountainSnakeEgg, 15,
+                SnakeEgg, 15,
+                CaveSnakeEgg, 15))
+                    goto L_Lie;
+            getexp 20000, 0;
+            Zeny=Zeny+2500;
+            setq General_Auldsbel, 8;
+            mesn;
+            mesq l("Thanks. Snakes seems promising indeed! Maybe they work where scorpions failed. If I succeed, I promise I'll teach you the spell. But for now...");
+            mesc l("Gained 20000 XP and 2500 GP");
+        }
+        break;
+    // Learn transmigration: Snake Egg, Tongue, Skin
+    case 8:
+        if (MAGIC_LVL < 3)
+            goto L_Magicless;
+        mesn;
+        mesq l("Well, I have not finished my research on snakes yet, but I'm pretty sure in how to transmute their parts.");
+        next;
+        setq General_Auldsbel, 8;
+        mesn;
+        mesq l("Here, look at how it is done. Focus. You can use it to convert a @@ into a @@, but not the other way around, for example.", getitemlink(MountainSnakeSkin), getitemlink(SnakeSkin));
+        next;
+        mesn;
+        mesq l("Be careful as not everybody likes transmuted monster parts. Some may even see it as a foul thing. Anyway. Come back later.");
+        close; // On purpose
+        break;
     default:
         mesn;
         mesq l("Uhm, no, not really. Maybe later, who knows?");
diff --git a/npc/magic/transmigration.txt b/npc/magic/transmigration.txt
index 4219af495..6ab1eed1c 100644
--- a/npc/magic/transmigration.txt
+++ b/npc/magic/transmigration.txt
@@ -20,6 +20,8 @@ OnCall:
     if (!MagicCheck(TMW2_TRANSMIGRATION, 185, -5))
         end;
 
+    .@q=getq(General_Auldsbel);
+
     do {
         mes ".:: " + l("Transmutation Skill") + " ::.";
         mesc l("What will you transmute today?");
@@ -27,11 +29,11 @@ OnCall:
         menuint
             l("Crazy Rum"), CrazyRum,
             l("Coal"), 9901, // 9901 cheat code
-            rif(false, l("Downgrade Snake Skin")), SnakeSkin,
-            rif(false, l("Downgrade Snake Egg")), SnakeEgg,
-            rif(false, l("Downgrade Snake Tongue")), SnakeTongue,
-            rif(false, l("Downgrade Scorpion Stinger")), ScorpionStinger,
-            rif(false, l("Downgrade Scorpion Claw")), ScorpionClaw,
+            rif(.@q >= 9, l("Downgrade Snake Skin")), SnakeSkin,
+            rif(.@q >= 9, l("Downgrade Snake Egg")), SnakeEgg,
+            rif(.@q >= 9, l("Downgrade Snake Tongue")), SnakeTongue,
+            rif(.@q >= 7, l("Downgrade Scorpion Stinger")), ScorpionStinger,
+            rif(.@q >= 7, l("Downgrade Scorpion Claw")), ScorpionClaw,
             rif(false, l("Downgrade Ore")), IronOre,
             l("Mouboo Figurine"), MoubooFigurine;