juehu.old

C实现的MUD,对大家基本入门网络游戏很有帮助!

// juehu.c 三阴绝户手「绝户」perform
#include <ansi.h>

inherit F_SSERVER;
int perform(object me, object target)
{
        int damage,l_temp;
	string msg;

	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("juehu-shou", 1) < 100 )
                return notify_fail("你的虎爪绝户手不够娴熟，不会使用「绝户」神功\n");
	                        
        if( (int)me->query_skill("yinyun-ziqi", 1) < 80 )
                return notify_fail("你的氤氲紫气不够高，不能用「绝户」神功伤敌。\n");
			
        if( (int)me->query("neili") < 200 )
                return notify_fail("你现在内力太弱，不能使出「绝户」招式。\n");
			
        msg = BLU "$N默运神功，脸色白得吓人，突然使出虎爪绝户手的最后一击「绝户」，企图当场把$n废于掌下。\n"NOR;

        if (random(me->query_skill("force")) > target->query_skill("force")/2 )
	{
                me->start_busy(1);
		target->start_busy(random(3));
		
                damage = (int)me->query_skill("juehu-shou", 1);
		
		damage = damage/2 + random(damage);
		
                target->receive_damage("qi", damage);
                target->receive_wound("qi", damage/3);
                target->receive_damage("jing", damage/2);
                target->receive_wound("jing", damage/3);
                me->add("neili", -damage/8);
                msg += RED"结果$N一击命中，$n只感到下体一阵刺痛，体内精元不断外泄，顿时觉的四肢无力，两腿不停颤抖。\n"NOR;
		
	} else 
        {       l_temp=80-(int)me->query_skill("yinyun-ziqi", 1)/10;
                me->add("neili", -l_temp);
		me->start_busy(1);
                msg += CYN"可是$p看破了$P的狠毒企图，向旁跳开数步，躲开了$P的凌厉一击！\n"NOR;
	}
	message_vision(msg, me, target);
        if (damage>120)
         {
          me->add("shen", -damage);
          if (target->query("gender")== "男性")
             message_vision(HIW"$N突然觉的丹田内的精元已流失迨尽，心里一阵难过，知道自己有一段时间不能行欢做乐了!\n"NOR,target);
          else
             message_vision(HIW"$N见$n竟对一女流之辈也用此阴毒招数，不禁既羞又怒!\n"NOR,target,me);
          target->kill_ob(me);
         }
	return 1;
}