hsqtan1.c//HSQTAN2.C

inherit ROOM;

void create()
{
	set("short", "深潭");
	set("long", @LONG
這里是瀑布下的寒潭，水中幽暗無比，四周似乎有几處出口，
但實在看不清是通向何處。水中冰冷刺骨，令人難以忍受，你只覺
得氣力在一點一點消失。
LONG );
	set("exits", ([
		"east" : __DIR__"hsqtan3",
		"west" : __DIR__"hsqtan2",
		"south" :__DIR__"hsqtan1",
		"north" :__DIR__"hsqtan2",
	]));
	set("no_clean_up", 0);
	setup();
}

void init()
{
	object me;
        int meqi,meneili,decqi,mq;
	me=this_player();
	meqi=(int)me->query("qi");
        meneili=(int)me->query("neili");
        mq=(int)me->query("max_qi");
        decqi=(int)(mq/(random(4)+5+meneili/200));
	meqi=meqi-decqi;
	me->set("neili",0);
        if(meqi>0) me->set("qi",meqi);
        else me->die();
}
);
        meneili=(int)me->query("neili");
        mq=(int)me->query("max_qi");
        decqi=(int)(mq/(random(4)+5+meneili/200));
	meqi=meqi-decqi;
	me->set("neili",0);
        if(meqi>0) me->set("qi",meqi);
        else me->die();
}

hsqtan5.c//HSQTAN6.C

inherit ROOM;

void create()
{
	set("short", "深潭");
	set("long", @LONG
這里的水只有齊腰深，但站在水中，仍感覺寒意從腳下漫起，
經久不散。
LONG );
	set("exits", ([
		"up"   : __DIR__"hsqmen",
		"west" : __DIR__"hsqtan5",
	]));
	set("no_clean_up", 0);
	setup();
	replace_program(ROOM);
}

