feilong.c

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

// feilong.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") != "sword")
        return notify_fail(RED"装备剑才能使用「天外飞龙」？\n"NOR);
    if (!target || !target->is_character() || !me->is_fighting(target) )
        return notify_fail("「天外飞龙」只能对战斗中的对手使用。\n");
    if ((int)me->query_skill("kuangfeng-jian", 1) < 200 )
        return notify_fail(WHT"你狂风快剑不够娴熟，使不出「天外飞龙」。\n"NOR);
    if ((int)me->query_skill("huashan-neigong", 1) < 200 )
        return notify_fail(RED"你华山内功火候不够，使不出「天外飞龙」。\n"NOR);
    if ((int)me->query("max_neili") < 600)
        return notify_fail(RED"你内力修为不足，无法运足内力。\n"NOR);
    if ((int)me->query("neili") < 400)
    {
        return notify_fail(HIC"你现在内力不够，没能将「天外飞龙」使完！\n"NOR);
    }
    msg = HIC "$N心念电闪，一提内力，勒手仗剑，运劲于臂，呼的一声向$n掷了出去，\n"NOR;
    if ( random(me->query("combat_exp")) > (int)target->query("combat_exp")/3 )
    {
        me->start_busy(3);
        target->start_busy(random(2));
        damage = target->query("qi");
        target->receive_damage("qi", damage/3);
        target->receive_wound("qi", damage/4);        
msg += HIC"$n疾忙跃起，但剑如电闪，只觉一阵剧痛，剑刃拦腰而过，鲜血飞溅，皮肉卷起！\n"NOR;
        me->set("neili", me->query("neili")/2);
    } else
    {
        me->start_busy(2);
me->set("neili", 100);
msg += HIY"可是$n轻轻一笑，侧身伸指，正弹在$N的剑脊上，剑斜飞落地。\n"NOR;
    }
//    weapon->move(environment(me));
    message_combatd(msg, me, target);
    if(!target->is_fighting(me)) target->fight_ob(me);
    return 1;
}