// tianlei.c 鐵掌--凝血神抓#include <ansi.h>#include <combat.h>inherit F_SSERVER;int perform(object me, object target){	int damage;        string msg;        object weapon;int extra;	if( !target ) target = offensive_target(me);	if( !target	||	!target->is_character()	||	!me->is_fighting(target) )		return notify_fail("凝血神抓只能對戰斗中的對手使用。\n");        if( objectp(me->query_temp("weapon")) )		return notify_fail("你必須空手才能使用凝血神抓！\n");        if( (int)me->query_skill("yunlong-zhua", 1) < 199 )		return notify_fail("你的凝血神抓還未練成，不能使用！\n");        if (me->query_skill("yunlong-shengong", 1)<70)                return notify_fail("你的本門內功火候未到，！\n");        if( (int)me->query("neili", 1) < 600 )		return notify_fail("你現在內力不足，不能使用凝血神抓！\n");		if( (int)me->query_skill("yunlong-zhua", 1) < 119 )		return notify_fail("你的云龍抓不夠嫻熟，不能使用凝血神抓。\n");    msg = RED "\n$N把全身的勁力注入雙掌,高高躍起，**凝血神抓**，一抓抓來，勢不可擋！\n"NOR;		message_vision(msg, me, target);    if( (int)me->query_skill("yunlong-shengong", 1) > 200 )    {	extra = me->query_skill("yunlong-zhua",1) / 15;	extra += me->query_skill("yunlong-zhua",1) /15;	me->add_temp("apply/attack", 80);		me->add_temp("apply/damage", extra);    msg = HIC"左一爪！"NOR;       COMBAT_D->do_attack(me,target, me->query_temp("weapon"),TYPE_REGULAR,msg);    msg = HIG"右一爪！"NOR;       COMBAT_D->do_attack(me,target, me->query_temp("weapon"),TYPE_REGULAR,msg);    msg = HIY"上一爪！"NOR;       COMBAT_D->do_attack(me,target, me->query_temp("weapon"),TYPE_REGULAR,msg);    msg = HIR"下一爪!"NOR;       COMBAT_D->do_attack(me,target, me->query_temp("weapon"),TYPE_REGULAR,msg);target->apply_condition("zhua_poison",10);	me->add_temp("apply/attack", -80);		me->add_temp("apply/damage", -extra);}	if( weapon = target->query_temp("weapon") ){        if( random(me->query("str")) > (int)target->query("str")*3/4 ) {      msg += HIM"\n$p只覺得渾身一熱，手掌虎口巨痛，手中"                + target->query_temp("weapon")->query("name") + "脫手而出。\n" NOR;		message_vision(msg, me, target);		(		target->query_temp("weapon"))->move(environment(target));		target->start_busy(2);	} else {    msg += HIY"\n$p危急中突然伏地翻滾而出，避過了這致命一擊，已嚇得臉色蒼白！\n" NOR;		message_vision(msg, me, target);	}	me->start_busy(1);        }        else        {        if (random(me->query_skill("force")) > target->query_skill("force")/2         || random(me->query("combat_exp")) > target->query("combat_exp")/2 )	{		me->start_busy(3);		target->start_busy(random(4));				damage = (int)me->query_skill("yunlong-shengong", 1);				damage = damage*4 + random(damage);				target->receive_damage("qi", damage);		target->receive_wound("qi", damage);				if( damage < 300 ) msg += HIY"\n結果$n臉色一下變得慘白，昏昏沉沉接連退了好幾步！\n"NOR;        	else if( damage < 400 ) msg += HIY"\n結果重重地擊中，$n「哇」地一聲吐出一口鮮血！\n"NOR;        	else if( damage < 500 ) msg += RED"\n結果「轟」地一聲，$n全身氣血倒流，口中鮮血狂噴而出！\n"NOR;        	else msg += HIR"\n結果只聽見幾聲喀喀輕響，$n一聲慘叫，像灘軟泥般塌了下去！！\n"NOR;			} else 	{		me->start_busy(1);    msg += HIY"\n$p危急中突然伏地翻滾而出，避過了這致命一擊，已嚇得臉色蒼白！\n" NOR;	}	message_vision(msg, me, target);        }        me->add("neili", -300);	return 1;}