shan.c

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

#include <ansi.h>
#include <combat.h>

#define SHAN "「" HIY "七弦黄龙闪" NOR "」"

inherit F_SSERVER;

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

        if (! target)
        {
                me->clean_up_enemy();
                target = me->select_opponent();
        }


        if (! me->is_fighting(target))
                return notify_fail(SHAN "只能对战斗中的对手使用。\n");

        weapon = me->query_temp("weapon");

        if (weapon && weapon->query("skill_type") != "sword")
                return notify_fail("你使用的武器不对，难以施展" SHAN "。\n");

        skill = me->query_skill("qixian-wuxingjian", 1);

        if (skill < 160)
                return notify_fail("你的七弦无形剑修为有限，难以施展" SHAN "。\n");

        if (weapon && me->query_skill_mapped("sword") != "qixian-wuxingjian")
                return notify_fail("你没有准备七弦无形剑，难以施展" SHAN "。\n");

        if (me->query_skill_mapped("force") != "hamagong")
                return notify_fail("你没有激发蛤蟆功为内功，无法施展。\n");


        if (me->query_skill("force") < 250)
                return notify_fail("你的内功修为不够，难以施展" SHAN "。\n");

        if (me->query("neili") < 600)
                return notify_fail("你现在的真气不够，难以施展" SHAN "。\n");

        if (! living(target))
                return notify_fail("对方都已经这样了，用不着这么费力吧？\n");

        if (weapon)
        {
                msg = HIY "只见$N" HIY "一声暴喝，单手迅速在" + weapon->name() +
                      HIY "上拨动数下，顿时琴音铮铮大响，只听“啵”的\n一声破空"
                      "之响，一束无形剑气澎湃射出，直贯$n" HIY "而去。\n" NOR;
        } else
        {
                msg = HIY "只见$N" HIY "一声暴喝，陡然间十指一并箕张，顿时琴音"
                      "铮铮大响，只听“啵”的一声破空之\n响，一束无形剑气澎湃"
                      "射出，直贯$n" HIY "而去。\n" NOR;
        }

        ap = me->query_skill("force");
        dp = target->query_skill("force");

        if (target->query("max_neili") < 10)
        {
                msg += HIY "$N" HIY "这一招施出，可是$n"
                       HIY "竟像没事一般，丝毫无损。\n" NOR;

                me->start_busy(2);
                me->add("neili", -100);
        } else
        // 等级相差不大的玩家不受侵害
        if (userp(target) && target->query("max_neili") + 500 > me->query("max_neili"))
        {
                msg += HIY "可是$n" HIY "内力深厚，轻而易举受下$N"
                       HIY "这一招，丝毫无损。\n" NOR;

                me->start_busy(2);
                me->add("neili", -100);
        } else
        if (ap / 2 + random(ap) < dp)
        {
                msg += CYN "可是$n" CYN "急忙凝神聚气，努力使自己"
                       "不受琴音的干扰，终于化解了这一招。\n" NOR;

                me->start_busy(2);
                me->add("neili", -100);
        } else
        {
                damage = skill * 3;
                        target->add("qi",-damage+100);
                        target->add("qi",-damage/2+100);

                        msg +=                    HIR "$n" HIR "只觉得$N" HIR "内力激荡，琴"
                                           "音犹如一柄利剑穿透鼓膜，“哇”的喷出一口"
                                           "鲜血。\n" NOR;
                me->start_busy(2);
                me->add("neili", -300);
        }
        message_combatd(msg, me, target);

        return 1;
}