From c4074f1f5bff5a0d778ca08fa96c2f1272210f06 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sat, 10 Aug 2019 23:41:42 -0300
Subject: Audsbel Quest is now complete (the whole lore from Org. is there but
 simplified). You learn Halhiss.

---
 npc/003-0-1/audsbel.txt | 67 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)

(limited to 'npc/003-0-1')

diff --git a/npc/003-0-1/audsbel.txt b/npc/003-0-1/audsbel.txt
index ff2ab2474..18c40f353 100644
--- a/npc/003-0-1/audsbel.txt
+++ b/npc/003-0-1/audsbel.txt
@@ -377,6 +377,70 @@ L_Magic:
         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;
+    // Help on research to gain his favor
+    case 10:
+        mesn;
+        mesq l("So... I think I'm almost done! My plan is to force a @@ into being a pretty Butterfly. Hey, I like cute things!", getitemlink(SilkWorm));
+        next;
+        mesn;
+        mesq l("Besides, there are no Butterflies in Tulimshar, and they could help the farm in getting producing food.");
+        next;
+        mesn;
+        mesq l("This time, I only a few last reagents and I'll finally attempt it... I want you to witness it. I'll teach you the spell later, of course.");
+        mesc l("* @@/@@ @@", countitem(ManaPiouFeathers), 5, getitemlink(ManaPiouFeathers));
+        mesc l("* @@/@@ @@", countitem(IceCube), 1, getitemlink(IceCube));
+        mesc l("* @@/@@ @@", countitem(OceanCrocClaw), 1, getitemlink(OceanCrocClaw));
+        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(
+                ManaPiouFeathers, 5,
+                IceCube, 1,
+                OceanCrocClaw, 1))
+                    goto L_Lie;
+            mesn;
+            mesq l("Now lo and behold... The ultimate... TRANSMUTATION!");
+            // Pray that you don't get disconnected now
+            next;
+            getexp 20000, 0;
+            setq General_Auldsbel, 11;
+            npctalk l("@@... I think something went wrong... RUN!!", strcharinfo(0));
+            .@mob=monster(.map$, .x, .y, "Failed Experiment", GrassSnake, 1, .name$+"::OnSnakeDeath");
+            specialeffect FX_MAGIC, SELF, getcharid(3);
+            specialeffect FX_MGWARP, SELF, .name$;
+            specialeffect FX_ATTACK, AREA, .@mob;
+            closeclientdialog;
+            close;
+        }
+        break;
+    // Learn Halhiss, completing Audsbel Quest
+    case 11:
+        // Actually, that's lv 60... Learning a lv 40 spell '-'
+        if (MAGIC_LVL < 3)
+            goto L_Magicless;
+        if (mobcount(.map$, .name$+"::OnSnakeDeath")) {
+            mesn;
+            mesq l("Could you please dispose my failed experiment, first?");
+            close;
+        }
+        mesn;
+        mesq l("*sigh* Yet another failure... Transmutation and Nature Magic doesn't marry well.");
+        next;
+        skill(TMW2_HALHISS,1,0);
+        setq General_Auldsbel, 12;
+        mesn;
+        mesq l("Next time, I'll ask Sagratha to help. Heh. I doubt that's going to happen. By the way, this is the @@ spell. It summons snakes...", b("@sk-halhiss"));
+        next;
+        mesn;
+        mesq l("You need a @@ for it. Ah, back to research I guess...", getitemlink(SnakeEgg));
+        next;
+        break;
     default:
         mesn;
         mesq l("Uhm, no, not really. Maybe later, who knows?");
@@ -421,6 +485,9 @@ L_Lame:
     // If that is true or not, remains to be checked. Uh... I never used setparam() before! :D
     close;
 
+OnSnakeDeath:
+    end;
+
 OnInit:
     .sex=G_MALE;
     .distance=5;
-- 
cgit v1.2.3-60-g2f50