int
uspokoj(string str)
{
    object *oblist;
    object *targets;
    int     index = -1;
    int size;
        oblist = ({ this_player() });
        say(QCIMIE(this_player(), PL_MIA) + " zaczyna rzucac ci ponure spojrzenia "
	+"majace znaczyc, ze nie chce dalszej walki. Wolisz nie ryzykowac i nie "
	+"sprzeciwiac sie jego woli.\n");
        write("Twoi wrogowie podzialaja twoje zdanie o walce.\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;
}