Peetu the kid is crying

1 files changed, 76 insertions, 2 deletions

diff --git a/npc/020-7-1/peetu.txt b/npc/020-7-1/peetu.txt
index 75ad56713..d48bffea7 100644
--- a/npc/020-7-1/peetu.txt
+++ b/npc/020-7-1/peetu.txt
@@ -38,7 +38,11 @@
     function pReflection;
     function pInvestigation;
     function pComplete;
+
     .@q=getq(NivalisQuest_BlueSage);
+    .@q2=getq2(NivalisQuest_BlueSage);
+    .@q3=getq3(NivalisQuest_BlueSage);
+
     if (.@q <= 4)
         npctalk3 any(l("*sob sob*"), l("*crying*"));
 
@@ -78,7 +82,7 @@
 
 // Here we begin
 function pWaiting {
-    .@name$=getarg(0, "##1##BBUG, REPORT ME: PEETU IS WAITING THE FLYING COW##0##b");
+    .@name$=getarg(0, "##1##BBUG, REPORT ME: THE FLYING COW##0##b");
     mesn;
     mesc l("*sniff sniff*");
     mesq l("I'm waiting for @@ feedback... Please go talk to them! %%S", .@name$);
@@ -88,15 +92,82 @@ function pWaiting {
 // Peetu is too upset with failing (yeah, he is that kind of perfectionist here).
 // We should find a way to calm him down.
 function pIntro {
+    .@q=getq(NivalisQuest_BlueSage);
+    .@q2=getq2(NivalisQuest_BlueSage);
+    .@q3=getq3(NivalisQuest_BlueSage);
+    mesn;
+    mesc l("*sniff sniff*");
+    next;
+    select
+        l("Hello Peetu."),
+        rif(.@q2 >= 1, l("[Give him some salty Sea Drops?]")),
+        rif(.@q2 >= 2, l("[Give him some tasty Chocolate Bar?]")),
+        rif(.@q2 >= 3, l("[Give him a Mouboo Figurine to play with?]")),
+        rif(.@q2 >= 4, l("[Slap his hands to surprise him and get his attention?]")),
+        rif(.@q2 >= 5, l("SHUT UP PEETU, I'M ALREADY TIRED OF LISTENING YOUR CRIES!")),
+        rif(.@q2 >= 5, l("I give up. You're hopeless.")),
+        rif(.@q2 >= 5, l("Have you cried enough?")),
+        rif(.@q2 >= 5, l("[Pat his shoulder and say everything will be fine.]")),
+        rif(.@q2, l("Hi Peetu, are you calmer now?"));
+    mes "";
+    switch (@menu) {
+        case 1:
+            if (.@q2 < 1)
+                setq2 NivalisQuest_BlueSage, 1;
+        case 2:
+            if (!countitem(SeaDrops)) {
+                mesc l("You don't have @@.", getitemlink(SeaDrops));
+            }
+            if (.@q2 < 2)
+                setq2 NivalisQuest_BlueSage, 2;
+            break;
+        case 3:
+            if (!countitem(ChocolateBar)) {
+                mesc l("You don't have @@.", getitemlink(ChocolateBar));
+            }
+            if (.@q2 < 3)
+                setq2 NivalisQuest_BlueSage, 3;
+            break;
+        case 4:
+            if (!countitem(MoubooFigurine)) {
+                mesc l("You don't have @@.", getitemlink(MoubooFigurine));
+            }
+            if (.@q2 < 4)
+                setq2 NivalisQuest_BlueSage, 4;
+            break;
+        case 5:
+            mesn;
+            mesq l("AH!");
+            next;
+            mesc l("You seem to have gotten Peetu's attention for a while.");
+            next;
+            break;
+        case 9:
+            pContinue();
+            break;
+    }
+    mesn;
+    mes l("WAAAAAAAAAAAAAAAAAAHHHHHHHHHHHHHHHHHHHH");
+    mesc l("@@ burst in tears.", .name$);
+    next;
+    mesn strcharinfo(0);
+    mesc l("I probably should look in a way of calming him down.");
+    close;
+}
+
+// He is calmer now
+function pContinue {
     mesn;
     mesc l("*sniff sniff*");
-    mesq l("I'm waiting for ##1##BBUG, REPORT ME: PEETU IS WAITING THE FLYING COW##0##b feedback... Please go talk to them! %%S", .@name$);
     close;
 }
 
 // Report that Oskari is not planning to fire him (yet), and is trying to understand
 // what went wrong so it do not repeat.
 function pReflection {
+    .@q=getq(NivalisQuest_BlueSage);
+    .@q2=getq2(NivalisQuest_BlueSage);
+    .@q3=getq3(NivalisQuest_BlueSage);
     mesn;
     mesc l("*sniff sniff*");
     mesq l("I'm waiting for ##1##BBUG, REPORT ME: PEETU IS WAITING THE FLYING COW##0##b feedback... Please go talk to them! %%S", .@name$);
@@ -106,6 +177,9 @@ function pReflection {
 // Peetu hurries back to check what happened. Wait 3 minutes in the library.
 // He'll then say that in fact there was silk cocoon
 function pInvestigation {
+    .@q=getq(NivalisQuest_BlueSage);
+    .@q2=getq2(NivalisQuest_BlueSage);
+    .@q3=getq3(NivalisQuest_BlueSage);
     mesn;
     mesc l("*sniff sniff*");
     mesq l("I'm waiting for ##1##BBUG, REPORT ME: PEETU IS WAITING THE FLYING COW##0##b feedback... Please go talk to them! %%S", .@name$);