mailbox.c

来自「C实现的MUD,对大家基本入门网络游戏很有帮助!」· C语言 代码 · 共 269 行

// mailbox.c
#include <ansi.h>

inherit ITEM;
inherit F_SAVE;

mapping *mails;

void get_mail_text(mapping mail, string str);

void create()
{
	set_name("信箱", ({ "mailbox", "box" }) );
	set("long",
		"这是个人信箱，但信件内容对巫师无法保密，请勿谈及个人隐私：\n\n"
		"mailto  <某人>            寄信给别人。\n"
		"forward <信件编号> <某人> 将某封信转寄给别人。\n"
		"from                      查看信箱中的信件。\n"
		"read    <信件编号>        阅读某一封信件。\n"
		"discard <信件编号>        丢弃一封信件。\n"
	);
	set("unit", "个");
	set("no_drop", 1);
	set("no_steal", 1);
	set("no_put", 1);
	set("no_beg", 1);
	set("no_get", 1);
	set("no_insert", 1);

	seteuid(getuid());
}

int set_owner(string id)
{
	set("owner_id", id);
	return restore();
}

void init()
{
	object ob;

	if( this_player() && environment()==this_player()) {
		set_owner( (string)this_player()->query("id") );
		this_player()->set_temp("mbox_ob", this_object());
		set_name( this_player()->name(1) + "的信箱", ({ "mailbox", "box" }) );
if (!this_player()->is_busy())
{
		add_action("do_mail", "mailto");
		add_action("do_forward", "forward");
		add_action("do_from", "from");
		add_action("do_read", "read");
		add_action("do_discard", "discard");
}
	}
}

string query_save_file()
{
	string id;

	if( !stringp(id = query("owner_id")) ) return 0;

	return DATA_DIR + "mail/" + id[0..0] + "/" + id;
}

void receive_mail(mapping mail)
{
	if( !pointerp(mails) ) mails = ({ mail });
	else mails += ({ mail });
	if( sizeof(mails) > 16 )
		mails = mails[16 / 2 .. 16];
	set("mails", mails);
	save();
}

void send_mail(string rcvr, mapping mail)
{
	object ppl, ob, mbx;

	// Acquire the login object of receiver and mark the arrival of newmail.
	ob = FINGER_D->acquire_login_ob(rcvr);
	if( !ob ) {
		write("没有这个人存在。\n");
		return;
	}
//信件过多自动删除
	if( sizeof(mails) > 16 )
		mails = mails[16 / 2 .. 16];
	set("mails", mails);
	ob->add("new_mail", 1);
	ob->save();
        this_player()->start_busy(2);
	// Get the mailbox or make a new one if not found.

	ppl = find_player(rcvr);
	if(ppl)
	{
        tell_object(ppl, HIG "绿林邮差跑步过来递给你一封信，转身就走了。\n" NOR );
		mbx = ppl->query_temp("mbox_ob");
	}
	if( !mbx ) {
		mbx = new(MAILBOX_OB);
		mbx->set_owner(rcvr);
	}

	// Receive the mail and destruct the objects if receiver is off-line.

	mbx->receive_mail(mail);
	if(!ppl) {
		destruct(mbx);
		destruct(ob);
	}
}

int do_mail(string arg)
{
	mapping mail;

	if( this_player()!=environment() ) return 0;

        if (this_player()->is_busy()) 
		return notify_fail("你现在正忙着呢。\n");

	if( !arg || arg=="" )
		return notify_fail("你要给谁寄信？\n");

	mail = ([
		"from":	this_player()->name(1) + "(" + this_player()->query("id") + ")",
		"title": "无题",
		"to": arg,
		"time": time(),
		"text": ""
	]);
	write("信件标题：");
	input_to("get_mail_title", mail);
	return 1;
}

void get_mail_title(string str, mapping mail)
{
    str=CONVERT_D->input(str, this_player());
	if( str!="" ) mail["title"] = str;
	write("信件内容：\n");
	this_player()->edit( (: get_mail_text, mail :) );
}

void get_mail_text(mapping mail, string str)
{
	if( sizeof(mails) > 16 )
		mails = mails[16 / 2 .. 16];
	set("mails", mails);
	save();
        if (strlen(str) > 12000)
{
	write("您的信件容量过大了!");
    return notify_fail("您的信件容量过大了!\n");
}
	mail["text"] = str;
	write("您要给自己留一份备份吗(y/n)？[n]");
	input_to("confirm_copy", mail);
}

void confirm_copy(string yn, mapping mail)
{
	if( sizeof(mails) > 16 )
		mails = mails[16 / 2 .. 16];
	set("mails", mails);
	save();
	if( yn[0]=='y' || yn[0]=='Y' ) receive_mail(mail);
	send_mail(mail["to"], mail);
        this_player()->start_busy(2);
	write("Ok.\n");
}

int do_from()
{
	int i;

	if( !pointerp(mails) || !sizeof(mails) ) {
		write("您的信箱中目前没有任何信件。\n");
		return 1;
	}
	write("您的信箱中现在共有 " + sizeof(mails) + " 封信件：\n\n");
	for(i=0; i<sizeof(mails); i++)
		printf("%2d %-40s FM：%-20s\n",
			i+1, mails[i]["title"], mails[i]["from"]);
	write("\n");
	return 1;
}

int do_read(string arg)
{
	int num;

	if( !arg || !sscanf(arg, "%d", num) )
		return notify_fail("您要读哪一封信？\n");

	if( !pointerp(mails) || num < 1 || num > sizeof(mails) )
		return notify_fail("没有这个编号的信件。\n");

	num --;

	printf("信件标题：%s\n寄 信 人：%s\n寄信时间：%s\n\n%s\n",
		mails[num]["title"], mails[num]["from"], ctime(mails[num]["time"]), mails[num]["text"] );
	return 1;
}

int do_discard(string arg)
{
	int num;

	if( !arg || !sscanf(arg, "%d", num) )
		return notify_fail("您要丢弃哪一封信？\n");

	if( !pointerp(mails) || num > sizeof(mails) )
		return notify_fail("没有这个编号的信件。\n");
        if (this_player()->is_busy()) 
		return notify_fail("你现在正忙着呢。\n");

	num --;

	if(num == 0)
		mails = mails[num+1..sizeof(mails)-1];
	else
		mails = mails[0..num-1] + mails[num+1..sizeof(mails)-1];
	save();
        this_player()->start_busy(2);
	write("Ok.\n");

	return 1;
}

int do_forward(string arg)
{
	string dest;
	int num;
	mapping m;

        if (this_player()->is_busy()) 
		return notify_fail("你现在正忙着呢。\n");
	if( !arg || sscanf(arg, "%d %s", num, dest)!=2 )
		return notify_fail("您要将哪一封信转寄给别人？\n");

	if( !pointerp(mails) || num > sizeof(mails) )
		return notify_fail("没有这个编号的信件。\n");

	if( sizeof(mails) > 16 )
		mails = mails[16 / 2 .. 16];
	set("mails", mails);
	save();

	num --;

	m = ([]);
	m["title"] = mails[num]["title"];
	m["text"] = mails[num]["text"];
	m["time"] = mails[num]["time"];
	m["from"] = mails[num]["from"] + "/转寄自" + this_player()->query("name");
	m["to"] = dest;
	send_mail( dest, m );
        this_player()->start_busy(2);
	write("Ok.\n");

	return 1;
}

void owner_is_killed() { destruct(this_object()); }