Add Captain Dusk to piou castle

1 files changed, 97 insertions, 0 deletions

diff --git a/npc/006-2-5/dusk.txt b/npc/006-2-5/dusk.txt
new file mode 100644
index 000000000..c66b4fcc7
--- /dev/null
+++ b/npc/006-2-5/dusk.txt
@@ -0,0 +1,97 @@
+// TMW-2 scripts.
+// Original Authors: Hal9000 & Qwerty Dragon
+// TMW-2 Authors:
+//	  +seeds
+// Description:
+//    Piou captain who gives information about the war and piou queen.
+
+006-2-5,36,25,0	script	Captain Dusk	NPC_PIOU_KNIGHT_R,{
+	function duskIgnore
+	function duskHello
+	function duskAboutQueen
+	function reedAboutWar
+	.@q=getq(LilitQuest_Pouf)
+
+    function reedHello {
+    do
+    {
+        mesn;
+        mesq l("Welcome to the Order of the Piou Knights, %s.", strcharinfo(0));
+        next;
+        select
+            l("Why is Princess Pouf not a Queen?"),
+            l("How is the war going?"),
+            l("I just wanted to say hi.");
+        mes "";
+        switch (@menu) {
+        case 1:
+            duskAboutQueen();
+            break;
+        case 2:
+            duskAboutWar();
+            break;
+        case 3:
+            close;
+            break;
+        }
+    }
+    return;
+}
+
+function duskAboutQueen {
+    mesn;
+    mesq l("Queen +seeds of Piou Isles is busy coordinating war efforts at the front.");
+    mesn;
+    mesq l("She's a fierce piou, leading our troops into the heart of each battle. I admire her bravery.");
+    mesn;
+    mesq l("Princess Pouf has been given leadership until our Queen returns. Should Queen +seeds perish, Princess Pouf will take the crown.");
+    mesn;
+    mesq l("Fight bravely and well, %s, and perhaps our Queen will survive to return to her beloved Isles.", strcharinfo(0));
+    mesn;
+    duskHello();
+}
+
+function duskAboutWar {
+    mesn;
+    mesq l("So far neither the Duck Side or the Piou Knights have gained the upper hand in the war.");
+    mesn;
+    mesq l("However, our mages have recently begun sensing something dark stirring.");
+    mesn;
+    mesq l("I fear something terrible is rising, and I do not know if we can weather the coming storm.");
+    mesn;
+    mesc l("The captain falls quiet, and appears to be lost in thought.");
+    mesn;
+    close;
+}
+
+function duskignore {
+    next;
+	if (.@q <= 2)
+    {
+		.@r = rand2(3);
+		if (.@r == 0)
+		{
+			mesq l("Don't think you'll sneak anything by me. I'm watching you.");
+		}
+		else if (.@r == 1)
+		{
+			mesq l("I don't tolerate a piou who is afraid of hard work... or a %s.", get_race());
+		}
+		else
+		{
+			mesq l("Best steer clear of the Princess, %s. It won't go well if you upset her.", strcharinfo(0));
+		}
+		return;
+		}    
+    else if (.@q == 3)
+    {
+        duskHello();
+    }
+    return;
+}
+
+OnInit:
+    .sex = G_Other;
+    .distance = 4;
+    end;
+}