gc.c

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

// Room: /city/guangchang.c
// YZC 1995/12/04 

inherit ROOM;

void create ()
{
  set ("short", "中央广场");
  set ("long", @LONG
这里是城市的正中心，一个很宽阔的广场，铺着青石地面。一些游手好
闲的人在这里溜溜达达，经常有艺人在这里表演。中央有一棵大榕树，盘根
错节，据传已有千年的树龄，是这座城市的历史见证。树干底部有一个很大
的树洞 (dong)。 你可以看到北边有来自各地的行人来来往往，南面人声鼎
沸，一派繁华景象，东边不时地传来朗朗的读书声，西边则见不到几个行人，
一片肃静。
LONG);

  set("objects", ([ /* sizeof() == 4 */
  __DIR__"npc/liumangtou" : 1,
  __DIR__"npc/xunbu" : 1,
  "/clone/topten/topten" : 1,
  __DIR__"npc/liumang" : 4,
  __DIR__"npc/man":1,
]));
  set("outdoors", "city");
  set("item_desc", ([ /* sizeof() == 1 */
  "dong" : "这是一个黑不溜湫的大洞，里面不知道有些什么古怪。
",
]));
  set("exits", ([ /* sizeof() == 5 */
  "up" : "/d/pingan/pinganmen",
  "north" : __DIR__"beidajie1",
  "east" : __DIR__"dongdajie1",
  "south" : __DIR__"nandajie1",
  "west" : __DIR__"xidajie1",
]));
  set("no_sleep_room", 1);

  setup();
}

void init()
{
        add_action("do_enter", "enter");
//      UPDATE_D->check_user(this_player());
}

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

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

        if( arg=="dong" ) 
        {
                message("vision",
                        me->name() + "一弯腰往洞里走了进去。\n",
                        environment(me), ({me}) );
                me->move("/d/gaibang/inhole");
                message("vision",
                        me->name() + "从洞里走了进来。\n",
                        environment(me), ({me}) );
                return 1;
        }
}       
int valid_leave(object me, string dir)
{
        object *inv,kicker;
        int sizeinv,n,tt;
        me=this_player();
        me->start_busy(1);
        if (dir =="up")
        {
                
        
                inv=all_inventory(me);
                sizeinv=sizeof(inv);
        
                while (sizeinv--)
                {
                        if (inv[sizeinv]->is_character())  
                                return notify_fail("你想进去拐卖人口？\n");
                
                }
                
        }

        return ::valid_leave(me, dir);
}