Pyry is working nicely now

1 files changed, 46 insertions, 18 deletions

diff --git a/npc/020-7-1/core.txt b/npc/020-7-1/core.txt
index 02ed4e812..015b23ffa 100644
--- a/npc/020-7-1/core.txt
+++ b/npc/020-7-1/core.txt
@@ -188,21 +188,23 @@ function	script	BSProccess	{
     if (getd("$@BS_NEST"+str(.@id)))
         return;
 
-    // Let's see if something should happen
+    // Let's see if something should happen (16.7% odds each second. 3% of drip)
     .@chance=rand(30);
-    if (.@chance <= 16) {
+    if (.@chance <= 25) {
         return;
     } else if (.@chance == 27) {
         dispbottom l("A slime drips in front of you and explodes!");
         percentheal -40, 0;
+    } else {
+        dispbottom l("You notice a group of slimes emerging from the debris among the shelves.");
     }
 
     // If it haven't returned yet: It's good to go!
     // Reserve the nest ID for us, and clear the previous.
     BSClearNest(@nestid);
+    BSClearNest(.@nest);
     @nestid=.@nest;
-    BSClearNest(@nestid);
-    setd(getd("$@BS_NEST"+.@id), getcharid(0));
+    setd("$@BS_NEST"+.@id, getcharid(0));
 
     // We spawn monsters
     if (.@id % 4 == 0)
@@ -210,10 +212,9 @@ function	script	BSProccess	{
     else
         .@mid=BlueSlime;
 
-    // Does getd() works against a constant?
-    areamonster .@m$, .@xc-2, .@yc-2, .@xc+2, .@yc+2, "", .@mid, getd("BS_KNEST"+.@id), "#BlueSageHUB::OnSlimeKill"+.@id;
-
-    dispbottom l("You notice a group of slimes emerging from the debris among the shelves.");
+    //debugmes "Spawning %d slimes on quadrand %d", getd("$@BS_KNEST"+.@id), .@id;
+    // Does getd() works against a constant? I don't think so
+    monster .@m$, .@xc, .@yc, strcharinfo(0)+"'s slime", .@mid, getd("$@BS_KNEST"+.@id), "#BlueSageHUB::OnSlimeKill"+.@id;
 
     return;
 }
@@ -225,14 +226,25 @@ function	script	BSProccessDeath	{
     .@ammo=getarg(1);
     .@id=BSQuadrand(.@nest);
 
+    // First and foremost: Drops
+    if (playerattached()) {
+        getmapxy(.@m$, .@x, .@y, 0);
+        // Capped at ~12% drop chance of book pages
+        if (rand(0,10000) <= 560+(readparam(bLuck)*7))
+            makeitem SpellBookPage, 1, .@m$, .@x, .@y;
+        if (rand(0,10000) <= 100)
+            makeitem Candy, 1, .@m$, .@x, .@y;
+    }
+
+    // Mark the score if appliable and player is attached
     if (playerattached()) {
-        // Mark the score if appliable
         if (@nestid == .@nest) {
             .@q2=getq2(NivalisQuest_BlueSageSlimes)+1;
             setq2 NivalisQuest_BlueSageSlimes, .@q2;
         }
     }
 
+    // All mobs are dead
     if (!mobcount("020-7-1", "#BlueSageHUB::OnSlimeKill"+.@id)) {
         if (playerattached()) {
             // Did you killed all slimes? Or did they explode themselves?
@@ -242,8 +254,12 @@ function	script	BSProccessDeath	{
                 .@q3=getq3(NivalisQuest_BlueSageSlimes);
                 setq3 NivalisQuest_BlueSageSlimes, .@q3 | .@nest;
                 dispbottom l("It wasn't easy, but you think that you extinguished this nest.");
+                if ((.@q3 | .@nest) == BS_SNESTALL)
+                    dispbottom l("Perhaps that was the last of them?");
             } else {
                 dispbottom l("You don't see any slimes from that nest anymore. But did you really get all of them?");
+                debugmes "Nest %d, killed %d/%d slimes", .@id, .@q2, .@ammo;
+                debugmes "NEST ID: %d / %d", @nestid, .@nest;
             }
         }
         // Regardless of player attached or not, this nest must be clean
@@ -257,39 +273,39 @@ function	script	BSProccessDeath	{
     end;
 
 OnSlimeKill1:
-    BSProccessDeath(BS_SNEST1, BS_KNEST1);
+    BSProccessDeath(BS_SNEST1, $@BS_KNEST1);
     end;
 
 OnSlimeKill2:
-    BSProccessDeath(BS_SNEST2, BS_KNEST2);
+    BSProccessDeath(BS_SNEST2, $@BS_KNEST2);
     end;
 
 OnSlimeKill3:
-    BSProccessDeath(BS_SNEST3, BS_KNEST3);
+    BSProccessDeath(BS_SNEST3, $@BS_KNEST3);
     end;
 
 OnSlimeKill4:
-    BSProccessDeath(BS_SNEST4, BS_KNEST4);
+    BSProccessDeath(BS_SNEST4, $@BS_KNEST4);
     end;
 
 OnSlimeKill5:
-    BSProccessDeath(BS_SNEST5, BS_KNEST5);
+    BSProccessDeath(BS_SNEST5, $@BS_KNEST5);
     end;
 
 OnSlimeKill6:
-    BSProccessDeath(BS_SNEST6, BS_KNEST6);
+    BSProccessDeath(BS_SNEST6, $@BS_KNEST6);
     end;
 
 OnSlimeKill7:
-    BSProccessDeath(BS_SNEST7, BS_KNEST7);
+    BSProccessDeath(BS_SNEST7, $@BS_KNEST7);
     end;
 
 OnSlimeKill8:
-    BSProccessDeath(BS_SNEST8, BS_KNEST8);
+    BSProccessDeath(BS_SNEST8, $@BS_KNEST8);
     end;
 
 OnSlimeKill9:
-    BSProccessDeath(BS_SNEST9, BS_KNEST9);
+    BSProccessDeath(BS_SNEST9, $@BS_KNEST9);
     end;
 
 OnTouch:
@@ -301,5 +317,17 @@ OnCycle:
     addtimer(1000, "#BlueSageHUB::OnCycle");
     end;
 
+OnInit:
+    // K - Nest Kills
+    $@BS_KNEST1=3;
+    $@BS_KNEST2=2;
+    $@BS_KNEST3=1;
+    $@BS_KNEST4=4; // WS
+    $@BS_KNEST5=2;
+    $@BS_KNEST6=1;
+    $@BS_KNEST7=3;
+    $@BS_KNEST8=5; // WS
+    $@BS_KNEST9=1;
+    end;
 }