// shandong3.c// Modified by Java Apr.27 1998#include <ansi.h>inherit ROOM;void create(){        set("short","山洞");        set("long",@LONG這是一個(gè)小小的山洞，血刀老祖的藏身之地。由於此地比較隱秘，仇家很難尋到這來。洞底有一張供桌，上面供了什麼東西，你看不清。壁上畫了一些模糊不清的文字圖案，也不知道是些什么。好像有一條通向不知道什么地方的密道(midao)LONG );        set("exits",([                "out" : __DIR__"shandong2",                "midao" :"/d/city/kedian",        ]));        set("objects", ([                "quest/menpaijob/xuedao/xuedao" :1,                __DIR__"npc/x_lama" :1,                        ]));        setup();        "/clone/board/xuedao_b"->foo();}void init(){        add_action("do_watch", "watch");        add_action("do_watch", "kan");        add_action("do_watch", "mianbi");        add_action("do_watch", "face");	add_action("do_baohu", "baohu");	add_action("do_qiang", "qiang");}int do_watch(){        object ob = this_player();        int lvl = this_player()->query_skill("xue-dao",1);        if ((int)ob->query_skill("longxiang", 1) < 20)        {                message_vision("$N的龍象功不夠，看不懂上面刻的是什么。\n",ob);                return 1;        }        if ((int)ob->query_skill("xue-dao", 1) > 50)        {                message_vision("$N的血刀刀法早就超越壁上所刻了。\n",ob);                return 1;        }        if((lvl * lvl * lvl) > (int)ob->query("combat_exp"))        {                message_vision("$N的實(shí)戰(zhàn)經(jīng)驗(yàn)不足，無法領(lǐng)悟壁上內(nèi)容。\n",ob);                return 1;        }        if (ob->query("jing")<20)        {                 message_vision("$N太累了，現(xiàn)在無法領(lǐng)悟壁上內(nèi)容。\n",ob);                 return 1;        }        message_vision("$N面對(duì)著壁上圖案揣摩良久，似有所悟。\n",ob);        ob->improve_skill("xue-dao", random(ob->query("int")));        ob->receive_damage("jing", 20);        return 1;}int do_baohu(string arg){	object me = this_player(), ob;	if (!me->query_temp("szj/wait_baohu")) return 0;	if (arg != "shui sheng") return 0;	me->delete_temp("szj/wait_baohu");	ob = present("xuedao laozu", this_object());	message_vision(HIW"$N叫道：“別再殺人了！”撲將上去，手中樹枝擊在$n腕上。\n"NOR, me, ob);	message_vision(HIC"若在平時(shí)，$n焉能給$N擊中？但這時(shí)衰頹之余，功力不到原來的半成，手指一松，血刀脫手。\n"NOR, me, ob);	me->set_temp("szj/baohu", 1);	me->set_temp("szj/wait_qiang", 1);	return 1;}int do_qiang(string arg){	object me = this_player(), ob;	if (!me->query_temp("szj/wait_qiang")) return 0;	if (arg != "dao" && arg !="blade") return 0;	me->delete_temp("szj/wait_qiang");	ob = present("xuedao laozu", this_object());	message_vision(HIW"$N和$n同時(shí)俯身去搶兵刃。$N手掌在下，先按到了刀柄。\n"NOR, me, ob);	message_vision(HIC"$n提起雙手，便往$N頸中扼去。$N一陣窒息，放開了血刀，伸手撐持。\n"NOR, me, ob);	message_vision(HIC"$n知道自己力氣無多，這一下若不將$N扼死，自己便命喪$N手。\n"NOR, me, ob);	message_vision(HIC"$N頭頸被血刀僧扼住，呼吸越來越艱難，胸口如欲迸裂。\n\n"NOR, me, ob);	me->start_busy(100);	call_out("story3", 2, me, ob);	return 1;}void story3(object me, object ob){	if (me->query_skill("shenzhao-jing", 1) < 200) {		call_out("finish", 1, me, ob);		return;	}	tell_object(me, HIR"你肺中積聚著的一股濁氣數(shù)度上沖，要從口鼻中呼了出來，但喉頭的要道被阻，這股氣沖到喉頭，又回了下去。\n"NOR);	tell_object(me, HIR"一股濁氣在你體內(nèi)左沖右突，始終找不到出路。\n"NOR);	tell_object(me, HIR"你只感全身難受困苦已達(dá)極點(diǎn)，心中只叫：“我快要死了，我快要死了！”\n\n"NOR);	call_out("story4", 2, me, ob);}void story4(object me, object ob){	object obj;	int lev = me->query_skill("force", 1);	if (random(150 + lev/2) < 300	) {		call_out("finish", 1, me, ob);		return;	}	tell_object(me, HIW"突然之間，你只覺胸腹間劇烈刺痛，體內(nèi)這股氣越脹越大，越來越熱，猶如滿鑊蒸氣沒有出口，直要裂腹而爆，驀地里前陰后陰之間的“會(huì)陰穴”上似乎被熱氣穿破了一個(gè)小孔，登時(shí)覺得有絲絲熱氣從“會(huì)陰穴”通到脊椎末端的“長(zhǎng)強(qiáng)穴”去。人身“會(huì)陰”“長(zhǎng)強(qiáng)”兩穴相距不過數(shù)寸，但“會(huì)陰”屬于任脈，“長(zhǎng)強(qiáng)”卻是督脈，兩脈的內(nèi)息決不相通。你體內(nèi)的內(nèi)息加上無法宣泄的一股巨大濁氣，交迸撞激，竟在危急中自行強(qiáng)沖猛攻，替你打通了任脈和督脈的大難關(guān)。這內(nèi)息一通入“長(zhǎng)強(qiáng)穴”，登時(shí)自腰俞、陽關(guān)、命門、懸樞諸穴，一路沿著脊椎上升，走的都是背上督任各個(gè)要穴，然后是脊中、中樞、筋縮、至陽、靈臺(tái)、神道、身柱、陶道、大椎、痖門、風(fēng)府、腦戶、強(qiáng)間、后頂、而至頂門的“百會(huì)穴”。\n"NOR);	tell_object(me, HIW"這股內(nèi)息沖到百會(huì)穴中，只覺顏面上一陣清涼，一股涼氣從額頭、鼻梁、口唇下來，通到了唇下的“承漿穴”。這承漿穴已屬任脈，這一來自督返任。任脈諸穴都在人體正面，這股清涼的內(nèi)息一路下行，自廉泉、天突而至璇璣、華蓋、紫宮、玉堂、膻中、中庭、鳩尾、巨闕、經(jīng)上、中、下三脘，而至水分、神厥、氣海、石門、關(guān)元、中極、曲骨諸穴，又回到了“會(huì)陰穴”。如此一個(gè)周天行將下來，郁悶之意全消，說不出的暢快受用。內(nèi)息第一次通行時(shí)甚是艱難，任督兩脈既通，道路熟了，第二次、第三次時(shí)自然而然的飛快運(yùn)轉(zhuǎn)，頃刻之間，連走了一十八次。\n\n"NOR);	message("channel:rumor", MAG"【謠言】某人："+me->query("name")+"機(jī)緣巧合，打通了任督二脈，達(dá)到了神照經(jīng)心法的最高境界！\n"NOR, users());	message_vision(HIC"$N體內(nèi)的勁力愈來愈強(qiáng)，心中卻仍是十分害怕，只求掙扎脫身，雙手亂抓亂舞，始終碰不到$n身上，左腳向后亂撐幾下，突然一腳踹在$n的小腹之上。\n\n"NOR, me, ob);	ob->unconcious();	me->start_busy(1);	me->set("szj/over200", 1);	obj = present("shui sheng", this_object());	if (!obj) return;	message_vision(HIY"$N說道：姑娘你走吧，否則$n醒來一定不會(huì)放過你的。\n"NOR, me, ob);	message_vision(HIY"$n冷哼一聲：你也不是好人，我以后不會(huì)放過你的！\n"NOR, me, obj);	message_vision(HIY"$n說完哭著向外面跑去。\n\n"NOR, me, obj);	destruct(obj);}void finish(object me, object ob){	object obj = present("shui sheng", this_object());	if (!obj) return;	message_vision(HIY"$n冷哼一聲，小崽子自不量力，看在你給老子找女人的分上饒你不死。\n"NOR, me, ob);	message_vision(HIY"可是這個(gè)小妞咱可不能防過，否則等她力氣恢復(fù)了，肯定會(huì)殺了我們兩個(gè)。\n"NOR, me, ob);	message_vision(HIY"$n揮刀砍向水笙，水笙躲避不及，鮮血從喉嚨口直流出來。\n"NOR, me, ob);	obj->die();	me->start_busy(1);	me->unconcious();}