suo.c

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

// suo.c 锁剑诀

#include <ansi.h>

inherit F_SSERVER;

int perform(object me)
{
        string msg;
        object weapon, weapon2, target;
        int skill, ap, dp, damage;

        if (!objectp(weapon = me->query_temp("weapon"))
            || (string)weapon->query("id") != "jinshe jian")
           return notify_fail("你没用金蛇剑，不能使用绝招！\n");

        if( me->query("dex") < 20 || me->query("str") < 20 )
            return notify_fail("你的先天膂力身法孱弱, 不能使用「锁剑诀」！\n");

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

	if( !target
	||	!target->is_character()
	||	!me->is_fighting(target) )
		return notify_fail("「锁剑诀」只能对战斗中的对手使用。\n");

       skill = me->query_skill("jinshe-jian",1);
        if( !target ) target = offensive_target(me);

        if( !(me->is_fighting() ))
            return notify_fail("「锁剑诀」只能对战斗中的对手使用。\n");

        if (!objectp(weapon2 = target->query_temp("weapon")))
            return notify_fail("对方没有使用兵器，你用不了「锁剑诀」。\n");

        if( skill < 150)
            return notify_fail("你的金蛇剑法等级不够, 不能使用「锁剑诀」！\n");

        if( me->query("neili") < 300 )
            return notify_fail("你的内力不够，无法运用「锁剑诀」！\n");

        msg = HIC "$N手中"YEL"金蛇剑"HIC"画出一道金光，斜刺一拉，「锁剑诀」！
"YEL"金蛇剑"HIC"剑尖倒钩正好挂在$n的"+weapon2->name()+"上。\n";
        message_combatd(msg, me, target);

        damage = 10 + random(skill / 2);
        ap = me->query_skill("sword")/3 + skill;
        dp = target->query_skill("dodge")/2;
        if( dp < 1 )
            dp = 1;
        if( random(ap) > random(dp) )
        {
   target->receive_damage("qi", damage);
        }
     if (random(me->query("combat_exp")) > (int)target->query("combat_exp")/3 )
        {
            if(userp(me))
                 me->add("neili",-50);
            msg = "$n顿时觉得眼前金光一闪，手腕一振，手中";
            msg += weapon2->name();
            msg += "脱手飞出！\n" NOR;
            me->start_busy(2);
            target->receive_damage("qi", damage);
            weapon2->move(environment(me));
        }
        else
        {
            if(userp(me))
                 me->add("neili",-30);
            msg = "$n急运内力，将手中" + weapon2->name()+
"斜斜顺势一送一搭，抽了回来。\n"NOR;
            me->start_busy(2);
        }
        message_combatd(msg, me, target);

        return 1;
}