/*    /verbs/common/mail.c
 *    from the Dead Souls Object Library
 *    mail
 *    mail STR
 *    created by Descartes of Borg 950113
 */

#pragma save_binary

#include <lib.h>
#include <objects.h>
#include "include/mail.h"

inherit LIB_DAEMON;

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

mixed can_mail() { return can_mail_str(""); }

mixed can_mail_str(string str) {
    if( !str ) return 0;
    else if( str == "" ) str = 0;
    if( !creatorp(this_player()) ) {
	mixed tmp;

	tmp = (mixed)environment(this_player())->CanMail(this_player(), str);
	if( !tmp ) return "Does this place look like a post office?";
	else return tmp;
    }
    return 1;
}

mixed do_mail() { return do_mail_str(0); }

mixed do_mail_str(string str) {
    object ob;

    if( !creatorp(this_player()) )
	return (mixed)environment(this_player())->eventMail(this_player(), str);
    if( !(ob = new(OBJ_POST)) ) {
	this_player()->eventPrint("Failed to load postal object!");
	return 1;
    }
    if( !((int)ob->eventMove(this_player())) ) {
	this_player()->eventPrint("You can't seem to carry the postal "
	  "object.");
	return 1;
    }
    this_player()->eventPrint("%^RED%^Remember!%^RESET%^ To end a post, enter a single period on an otherwise blank line, and then hit return.");
    ob->start_post(str);
    return 1;
}

string GetHelp(string str) {
    return ("Syntax: <mail>\n"
      "        <mail PLAYER>\n"
      "        <mail GROUP>\n\n"
      "        <mail PLAYER@MUD>\n\n"
      "Allows you to send mail to another player on this game. "
      "Without arguments, you are simply set to read your "
      "mail.  With arguments, you are creating mail to be sent.  "
      "You may only read mail in your home town.  The mailer will "
      "properly route any mail you send to the proper home town "
      "for the player or players you intend it to go to.\n\n"
      "See also: mudlist");
}