From c01de577688fa8faadc0508133a7db3c8ac39eec Mon Sep 17 00:00:00 2001
From: Athirson Caraciolo <athirsoncaraciolo2010@gmail.com>
Date: Fri, 15 Jun 2018 20:03:40 -0300
Subject: New quest %%N

---
 npc/007-1/_import.txt |   1 +
 npc/007-1/skydg.txt   | 140 ++++++++++++++++++++++++++++++++++++++++++++++++++
 npc/007-1/torches.txt |   1 +
 3 files changed, 142 insertions(+)
 create mode 100644 npc/007-1/skydg.txt

(limited to 'npc/007-1')

diff --git a/npc/007-1/_import.txt b/npc/007-1/_import.txt
index 83e481d57..af7f12f63 100644
--- a/npc/007-1/_import.txt
+++ b/npc/007-1/_import.txt
@@ -4,6 +4,7 @@
 "npc/007-1/_warps.txt",
 "npc/007-1/dracoula.txt",
 "npc/007-1/pylon.txt",
+"npc/007-1/skydg.txt",
 "npc/007-1/torches.txt",
 "npc/007-1/tycoon.txt",
 "npc/007-1/zarkor.txt",
diff --git a/npc/007-1/skydg.txt b/npc/007-1/skydg.txt
new file mode 100644
index 000000000..bba331a18
--- /dev/null
+++ b/npc/007-1/skydg.txt
@@ -0,0 +1,140 @@
+// TMW2 Script
+// Author:
+//    SkyDragon!
+// Reviewer:
+//    Jesusalva
+// Description:
+//    Miner
+
+007-1,165,144,0	script	Miner#SkyDG	NPC_PLAYER,{
+    .@Miner = getq(MineQuests_Miner);
+    if (BaseLevel < 20) goto L_TooWeak;
+    if (.@Miner == 1) goto L_Check;
+    if (.@Miner == 2) goto L_Complete;
+
+L_GiveTask:
+    mesn;
+    mesq lg("Hello, wanderer!");
+    next;
+    mesq l("How did you end up here?");
+    next;
+
+    menu
+        l("To be honest, I don't know. I was only walking, seeking for adventure!"), L_Quest,
+        l("It's none of your business."), L_Quit;
+
+
+L_Quest:
+    mes "";
+    mesn;
+    mesq l("You perchance said in adventure? Then you've came to the right place! I can ask you for some stuff, and in exchange, I'll give some useful gloves!");
+    next;
+
+    menu
+        l("Really? What do you need?"), L_Start,
+        l("Better do this some other time..."), L_Quit;
+
+
+L_Start:
+    setq MineQuests_Miner, 1;
+    mes "";
+    mesn;
+    mesq l("Ok, what I need is:");
+    goto L_Lista;
+
+L_Quit;
+    mes "";
+    mesn;
+    mesq l("Alright.");
+    close;
+
+L_Lista:
+    mes "";
+    mesn;
+    mes " * 25 " + getitemlink(MaggotSlime);
+    mes " * 20 " + getitemlink(BugLeg);
+    mes " * 08 " + getitemlink(RedScorpionStinger);
+    mes " * 15 " + getitemlink(BatWing);
+    mes " * 10 " + getitemlink(BatTeeth);
+    mes " * 10 " + getitemlink(CactusDrink);
+    mes " * 02 " + getitemlink(IronOre); // Reviewer Notes: Perhaps, "Scorpion Claw" would be better?
+    close;
+
+L_Check:
+    mesn;
+    mesq l("Did you brought me everything I asked for?");
+    next;
+    menu
+        l("Yes!"), L_Give,
+        l("I forgot what you need!"), L_Lista,
+        l("No!"), L_Quit;
+
+L_Give:
+    if (
+        countitem(MaggotSlime) < 25 ||
+        countitem(BugLeg) < 20 ||
+        countitem(RedScorpionStinger) < 8 ||
+        countitem(BatWing) < 15 ||
+        countitem(BatTeeth) < 10 ||
+        countitem(CactusDrink) < 10)
+        countitem(IronOre) < 3)
+    ) goto L_Lying;
+
+    inventoryplace MinerGloves, 1;
+
+    delitem(MaggotSlime, 25);
+    delitem(BugLeg , 20);
+    delitem(RedScorpionStinger, 8);
+    delitem(BatWing, 15);
+    delitem(BatTeeth, 10);
+    delitem(CactusDrink, 10);
+    delitem(IronOre, 3);
+
+    getitem(MinerGloves, 1);
+    getexp(150, 0);
+    setq(MineQuests_Miner, 2);
+
+    mes "";
+    mesn;
+    mesq l("Here, all yours. Thank you.");
+    close;
+
+L_Complete:
+    mesn;
+    mesq l("Wandering too much? Take care to don't get lost.");
+    close;
+
+// Funnier to write than to read, but the player lied. :angel:
+L_Lying:
+    mesn;
+    mesq l("No no no, that's wrong.");
+    next;
+    mes col("The miner goes to count your stuff again.", 9);
+    next;
+    mes col("And again.", 9);
+    next;
+    mes col("And again, and again.", 9);
+    next;
+    mes col("And again, and again, again.", 9);
+    next;
+    mes col("You wonder, maybe he entered on an infinite loop? Hellooo, anybody home?", 9);
+    next;
+    mesn;
+    mesq l("No no no, you don't have everything I've asked for!");
+    next;
+    goto L_Lista;
+
+OnInit:
+    .@npcId = getnpcid(0, .name$);
+    setunitdata(.@npcId, UDT_HEADTOP, MinerHat);
+    setunitdata(.@npcId, UDT_HEADMIDDLE, LeatherShirt);
+    setunitdata(.@npcId, UDT_HEADBOTTOM, BromenalPants);
+    setunitdata(.@npcId, UDT_WEAPON, DeepBlackBoots);
+    setunitdata(.@npcId, UDT_HAIRSTYLE, 4);
+    setunitdata(.@npcId, UDT_HAIRCOLOR, 3);
+
+    .sex = G_MALE;
+    .distance = 4;
+
+    end;
+}
diff --git a/npc/007-1/torches.txt b/npc/007-1/torches.txt
index b7e3df279..cec78a927 100644
--- a/npc/007-1/torches.txt
+++ b/npc/007-1/torches.txt
@@ -91,6 +91,7 @@ L_Empty:
     .@q = getq(TulimsharQuest_DarkInvocator);
     if (.@q == 5) {
         CheckTorch();
+        npctalk(l("What is @@ doing?", strcharinfo(0)), "Miner#SkyDG");
     }
     end;
 OnInit:
-- 
cgit v1.2.3-60-g2f50