1 files changed, 102 insertions, 0 deletions
diff --git a/npc/013-1/flowerpentagram.txt b/npc/013-1/flowerpentagram.txt
new file mode 100755
index 00000000..195ada0f
--- /dev/null
+++ b/npc/013-1/flowerpentagram.txt
@@ -0,0 +1,102 @@
+013-1,1,1,0	script	#FlowerPentagram	NPC32767,{
+end;
+
+OnSummon:
+    // This is just annoying
+    //announce "Sagatha:* What kind of a foolish trick is this? Who dares to create such calamity in my forest?", 0;
+
+    callsub S_CleanUp;
+    // area closely to sagatha
+    areamonster "013-1", 119, 21, 134, 36, "", 1105, 3, "#FlowerPentagram::OnSquirrelDeath";
+    areamonster "013-1", 119, 21, 134, 36, "", 1106, 2, "#FlowerPentagram::OnMushroomDeath";
+    areamonster "013-1", 119, 21, 134, 36, "", 1107, 3, "#FlowerPentagram::OnBlueparDeath";
+    areamonster "013-1", 119, 21, 134, 36, "", 1104, 2, "#FlowerPentagram::OnMoubooDeath";
+    areamonster "013-1", 119, 21, 134, 36, "", 1003, 10, "#FlowerPentagram::OnScorpionDeath";
+    areamonster "013-1", 119, 21, 134, 36, "", 1004, 7, "#FlowerPentagram::OnRScorpionDeath";
+    areamonster "013-1", 119, 21, 134, 36, "", 1057, 5, "#FlowerPentagram::OnAScorpionDeath";
+    areamonster "013-1", 119, 21, 134, 36, "", 1009, 3, "#FlowerPentagram::OnBScorpionDeath";
+    // wider area around sagatha
+    areamonster "013-1", 68, 25, 133, 73, "", 1105, 3, "#FlowerPentagram::OnSquirrelDeath";
+    areamonster "013-1", 68, 25, 133, 73, "", 1106, 3, "#FlowerPentagram::OnMushroomDeath";
+    areamonster "013-1", 68, 25, 133, 73, "", 1107, 5, "#FlowerPentagram::OnBlueparDeath";
+    areamonster "013-1", 68, 25, 133, 73, "", 1104, 2, "#FlowerPentagram::OnMoubooDeath";
+    areamonster "013-1", 68, 25, 133, 73, "", 1003, 6, "#FlowerPentagram::OnScorpionDeath";
+    areamonster "013-1", 68, 25, 133, 73, "", 1004, 5, "#FlowerPentagram::OnRScorpionDeath";
+    areamonster "013-1", 68, 25, 133, 73, "", 1057, 4, "#FlowerPentagram::OnAScorpionDeath";
+    areamonster "013-1", 68, 25, 133, 73, "", 1009, 2, "#FlowerPentagram::OnBScorpionDeath";
+    // almost the entire map
+    areamonster "013-1", 24, 22, 136, 100, "", 1105, 4, "#FlowerPentagram::OnSquirrelDeath";
+    areamonster "013-1", 24, 22, 136, 100, "", 1106, 3, "#FlowerPentagram::OnMushroomDeath";
+    areamonster "013-1", 24, 22, 136, 100, "", 1107, 5, "#FlowerPentagram::OnBlueparDeath";
+    areamonster "013-1", 24, 22, 136, 100, "", 1104, 3, "#FlowerPentagram::OnMoubooDeath";
+    areamonster "013-1", 24, 22, 136, 100, "", 1003, 5, "#FlowerPentagram::OnScorpionDeath";
+    areamonster "013-1", 24, 22, 136, 100, "", 1004, 4, "#FlowerPentagram::OnRScorpionDeath";
+    areamonster "013-1", 24, 22, 136, 100, "", 1057, 3, "#FlowerPentagram::OnAScorpionDeath";
+    areamonster "013-1", 24, 22, 136, 100, "", 1009, 1, "#FlowerPentagram::OnBScorpionDeath";
+    end;
+
+OnSquirrelDeath:
+    @mobId = 1105;
+    callfunc "MobPoints";
+    end;
+
+OnMushroomDeath:
+    @mobId = 1106;
+    callfunc "MobPoints";
+    end;
+
+OnBlueparDeath:
+    @mobId = 1107;
+    callfunc "MobPoints";
+    end;
+
+OnMoubooDeath:
+    @mobId = 1104;
+    callfunc "MobPoints";
+    end;
+
+OnScorpionDeath:
+    @mobId = 1003;
+    callfunc "MobPoints";
+    end;
+
+OnRScorpionDeath:
+    @mobId = 1004;
+    callfunc "MobPoints";
+    end;
+
+OnAScorpionDeath:
+    @mobId = 1057;
+    callfunc "MobPoints";
+    end;
+
+OnBScorpionDeath:
+    @mobId = 1009;
+    callfunc "MobPoints";
+    end;
+
+S_CleanUp:
+    killmonster "013-1", "#FlowerPentagram::OnSquirrelDeath";
+    killmonster "013-1", "#FlowerPentagram::OnMushroomDeath";
+    killmonster "013-1", "#FlowerPentagram::OnBlueparDeath";
+    killmonster "013-1", "#FlowerPentagram::OnMoubooDeath";
+    killmonster "013-1", "#FlowerPentagram::OnScorpionDeath";
+    killmonster "013-1", "#FlowerPentagram::OnRScorpionDeath";
+    killmonster "013-1", "#FlowerPentagram::OnAScorpionDeath";
+    killmonster "013-1", "#FlowerPentagram::OnBScorpionDeath";
+    return;
+}
+
+function	script	FlowerPentagramCount	{
+    set $@Flower_Pentagram_Mobcount,
+        mobcount("013-1", "#FlowerPentagram::OnSquirrelDeath") +
+        mobcount("013-1", "#FlowerPentagram::OnMushroomDeath") +
+        mobcount("013-1", "#FlowerPentagram::OnBlueparDeath") +
+        mobcount("013-1", "#FlowerPentagram::OnMoubooDeath") +
+        mobcount("013-1", "#FlowerPentagram::OnScorpionDeath") +
+        mobcount("013-1", "#FlowerPentagram::OnRScorpionDeath") +
+        mobcount("013-1", "#FlowerPentagram::OnAScorpionDeath") +
+        mobcount("013-1", "#FlowerPentagram::OnBScorpionDeath") +
+        8; // the mobcount function has an offset of -1, so we add 8 to have the actual amount of monsters
+    return;
+}