// 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;
}