// baimatang.c
// Java Oct.10 1998

#include <ansi.h>
inherit ROOM;

int do_move(string arg);

void create()
{
        set("short", "白馬潭");
        set("long", @LONG
這個潭為於終南山主峰一帶，一條名叫庫峪河的上游。潭邊有一
塊比三間房子還要大的白石頭，這石頭中間低兩頭高，石頭的前半截
伸在水里，後半截留在岸上。由伸在水中的那半截石頭下面還不時冒
出一串串白沫，老遠看去活似一匹騰空欲飛的烈馬，因此當地人都叫
此潭為白馬潭。往北是一條崎嶇的山路。
LONG
        );
        set("outdoors", "gumu");
        set("exits", ([
                "northup" : __DIR__"shanlu6",
        ]));
        setup();
        replace_program(ROOM);
}