017-1,95,42,0	script	#FlowerPentagram1	NPC400,{
    if (getq(MagicQuest_DarkMage) >= 31) goto L_PlacedFifthFlower;

    if (getq(MagicQuest_DarkMage) > 17) goto L_PlacedFirstFlower;
    if (getq(MagicQuest_DarkMage) == 17) goto L_FirstFlower;

    message strcharinfo(0), "Something is odd about this place.";
    end;

L_FirstFlower:
    mes "This looks like the place Orum described.";
    menu
        "Place the flower.", L_Next,
        "Leave.", L_close;

L_Next:
    if (isin("017-1", 94, 41, 96, 43))
        goto L_Place;

    mes "You're too far away.";
    goto L_close;

L_Place:
    set @localMonsterCount,
        mobcount("017-1", "#FlowerPentagram1::OnSquirrelDeath") +
        mobcount("017-1", "#FlowerPentagram1::OnScorpionDeath");
    if (@localMonsterCount > 2)
        goto L_MonstersAlive;

    if (countitem("OrangeSummonFlower") < 1)
        goto L_NoFlower;
    delitem "OrangeSummonFlower", 1;
    mes "You carefully place the magic flower on the marked spot. You feel some tension in the air around you.";
    setq(MagicQuest_DarkMage, 18);
    close2;
    areamonster "017-1", 91, 37, 101, 46, "", 1105, 2, "#FlowerPentagram1::OnSquirrelDeath";
    areamonster "017-1", 91, 37, 101, 46, "", 1003, 3, "#FlowerPentagram1::OnScorpionDeath";
    @value = 15;
    callfunc "QuestSagathaAnnoy";
    @value = 0;
    end;

OnSquirrelDeath:
    fix_mobkill(1105);
    end;

OnScorpionDeath:
    fix_mobkill(1003);
    end;

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 don't have the flower with you. Where did you put it?";
    mes "If you can't find it, you should talk to Orum again.";
    goto L_close;

L_PlacedFirstFlower:
    mes "You placed the first of Orum's magical flowers on this spot.";
    mes "You can still feel the magical power shimmering around this place, waiting to be unleashed.";
    goto L_close;

L_PlacedFifthFlower:
    mes "This is where you placed the first 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:
    @localMonsterCount = 0;
    close;
}