xiaolu2.c

C实现的MUD,对大家基本入门网络游戏很有帮助!

// xiaolu2.c

inherit ROOM;

void create()
{
	set("short", "小山路");
	set("long", @LONG
这里是华山的一条小山路，地势较为平缓，不似其它地方那么险峻。
你走在这里，四周静悄悄的，你就象走进了一个世外桃源。东面好象有一
扇竹门(men)。
LONG );
	set("exits", ([ /* sizeof() == 1 */
		"southwest" : __DIR__"xiaolu1",
	]));
	set("no_clean_up", 0);
	set("outdoors", "huashan" );
        set("no_clean_up", 0);

	setup();
}

void init()
{
    add_action("do_knock", "knock");
    add_action("do_push", "push");
}

int close_men()
{
    object room;

    if(!( room = find_object(__DIR__"xiuxishi")) )
        room = load_object(__DIR__"xiuxishi");
    if(objectp(room))
    {
        delete("exits/east");
        message("vision", "门吱吱呀呀地自己合上了。\n", this_object());
        room->delete("exits/west");
        message("vision", "门吱吱呀呀地自己合上了。\n", room);
    }
    else message("vision", "ERROR: men not found(close).\n", room);
}

int do_knock(string arg)
{
    object room;

    if (query("exits/east"))
        return notify_fail("大门已经是开着了。\n");

    if (!arg || (arg != "door" && arg != "men"))
        return notify_fail("你要敲什么？\n");

    if(!( room = find_object(__DIR__"xiuxishi")) )
        room = load_object(__DIR__"xiuxishi");
        
    if(objectp(room))
	{
		if ((int)room->query_temp("sleeping_person") > 0)
		{
        	message_vision(
"$N刚轻轻地敲了一下门，就听见里面传出一阵雷鸣般的鼾声，\n"
"显然里面的人睡得跟死猪似的，怎么敲都没用了\n",
			this_player());
		}
		else if ((int)room->query_temp("person_inside") > 0)
		{
			switch( random(2) )
			{
				case 0:
        			message_vision(
"$N轻轻地敲了敲门，只听见里面有人很不耐烦地吼到：\n"
"刚躺下就来敲门！我睡着了，听不见！！！\n",	this_player());
					break;
				case 1: 
					message_vision(
"$N轻轻地敲了敲门，只听见里面有些响动，\n"
"好象有人在踱来踱去，拿不定主意是否开门。\n", this_player());
					break;
			}       	
		}
		else
		{
			room->delete_temp("sleeping_person");
			message_vision("$N轻轻地敲了敲门：咚、咚、咚．．．咚、咚、咚．．．\n",
            this_player());
		}
	}

    if(objectp(room))
    	message("vision",
    	"外面传来一阵敲门声，你从门缝往外一瞧，是"+this_player()->query("name")+"一脸焦急地站在门外，\n"
    	"看样子也想进来休息。\n", room);
        
    return 1;
}

int do_push(string arg)
{
    object room;

    if (query("exits/east"))
        return notify_fail("门已经是开着了。\n");

    if (!arg || (arg != "door" && arg != "men"))
        return notify_fail("你要推什么？\n");

    if(!(room = find_object(__DIR__"xiuxishi")))
        room = load_object(__DIR__"xiuxishi");
        
    if(objectp(room))
    {
//		if((int)room->query_temp("person_inside")<=0)
//		{
			room->delete_temp("person_inside");
			set("exits/east", __DIR__"xiuxishi");
			message_vision("$N轻轻地把门推开。\n", this_player());
			room->set("exits/west", __FILE__);
			remove_call_out("close_men");
			call_out("close_men", 10);
//		}
//		else 
//		{
//			message_vision("$N想把门推开，却发觉门被人从里面闩上了。\n",this_player());
//		}
	}

    return 1;
}

string look_men()
{
    object room;

    if (query("exits/east"))
		return ("门上挂了个牌子：华山小筑\n");

    if(!( room = find_object(__DIR__"xiuxishi")) )
        room = load_object(__DIR__"xiuxishi");

    if( objectp(room) )
    if( (int)room->query_temp("person_inside") > 0 )
    {
		return ("门上挂了个牌子：打扰一次、罚跪三天!\n");
    } 
    
    return ("门上挂了个牌子：华山派休息室\n");
}

int valid_leave(object me, string dir)
{
	object room;
    	
	if(!( room = find_object(__DIR__"xiuxishi")) )
		room = load_object(__DIR__"xiuxishi");

	if(objectp(room) && dir == "east")
	{
		room->add_temp("person_inside", 1);
		// will open the door if ppl inside stay too long 
		remove_call_out("force_open");
		call_out("force_open", 299, room);
	}		

	return ::valid_leave(me, dir);
}

int force_open(object room)
{
	if(!objectp(room))
		return 0;
    if((int)room->query_temp("person_inside") <= 0)
		return 0;
    
	room->delete_temp("person_inside");
    set("exits/east", __DIR__"xiuxishi");
    room->set("exits/west", __FILE__);
    message("vision", "外面突然响起粗重的脚步声，由远而近，到门前停了下来．．．\n"
    	"陆大有啪地把门打开，伸个头进来，一脸狐疑：呆大半天了还不出去，搞什么鬼？\n", room);
    remove_call_out("close_men");
    call_out("close_men", 10);
}