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:
    fix_mobkill(1105);
    end;

OnMushroomDeath:
    fix_mobkill(1106);
    end;

OnBlueparDeath:
    fix_mobkill(1107);
    end;

OnMoubooDeath:
    fix_mobkill(1104);
    end;

OnScorpionDeath:
    fix_mobkill(1003);
    end;

OnRScorpionDeath:
    fix_mobkill(1004);
    end;

OnAScorpionDeath:
    fix_mobkill(1057);
    end;

OnBScorpionDeath:
    fix_mobkill(1009);
    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");
    return;
}