From 42d9b3c26880d645c4b65f80686eeecf4a07f903 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Fri, 3 Aug 2018 12:05:01 -0300
Subject: Fafi Dragon Summon. Do not use %%a

---
 npc/018-4-2/susanne.txt | 66 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)

(limited to 'npc/018-4-2/susanne.txt')

diff --git a/npc/018-4-2/susanne.txt b/npc/018-4-2/susanne.txt
index 6771f3ca2..62eb2cc6d 100644
--- a/npc/018-4-2/susanne.txt
+++ b/npc/018-4-2/susanne.txt
@@ -43,6 +43,8 @@ L_Yes:
     mesn;
     mesq l("Thank you...");
     setq LoFQuest_Fairy, 1;
+    if (!mobcount(Susanne::OnKillFafi))
+        goto L_Spawn;
     close;
 
 OnKillFafi:
@@ -89,7 +91,71 @@ L_Noob:
     close;
 
 L_Coward:
+    if (!mobcount(Susanne::OnKillFafi))
+        goto L_Check;
     mesn;
     mesq l("What are you doing talking to me? Go fight, you coward!");
     close;
+
+L_Check:
+    if (.respawnTime > gettimetick(2)){
+        mesn;
+        mesq l("Just wait. Fafi dragons are slow to show up...");
+    } else {
+        mesn;
+        mesq l("The Fafi knows you are here to kill him. They are smart. But I can make a trap.");
+        next;
+        mesn;
+        mesq l("Bring me this and I'll spawn it for you:");
+        // .@q valid values are 1 (Starter) and 3 (Veteran)
+        mesc l("@@/@@ @@", countitem(ShadowHerb), .@q*5, getitemlink(ShadowHerb));
+        mesc l("@@/@@ @@", countitem(Moss), .@q*4, getitemlink(Moss));
+        mesc l("@@/@@ @@", countitem(Root), .@q*3, getitemlink(Root));
+        next;
+        mesn;
+        mesq l("I'll be attracted by the Shadow Herb. The moss will hide the roots, which will entrap it for a while.");
+        mesq l("So, do you have the items?");
+        if (askyesno() != ASK_YES) {
+            close;
+        }
+        mes "";
+        if (countitem(ShadowHerb) < .@q*5 ||
+            countitem(Moss)       < .@q*4 ||
+            countitem(Root)       < .@q*3) goto L_Fail;
+        if (.respawnTime > gettimetick(2)) {
+            mesn;
+            mesq l("Too slow.");
+            close;
+        }
+        delitem ShadowHerb, .@q*5;
+        delitem Moss,       .@q*4;
+        delitem Root,       .@q*3;
+        goto L_Spawn;
+    }
+    close;
+
+L_Spawn:
+    if (.respawnTime > gettimetick(2)){
+        mesn;
+        mesq l("Just wait. Fafi dragons are slow to show up...");
+    } else {
+        mesn;
+        mesc l("Screams");
+        mesq l("I hear a Fafi Dragon on THIS very island!!");
+        .respawnTime=gettimetick(2)+(60*90);
+        monster "018-4", any(59,78,95,118,134), any(54,64,79), strmobinfo(1, FafiDragon), FafiDragon, 1, "#Susanne::OnKillFafi";
+    }
+    close;
+
+L_Fail:
+    mesn;
+    mesq l("You're lucky that this is the Land Of Fire and I'm on a good mood, otherwise, I would have killed you for lying to me.");
+    close;
+
+OnInit:
+    .respawnTime=0;
+    .sex=G_FEMALE;
+    .distance=5;
+    end;
+
 }
-- 
cgit v1.2.3-70-g09d2