From 624cb2950afb52a9499fd2c6cd58209805757335 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sun, 14 Jul 2019 23:03:13 -0300
Subject: Prepare the new crafting system (Lv 15)

---
 npc/003-8/intensebeard.txt | 56 ++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 54 insertions(+), 2 deletions(-)

(limited to 'npc/003-8')

diff --git a/npc/003-8/intensebeard.txt b/npc/003-8/intensebeard.txt
index 61d861400..8b4b9ecf4 100644
--- a/npc/003-8/intensebeard.txt
+++ b/npc/003-8/intensebeard.txt
@@ -5,7 +5,7 @@
 //  Intense Beard is the crafting master
 
 003-8,27,42,4	script	Intense Beard	NPC_HUMAN_M_ARTIS,{
-    if (BaseLevel < 35)
+    if (BaseLevel < 15)
         goto L_SemNivel;
     if (!countitem(RecipeBook))
         goto L_SemLivro;
@@ -146,14 +146,66 @@ L_SemNivel:
     close;
 
 L_SemLivro:
+    if (CRAFTQUEST || !is_admin())
+        goto L_SemNivel;
     mesn;
-    mesq l("Heya, noob. Do you have a @@? No? I thought everyone gained one at birth from their parents!", getitemlink(RecipeBook));
+    mesq l("Heya, noob. Where is your @@? Are you really so noob to have forgot such important book?!", getitemlink(RecipeBook));
     next;
+    /*
     mesn;
     mesq l("That's too bad, because I could teach you some amazing craft skills! This will need to wait another day, I guess. Oh well.");
     next;
     mesn;
     mesq l("Better ask your parents for one... Failing that, maybe someone can gift you one. Not sure what you'll need to do for that, though!");
+    */
+    mesn strcharinfo(0);
+    mesc l("Was I supposed to have one? How should I reply?");
+    mes "";
+    select
+        l("Erm... I don't have a recipe book."),
+        l("That's nice, but... I don't have a recipe book."),
+        l("Pardon me, what is a recipe book?");
+    mes "";
+    mesn;
+    mesq l("WHAT? Have you not gained one at birth? That's absurd!");
+    next;
+    select
+        l("Erm... I don't know my parents."),
+        l("Maybe, but... I don't know my parents."),
+        l("Pardon me, I don't remember my parents.");
+    mes "";
+    mesn;
+    mesq l("WHAT? That's twice absurd! Now you'll say that you were found stranded on a desert island without equipment and can't remember anything but your own name!");
+    next;
+    select
+        l("Erm... You're right."),
+        l("Well... You're right."),
+        l("How did you guess that?");
+    mes "";
+    mesn;
+    mesq l("... ... ...");
+    next;
+    mesn;
+    mesq l("...Okay, this is not fun anymore.");
+    next;
+    mesn;
+    mesq l("Here, you can have this spare one. Hahah! Crafting is an art, and I help teaching it. Just be sure to don't lose it, you will NEVER get another copy EVER again, was I clear?!");
+    next;
+    mesn;
+    mesq l("While we're at that, do you know how to craft? No? First, you'll need a Cauldron, in case you've rented a house. Otherwise, you can rent a work table on this Forge.");
+    next;
+    mesn;
+    mesq l("You need to read this recipe. Without the essential crafting skill you won't go very far.");
+    // Obtain a blueprint and a recipe book
+    inventoryplace EquipmentBlueprintA, 1, RecipeBook, 1;
+    getitem EquipmentBlueprintA, 1;
+    getitem RecipeBook, 1;
+
+    // We should aid you getting basic skills - for free!
+    if (!CRAFTSYS[CRGROUP_BASE])
+        CRAFTSYS[CRGROUP_BASE]+=1;
+    if (!CRAFTSYS_CURRENT)
+        CRAFTSYS_CURRENT=CRAFTSYS_CURRENT|CRGROUP_BASE;
     close;
 
 OnInit:
-- 
cgit v1.2.3-60-g2f50