zongjue.vns

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

//zongjue.c -「总诀式」
#include <ansi.h>
#include <combat.h>

inherit F_SSERVER;
int perform(object me, object target)
{
        int damage;
        string msg;
        object target_w;
        target_w = target->query_temp("weapon");
        if( !target ) target = offensive_target(me);
        if( !target||!target->is_character()||!me->is_fighting(target) )
        return notify_fail("你只能对战斗中的对手使用「总诀式」。\n");
        if( (int)me->query_skill("dugu-jiujian-sword",1) < 120)
        return notify_fail("你的独孤九剑不够娴熟，还使不出「总诀式」。\n");
        if( (int)me->query("neili") < 200 )
        return notify_fail("你的内力不够。\n");
        me->add("neili", -80);
        msg = CYN"$N窥破$n招式的破绽，使出独孤九剑中的「总诀式」，随手一剑妙到颠毫！\n"NOR;
        me->start_busy(2);
        if (target->query_temp("weapon") ||
            target->query_temp("secondary_weapon")) {
        if( random(me->query("combat_exp")) >
          (int)target->query("combat_exp")/4 ) {
    msg += "$p莫明其妙，百思不解为何$P随意一剑竟能如此神妙，只好放弃"+target_w->query("name")+"！\n" NOR;
                 target_w->unequip();
                 target_w->move(environment(target));
                 target->reset_action();
                 target->start_busy( (int)me->query_skill("dugu-jiujian-sword") / 20 );
        target->start_busy( (int)me->query_skill("dugu-jiujian-sword") / 20 );
    } else {
        msg += HIC "$p虽然看破了这招「总诀式」的剑路，但仍然几经艰难方能还招挡开！\n"NOR;
    }
        message_vision(msg, me, target);
        return 1;
}
        if( random(me->query("combat_exp")) >
          (int)target->query("combat_exp")/4 ) {
        damage = (int)me->query_skill("dugu-jiujian-sword", 1)+(int)me->query_skill("sword", 1)/2;
        damage = damage/2 + random(damage);

        target->receive_damage("qi", damage);
        target->receive_wound("qi", damage/2);
        target->addd("neili", -((int)me->query_skill("dugu-jiujian-sword", 1)/4+(int)me->query_skill("sword", 1)/2));
        msg += RED
"$n惊骇莫明，对这招「总诀式」欲避不能，被$N刺中丹田，功力受损！\n"NOR;
        } else {
        msg += HIC "$p虽然看破了这招「总诀式」的剑路，但仍然几经艰难方能还招挡开！\n"NOR;
        }
        message_vision(msg, me, target);
        return 1;
}