// 定魂 子母針特殊技#include <ansi.h>#include <combat.h> inherit F_SSERVER;int perform(object me, object target){	object weapon;	string msg;int extra;	if( !target ) target = offensive_target(me);	if( !target	||	!target->is_character()	||	!me->is_fighting(target) )		return notify_fail("「定魂」只能對戰斗中的對手使用。\n");	if (!objectp(weapon = me->query_temp("weapon"))		|| (string)weapon->query("skill_type") != "throwing")			return notify_fail("你使用的武器不對。\n");	if( target->is_busy() )		return notify_fail(target->name() + "已經神志恍惚，放膽攻擊吧.\n");			if( (int)me->query_skill("zimu-zhen", 1) < 30 )		return notify_fail("你的子母針法不夠嫻熟，不會使用「定魂」。\n");	if( (int)me->query_skill("biyun-xinfa", 1) < 60 )                return notify_fail("你的碧云心法不夠高。\n");        if( (int)me->query("neili", 1) < 300 )                return notify_fail("你現在內力太弱。\n"); extra = me->query_skill("zimu-zhen",1) / 3;	me->add_temp("apply/attack", extra);		me->add_temp("apply/damage", extra*5);msg = RED "$N左手一揚，唐門獨門暗器----一朵令人聞風喪膽的唐花朝$n發了出去。\n" NOR;	COMBAT_D->do_attack(me,target, weapon, TYPE_REGULAR,msg);	me->add_temp("apply/attack", -extra);	me->add_temp("apply/damage", -extra*5);        me->add("neili",-50);        	msg = HIG "$N雙目突然泛過怪異綠光,中指在不易察覺間微微一動,一點銀星悄無聲息打向$n眉心。\n"NOR;	me->start_busy(1);	if( random(me->query("combat_exp")) > (int)target->query("combat_exp")/2 ) {		msg += HIR " 結果$p被$P的「定魂」打個正著，瞬間神志開始迷糊起來！\n" NOR;                target->start_busy( (int)me->query_skill("zimu-zhen") / 50+2 );        target->apply_condition("tmzhuihun_poison", 60);	if( random(me->query("combat_exp")) > (int)target->query("combat_exp")/2 ) {        target->apply_condition("tmqidu_poison", 60);	} 	} else {		msg += "可是$p在千鈞一發之間閃身躲過了這一擊。\n" NOR;	}	message_vision(msg, me, target);	return 1;}