From 4a552b833e47ce0b7a5115f653c931815aa15381 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sat, 27 Jul 2019 18:52:12 -0300
Subject: Ben the Thief Master: You may now improve Thief Skills using the NEW
 magic system.

---
 npc/015-2/ben.txt | 39 ++++++++++++++++++++++++++++++++++++++-
 1 file changed, 38 insertions(+), 1 deletion(-)

(limited to 'npc/015-2/ben.txt')

diff --git a/npc/015-2/ben.txt b/npc/015-2/ben.txt
index 2752aae44..bc383eebd 100644
--- a/npc/015-2/ben.txt
+++ b/npc/015-2/ben.txt
@@ -26,7 +26,7 @@ L_Quest:
         goto L_Recruit;
     mesn;
     mesq l("Hello there, @@, fear from the wealthy.", thiefrank());
-    if (THIEF_RANK == 5) close;
+    if (THIEF_RANK == 5) goto L_Menu;
     mesq l("I see you have collected some experience. Let me try to rank you up!");
     next;
     if (THIEF_EXP > (THIEF_RANK*2)**5) {
@@ -41,6 +41,7 @@ L_Quest:
         mesn;
         mesq l("Well, you need more experience. Keep trying!");
     }
+    goto L_Menu;
     close;
 
 L_Recruit:
@@ -81,6 +82,42 @@ L_Rank3:
     mesq l("You now gained two extra kilograms to your weight quota! Ka-pow, that's fantastic! Good luck!");
     close;
 
+// Allow to level up thief skills
+L_Menu:
+    do
+    {
+        next;
+        mesn;
+        mesq l("Do you want me to teach you how to improve an existing skill with MAGIC? There are no better mages than Mouboos!");
+        mesc l("You also need @@/@@ Mob Points to improve thief skills.", format_number(Mobpt), 1000);
+        if (Mobpt < 1000)
+            close;
+        next;
+        select
+            rif(getskilllv(TF_STEAL), l("Improve Stealing to level ")+getskilllv(TF_STEAL)+1),
+            rif(getskilllv(ALL_INCCARRY), l("Improve Max Weight to level ")+getskilllv(ALL_INCCARRY)+1),
+            l("None at the moment.");
+        mes "";
+        // BlueCoral, {CrocClaw, OceanCrocClaw: Empty Box}, PlushroomBox
+        switch (@menu) {
+            case 1:
+                if (!mlearn(TF_STEAL, 10, 1, BlueCoral, 6*getskilllv(TF_STEAL)))
+                    mesc l("You do not meet all requisites for this skill."), 1;
+                else
+                    Mobpt-=1000;
+                break;
+            case 2:
+                if (!mlearn(ALL_INCCARRY, 10, 1, BlueCoral, 9*getskilllv(ALL_INCCARRY)))
+                    mesc l("You do not meet all requisites for this skill."), 1;
+                else
+                    Mobpt-=1000;
+                break;
+            case 3:
+                close;
+        }
+    } while (true);
+    close;
+
 OnInit:
     .sex = G_MALE;
     .distance = 5;
-- 
cgit v1.2.3-60-g2f50