Zarkor, the Dark Invocator Quest, Prologue

2 files changed, 89 insertions, 0 deletions

diff --git a/npc/007-1/_import.txt b/npc/007-1/_import.txt
index 68eeed9ae..39dee50ca 100644
--- a/npc/007-1/_import.txt
+++ b/npc/007-1/_import.txt
@@ -5,3 +5,4 @@
 "npc/007-1/dracoula.txt",
 "npc/007-1/pylon.txt",
 "npc/007-1/tycoon.txt",
+"npc/007-1/zarkor.txt",
diff --git a/npc/007-1/zarkor.txt b/npc/007-1/zarkor.txt
new file mode 100644
index 000000000..cbc9d2657
--- /dev/null
+++ b/npc/007-1/zarkor.txt
@@ -0,0 +1,88 @@
+// TMW2 Script
+// Author: 
+//  Crazyfefe
+//  Jesusalva
+// Description:
+//  Dark Invocator Quest
+
+007-1,152,155,0	script	Zarkor	NPC_MIRAJ,{
+    .@q=getq(TulimsharQuest_DarkInvocator);
+    if (BaseLevel <= 30)
+        goto L_Weak;
+    switch (.@q) {
+        case 0:
+            goto L_Start;
+            break;
+        case 1:
+            mesn "Zarkor, the Dark Summoner";
+            mesq l("Talk to Zitoni, the Alchemist of Candor. He may look humble, but he is the greatest alchemist of this world. I need five @@.", getitemlink(EverburnPowder));
+            close;
+            break;
+    }
+    mesn;
+    mesq l("One day... One day! ONE DAY I'LL GET REVENGE ON YOU, MONSTER KING!");
+    close;
+
+L_Weak:
+    mesn;
+    mesq lg("Stay out of harm way. Nothing to see here. Stay away, pathetically weak human.");
+    close;
+
+L_Start:
+    mesn;
+    mesq l("Hey... You... Come here.");
+    next;
+    mesn "Zarkor, the Dark Summoner";
+    mesq l("I am Zarkor, the Dark Summoner. I want to do a dark summoning ritual, but there are strings attached.");
+    next;
+    mesn "Zarkor, the Dark Summoner";
+    mesq l("I need to buy your silence. I'll reward you greatly when I'm done. But first, I need to know if you'll be loyal to me.");
+    next;
+    mesn "Zarkor, the Dark Summoner";
+    mesq l("To prove me your faith, bring me 1 @@ or 1 @@.",getitemlink(Ruby),getitemlink(Topaz));
+    mesq l("Such precious gem, is not something you would give for free, unless you are interested on my... rituals.");
+    next;
+    mesn strcharinfo(0);
+    select
+        l("Indeed. Sorry. I'm not giving you anything."),
+        rif(countitem(Ruby) >= 1, l("I swear silence, over this bloody ruby."),
+        rif(countitem(Topaz) >= 1, l("I swear silence, over this bright topaz.");
+
+    mes "";
+    switch (@menu) {
+        case 1:
+            mesn;
+            mesq l("Very well. This conversation never happened.");
+            next;
+            mesn;
+            mesq l("But if you regret this choice later... You know where you can find me.");
+            close;
+            break;
+        case 2:
+            delitem Ruby, 1;
+            setq TulimsharQuest_DarkInvocator, 1;
+            break;
+        case 3:
+            delitem Topaz, 1;
+            setq TulimsharQuest_DarkInvocator, 1;
+            break;
+    }
+    mesn "Zarkor, the Dark Summoner";
+    mesq l("Very well. I shall now share with you the details of this rite.");
+    next;
+    mesn "Zarkor, the Dark Summoner";
+    mesq l("I will summon the Monster King. Don't ask me my reasons. I know this will put Tulimshar in danger. But I will still do it.");
+    next;
+    mesn "Zarkor, the Dark Summoner";
+    mesq l("For that, I need to light five torches. The pentagram, the magic, and all the else are with me. Just light the torches.");
+    next;
+    mesn "Zarkor, the Dark Summoner";
+    mesq l("Talk to Zitoni, the Alchemist of Candor. He may look humble, but he is the greatest alchemist of this world. I need five @@.", getitemlink(EverburnPowder));
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 6;
+    end;
+
+}