int
uspokoj(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;
}