Add flowerpentagram npcs to do the summoning.

12 files changed, 567 insertions, 0 deletions

diff --git a/world/map/npc/012-1/_import.txt b/world/map/npc/012-1/_import.txt
index 095de153..0829616e 100644
--- a/world/map/npc/012-1/_import.txt
+++ b/world/map/npc/012-1/_import.txt
@@ -4,5 +4,6 @@ map: 012-1.gat
 npc: npc/012-1/_mobs.txt
 npc: npc/012-1/_warps.txt
 npc: npc/012-1/amrak.txt
+npc: npc/012-1/flowerpentagram2.txt
 npc: npc/012-1/injured-mouboo.txt
 npc: npc/012-1/shops.txt
diff --git a/world/map/npc/012-1/flowerpentagram2.txt b/world/map/npc/012-1/flowerpentagram2.txt
new file mode 100644
index 00000000..21910356
--- /dev/null
+++ b/world/map/npc/012-1/flowerpentagram2.txt
@@ -0,0 +1,79 @@
+// Author: Jenalya
+
+012-1.gat,143,70,0|script|#FlowerPentagram2|400,{
+
+    if (OrumQuest >= 31) goto L_PlacedFifthFlower;
+
+    if (OrumQuest > 20) goto L_PlacedSecondFlower;
+    if (OrumQuest == 20) goto L_SecondFlower;
+
+    message strcharinfo(0), "Something is odd with this place.";
+    end;
+
+L_SecondFlower:
+    mes "Orum described this place. Here you have to place the second magical flower.";
+    menu
+        "Place the flower.", -,
+        "Leave.", L_Close;
+
+    if (isin("012-1.gat", 142, 69, 144, 71))
+        goto L_Place;
+
+    mes "This doesn't work, you're too far away.";
+    goto L_Close;
+
+L_Place:
+//    if ((countitem("TODO:name") < 1))
+//        goto L_NoFlower;
+//    delitem "TODO:name", 1;
+    mes "Remembering what happened last time, you take a careful look around. Everything's calm. You proceed and place the second flower.";
+    mes "Tension builds up around you. You're alarmed.";
+    set OrumQuest, 21;
+    close2;
+    areamonster "012-1.gat", 140, 64, 146, 73, "", 1105, 2, "#FlowerPentagram2::OnSquirrelDeath";
+    areamonster "012-1.gat", 140, 64, 146, 73, "", 1106, 2, "#FlowerPentagram2::OnMushroomDeath";
+    areamonster "012-1.gat", 140, 64, 146, 73, "", 1003, 2, "#FlowerPentagram2::OnScorpionDeath";
+    areamonster "012-1.gat", 140, 64, 146, 73, "", 1004, 2, "#FlowerPentagram2::OnRScorpionDeath";
+    set @value, 15;
+    callfunc "QuestSagathaAnnoy";
+    set @value, 0;
+    end;
+
+OnSquirrelDeath:
+    set @mobID, 1105;
+    callfunc "MobPoints";
+    end;
+
+OnMushroomDeath:
+    set @mobID, 1106;
+    callfunc "MobPoints";
+    end;
+
+OnScorpionDeath:
+    set @mobID, 1003;
+    callfunc "MobPoints";
+    end;
+
+OnRScorpionDeath:
+    set @mobID, 1004;
+    callfunc "MobPoints";
+    end;
+
+L_NoFlower:
+    mes "You look into your pocket, but the flower isn't there. Where did you put it?";
+    mes "If you can't find it again, better talk to Orum.";
+    goto L_Close;
+
+L_PlacedSecondFlower:
+    mes "On this spot you placed the second of Orum's magical flowers.";
+    mes "There's a slight glowing of magic power around the place, waiting to be unleashed.";
+    goto L_Close;
+
+L_PlacedFifthFlower:
+    mes "This is the place where you put the second of Orum's magical flowers.";
+    mes "But after the pentagram was finished and the summoning happened, everything is back to normal with this spot.";
+    goto L_Close;
+
+L_Close:
+    close;
+}
diff --git a/world/map/npc/013-1/_import.txt b/world/map/npc/013-1/_import.txt
index 167433a3..2c096edd 100644
--- a/world/map/npc/013-1/_import.txt
+++ b/world/map/npc/013-1/_import.txt
@@ -3,4 +3,5 @@
 map: 013-1.gat
 npc: npc/013-1/_mobs.txt
 npc: npc/013-1/_warps.txt
+npc: npc/013-1/flowerpentagram.txt
 npc: npc/013-1/sagatha.txt
diff --git a/world/map/npc/013-1/flowerpentagram.txt b/world/map/npc/013-1/flowerpentagram.txt
new file mode 100644
index 00000000..01d51233
--- /dev/null
+++ b/world/map/npc/013-1/flowerpentagram.txt
@@ -0,0 +1,103 @@
+013-1.gat,1,1,0|script|#FlowerPentagram|127,{
+end;
+
+OnSummon:
+    announce "Sagatha: What fool trick is this? Who dares to toy around with the forest like this?", 0;
+
+    callsub S_CleanUp;
+    // TODO: balance amounts
+    // area closely to sagatha
+    areamonster "013-1.gat", 119, 21, 134, 36, "", 1105, 3, "#FlowerPentagram::OnSquirrelDeath";
+    areamonster "013-1.gat", 119, 21, 134, 36, "", 1106, 2, "#FlowerPentagram::OnMushroomDeath";
+    areamonster "013-1.gat", 119, 21, 134, 36, "", 1107, 3, "#FlowerPentagram::OnBlueparDeath";
+    areamonster "013-1.gat", 119, 21, 134, 36, "", 1104, 2, "#FlowerPentagram::OnMoubooDeath";
+    areamonster "013-1.gat", 119, 21, 134, 36, "", 1003, 10, "#FlowerPentagram::OnScorpionDeath";
+    areamonster "013-1.gat", 119, 21, 134, 36, "", 1004, 7, "#FlowerPentagram::OnRScorpionDeath";
+    areamonster "013-1.gat", 119, 21, 134, 36, "", 1057, 5, "#FlowerPentagram::OnAScorpionDeath";
+    areamonster "013-1.gat", 119, 21, 134, 36, "", 1009, 3, "#FlowerPentagram::OnBScorpionDeath";
+    // wider area around sagatha
+    areamonster "013-1.gat", 68, 25, 133, 73, "", 1105, 3, "#FlowerPentagram::OnSquirrelDeath";
+    areamonster "013-1.gat", 68, 25, 133, 73, "", 1106, 3, "#FlowerPentagram::OnMushroomDeath";
+    areamonster "013-1.gat", 68, 25, 133, 73, "", 1107, 5, "#FlowerPentagram::OnBlueparDeath";
+    areamonster "013-1.gat", 68, 25, 133, 73, "", 1104, 2, "#FlowerPentagram::OnMoubooDeath";
+    areamonster "013-1.gat", 68, 25, 133, 73, "", 1003, 6, "#FlowerPentagram::OnScorpionDeath";
+    areamonster "013-1.gat", 68, 25, 133, 73, "", 1004, 5, "#FlowerPentagram::OnRScorpionDeath";
+    areamonster "013-1.gat", 68, 25, 133, 73, "", 1057, 4, "#FlowerPentagram::OnAScorpionDeath";
+    areamonster "013-1.gat", 68, 25, 133, 73, "", 1009, 2, "#FlowerPentagram::OnBScorpionDeath";
+    // almost the entire map
+    areamonster "013-1.gat", 24, 22, 136, 100, "", 1105, 4, "#FlowerPentagram::OnSquirrelDeath";
+    areamonster "013-1.gat", 24, 22, 136, 100, "", 1106, 3, "#FlowerPentagram::OnMushroomDeath";
+    areamonster "013-1.gat", 24, 22, 136, 100, "", 1107, 5, "#FlowerPentagram::OnBlueparDeath";
+    areamonster "013-1.gat", 24, 22, 136, 100, "", 1104, 3, "#FlowerPentagram::OnMoubooDeath";
+    areamonster "013-1.gat", 24, 22, 136, 100, "", 1003, 5, "#FlowerPentagram::OnScorpionDeath";
+    areamonster "013-1.gat", 24, 22, 136, 100, "", 1004, 4, "#FlowerPentagram::OnRScorpionDeath";
+    areamonster "013-1.gat", 24, 22, 136, 100, "", 1057, 3, "#FlowerPentagram::OnAScorpionDeath";
+    areamonster "013-1.gat", 24, 22, 136, 100, "", 1009, 1, "#FlowerPentagram::OnBScorpionDeath";
+    end;
+
+OnSquirrelDeath:
+    set @mobID, 1105;
+    callfunc "MobPoints";
+    end;
+
+OnMushroomDeath:
+    set @mobID, 1106;
+    callfunc "MobPoints";
+    end;
+
+OnBlueparDeath:
+    set @mobID, 1107;
+    callfunc "MobPoints";
+    end;
+
+OnMoubooDeath:
+    set @mobID, 1104;
+    callfunc "MobPoints";
+    end;
+
+OnScorpionDeath:
+    set @mobID, 1003;
+    callfunc "MobPoints";
+    end;
+
+OnRScorpionDeath:
+    set @mobID, 1004;
+    callfunc "MobPoints";
+    end;
+
+OnAScorpionDeath:
+    set @mobID, 1057;
+    callfunc "MobPoints";
+    end;
+
+OnBScorpionDeath:
+    set @mobID, 1009;
+    callfunc "MobPoints";
+    end;
+
+S_CleanUp:
+    killmonster "013-1.gat", "#FlowerPentagram::OnSquirrelDeath";
+    killmonster "013-1.gat", "#FlowerPentagram::OnMushroomDeath";
+    killmonster "013-1.gat", "#FlowerPentagram::OnBlueparDeath";
+    killmonster "013-1.gat", "#FlowerPentagram::OnMoubooDeath";
+    killmonster "013-1.gat", "#FlowerPentagram::OnScorpionDeath";
+    killmonster "013-1.gat", "#FlowerPentagram::OnRScorpionDeath";
+    killmonster "013-1.gat", "#FlowerPentagram::OnAScorpionDeath";
+    killmonster "013-1.gat", "#FlowerPentagram::OnBScorpionDeath";
+    return;
+}
+
+function|script|FlowerPentagramCount|{
+    set $@Flower_Pentagram_Mobcount,
+        mobcount("013-1.gat", "#FlowerPentagram::OnSquirrelDeath") +
+        mobcount("013-1.gat", "#FlowerPentagram::OnMushroomDeath") +
+        mobcount("013-1.gat", "#FlowerPentagram::OnBlueparDeath") +
+        mobcount("013-1.gat", "#FlowerPentagram::OnMoubooDeath") +
+        mobcount("013-1.gat", "#FlowerPentagram::OnScorpionDeath") +
+        mobcount("013-1.gat", "#FlowerPentagram::OnRScorpionDeath") +
+        mobcount("013-1.gat", "#FlowerPentagram::OnAScorpionDeath") +
+        mobcount("013-1.gat", "#FlowerPentagram::OnBScorpionDeath") +
+        8; // the mobcount function has an offset of -1, so we add 8 to have the actual amount of monsters
+    announce "$@Flower_Pentagram_Mobcount: " + $@Flower_Pentagram_Mobcount, 0; // TODO: remove debug announce
+    return;
+}
diff --git a/world/map/npc/017-1/_import.txt b/world/map/npc/017-1/_import.txt
index 29858887..9ab66da3 100644
--- a/world/map/npc/017-1/_import.txt
+++ b/world/map/npc/017-1/_import.txt
@@ -3,3 +3,4 @@
 map: 017-1.gat
 npc: npc/017-1/_mobs.txt
 npc: npc/017-1/_warps.txt
+npc: npc/017-1/flowerpentagram1.txt
diff --git a/world/map/npc/017-1/flowerpentagram1.txt b/world/map/npc/017-1/flowerpentagram1.txt
new file mode 100644
index 00000000..38f51d0b
--- /dev/null
+++ b/world/map/npc/017-1/flowerpentagram1.txt
@@ -0,0 +1,66 @@
+// Author: Jenalya
+
+017-1.gat,95,42,0|script|#FlowerPentagram1|400,{
+
+    if (OrumQuest >= 31) goto L_PlacedFifthFlower;
+
+    if (OrumQuest > 17) goto L_PlacedFirstFlower;
+    if (OrumQuest == 17) goto L_FirstFlower;
+
+    message strcharinfo(0), "Something is odd with this place.";
+    end;
+
+L_FirstFlower:
+    mes "This looks like the place Orum described.";
+    menu
+        "Place the flower.", -,
+        "Leave.", L_Close;
+
+    if (isin("017-1.gat", 94, 41, 96, 43))
+        goto L_Place;
+
+    mes "You're too far away.";
+    goto L_Close;
+
+L_Place:
+//    if (countitem("TODO:name") < 1)
+//        goto L_NoFlower;
+//    delitem "TODO:name", 1;
+    mes "You carefully place the magic flower on the marked spot. You feel some tension in the air around you.";
+    set OrumQuest, 18;
+    close2;
+    areamonster "017-1.gat", 91, 37, 101, 46, "", 1105, 2, "#FlowerPentagram1::OnSquirrelDeath";
+    areamonster "017-1.gat", 91, 37, 101, 46, "", 1003, 3, "#FlowerPentagram1::OnScorpionDeath";
+    set @value, 15;
+    callfunc "QuestSagathaAnnoy";
+    set @value, 0;
+    end;
+
+OnSquirrelDeath:
+    set @mobID, 1105;
+    callfunc "MobPoints";
+    end;
+
+OnScorpionDeath:
+    set @mobID, 1003;
+    callfunc "MobPoints";
+    end;
+
+L_NoFlower:
+    mes "You don't have the flower with you. Where did you put it?";
+    mes "If you can't find it again, you'll have to tell Orum.";
+    goto L_Close;
+
+L_PlacedFirstFlower:
+    mes "This is the place where you put the first of Orum's magical flowers.";
+    mes "You still feel a slight glowing of magic power around the place, waiting to be unleashed.";
+    goto L_Close;
+
+L_PlacedFifthFlower:
+    mes "This is the place where you put the first of Orum's magical flowers.";
+    mes "But after the pentagram was finished and the summoning happened, everything is back to normal with this spot.";
+    goto L_Close;
+
+L_Close:
+    close;
+}
diff --git a/world/map/npc/018-1/_import.txt b/world/map/npc/018-1/_import.txt
index 21971544..0089f9c3 100644
--- a/world/map/npc/018-1/_import.txt
+++ b/world/map/npc/018-1/_import.txt
@@ -3,6 +3,7 @@
 map: 018-1.gat
 npc: npc/018-1/_mobs.txt
 npc: npc/018-1/_warps.txt
+npc: npc/018-1/flowerpentagram3.txt
 npc: npc/018-1/mike.txt
 npc: npc/018-1/miners.txt
 npc: npc/018-1/sword.txt
diff --git a/world/map/npc/018-1/flowerpentagram3.txt b/world/map/npc/018-1/flowerpentagram3.txt
new file mode 100644
index 00000000..e80a6317
--- /dev/null
+++ b/world/map/npc/018-1/flowerpentagram3.txt
@@ -0,0 +1,91 @@
+// Author: Jenalya
+
+018-1.gat,83,29,0|script|#FlowerPentagram3|400,{
+
+    if (OrumQuest >= 31) goto L_PlacedFifthFlower;
+
+    if (OrumQuest > 23) goto L_PlacedThirdFlower;
+    if (OrumQuest == 23) goto L_ThirdFlower;
+
+    message strcharinfo(0), "Something is odd with this place.";
+    end;
+
+L_ThirdFlower:
+    mes "You recognize this place as the spot where Orum wants you to place the third of his magical flowers.";
+    menu
+        "Place the flower.", -,
+        "Leave.", L_Close;
+
+    if (isin("018-1.gat", 82, 28, 84, 30))
+        goto L_Place;
+
+    mes "This doesn't work, you're too far away.";
+    goto L_Close;
+
+L_Place:
+//    if ((countitem("TODO:name") < 1))
+//        goto L_NoFlower;
+//    delitem "TODO:name", 1;
+    mes "Knowing what will happen, you prepare yourself for a fight. Then you go ahead and place the magical flower.";
+    mes "You feel the familiar tension around you. Here they come.";
+    set OrumQuest, 24;
+    close2;
+    areamonster "018-1.gat", 73, 22, 89, 36, "", 1105, 1, "#FlowerPentagram3::OnSquirrelDeath";
+    areamonster "018-1.gat", 73, 22, 89, 36, "", 1106, 2, "#FlowerPentagram3::OnMushroomDeath";
+    areamonster "018-1.gat", 73, 22, 89, 36, "", 1107, 1, "#FlowerPentagram3::OnBlueparDeath";
+    areamonster "018-1.gat", 73, 22, 89, 36, "", 1003, 2, "#FlowerPentagram3::OnScorpionDeath";
+    areamonster "018-1.gat", 73, 22, 89, 36, "", 1004, 1, "#FlowerPentagram3::OnRScorpionDeath";
+    areamonster "018-1.gat", 73, 22, 89, 36, "", 1057, 2, "#FlowerPentagram3::OnAScorpionDeath";
+    set @value, 15;
+    callfunc "QuestSagathaAnnoy";
+    set @value, 0;
+    end;
+
+OnSquirrelDeath:
+    set @mobID, 1105;
+    callfunc "MobPoints";
+    end;
+
+OnMushroomDeath:
+    set @mobID, 1106;
+    callfunc "MobPoints";
+    end;
+
+OnBlueparDeath:
+    set @mobID, 1107;
+    callfunc "MobPoints";
+    end;
+
+OnScorpionDeath:
+    set @mobID, 1003;
+    callfunc "MobPoints";
+    end;
+
+OnRScorpionDeath:
+    set @mobID, 1004;
+    callfunc "MobPoints";
+    end;
+
+OnAScorpionDeath:
+    set @mobID, 1057;
+    callfunc "MobPoints";
+    end;
+
+L_NoFlower:
+    mes "You reach into your inventory to take out the flower and place it. But you can't find it!";
+    mes "Did you loose it somewhere along the way? If you can't find it again, go talk to Orum.";
+    goto L_Close;
+
+L_PlacedThirdFlower:
+    mes "You see the place where you put the third of Orum's magical flowers.";
+    mes "You can feel the magic power around the place, waiting to be unleashed.";
+    goto L_Close;
+
+L_PlacedFifthFlower:
+    mes "You remember this place. Here you put the third of Orum's magical flowers.";
+    mes "But after the pentagram was finished and the summoning happened, everything is back to normal with this spot.";
+    goto L_Close;
+
+L_Close:
+    close;
+}
diff --git a/world/map/npc/055-1/_import.txt b/world/map/npc/055-1/_import.txt
index 383525f5..4169b0eb 100644
--- a/world/map/npc/055-1/_import.txt
+++ b/world/map/npc/055-1/_import.txt
@@ -3,4 +3,5 @@
 map: 055-1.gat
 npc: npc/055-1/_mobs.txt
 npc: npc/055-1/_warps.txt
+npc: npc/055-1/flowerpentagram4.txt
 npc: npc/055-1/pumpkins.txt
diff --git a/world/map/npc/055-1/flowerpentagram4.txt b/world/map/npc/055-1/flowerpentagram4.txt
new file mode 100644
index 00000000..6af2fa6a
--- /dev/null
+++ b/world/map/npc/055-1/flowerpentagram4.txt
@@ -0,0 +1,103 @@
+// Author: Jenalya
+
+055-1.gat,141,89,0|script|#FlowerPentagram4|400,{
+
+    if (OrumQuest >= 31) goto L_PlacedFifthFlower;
+
+    if (OrumQuest > 27) goto L_PlacedFourthFlower;
+    if (OrumQuest == 27) goto L_FourthFlower;
+
+    message strcharinfo(0), "Something is odd with this place.";
+    end;
+
+L_FourthFlower:
+    mes "This is the spot to place the fourth of Orum's magical flowers.";
+    menu
+        "Place the flower.", -,
+        "Leave.", L_Close;
+
+    if (isin("055-1.gat", 140, 88, 142, 90))
+        goto L_Place;
+
+    mes "This doesn't work, you're too far away.";
+    goto L_Close;
+
+L_Place:
+//    if ((countitem("TODO:name") < 1))
+//        goto L_NoFlower;
+//    delitem "TODO:name", 1;
+    mes "Worried about what will leak from the astral plane this time, you prepare yourself and put the flower in place.";
+    mes "As expected you feel the magical tension building up. They're coming.";
+    set OrumQuest, 28;
+    close2;
+    areamonster "055-1.gat", 133, 87, 144, 99, "", 1105, 1, "#FlowerPentagram4::OnSquirrelDeath";
+    areamonster "055-1.gat", 133, 87, 144, 99, "", 1106, 1, "#FlowerPentagram4::OnMushroomDeath";
+    areamonster "055-1.gat", 133, 87, 144, 99, "", 1107, 2, "#FlowerPentagram4::OnBlueparDeath";
+    areamonster "055-1.gat", 133, 87, 144, 99, "", 1104, 2, "#FlowerPentagram4::OnMoubooDeath";
+    areamonster "055-1.gat", 133, 87, 144, 99, "", 1003, 2, "#FlowerPentagram4::OnScorpionDeath";
+    areamonster "055-1.gat", 133, 87, 144, 99, "", 1004, 2, "#FlowerPentagram4::OnRScorpionDeath";
+    areamonster "055-1.gat", 133, 87, 144, 99, "", 1057, 2, "#FlowerPentagram4::OnAScorpionDeath";
+    areamonster "055-1.gat", 133, 87, 144, 99, "", 1009, 1, "#FlowerPentagram4::OnBScorpionDeath";
+    set @value, 15;
+    callfunc "QuestSagathaAnnoy";
+    set @value, 0;
+    end;
+
+OnSquirrelDeath:
+    set @mobID, 1105;
+    callfunc "MobPoints";
+    end;
+
+OnMushroomDeath:
+    set @mobID, 1106;
+    callfunc "MobPoints";
+    end;
+
+OnBlueparDeath:
+    set @mobID, 1107;
+    callfunc "MobPoints";
+    end;
+
+OnMoubooDeath:
+    set @mobID, 1104;
+    callfunc "MobPoints";
+    end;
+
+OnScorpionDeath:
+    set @mobID, 1003;
+    callfunc "MobPoints";
+    end;
+
+OnRScorpionDeath:
+    set @mobID, 1004;
+    callfunc "MobPoints";
+    end;
+
+OnAScorpionDeath:
+    set @mobID, 1057;
+    callfunc "MobPoints";
+    end;
+
+OnBScorpionDeath:
+    set @mobID, 1009;
+    callfunc "MobPoints";
+    end;
+
+L_NoFlower:
+    mes "You search your belongings for the magical flower. Where is it?";
+    mes "If you lost it, you should talk to Orum.";
+    goto L_Close;
+
+L_PlacedFourthFlower:
+    mes "Here you put the fourth of Orum's magical flowers.";
+    mes "There's a slight glowing of magic power around the place, waiting to be unleashed when you put the last one into place.";
+    goto L_Close;
+
+L_PlacedFifthFlower:
+    mes "This is the place where you put the fourth of Orum's magical flowers.";
+    mes "But after the pentagram was finished and the summoning happened, everything is back to normal with this spot.";
+    goto L_Close;
+
+L_Close:
+    close;
+}
diff --git a/world/map/npc/056-1/_import.txt b/world/map/npc/056-1/_import.txt
index 8266df52..810fdb01 100644
--- a/world/map/npc/056-1/_import.txt
+++ b/world/map/npc/056-1/_import.txt
@@ -3,3 +3,4 @@
 map: 056-1.gat
 npc: npc/056-1/_mobs.txt
 npc: npc/056-1/_warps.txt
+npc: npc/056-1/flowerpentagram5.txt
diff --git a/world/map/npc/056-1/flowerpentagram5.txt b/world/map/npc/056-1/flowerpentagram5.txt
new file mode 100644
index 00000000..31786166
--- /dev/null
+++ b/world/map/npc/056-1/flowerpentagram5.txt
@@ -0,0 +1,119 @@
+// Author: Jenalya
+// $@Flower_Pentagram_Time saves the time when the last summoning happened
+// TODO: think whether the 5 spawns of the endpoints also need a moblimit protection
+
+056-1.gat,62,31,0|script|#FlowerPentagram5|400,{
+goto L_Place;
+    if (OrumQuest >= 31) goto L_PlacedFifthFlower;
+
+    if (OrumQuest == 30) goto L_FifthFlower;
+
+    message strcharinfo(0), "Something is odd with this place.";
+    end;
+
+L_FifthFlower:
+    mes "This have to be the place for the last magical flower. When you place it, the pentagram will be completed.";
+    menu
+        "Place the flower.", -,
+        "Leave.", L_Close;
+
+    if (isin("056-1.gat", 61, 30, 63, 32))
+        goto L_Place;
+
+    mes "This doesn't work, you're too far away.";
+    goto L_Close;
+
+L_Place:
+    mes "Nervous of what's going to happen, you take the last of the flowers and put it into place.";
+    next;
+    mes "Tension builds up around you, much stronger than all the times before. It pressures your head, your nose starts bleeding.";
+    heal -5, 0;
+    next;
+    callfunc "FlowerPentagramCount";
+    if (($@Flower_Pentagram_Time > gettimetick(2) - 3600) && ($@Flower_Pentagram_Mobcount > 5)) // TODO: balance treshold
+        goto L_TooEarly;
+    set $@Flower_Pentagram_Time, gettimetick(2);
+//    if ((countitem("TODO:name") < 1))
+//        goto L_NoFlower;
+//    delitem "TODO:name", 1;
+
+    mes "The moment you think you can't endure it anymore, the webbing of the world seems to tear apart.";
+    set OrumQuest, 31;
+    close2;
+    areamonster "056-1.gat", 56, 26, 80, 46, "", 1105, 3, "#FlowerPentagram5::OnSquirrelDeath";
+    areamonster "056-1.gat", 56, 26, 80, 46, "", 1106, 2, "#FlowerPentagram5::OnMushroomDeath";
+    areamonster "056-1.gat", 56, 26, 80, 46, "", 1107, 3, "#FlowerPentagram5::OnBlueparDeath";
+    areamonster "056-1.gat", 56, 26, 80, 46, "", 1104, 2, "#FlowerPentagram5::OnMoubooDeath";
+    areamonster "056-1.gat", 56, 26, 80, 46, "", 1003, 3, "#FlowerPentagram5::OnScorpionDeath";
+    areamonster "056-1.gat", 56, 26, 80, 46, "", 1004, 2, "#FlowerPentagram5::OnRScorpionDeath";
+    areamonster "056-1.gat", 56, 26, 80, 46, "", 1057, 2, "#FlowerPentagram5::OnAScorpionDeath";
+    areamonster "056-1.gat", 56, 26, 80, 46, "", 1009, 2, "#FlowerPentagram5::OnBScorpionDeath";
+    set @value, 15;
+    callfunc "QuestSagathaAnnoy";
+    set @value, 0;
+    donpcevent "#FlowerPentagram::OnSummon";
+    end;
+
+OnSquirrelDeath:
+    set @mobID, 1105;
+    callfunc "MobPoints";
+    end;
+
+OnMushroomDeath:
+    set @mobID, 1106;
+    callfunc "MobPoints";
+    end;
+
+OnBlueparDeath:
+    set @mobID, 1107;
+    callfunc "MobPoints";
+    end;
+
+OnMoubooDeath:
+    set @mobID, 1104;
+    callfunc "MobPoints";
+    end;
+
+OnScorpionDeath:
+    set @mobID, 1003;
+    callfunc "MobPoints";
+    end;
+
+OnRScorpionDeath:
+    set @mobID, 1004;
+    callfunc "MobPoints";
+    end;
+
+OnAScorpionDeath:
+    set @mobID, 1057;
+    callfunc "MobPoints";
+    end;
+
+OnBScorpionDeath:
+    set @mobID, 1009;
+    callfunc "MobPoints";
+    end;
+
+L_TooEarly:
+    mes "Then everything calms down again and then tension vanishes. You're unsure what's going on.";
+    next;
+    mes "You pick up the flower again.";
+    next;
+    mes "Looking at the place more closely, it seems another summoning has happened just before, leaving the path between this world and the astral plane drained and exhausted.";
+    next;
+    mes "You should wait a while until it recovers, or go and search the creatures that got summoned.";
+    goto L_Close;
+
+L_NoFlower:
+    mes "You reach into your pocket, but you can't find the flower! You're so close to completing you task.";
+    mes "How could you loose the last flower? If you can't get it back, you have to tell Orum.";
+    goto L_Close;
+
+L_PlacedFifthFlower:
+    mes "This is the place where you put the last one of Orum's magical flowers.";
+    mes "But after the pentagram was finished and the summoning happened, everything is back to normal with this spot.";
+    goto L_Close;
+
+L_Close:
+    close;
+}