Lightsabers & Crafting alpha prototype (they need a nerf)

1 files changed, 39 insertions, 0 deletions

diff --git a/npc/017-4/pyndragon.txt b/npc/017-4/pyndragon.txt
index b34ab6437..c4cf20f0f 100644
--- a/npc/017-4/pyndragon.txt
+++ b/npc/017-4/pyndragon.txt
@@ -5,6 +5,7 @@
 // Description:
 //    Forge firearms
 017-4,34,23,0	script	Pyndragon	NPC_PLAYER,{
+    function explainMelee;
     // craft_gun( BaseItem1, Amount, BaseItem2, Amount, BaseItem3, Amount, PrizeItem, Price )
     function craft_gun {
         .@base1=getarg(0);
@@ -91,6 +92,7 @@ L_Menu:
     menu
         l("I would like some information"), L_Info,
         l("I want a gun!"), L_Craft,
+        l("Do you have non-ranged weapons?"), L_CraftMelee,
         l("I don't want anything right now, bye."), L_Close;
 
 L_Info:
@@ -144,11 +146,48 @@ L_Craft:
     }
     goto L_Menu;
 
+
+L_CraftMelee:
+    select
+        l("I changed my mind."),
+        l("Which melee you craft?"),
+        l("I want a PORTABLE LIGHTSABER."),
+        l("I want a POWERFUL LIGHTSABER.");
+    mes "";
+
+    switch (@menu) {
+        case 2:
+            explainMelee();
+            goto L_CraftMelee;
+        case 3:
+            craft_gun( LeadIngot, 6, TitaniumIngot, 7, Coal, 14, Lightsaber, 4000 );
+            goto L_CraftMelee;
+        case 4:
+            craft_gun( LeadIngot, 6, TitaniumIngot, 7, Coal, 14, PowerfulLightsaber, 4000 );
+            goto L_CraftMelee;
+    }
+    goto L_Menu;
+
+
 L_Close:
     closedialog;
     goodbye;
     close;
 
+function explainMelee {
+    mesc l("PORTABLE LIGHTSABER");
+    mesc l("* Very quick and can be used in a single hand, but weak.");
+    mes l("  The standard lightsaber! It's power is over 9000!");
+    mes l("  The blue color is alluring.");
+    mes "";
+    mesc l("POWERFUL LIGHTSABER");
+    mesc l("* Very quick, two handed, in overall strong.");
+    mes l("  I love this staff. I've heard it is evil, though.");
+    mes l("  The red color is alluring.");
+    next;
+    return;
+}
+
 OnInit:
     .@npcId = getnpcid(.name$);
     setunitdata(.@npcId, UDT_HEADTOP, WarlordHelmet);