int
keuspokoj(string str)
{
    object *oblist;
    object *targets;
    int     index = -1;
    int size;
        oblist = ({ this_player() });
        say(QCIMIE(this_player(), PL_MIA) + " usmiecha sie bardzo ladnie dajac znac, "+
            "iz dalsza walka nie jest konieczna.\n");
        write("Udalo ci sie uspokoic swych przeciwnikow.\n");
    size = sizeof(oblist);
    while(++index < size)
    {
        targets = oblist[index]->query_enemy(-1);
        oblist[index]->stop_fight(targets);
        targets->stop_fight(oblist[index]);
    }
    return 1;
}