bagua.c

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

// Room: /d/shaolin/bagua.c
// Date: YZC 96/01/19
// Date: CLEANSWORD 96/05/19

inherit ROOM;

void create()
{
	set("short", "八卦阵阵心");
	set("long", @LONG
这里就是洪荒古阵的中心。站在这里，才能看清楚四周
的情形，只见周围暮蔼沉沉，云气弥漫，不见边际。一道道
闪电如奔蛇般穿梭其间，发出阵阵闷雷。间夹着几声惨厉的
哭叫声，与雷电着地的劈裂声混合在一起，整个场面说不出
的诡异可惧。阵心正中处有一口深潭(tan)，望之深不见底。
LONG );
	set("item_desc", ([
		"tan":  "深潭边的岩石上刻着四个巨大的古篆：“万古寒潭”，\n"
			"再有五个小字：“苍松子谨书”。 潭边都是极硬的玄武岩，\n"
			"潭水澄碧透明，鱼虾不生。水面隐隐泛着一股幽幽的深绿色，\n"
			"走近便觉一股彻骨寒气扑面而来。  粗看似乎只有几十丈深，\n"
			"仔细望下去却是越看越深，直如无底深渊一般！\n",
	]));
	set("exits", ([
		"up" : __DIR__"andao3",
	]));
	set("no_clean_up", 0);
	setup();
}

void init()
{
        add_action("do_enter", "enter");
}

int do_enter(string arg)
{
	object me;
	me = this_player();

        if( !arg || arg=="" ) return 0;

        if( arg=="tan" ) 
	{
                if( present("pishui zhu", me) ) 
		{
			message_vision("$N取出辟水灵珠，含在嘴里，轻轻一纵，跃入寒潭之中。\n", me);
	                me->move("/d/shaolin/hantan1");
        	        message("vision", "只听水面哗啦一声响，似乎有人也潜下水来。\n",
                		environment(me), ({me}) );
		}
		else
		{
			tell_object(me, "你一跳入水中，只觉蚀骨寒气从全身无数个毛孔侵入，四肢几乎完全麻木，\n"
					"你拚着丹田中残余的一股内力，攀住潭边的岩石，急急忙忙地爬了出来！\n");
        	        message("vision", me->name() + "下半身一浸入水中，立刻大叫一声，落汤鸡似地跳了出来！，\n",
                		environment(me), ({me}) );
		}

		return 1;
	}
}