// cure.c絕戶手療#include <ansi.h>// inherit F_CLEAN_UP;int exert(object me, string arg){	object ob;        ob = present(arg, environment(me));        if (!userp(ob)) return notify_fail("你要幫誰運功療傷呀！\n");        if (!ob) ob = find_player(arg);        if (!ob) ob = find_living(arg);        if (!ob) return notify_fail("你要幫誰運功療傷呀！\n");        if( me->is_fighting() )                return notify_fail("戰斗中不能靜下心療傷！\n");        if( me->is_busy() )                return notify_fail("你正忙著呢！\n");          if ((int)me->query_skill("yinyun-ziqi", 1) < 120)                return notify_fail("你的氤氳紫氣修為還不夠。\n");        if ((int)me->query_skill("taoism", 1) < 140)                return notify_fail("你的道家心法修為還不夠。\n");        if( (int)me->query("eff_jing") < (int)me->query("max_jing") / 2 )                return notify_fail("你自身精元虛弱，無法運用真氣！\n");    if( ob==me ) {        if( (int)me->query_condition("juehu_hurt") <= 0 )                return notify_fail("你并沒有受傷！\n");        if( (int)me->query_skill("taoism",1)<150 )                return notify_fail("你道家修為不夠替自己療傷！\n");        write( HIW "你盤膝打坐，意守丹田，開始具結全身真氣打通匯陰穴。\n" NOR);        message("vision",                HIR + me->name() + "盤膝打坐，臉色越來越紅，大汗淋漓。\n" NOR,                environment(me), me);        if(me->query("neili",1)< 1400||me->query("jingli",1)<700)        {write(RED "你突然心跳加速，呼吸困難，體內真氣頓時失控，身體僵硬地倒在地上。\n" NOR);         me->start_busy(10);         me->add("max_neili",-20);         me->set("neili",1);         me->set("jingli",1);         write(HIY "原來你體力不支，運功走火入魔!\n"NOR);         message("vision",                HIY + me->name() + "臉色大變，四肢僵硬，一頭倒在地上，出氣多吸氣少。\n" NOR,                environment(me), me);         }        else        {write(RED "你丹田真氣越聚越多，感覺越來越熱，穴道之處有如刀割。\n啊--!你大叫一聲，全身經脈終于打通，丹田暖洋洋的甚是受用!\n" NOR);         message("vision",                RED + me->name() + "啊--!吐出一口腥血，臉色也紅潤起來，兩眼精光四射，不可逼視。\n" NOR,                environment(me), me);         me->clear_condition("juehu_hurt");         if (me->query("genderbak")== "男性")             me->set("gender","男性");         me->start_busy(3);         me->set("neili",1);         me->set("jingli",1);         me->add("max_neili",-(430-(int)me->query_skill("yinyun_ziqi",1)-(int)me->query_skill("taoism",1)));         me->add("combat_exp", 10*((int)me->query_skill("yinyun_ziqi",1)+(int)me->query_skill("taoism",1)));         }     }     else     {	if( (int)arg->query_condition("juehu_hurt") <= 0 )            return notify_fail(ob->query("name")+"并沒有受傷！\n");        message_vision(HIY"$N把掌心放在$n的百匯穴上，運起三味真火來驅除陰寒之毒!\n"NOR,me,ob);        if(me->query("neili",1)< 1300||me->query("jingli",1)<650)        {write(RED "你突然心跳加速，呼吸困難，體內真氣頓時失控，身體僵硬地倒在地上。\n" NOR);         me->start_busy(10);         me->add("max_neili",-15);         me->add("max_jingli",-10);         me->set("jingli",1);         me->set("neili",1);         write(HIY "原來你體力不支，運功走火入魔!\n"NOR);         tell_object(ob, RED "你忽然感到由頭頂傳入的真氣四處亂躥，丹田陣痛，難過欲吐。\n" NOR );         message("vision",                HIY + me->name() + "臉色大變，四肢僵硬，一頭倒在地上，出氣多吸氣少。\n" NOR,                environment(me), me);         ob->add("max_jingli",-5);         ob->unconcious();         }        else        {write(RED "你逐漸加力，真氣入百匯，過任督，聚丹田，直沖匯陰穴。\n"NOR);         tell_object(ob, RED "你感到一股熱浪由百匯進入，過任督，聚丹田，直沖匯陰大穴。全身燥熱難當，\n原先的陰寒之苦頓時減弱!\n"NOR );         ob->clear_condition("juehu_hurt");         if (ob->query("genderbak")== "男性")             ob->set("gender","男性");         message_vision(RED"$N啊--!吐出一口腥紅的血，臉色恢復了紅潤。\n"NOR, ob);         ob->add("max_jingli",-5);         me->start_busy(3);         me->set("jingli",1);         me->set("neili",1);         me->add("max_neili",-(int)(420-(int)me->query_skill("yinyun_ziqi",1)-(int)me->query_skill("taoism",1))/2);         me->add("combat_exp", 4*((int)me->query_skill("yinyun_ziqi",1)+(int)me->query_skill("taoism",1)));         }     }      return 1;}