/*    /verbs/common/codesay.c
 *    from the Dead Souls  Object Library
 *    codesay
 *    codesay STR
 */

#pragma save_binary

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

inherit LIB_DAEMON;

static void create() {
    daemon::create();
    SetNoClean(1);
    parse_init();
    /* error conditions */
    parse_add_rule("codesay", "");
    /* actual verbs */
    parse_add_rule("codesay", "STR");
}

mixed can_codesay() { return "Say what?"; }

mixed can_codesay_str(string str) {
    if( !str ) return 0;
    else return 1;
}

varargs mixed do_codesay_str(string str) {
    string filename = DIR_TMP + "/" + this_player()->GetKeyName() + ".codesay";
    if( !str ) return "Huh?";
    if(strsrch(str,";") == -1){
	write("You codesay: "+"%^BOLD%^CYAN%^"+str+"%^RESET%^");
	say(this_player()->GetCapName()+" codesays: "+
	  "%^BOLD%^CYAN%^"+str+"%^RESET%^");
    }
    else {
	str = replace_string(str, ";", ";\n");
	str = replace_string(str, "{", "{\n");
	str = replace_string(str, "}", "}\n");
	write_file(filename,str,1);
	write_file(filename+"_rule","I",1);
	load_object("/secure/cmds/creators/lsed")->cmd(filename+"_rule "+filename);
	write("You codesay: ");
	say(this_player()->GetCapName()+" codesays: ");
	tell_room(environment(this_player()),"\n"+
	  "%^BOLD%^CYAN%^"+read_file(filename)+"%^RESET%^");
    }
    return 1;
}

mixed do_codesay() { return do_codesay_str(); }

string GetHelp(string str) {
    return ("Syntax: <codesay MESSAGE>\n\n"
      "Sends out a message that everyone in the room can see. "
      "This message will be stripped of normal punctuation so "
      "that text that needs to be seen literally does not cause confusion. "
      "If the message contains a semicolon, this command will attempt "
      "to format it in indented LPC style. "
      "\n\n"
      "See also: shout, speak, reply, tell, whisper");
}