/*    /verbs/common/shout.c
 *    from the Dead Souls  Object Library
 *    shout
 *    shout in WRD STR
 *    shout STR
 *    created by Descartes of Borg 951119
 */

#pragma save_binary

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

inherit LIB_DAEMON;

static void create() {
    daemon::create();
    SetNoClean(1);
    parse_init();
    parse_add_rule("shout", "");
    parse_add_rule("shout", "in WRD STR");
    parse_add_rule("shout", "STR");
}

mixed can_shout() { return "Shout what?"; }

mixed can_shout_str(string str) {
    string lang;

    if( !str ) return 0;
    lang = (string)this_player()->GetNativeLanguage() || "english";
    return can_shout_in_wrd_str(lang, str);
}

mixed can_shout_in_wrd_str(string lang, string str) {
    if( !lang || !str ) return 0;
    if( !creatorp(this_player()) && (int)this_player()->GetStaminaPoints()<100 )
	return "You are too tired to shout.";
    if( strlen(str) > 250 ) return "That is way too much to shout!";
    return (mixed)this_player()->CanSpeak(0, TALK_WORLD, str, lang);
}

mixed do_shout() { return 1; }

mixed do_shout_str(string str) {
    string lang;

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

mixed do_shout_in_wrd_str(string lang, string str) {
    if( str[<1] != '!' && str[<1] != '?' && str[<1] != '.' )
	str = capitalize(str) + ".";
    else str = capitalize(str);
    this_player()->AddStaminaPoints(-100);
    return (mixed)this_player()->eventSpeak(0, TALK_WORLD, str, lang);
}

string GetHelp(string str) {
    return ("Syntax: <shout MESSAGE>\n"
      "        <shout in LANGUAGE MESSAGE>\n\n"
      "Sends a message to all players on " + mud_name() + ".  If you "
      "fail to specify a language, your native language is used.  "
      "Abuse of shouting is a violation of " + mud_name() + " laws.\n\n"
      "See also: reply, say, speak, tell, whisper, yell");
}