/*
 * Plik  : skpowiedz.h
 * Autor : Torg
 * Opis  : Czar pozwalajacy Wyznawcom Solkana przesylac wiadomosci
 *         na odleglosc do innych graczy.
 * Data  : 16 sierpnia 2002
 *
 * Copyright (C)
 *
 */

#include "defs.h"
#include "czary.h"

int
skpowiedz(string str)
{
    string who, what;
    object ob;
    if (!stringp(str))
    {
        notify_fail("Skpowiedz komu co?\n");
        return 0;
    }
    if (sscanf(str, "%s to %s", who, what) != 2 &&
        sscanf(str, "%s %s", who, what) != 2)
    {
        notify_fail("Skpowiedz komu co?\n");
        return 0;
    }
    if (TP->query_mana() < 15)
    {
        write("Twe sily mentalne sa na wyczerpaniu.\n");
        return 1;
    }
    ob = find_living(who);
    if (!objectp(ob))
    {
        notify_fail("W swym umysle slyszysz glos:\n"
                  + "Nie jest mozliwe odnalezienie osoby o imieniu: "
                  + who + ".\n");
        eat_mana(7);
        return 0;
    }
    write("Czujesz jak moc w Ciebie wstapila i slesz "
                + "poprzez przestrzen wiadoosc dla "+QCIMIE(ob,PL_DOP)
                + ": "+what+"\n");
    ob->catch_msg("W twym umysle czujesz nagle straszliwy zamet, "
                + "a po chwili wsrod natloku mysli slyszysz miekki "
                + "glos mowiacy: \n\t"+what+"\nPo chwili wszystko "
                + "cichnie, a po plecach przebiega ci dreszcz.\n");
    say(QCIMIE(TP,PL_MIA) + " koncentuje sie przez chwile poruszajac "
        + "lekko ustami.\n");
    ob->command("wzdrygnij sie");
    eat_mana(15);
    return 1;
}