// xixueqingfu.c 吸血青蝠 #include <ansi.h>#include <combat.h> inherit F_SSERVER; int perform(object me){	string msg;	object weapon, target;	int skill, ap, dp, neili_wound, qi_wound;        int extra;	me->clean_up_enemy();	target = me->select_opponent();	skill = me->query_skill("hanbing-mianzhang",1);	if( !(me->is_fighting() ))		return notify_fail("「吸血青蝠」只能對(duì)戰(zhàn)斗中的對(duì)手使用。\n"); 	if( (int)me->query("neili", 1) < 300 )		return notify_fail("你現(xiàn)在內(nèi)力太弱，不能使用「吸血青蝠」。\n");	if (objectp(weapon = me->query_temp("weapon")))		return notify_fail("你使用了武器。\n");	if( skill < 60)		return notify_fail("你的「寒冰綿掌」等級(jí)不夠, 不能使用「吸血青蝠」！\n");	if( me->query_skill("dodge",1) < 150 )		return notify_fail("你的輕功不夠，無(wú)法運(yùn)用「吸血青蝠」！\n"); 	msg = HIC "$N突然如同「吸血青蝠」，欺近$n的身前，張嘴便向$n的咽喉咬去。\n"NOR;	message_combatd(msg, me, target ); if ((int)me->query_skill("jiuyang-shengong",1) > 50){        extra = me->query_skill("jiuyang-shengong",1) / 10;        me->add_temp("apply/attack", extra);            me->add_temp("apply/damage", extra);        msg =  HIR "第一咬\n" NOR;        COMBAT_D->do_attack(me,target, weapon, TYPE_REGULAR,msg);        msg =  HIR "第二咬\n" NOR;        COMBAT_D->do_attack(me,target, weapon, TYPE_REGULAR,msg);        msg =  HIR "第三咬\n" NOR;        COMBAT_D->do_attack(me,target, weapon, TYPE_REGULAR,msg);        me->add_temp("apply/attack", -extra);            me->add_temp("apply/damage", -extra);}	ap = me->query("combat_exp") + skill * 500;	dp = target->query("combat_exp") / 2;	if( dp < 1 )		dp = 1;	if( random(ap) > dp )	{		if(userp(me))			me->add("neili",-200);		msg = HIG "$n只覺(jué)得咽喉一陣劇痛，$N正在狂吸$n的鮮血！\n"NOR;		neili_wound = 500 + random(skill);		if(neili_wound > target->query("qi"))			neili_wound = target->query("qi");		qi_wound = neili_wound / 3;		if (target->query("qi") > neili_wound)		target->add("qi",-neili_wound);		if (target->query("eff_qi") > neili_wound)		target->add("eff_qi",-neili_wound);		me->start_busy(2);	       me->add("qi",qi_wound);		message_combatd(msg, me, target);		COMBAT_D->report_status(target);	}	else	{		msg = HIG "只見(jiàn)$n不慌不忙，輕輕一閃，躲過(guò)了$N的利齒！\n"NOR;		if(userp(me))			me->add("neili",-100);		me->start_busy(2);		message_combatd(msg, me, target);	}	if(!target->is_fighting(me)) me->fight_ob(target);	return 1;}