From eada7f973e7bdb1a107da94b436530e9ceec8c2c Mon Sep 17 00:00:00 2001
From: Jessica Tölke <jtoelke@mail.upb.de>
Date: Fri, 4 May 2012 14:27:26 +0200
Subject: Make the Blue sage slime subquest more verbose.

- Message when a spawn is triggered.
- Add function that counts the number of cleard nests.
- Helper who starts the subquest gives hints on how many nests are cleared.
---
 world/map/npc/048-2/bluesageConfig.txt  | 19 +++++++++++++++++++
 world/map/npc/048-2/helperCleaning1.txt | 19 +++++++++++++++++++
 world/map/npc/048-2/slimes.txt          |  7 +++++++
 3 files changed, 45 insertions(+)

(limited to 'world/map/npc/048-2')

diff --git a/world/map/npc/048-2/bluesageConfig.txt b/world/map/npc/048-2/bluesageConfig.txt
index 22eb36ba..6ff952bd 100644
--- a/world/map/npc/048-2/bluesageConfig.txt
+++ b/world/map/npc/048-2/bluesageConfig.txt
@@ -102,3 +102,22 @@ function|script|updateBlueSageInvestigate|{
     set QUEST_BlueSage, (QUEST_BlueSage & ~($@Q_BlueSageInvestigate_MASK) | (@investigate << $@Q_BlueSageInvestigate_SHIFT));
     return;
 }
+
+function|script|blueSageNumberOfClearedNests|{
+    set @slimenests, 0;
+    if (QUEST_BlueSage & $@Q_BlueSageSlime0)
+        set @slimenests, @slimenests+1;
+    if (QUEST_BlueSage & $@Q_BlueSageSlime1)
+        set @slimenests, @slimenests+1;
+    if (QUEST_BlueSage & $@Q_BlueSageSlime2)
+        set @slimenests, @slimenests+1;
+    if (QUEST_BlueSage & $@Q_BlueSageSlime3)
+        set @slimenests, @slimenests+1;
+    if (QUEST_BlueSage & $@Q_BlueSageSlime4)
+        set @slimenests, @slimenests+1;
+    if (QUEST_BlueSage & $@Q_BlueSageSlime5)
+        set @slimenests, @slimenests+1;
+    if (QUEST_BlueSage & $@Q_BlueSageSlime6)
+        set @slimenests, @slimenests+1;
+    return;
+}
diff --git a/world/map/npc/048-2/helperCleaning1.txt b/world/map/npc/048-2/helperCleaning1.txt
index 22138d86..d7c989a6 100644
--- a/world/map/npc/048-2/helperCleaning1.txt
+++ b/world/map/npc/048-2/helperCleaning1.txt
@@ -34,6 +34,25 @@
 L_Progress:
     mes "[Pyry]";
     mes "\"It's very brave of you to fight against those slimes deeper in the library. Remember that you have to kill the entire group to prevent them from breeding.\"";
+    callfunc "blueSageNumberOfClearedNests";
+    if (@slimenests > 5) goto L_Almost;
+    if (@slimenests > 3) goto L_Some;
+    if (@slimenests > 1) goto L_Few;
+    goto L_Investigate;
+
+L_Almost:
+    next;
+    mes "\"I think there are only very few left.\"";
+    goto L_Investigate;
+
+L_Some:
+    next;
+    mes "\"The amount of slimes decreased noticably, but there are still some left.\"";
+    goto L_Investigate;
+
+L_Few:
+    next;
+    mes "\"I saw you already started, keep it on!\"";
     goto L_Investigate;
 
 L_Thank:
diff --git a/world/map/npc/048-2/slimes.txt b/world/map/npc/048-2/slimes.txt
index e61ac962..ce0b6df0 100644
--- a/world/map/npc/048-2/slimes.txt
+++ b/world/map/npc/048-2/slimes.txt
@@ -53,6 +53,7 @@ OnSpawn:
         goto L_Clean;
     set $@BlueSageSlime0_Spawn, $@BlueSageSlime0_Amount;
     areamonster "048-2.gat", 178, 92, 184, 98, "", 1093, $@BlueSageSlime0_Spawn, "#Slime0::OnSlimeDeath";
+    message strcharinfo(0), "You notice a group of slimes emerging from the debris among the shelves.";
     end;
 
 OnSlimeDeath:
@@ -139,6 +140,7 @@ OnSpawn:
         goto L_Clean;
     set $@BlueSageSlime1_Spawn, $@BlueSageSlime1_Amount;
     areamonster "048-2.gat", 161, 120, 167, 126, "", 1093, $@BlueSageSlime1_Spawn, "#Slime1::OnSlimeDeath";
+    message strcharinfo(0), "You notice a group of slimes emerging from the debris among the shelves.";
     end;
 
 OnSlimeDeath:
@@ -225,6 +227,7 @@ OnSpawn:
         goto L_Clean;
     set $@BlueSageSlime2_Spawn, $@BlueSageSlime2_Amount;
     areamonster "048-2.gat", 195, 112, 201, 118, "", 1093, $@BlueSageSlime2_Spawn, "#Slime2::OnSlimeDeath";
+    message strcharinfo(0), "You notice a group of slimes emerging from the debris among the shelves.";
     end;
 
 OnSlimeDeath:
@@ -311,6 +314,7 @@ OnSpawn:
         goto L_Clean;
     set $@BlueSageSlime3_Spawn, $@BlueSageSlime3_Amount;
     areamonster "048-2.gat", 164, 76, 170, 82, "", 1093, $@BlueSageSlime3_Spawn, "#Slime3::OnSlimeDeath";
+    message strcharinfo(0), "You notice a group of slimes emerging from the debris among the shelves.";
     end;
 
 OnSlimeDeath:
@@ -397,6 +401,7 @@ OnSpawn:
         goto L_Clean;
     set $@BlueSageSlime4_Spawn, $@BlueSageSlime4_Amount;
     areamonster "048-2.gat", 189, 83, 195, 89, "", 1091, $@BlueSageSlime4_Spawn, "#Slime4::OnSlimeDeath";
+    message strcharinfo(0), "You notice a group of slimes emerging from the debris among the shelves.";
     end;
 
 OnSlimeDeath:
@@ -483,6 +488,7 @@ OnSpawn:
         goto L_Clean;
     set $@BlueSageSlime5_Spawn, $@BlueSageSlime5_Amount;
     areamonster "048-2.gat", 180, 107, 186, 113, "", 1091, $@BlueSageSlime5_Spawn, "#Slime5::OnSlimeDeath";
+    message strcharinfo(0), "You notice a group of slimes emerging from the debris among the shelves.";
     end;
 
 OnSlimeDeath:
@@ -569,6 +575,7 @@ OnSpawn:
         goto L_Clean;
     set $@BlueSageSlime6_Spawn, $@BlueSageSlime6_Amount;
     areamonster "048-2.gat", 161, 99, 167, 105, "", 1091, $@BlueSageSlime6_Spawn, "#Slime6::OnSlimeDeath";
+    message strcharinfo(0), "You notice a group of slimes emerging from the debris among the shelves.";
     end;
 
 OnSlimeDeath:
-- 
cgit v1.2.3-60-g2f50