zhenjian.c

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

// zhen.c 浣花剑法 之 乱红飞过秋千处

#include <ansi.h>
#include <weapon.h>

inherit F_SSERVER;

int perform(object me, object target)
{
	int damage, attp, defp;
	object obj,weapon;
        string w_name;

	w_name = me->query("weapon/name");
	obj = me->query_temp("weapon");

	if( !target ) target = offensive_target(me);

        if (!objectp(weapon = me->query_temp("weapon"))
                || (string)weapon->query("skill_type") != "sword")
                return notify_fail("你使用的武器不对。\n");

	if( !target || !target->is_character() || !me->is_fighting(target) )
		return notify_fail("“乱红飞过秋千去”只能对战斗中的对手使用。\n");

	if ((int)me->query_skill("huanhua-jian", 1) < 70)
		return notify_fail("你的浣花剑法不够娴熟，不能运剑自如。\n");


	if ((int)me->query("neili",1) < 320)
		return notify_fail("你的内力不够，无法震断手中长剑。。\n");

	message_vision( HIY "$N聚气于剑，默运内力，只听“铮”的一声，忽然间银光闪耀，$N手中长剑竟断为无数\n"
	 + "截，如漫天红云般向$n激射而出！\n"NOR, me, target );

	attp = me->query_skill("sword",1) + me->query_skill("huanhua-jian",1);
	defp = target->query_skill("dodge");

	if( random( attp ) >  defp  )
	{
		damage = me->query_skill("huanhua-jian",1) + (int)me->query_skill("sword", 1)*2;
		damage = damage - random( target->query_skill("dodge")/3 );

	        if( objectp(obj)&&w_name!=obj->query("name") )
		{
			target->receive_wound("jing", random( damage/3 ))*3;
			target->receive_damage("qi", 20 + random(damage))*3;
			target->receive_wound("qi", 20 + damage)*3;

			target->start_busy(3 + random(10));
		}
		else
		{
			target->receive_wound("jing", random( damage/3 ));
			target->receive_damage("qi", 20 + random(damage));
			target->receive_wound("qi", 20 + damage);

			me->start_busy(3);
			target->start_busy(3 + random(4));
		}
	}
	else {
		message_vision( HIY "可是$p晃动身形，迅速的闪过了剑雨。\n" NOR, me, target );
		me->start_busy(5);
	}

//	if( !target->is_killing(me) ) target->kill_ob(me);

        me->add("neili", -300);

        if( objectp(obj) && w_name!=obj->query("name") )
	{
	        me->set("weapon/make",0);
        	destruct( obj );
	        me->delete("weapon");
        	me->save();
	}
	else destruct( obj );

	return 1;
}