/*    /verbs/common/whisper.c
 *    from the Dead Souls  Object Library
 *    whisper
 *    whisper to LIV STR
 *    created by Descartes of Borg 951118
 */

#include <lib.h>
#include <talk_type.h>
#include "include/whisper.h"

inherit LIB_VERB;

static void create() {
    verb::create();
    SetVerb("whisper");
    SetRules("to LIV", "in WRD", "in WRD to LIV", "to LIV STR",
            "to LIV in WRD STR", "in WRD to LIV STR");
    SetErrorMessage("Whisper to whom what?");
    SetHelp("Syntax: whisper to <LIVING> <MESSAGE>\n"
            "        whisper to <LIVING> in <LANGUAGE> <MESSAGE>\n"
            "        whisper in <LANGUAGE> to <LIVING> <MESSAGE>\n\n"
            "Privately sends a message to the targetted person in the "
            "language you specify with a small chance of being overheard.  "
            "If you fail to specify a language, your native language is "
            "used.\n"
            "See also: say, shout, speak, tell, yell");
}

mixed can_whisper_to_liv(object target) {
    return "What is it you are trying to whisper?";
}

mixed can_whisper_in_wrd(string lang) {
    return "Whisper to whom in " + lang + "?";
}

mixed can_whisper_in_wrd_to_liv(string wrd, object ob) {
    return "What do you mean to whisper?";
}

mixed can_whisper_to_liv_str(object targ, string str) {
    string lang;

    lang = this_player()->GetNativeLanguage() || "english";
    return can_whisper_to_liv_in_wrd_str(targ, lang, str);
}

mixed can_whisper_in_wrd_to_liv_str(string lang, object targ, string str) {
    return can_whisper_to_liv_in_wrd_str(targ, lang, str);
}

mixed can_whisper_to_liv_in_wrd_str(object targ, string lang, string str) {
    return this_player()->CanSpeak(targ, TALK_SEMI_PRIVATE, str, lang);
}

mixed do_whisper() { return 1; }

mixed do_whisper_to_liv(object ob) { return 1; }

mixed do_whisper_in_wrd(string wrd) { return 1; }

mixed do_whisper_in_wrd_to_liv(string str, object ob) { return 1; }

mixed do_whisper_to_liv_str(object targ, string str) {
    string lang = this_player()->GetDefaultLanguage() ||
        this_player()->GetNativeLanguage();
    return do_whisper_to_liv_in_wrd_str(targ, lang, str);
}

mixed do_whisper_in_wrd_to_liv_str(string lang, object targ, string str) {
    return do_whisper_to_liv_in_wrd_str(targ, lang, str);
}

mixed do_whisper_to_liv_in_wrd_str(object targ, string lang, string str) {
    if( sizeof(str) > 1){
        if( str[<1] != '?' && str[<1] != '!' && str[<1] != '.' )
            str = capitalize(str) + ".";
        else str = capitalize(str);
    }
    return this_player()->eventSpeak(targ, TALK_SEMI_PRIVATE, str,lang);
}