Expand Peter's crafting skills to create warlord boots.

1 files changed, 26 insertions, 0 deletions

diff --git a/world/map/npc/009-2/peter.txt b/world/map/npc/009-2/peter.txt
index ba742424..e0588f99 100644
--- a/world/map/npc/009-2/peter.txt
+++ b/world/map/npc/009-2/peter.txt
@@ -14,6 +14,10 @@
     set @peter_warlord_plate_ingot, 15;
     set @peter_warlord_plate_money, 100000;
 
+    set @peter_warlord_boots_coal, 16;
+    set @peter_warlord_boots_ingot, 8;
+    set @peter_warlord_boots_money, 35000;
+
     mes "[Peter]";
     mes "\"Hello, I am Peter, apprentice to Nicholas.\"";
     next;
@@ -25,6 +29,7 @@
         "Chain Mail ("+@peter_chain_mail_coal+" coal, "+@peter_chain_mail_ingot+" ingots and "+@peter_chain_mail_money+" GP).", L_Peter_Chain_Mail,
         "Light Plate ("+@peter_light_plate_coal+" coal, "+@peter_light_plate_ingot+" ingots and "+@peter_light_plate_money+" GP).", L_Peter_Light_Plate,
         "Warlord Plate ("+@peter_warlord_plate_coal+" coal, "+@peter_warlord_plate_ingot+" ingots and "+@peter_warlord_plate_money+" GP).", L_Peter_Warlord_Plate,
+        "Do you know anything else than armor crafting?", L_Peter_New_Skills,
         "Nevermind.", -;
     goto L_Close;
 
@@ -52,6 +57,23 @@ L_Peter_Warlord_Plate:
     callsub S_Peter_Get_Smithery_Item;
     goto L_Close;
 
+L_Peter_New_Skills:
+    mes "[Peter]";
+    mes "\"Actually, Nicholas, my master, taught me new smithery techniques.";
+    mes "My very first creation are new kind of steel boots. Interested ? That would be "+@peter_warlord_boots_coal+" Coals, "+@peter_warlord_boots_ingot+" Iron Ingots and "+@peter_warlord_boots_money+" GP.\"";
+    menu
+        "Sure!", L_Peter_Warlord_Boots,
+        "No thanks, that sounds too heavy for me.", -;
+    goto L_Close;
+
+L_Peter_Warlord_Boots:
+    set @peter_crafting_coal, @peter_warlord_boots_coal;
+    set @peter_crafting_iron_ingot, @peter_warlord_boots_ingot;
+    set @peter_crafting_money, @peter_warlord_boots_money;
+    set @peter_crafting_item$, "WarlordBoots";
+    callsub S_Peter_Get_Smithery_Item;
+    goto L_Close;
+
 S_Peter_Get_Smithery_Item:
     if (Zeny < @peter_crafting_money)
         goto L_Peter_NotEnough_Zeny;
@@ -104,6 +126,10 @@ L_Close:
     set @peter_warlord_plate_ingot, 0;
     set @peter_warlord_plate_money, 0;
 
+    set @peter_warlord_boots_coal, 0;
+    set @peter_warlord_boots_ingot, 0;
+    set @peter_warlord_boots_money, 0;
+
     set @peter_crafting_coal, 0;
     set @peter_crafting_iron_ingot, 0;
     set @peter_crafting_money, 0;