From 71224fba6a7c24a74199ad58a07bf666d27fe698 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Tue, 19 Jun 2018 10:57:41 -0300
Subject: Initial version of Arkim. He currently only affects Alan.

---
 npc/015-3/hermit.txt | 130 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 130 insertions(+)
 create mode 100644 npc/015-3/hermit.txt

(limited to 'npc/015-3/hermit.txt')

diff --git a/npc/015-3/hermit.txt b/npc/015-3/hermit.txt
new file mode 100644
index 000000000..863007a9a
--- /dev/null
+++ b/npc/015-3/hermit.txt
@@ -0,0 +1,130 @@
+// TMW2 scripts.
+// Authors:
+//    Jesusalva
+// Description:
+//    Heremit
+// Variables:
+//    $ARKIM_ST
+//      How many Bat Teeth/Wings were given
+//    q1
+//      Controls your own progress helping Arkim - Unused, might give place to some real quest later.
+//    q2
+//      Controls your own progress helping Arkim - Items today
+//    q3
+//      Controls your own progress helping Arkim - Your timer
+
+015-3,170,169,0	script	Arkim	NPC_TERRY,{
+    mesn;
+    mesq lg("Hello, young girl...", "Hello, young boy...");
+    next;
+
+L_Loop:
+    .@q1=getq(HurnscaldQuest_Arkim);
+    .@q2=getq2(HurnscaldQuest_Arkim);
+    .@q3=getq3(HurnscaldQuest_Arkim);
+    mesn;
+    mesq l("I am doing a great research with Bats, and thus far I collected @@ Bat Wings and Teeths.", $ARKIM_ST);
+    next;    
+    if (.@q3 > $@ARKIM_TIMER) goto L_Timer;
+    if (.@q3 < $@ARKIM_TIMER-(60*60*24)) setq3 HurnscaldQuest_Arkim, $@ARKIM_TIMER-(60*60*24); // Globally-bound timed quest
+    if (.@q2 >= 12) goto L_Timer;
+    select
+        rif(countitem(BatWing) >= 1, l("Donate a Bat Wing")),
+        rif(countitem(BatTeeth) >= 1, l("Donate a Bat Teeth")),
+        l("I better leave this crazy man to his ordeals..."),
+        l("Had you any breakthrough?");
+    mes "";
+
+    switch (@menu) {
+        case 1:
+            delitem BatWing, 1;
+            getexp 25, 0;
+            Zeny=Zeny+50;
+            break;
+        case 2:
+            delitem BatTeeth, 1;
+            getexp 35, 0;
+            Zeny=Zeny+75;
+            break;
+        case 3:
+            close;
+            break;
+        case 4:
+            goto L_Research;
+            break;
+    }
+    $ARKIM_ST=$ARKIM_ST+1;
+    setq2 HurnscaldQuest_Arkim, .@q2+1;
+    goto L_Loop;
+
+L_Timer:
+    mesn;
+    mesq l("You've helped me plenty. Please come back in @@", FuzzyTime($@ARKIM_TIMER+(60*60*24),2,2));
+    close;
+
+// TODO
+L_Research:
+    mesn;
+    mesq l("Let me see... The more Wings and Teethes I collect, the more my research shall advance.");
+    next;
+    select
+        l("Thanks."),
+        rif($ARKIM_ST >= 400, l("Cursed Arrows")),
+        rif($ARKIM_ST >= 800, l("Poison Arrows")),
+        rif($ARKIM_ST >= 200, l("Piberries Infusion")),
+        rif($ARKIM_ST >= 600, l("Fate's Potion")),
+        rif($ARKIM_ST >= 1000, l("Clotho Liquor")),
+        rif($ARKIM_ST >= 1200, l("Lachesis Brew")),
+        rif($ARKIM_ST >= 1600, l("Atropos Mixture")),
+        rif($ARKIM_ST >= 2000, l("Dark Desert Mushroom"));
+    mes "";
+    mesn;
+
+    switch (@menu) {
+    case 1:
+        mesq l("Good bye!");
+        close;
+        break;
+    case 2:
+        mesq l("The @@ are specially dangerous, and archers love them.", getitemlink(CursedArrow));
+        next;
+        mesn;
+        mesq l("These are being crafted by Alan.");
+        break;
+    case 3:
+        mesq l("The @@ are specially dangerous, and archers love them.", getitemlink(PoisonArrow));
+        next;
+        mesn;
+        mesq l("These are being crafted by Alan.");
+        break;
+    case 4:
+    case 5:
+    case 6:
+    case 7:
+    case 8:
+        mesq l("The @@ is a powerful healing drink.", getitemlink(PiberriesInfusion-4+@menu));
+        next;
+        mesn;
+        mesq l("@@ is developing these potions.", "Jesusalva"); // TODO: NPCs: ??, Fate, Clotho, Lachesis and Atropos
+        break;
+    case 3:
+        mesq l("Ah! @@. A very rare drop!", getitemlink(DarkDesertMushrooom));
+        next;
+        mesn;
+        mesq l("You can find it in the bandit market for just 50,000 GP.");
+        break;
+
+    }
+    next;
+    goto L_Research;
+
+OnInit:
+    .sex=G_MALE;
+    .distance=5;
+    // No end; on purpose
+
+OnHour00:
+    $@ARKIM_TIMER=gettimetick(2);
+    end;
+
+}
-- 
cgit v1.2.3-60-g2f50