huanying.vns

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

// huanying.c  雁行刀法「无形幻影」

#include <ansi.h>

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

    if (!target ) target = offensive_target(me);
    if (!objectp(weapon = me->query_temp("weapon"))
    || (string)weapon->query("skill_type") != "blade")
   return notify_fail(RED"开什么玩笑，没装备刀怎么使「无形幻影」？\n"NOR);
    if (!target || !target->is_character() || !me->is_fighting(target) )
   return notify_fail("「无形幻影」只能对战斗中的对手使用。\n");
    if ((int)me->query_skill("yanxing-dao", 1) < 90 )
   return notify_fail(WHT"你的雁行刀法不够娴熟，还使不出「无形幻影」。\n"NOR);
    if ((int)me->query_skill("linji-zhuang", 1) < 70 )
   return notify_fail(RED"你的临济十二庄火候不够，「无形幻影」不成招式。\n"NOR);
    if ((int)me->query("max_neili")<300)
   return notify_fail(RED"你的内力修为不足，无法运足「无形幻影」的内力。\n"NOR);
    if ((int)me->query("neili")<60)
    {
      me->set("neili",10);
      return notify_fail(HIC"你现在内力不够，没能将「无形幻影」使完！\n"NOR);
    }
    msg = HIC "$N大喝一声，全场四处游动，$n只看到$N化做数团身影，漫天刀光席卷而来，$n奋力一架，但$N刀分数路，$n只架住一刀！\n"NOR;
    if (random(me->query_skill("force")) > target->query_skill("force")/2||
  random(me->query("combat_exp")) > (int)target->query("combat_exp")/3
)
    {
   me->start_busy(1);
   target->start_busy(random(3));
   damage = (int)me->query_skill("yanxing-dao", 1);
   damage = damage + random(damage);
   target->receive_damage("qi", damage/2);
   target->receive_wound("qi", damage);
   target->receive_damage("jing", damage/3);
   target->receive_wound("jing", damage/4);
   msg += HIC"$n根本没法躲避，顿时几刀都砍在$n肩头！鲜血溅起，$n自觉眼前一片鲜红，遮住视线！\n"NOR;
   me->add("neili", -damage/5);
    } else
    {
   me->start_busy(2);
   msg += HIY"可是$p早以看出那是虚招，毫不在意地坦然面对，果真只有架住的是实招。\n"NOR;
    }
    message_combatd(msg, me, target);
    return 1;
}