Attach Kaizei to Argeas and Shuffle Kaizei

3 files changed, 147 insertions, 4 deletions

diff --git a/world/map/npc/017-1/_import.txt b/world/map/npc/017-1/_import.txt
index 10408f11..a4038987 100644
--- a/world/map/npc/017-1/_import.txt
+++ b/world/map/npc/017-1/_import.txt
@@ -4,4 +4,5 @@ map: 017-1.gat
 npc: npc/017-1/_mobs.txt
 npc: npc/017-1/_warps.txt
 npc: npc/017-1/flowerpentagram1.txt
+npc: npc/017-1/flowerpentagram5.txt
 npc: npc/017-1/mapflags.txt
diff --git a/world/map/npc/017-1/_warps.txt b/world/map/npc/017-1/_warps.txt
index cace9218..f54259a1 100644
--- a/world/map/npc/017-1/_warps.txt
+++ b/world/map/npc/017-1/_warps.txt
@@ -3,7 +3,9 @@
 
 017-1.gat,46,105|warp|To Woodland Hills|2,-1,013-1.gat,45,21
 017-1.gat,43,32|warp|To Theater|-1,-1,017-2.gat,26,30
-017-1.gat,76,31|warp|To Woodland Hills Labyr|-1,-1,017-3.gat,51,48
-017-1.gat,98,20|warp|To Woodland Hills Labyr|-1,-1,017-3.gat,83,33
-017-1.gat,97,31|warp|To Woodland Hills Labyr|-1,-1,017-3.gat,72,67
-017-1.gat,135,56|warp|to Woods|-1,1,056-1.gat,24,28
+017-1.gat,76,31|warp|To Woodland Hills Labyr|-1,-1,017-3.gat,69,68
+017-1.gat,98,20|warp|To Woodland Hills Labyr|-1,-1,017-3.gat,83,52
+017-1.gat,97,31|warp|To Woodland Hills Labyr|-1,-1,017-3.gat,76,65
+017-1.gat,168,90|warp|To Mirak's House|-1,-1,056-2.gat,34,30
+017-1.gat,188,104|warp|To Woodland Hills|-1,-1,055-1.gat,74,21
+017-1.gat,182,16|warp|To Deep Snow Forest|1,-1,045-1.gat,25,178
diff --git a/world/map/npc/017-1/flowerpentagram5.txt b/world/map/npc/017-1/flowerpentagram5.txt
new file mode 100644
index 00000000..24b2a9d2
--- /dev/null
+++ b/world/map/npc/017-1/flowerpentagram5.txt
@@ -0,0 +1,140 @@
+// Author: Jenalya
+// $@Flower_Pentagram_Time saves the time when the last summoning happened
+
+017-1.gat,176,59,0|script|#FlowerPentagram5|400
+{
+    if (OrumQuest >= 31) goto L_PlacedFifthFlower;
+
+    if (OrumQuest == 30) goto L_FifthFlower;
+
+    message strcharinfo(0), "Something is odd about this place.";
+    end;
+
+L_FifthFlower:
+    mes "This has to be the spot for the last magical flower. When you place it, the pentagram will be completed.";
+    menu
+        "Place the flower.", L_PlaceTheFlower,
+        "Leave.", L_Close;
+
+L_PlaceTheFlower:
+    if (isin("017-1.gat", 175, 58, 177, 60))
+        goto L_Place;
+
+    mes "This isn't working, you're too far away.";
+    goto L_Close;
+
+L_Place:
+    set @localMonsterCount,
+        mobcount("013-1.gat", "#FlowerPentagram5::OnSquirrelDeath") +
+        mobcount("013-1.gat", "#FlowerPentagram5::OnMushroomDeath") +
+        mobcount("013-1.gat", "#FlowerPentagram5::OnBlueparDeath") +
+        mobcount("013-1.gat", "#FlowerPentagram5::OnMoubooDeath") +
+        mobcount("013-1.gat", "#FlowerPentagram5::OnScorpionDeath") +
+        mobcount("013-1.gat", "#FlowerPentagram5::OnRScorpionDeath") +
+        mobcount("013-1.gat", "#FlowerPentagram5::OnAScorpionDeath") +
+        mobcount("013-1.gat", "#FlowerPentagram5::OnBScorpionDeath") +
+        8; // the mobcount function has an offset of -1, so we add 8 to have the actual amount of monsters
+    if (@localMonsterCount > 4)
+        goto L_MonstersAlive;
+
+    mes "Nervous about what's going to happen, you take the last of the flowers and put it into its place.";
+    next;
+    mes "Tension builds up around you, much stronger than before. You can feel it compressing your head, and a liquid warmth spreads under your nose, leaving a metallic taste on your lips.";
+    heal -5, 0;
+    next;
+    callfunc "FlowerPentagramCount";
+    if (($@Flower_Pentagram_Time > gettimetick(2) - 3600) && ($@Flower_Pentagram_Mobcount > 15))
+        goto L_TooEarly;
+    set $@Flower_Pentagram_Time, gettimetick(2);
+    if (countitem("RedSummonFlower") < 1)
+        goto L_NoFlower;
+    delitem "RedSummonFlower", 1;
+
+    mes "The pressure builds to the point where you don't think you can endure it any longer; the fabric that binds your consciousness together seemingly unravels.";
+    set OrumQuest, 31;
+    close2;
+    areamonster "017-1.gat", 170, 55, 190, 75, "", 1105, 3, "#FlowerPentagram5::OnSquirrelDeath";
+    areamonster "017-1.gat", 170, 55, 190, 75, "", 1106, 2, "#FlowerPentagram5::OnMushroomDeath";
+    areamonster "017-1.gat", 170, 55, 190, 75, "", 1107, 3, "#FlowerPentagram5::OnBlueparDeath";
+    areamonster "017-1.gat", 170, 55, 190, 75, "", 1104, 2, "#FlowerPentagram5::OnMoubooDeath";
+    areamonster "017-1.gat", 170, 55, 190, 75, "", 1003, 3, "#FlowerPentagram5::OnScorpionDeath";
+    areamonster "017-1.gat", 170, 55, 190, 75, "", 1004, 2, "#FlowerPentagram5::OnRScorpionDeath";
+    areamonster "017-1.gat", 170, 55, 190, 75, "", 1057, 2, "#FlowerPentagram5::OnAScorpionDeath";
+    areamonster "017-1.gat", 170, 55, 190, 75, "", 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 "Suddenly, everything calms down again and the tension vanishes. You find yourself confused about 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 pathway between this world and the astral plane drained and exhausted.";
+    next;
+    mes "You should wait a while until it recharges, or go and search for the creatures that were summoned.";
+    goto L_Close;
+
+L_MonstersAlive:
+    mes "As you get closer to the place, you feel an unnerving presence.";
+    mes "This place has recently been used to summon something! And the beings are still nearby!";
+    next;
+    mes "You should get rid of them before attempting the summoning yourself.";
+    goto L_Close;
+
+L_NoFlower:
+    mes "You reach into your pocket, but you can't find the flower! You're so close to completing your task.";
+    mes "How could you lose the last flower? If you can't get it back, you have to tell Orum.";
+    goto L_Close;
+
+L_PlacedFifthFlower:
+    mes "This is where you placed the last of Orum's magical flowers.";
+    mes "However, now that the summoning spell has been cast, everything is back to normal here.";
+    goto L_Close;
+
+L_Close:
+    set @localMonsterCount, 0;
+    close;
+}