铁血丹心

 找回密码
 我要成为铁血侠客
搜索
查看: 2446|回复: 4

[新手指南] 独孤九剑的代码

[复制链接]
发表于 2009-9-10 16:06 | 显示全部楼层 |阅读模式

马上注册,结交更多侠友!

您需要 登录 才可以下载或查看,没有账号?我要成为铁血侠客

x
// lonely-sword.c 独孤九剑

#include <ansi.h>
#include <combat.h>
#include "/kungfu/skill/eff_msg.h";

inherit SKILL;  
string *order = ({""HIY"", ""HIG"", ""RED"", ""MAG"", ""YEL"", ""HIC"", ""HIW"", ""HIR"",""HIB"", ""CYN"",""WHT"",""HIM"",""BLU""});
string *parry_msg = ({
        "却见$n踏前一步,剑式斜指你的右臂,想要使$P闪身而退。\n",
        "$n以攻为守,以进为退,凝神运气向$P猛攻快打地挥出方位大异的泰山「快活三」三剑。\n",
        "$n剑法突变,剑势伸缩不定,奔腾矫夭,逆使嵩山剑法的「天外玉龙」企图迫使$P变招。\n",
        "$n突然一剑点向$P的$l,虽一剑却暗藏无数后着,$P手足无措,攻势不由自主停了下来。\n"
        "$n不闪不避,举剑闪电般使出「叠翠浮青」反削$P的$l,想挡过你此招。\n",
        "$n突然使出青城派松风剑法的「鸿飞冥冥」,长剑对着$P一绞,企图突破$P的攻势。\n"
        "$n挺剑一招象是「白云出岫」回刺$P的$l,企图将$P的攻势化解。\n",
        "只见$n不退反进,身如飘风,一式「天柱云气」动向无定,挡住了$P的\n进攻。\n",
        "$n不退反进,使出恒山剑招「绵里藏针」,森森剑气充溢四周!架开了$P的这招\n",
        });

mapping *action = ({
([      "action" : "但见$N挺身而上,$w一旋,一招仿佛泰山剑法的"+(order[random(13)])+"「来鹤清泉」"NOR"直刺$n
的$l!",
        "force" : 110,
        "dodge" : 65,
        "damage": 250,
        "lvl" : 0,
        "damage_type" : "刺伤"
]),
([      "action" : "$N奇诡地向$n挥出"+(order[random(13)])+"「泉鸣芙蓉」"NOR"、"+(order[random(13)])+"「鹤翔紫盖」"NOR"、"+(order[random(13)])+"「石廪书声」"NOR"、"+(order[random(13)])+"「
天柱云气」"NOR"及"+(order[random(13)])+"「雁回祝融」"NOR"衡山五神剑!",
        "force" : 110,
        "dodge" : 60,
        "damage": 250,
        "lvl" : 7,
        "damage_type" : "刺伤"
]),
([
        "action" : "$N剑随身转,续而刺出十九剑,竟然是华山"+(order[random(13)])+"「玉女十九剑」"NOR",但奇的
是这十九剑便如一招,手法之快,直是匪夷所思!",
        "force" : 110,
        "dodge" : 65,
        "damage": 250,
        "lvl" : 14,
        "damage_type" : "刺伤"
]),
([      "action" : ""+(order[random(13)])+"$N剑势忽缓而不疏,剑意有余而不尽,化恒山剑法为一剑,向$n慢慢
推去!",
        "force" : 120,
        "dodge" : 65,
        "damage": 250,
        "lvl" : 21,
        "damage_type" : "刺伤"
]),
([      "action" : ""+(order[random(13)])+"$N剑意突焕气象森严,便似千军万马奔驰而来,长枪大戟,黄沙千里
,尽括嵩山剑势击向$n的$l!",
        "force" : 120,
        "dodge" : 80,
        "damage": 250,
        "lvl" : 28,
        "damage_type" : "刺伤"
]),
([      "action" : "却见$N身随剑走,左边一拐,右边一弯,剑招也是越转越加狠辣,竟
化"+(order[random(13)])+"「泰山十八盘」"NOR"为一剑攻向$n!",
        "force" : 130,
        "dodge" : 100,
        "damage": 255,
        "lvl" : 35,
        "damage_type" : "刺伤"
]),
([      "action" : "$N剑招突变,使出衡山的"+(order[random(13)])+"「一剑落九雁」"NOR",削向$n的$l,怎知剑到中
途,突然转向,大出$n意料之外!",
        "force" : 140,
        "dodge" : 100,
        "damage": 260,
        "lvl" : 42,
        "damage_type" : "刺伤"
]),
([      "action" : "$N吐气开声,一招似是"+(order[random(13)])+"「独劈华山」"NOR",手中$w向下斩落,直劈向$n的
$l!",
        "force" : 150,
        "dodge" : 100,
        "damage": 280,
        "lvl" : 49,
        "damage_type" : "刺伤"
]),
([      "action" : "$N手中$w越转越快,使的居然是衡山的"+(order[random(13)])+"「百变千幻云雾十三式」"NOR",剑
式有如云卷雾涌,旁观者不由得目为之眩!",
        "force" : 160,
        "dodge" : 100,
        "damage": 290,
        "lvl" : 56,
        "damage_type" : "刺伤"
]),
([      "action" : "$N含笑抱剑,气势庄严,$w轻挥,尽融"+(order[random(13)])+"「达摩剑」"NOR"为一式,闲舒地刺
向$n!",
        "force" : 170,
        "dodge" : 100,
        "damage": 300,
        "lvl" : 63,
        "damage_type" : "刺伤"
]),
([      "action" : "$N举起$w运使"+(order[random(13)])+"「太极剑」"NOR"剑意,划出大大小小无数个圆圈,无穷无尽
源源不绝地缠向$n!",
        "force" : 280,
        "dodge" : 100,
        "damage": 320,
        "lvl" : 70,
        "damage_type" : "刺伤"
]),
([      "action" : "$N神声凝重,$w上劈下切左右横扫,挟雷霆万钧之势逼往$n,"+(order[random(13)])+"「伏摩
剑」"NOR"的剑意表露无遗!",
        "force" : 290,
        "dodge" : 105,
        "damage": 330,
        "lvl" : 77,
        "damage_type" : "刺伤"
]),
([      "action" : "却见$N突然虚步提腰,使出酷似武当"+(order[random(13)])+"「蜻蜓点水」"NOR"的一招!",
        "force" : 200,
        "dodge" : 105,
        "damage": 360,
        "lvl" : 84,
        "damage_type" : "刺伤"
]),
([      "action" : "$N运剑如风,剑光霍霍中反攻$n的$l,尝试逼$n自守,剑招似是"+(order[random(13)])+"「伏
魔剑」"NOR"的"+(order[random(13)])+"「龙吞式」"NOR"。",
        "force" : 220,
        "dodge" : 100,
        "damage": 395,
        "lvl" : 91,
        "damage_type" : "刺伤"
]),
([      "action" : "$N突然运剑如狂,一手关外的"+(order[random(13)])+"「乱披风剑法」"NOR",猛然向$n周身乱刺乱
削!",
        "force" : 240,
        "dodge" : 100,
        "damage": 320,
        "lvl" : 98,
        "damage_type" : "刺伤"
]),
([      "action" : "$N满场游走,东刺一剑,西刺一剑,令$n莫明其妙,分不出$N剑法的
虚实!",
        "force" : 260,
        "dodge" : 100,
        "damage": 350,
        "lvl" : 105,
        "damage_type" : "刺伤"
]),
([      "action" : "$N抱剑旋身,转到$n身后,杂乱无章地向$n刺出一剑,不知使的是什
么剑法!",
        "force" : 280,
        "dodge" : 100,
        "damage": 380,
        "lvl" : 112,
        "damage_type" : "刺伤"
]),
([      "action" : "$N突然一剑点向$n的$l,虽一剑却暗藏无数后着,$n手足无措,不知
如何是好!",
        "force" : 200,
        "dodge" : 100,
        "damage": 485,
        "lvl" : 119,
        "damage_type" : "刺伤"
]),
([      "action" : "$N剑挟刀势,大开大阖地乱砍一通,但招招皆击在$n攻势的破绽,迫
得$n不得不守!",
        "force" : 320,
        "dodge" : 100,
        "damage": 450,
        "lvl" : 126,
        "damage_type" : "刺伤"
]),
([      "action" : "$N反手横剑刺向$n的$l,这似有招似无招的一剑,威力竟然奇大,$n
难以看清剑招来势!",
        "force" : 340,
        "dodge" : 105,
        "damage": 480,
        "lvl" : 133,
        "damage_type" : "刺伤"
]),
([      "action" : "$N举剑狂挥,迅速无比地点向$n的$l,却令人看不出其所用是什么招
式。",
        "force" : 460,
        "dodge" : 100,
        "damage": 450,
        "lvl" : 140,
        "damage_type" : "刺伤"
]),
([      "action" : "$N随手一剑指向$n,落点正是$n的破绽所在,端的是神妙无伦,不可
思议!",
        "force" : 480,
        "dodge" : 100,
        "damage": 450,
        "lvl" : 147,
        "damage_type" : "刺伤"
]),
([      "action" : "$N脸上突现笑容,似乎已看破$n的武功招式,胸有成竹地一剑刺向$n
的$l!",
        "force" : 500,
        "dodge" : 100,
        "damage": 520,
        "lvl" : 154,
        "damage_type" : "刺伤"
]),
([
    "action" : "$N将$w随手一摆,但见$n自己向$w撞将上来,神剑之威,实人所难测!",
        "force" : 600,
        "dodge" : 100,
        "damage": 665,
        "lvl" : 180,
    "damage_type" : "刺伤"
]),
([      "action" : HIW "但见$N手中$w" HIW "破空长吟,平平一剑刺向$n,毫无招式可言",
        "force" : 600,
        "attack": 100,
        "dodge" : 100,
        "parry" : 300,
        "damage": 560,
        "lvl" : 250,
        "damage_type" : "刺伤"
]),
([      "action" : HIW "$N揉身欺近,轻描淡写间随意刺出一剑,简单之极,无招无式",
        "force" : 600,
        "attack": 100,
        "dodge" : 100,
        "parry" : 300,
        "damage": 560,
        "lvl" : 300,
        "damage_type" : "刺伤"
]),
([      "action" : HIW "$N身法飘逸,神态怡然,剑意藏于胸中,手中$w" HIW "随意挥洒而出,独孤"
                   "九剑已到了收发自如的境界",
        "force" : 600,
        "attack": 100,
        "dodge" : 100,
        "parry" : 300,
        "damage": 560,
        "lvl" : 350,
        "damage_type" : "刺伤"
])
});

int valid_enable(string usage)
{
        return usage=="sword" || usage=="parry";
}

mapping query_action(object me, object weapon)
{
        return action[random(sizeof(action))];
}

string query_parry_msg(string limb)
{
        return parry_msg[random(sizeof(parry_msg))];
}

int valid_learn(object me)
{
        object ob;

        mapping myfam;
        myfam = (mapping)me->query("family");
        if(!myfam || myfam["family_name"] != "华山派"|| myfam["master_id"] != "feng qingyang")
                return notify_fail("独孤九剑只有向风清扬老前辈学习。\n");
        if( (int)me->query("max_neili") < 600 )
                return notify_fail("你的内力不够,没有办法练独孤九剑。\n");
        if( (int)me->query_skill("zixia-shengong",1)<100)
                return notify_fail("独孤九剑必须配合紫霞神功才能练习。\n");
       if (((int)me->query_skill("huashan-sword", 1)+150) < (int)me->query_skill("lonely-sword", 1))
               return notify_fail("你的剑宗华山剑法太低了。\n");
       if (((int)me->query_skill("kuangfeng-jian", 1)+150) < (int)me->query_skill("lonely-sword", 1))
               return notify_fail("你的气宗狂风快剑太低了。\n");
       if (((int)me->query_skill("poyu-quan", 1)+200) < (int)me->query_skill("lonely-sword", 1))
               return notify_fail("你的破玉拳太低了。\n");
       if (((int)me->query_skill("hunyuan-zhang", 1)+200) < (int)me->query_skill("lonely-sword", 1))
               return notify_fail("你的混元掌太低了。\n");
       if (((int)me->query_skill("feiyan-huixiang", 1)+200) < (int)me->query_skill("lonely-sword", 1))
               return notify_fail("你的飞燕回翔太低了。\n");
       if (((int)me->query_skill("huashan-neigong", 1)+200) < (int)me->query_skill("lonely-sword", 1))
               return notify_fail("你的剑宗内功太低了。\n");
       if (((int)me->query_skill("zixia-shengong", 1)+200) < (int)me->query_skill("lonely-sword", 1))
               return notify_fail("你的气宗内功太低了。\n");

        if( !(ob = me->query_temp("weapon"))
        ||      (string)ob->query("skill_type") != "sword" )
                return notify_fail("你必须先找一把剑才能练剑法。\n");
        if ((int)me->query_skill("lonely-sword",1) > 120)
                return notify_fail("这套剑法我就教到这儿,以后就要靠你自己练了。\n");

        return 1;
}

int practice_skill(object me)
{
        return notify_fail("独孤九剑只能通过"+(order[random(13)])+"「总诀式」"NOR"来演练。\n");
}

int valid_effect(object me, object weapon, string name, int skill)
{
}

[发帖际遇]: hxsd答应假扮小宝应老婆之约,得到偿金银两4.
【武侠.中国】铁血丹心论坛(大武侠):致力于推广和发展武侠文化,让我们一起努力,做全球最大的武侠社区。
可能是目前为止最好的金庸群侠传MOD游戏交流论坛,各种经典武侠游戏等你来玩,各种开源制作工具等你来实现你的游戏开发之梦。
 楼主| 发表于 2009-9-10 16:06 | 显示全部楼层

第2部分

mixed hit_ob(object me, object victim, int damage_bonus, int factor, string limb)
{      
int level, jiali, time,level2;
int i, ap, dpp, dpd, dpf,lvl;
        int damage;
        object weapon,weapon2;
        string type, msg;
        weapon = me->query_temp("weapon");
lvl = me->query_skill("lonely-sword", 1);
        if (random(me->query_skill("lonely-sword",1)) < 100 ||                             me->query_skill("force",1) < 100 )
        return 0;

        weapon = me->query_temp("weapon");
        level = (int) me->query_skill("zixia-shengong",1);
        level2= (int) me->query_skill("zixia-shengong",1);
if (random(8)==0 && level>=300 && me->query_skill_mapped("force") == "zixia-shengong")
{
if (random(2)==0)
{
        victim->start_busy(2);
}
else         victim->receive_wound("qi", (random(damage_bonus))+200);
                  return random(2) ? HIR "$N" HIR "运起紫霞神功,一剑攻出,剑气横飞,,$n双眼一花,不知如何是好!\n" NOR:
                                     HIR "$N" HIR "剑随意走,手中" + weapon->name() + HIR "犹如生了眼睛一般,随意挥出几剑,$n双眼一花,不知如何是好!\n"NOR;
}
        weapon = me->query_temp("weapon");
level2= (int) me->query_skill("zixia-shengong",1);            
        if (random(3)==1 && me->query_skill("zixia-shengong",1)>300)
        {
        if( damage_bonus > 50 && random(level2)>100) {
        victim->receive_wound("qi", (random(damage_bonus)));
        return HIM"$N剑气纵横! 一道剑气划过了$n的$l。结果鲜血狂奔!\n"NOR;
        }
}

if (me->query_skill_mapped("force") != "zixia-shengong")
return 0;
if (me->query("neili") < 500)
return 0;
if (me->query_skill_mapped("sword") != "lonely-sword")
return 0;
if (me->query_skill_mapped("parry") != "lonely-sword")
return 0;

if (!objectp(weapon = me->query_temp("weapon"))
        || (string)weapon->query("skill_type") != "sword")
return 0;
        ap = (int)me->query("combat_exp");
        dpp = (int)victim->query("combat_exp");
        switch(random(5))
        {
           case 1:
              if (random(ap) > dpp/2 && random(lvl)> 180)
              {
                  me->add("neili", -20);
                  victim->receive_wound("qi", (damage_bonus) , me);
                  
                  return random(2) ? HIR "$N" HIR "一剑攻出,剑气横飞," + weapon->name() + HIR
                                     "时若游龙穿空,时若惊鸿渡云,却不知这普通的"
                                     "一剑之中竟蕴藏着如此威力。\n" NOR:
                                     HIR "$N" HIR "手中" + weapon->name() + HIR "犹"
                                     "如生了眼睛一般,一剑随意挥出,竟直刺向$n" HIR
                                     "小腹,看似平淡,但方位、力道却拿捏得恰倒好处。\n" NOR;
             }
             break;

           case 2:
              if (random(ap) > dpp/2 && me->query("con") >= 36 && random(lvl)> 180)
              {
                  me->add("neili", -120);
                  victim->receive_wound("qi", (damage_bonus ) , me);
                  
                  return random(2) ? HIR "$N" HIR "一剑攻出,剑气横飞," + weapon->name() + HIR
                                     "时若游龙穿空,时若惊鸿渡云,却不知这普通的"
                                     "一剑之中竟蕴藏着如此威力。\n" NOR:
                                     HIR "$N" HIR "手中" + weapon->name() + HIR "犹"
                                     "如生了眼睛一般,一剑随意挥出,竟直刺向$n" HIR
                                     "小腹,看似平淡,但方位、力道却拿捏得恰倒好处。\n" NOR;
             }
             break;

          case 3:
             message_vision(HIC "\n$N" HIC "随意挥洒手中的" + weapon->name() +
                            HIC ",招招从出其不意的方位直指$n" HIC "招式中的"
                            "破绽!\n" NOR, me, victim);

             if (! me->is_busy() && random(lvl)> 180)
             {
                  weapon = me->query_temp("weapon");
                  weapon2 = victim->query_temp("weapon");
                  if (random(ap) > dpp/2 && weapon2
                      && !weapon2->query("ownmake") )
                  {
                           msg = HIW "$n" HIW "觉得眼前眼花缭乱,手中"
                                 "的" + weapon2->name() + HIW "一时竟"
                                 "然拿捏不住,脱手而出!\n" NOR;
                           weapon2->move(environment(me));      
                           me->add("neili", -100);                 
                  } else
                  {
                           msg = HIY "$n" HIY "略得空隙喘息,一时间却"
                                 "也无力反击。\n" NOR;
                           me->add("neili", -10);
                  }
             }else
             if (random(ap) > dpp/2 && random(lvl)> 180)
             {
                          msg = HIY "$n" HIY "连忙抵挡,一时间不禁手忙脚乱,"
                                "无暇反击。\n" NOR;

                          me->start_busy(1);
                          victim->start_busy(2 + random(lvl / 30));
             }
             else
             {
                          msg = HIC "$N" HIC "随意挥洒着手中的" + weapon->name() +
                                HIC "刺向$n" HIC ",不过$n" HIC "防守的异常严密,$N"
                                HIC "一时竟然无法找到破绽。\n" NOR;
                          me->start_busy(1);
                          victim->start_busy(3);
             }
             message_combatd(msg, me, victim);
             break;
         
          case 4:
             if (random(ap) > dpp/2 &&
                 ! me->is_busy() &&
                 ! me->query_temp("dugu-jiujian/lian") &&
                 me->query("dex") >= 36
                 && random(lvl)> 180
                 )
             {
                weapon = me->query_temp("weapon");
                message_vision(HIY "\n$N" HIY "胸藏剑意,手中" + weapon->name() + HIY
                             "随意挥洒而出,速度之快,方位之准,显是独孤九剑已达到"
                             "\n收发自如的境界。\n" NOR,
                             me, victim);

                me->add("neili", -20);
              
                me->set_temp("dugu-jiujian/lian", 1);
                for (i = 0; i < 7; i++)
                {
                    if (! me->is_fighting(victim))
                            break;
                  
                    if (! victim->is_busy() && random(2) == 1)
                            victim->start_busy(2);

                    COMBAT_D->do_attack(me, victim, weapon, 0);
                }
                me->delete_temp("dugu-jiujian/lian");
               
             }
             break;                        
         
          default :
             if (random(ap) > dpp/2 &&
                 ! me->is_busy() &&
                 ! me->query_temp("dugu-jiujian/lian")
                 && random(lvl)> 180)
             {
                weapon = me->query_temp("weapon");
                message_vision(HIY "\n$N" HIY "胸藏剑意,手中" + weapon->name() + HIY
                             "随意挥洒而出,速度之快,方位之准,显是独孤九剑已达到"
                             "\n收发自如的境界。\n" NOR,
                             me, victim);

                me->add("neili", -20);
              
                me->set_temp("dugu-jiujian/lian", 1);
                for (i = 0; i < 7; i++)
                {
                    if (! me->is_fighting(victim))
                            break;
                  
                    if (! victim->is_busy() && random(2) == 1)
                            victim->start_busy(2);

                    COMBAT_D->do_attack(me, victim, weapon, 0);
                }
                me->delete_temp("dugu-jiujian/lian");
               
             }
             break;                        
       }

        if (random(me->query_skill("lonely-sword",1)) > 200 &&
        random(me->query_skill("sword",1))>180 &&
             me->query_skill("force",1) > 250
             && !victim->is_busy())
{
        me->add("neili", -50);
        victim->map_skill("dodge");

  if( !victim->is_busy() )
{
        victim->start_busy(random(3)+2);
}
        message_vision(HIC "$n突然举剑一刺,剑招随便无章,却莫明奇妙地突破了$N的攻势,大出$N意料!" NOR, victim,me  );
        return HIR"$n大吃一惊,竟然忘了闪避!\n"NOR;
        
}
        if (random(me->query_skill("lonely-sword",1)) > 140 &&       
         random(me->query_skill("sword",1))>140 &&
            me->query_skill("force",1) > 200
            && !victim->is_busy())       
{
        
        me->add("neili", -30);
        victim->map_skill("parry");
  if( !victim->is_busy() )
{
        victim->start_busy(random(2)+2);
}
        message_vision(HIC "$n举剑反攻,后发先至地刺向$N,不仅把$N招术封死,更进一步发出攻击!" NOR, victim,me);
        return HIY"$n难以看清剑招来势,竟然忘了招架!\n"NOR;
}
        if (random(me->query_skill("lonely-sword",1)) > 130 &&       
        random(me->query_skill("sword",1))>130 &&
         me->query_skill("force",1) > 150
         && !victim->is_busy())
{
        me->add("neili", -50);
  if( !victim->is_busy() )
{
        victim->start_busy(random(3)+2);
}
        message_vision(HIC "$n提剑回刺,落点正是$N的破绽,$N不得不撤招严守,身形一晃间已退出丈许!" NOR, victim,me );
        return HIG"$n手忙脚乱,慌乱不堪!\n"NOR;
}
        if (random(me->query_skill("lonely-sword",1)) > 100 &&
        random(me->query_skill("sword",1))>100 &&
              me->query_skill("force",1) > 120
              && !victim->is_busy() )       
{
if (victim->query("neili")>600)
{
        victim->add("neili", -500);
}
        message_vision(HIC "$n一转剑势,剑招源源而出,对$N发动攻势!\n" NOR, victim,me );
        return HIM"$n使出浑身解数才脱出剑圈!\n"NOR;
}
        if (random(me->query_skill("lonely-sword",1)) > 80 &&       
        random(me->query_skill("sword",1))>80 &&  
          me->query_skill("force",1) > 100
          && !victim->is_busy())       
{

  if( !victim->is_busy() )
{        victim->start_busy(random(2)+2);
}
        message_vision(HIC "$n眼见避无可避,只好提剑乱刺一通,居然出乎意料地将$N的攻击接去大半。" NOR, victim,me );
        return HIW"$n顿时手足无措,不知如何是好!\n"NOR;
  }
       
        jiali = me->query("jiali");

if (!jiali) jiali=10;
        if( damage_bonus > 100 && random(me->query_skill("lonely-sword",1))>140
        && me->query("fengset")
        ) {
        victim->receive_wound("qi", (random(jiali)+200));
        return HIM"$N剑气纵横! 一道剑气划过了$n的$l。结果鲜血狂奔!\n"NOR;
}
}
string perform_action_file(string action)
{
        return __DIR__"lonely-sword/" + action;
}


int ob_hit(object ob, object me, int damage)
{
        object weapon = me->query_temp("weapon");
        string msg,dodge_skill,*limbs;
        int i, j, level, p, q;
        string result;
        int ap, dp, mp;
        ap = (int)me->query("combat_exp");
        dp = (int)ob->query("combat_exp");
j=damage;
if (me->query_skill_mapped("force") != "zixia-shengong")
return damage;
if (me->query_skill_mapped("sword") != "lonely-sword")
return damage;
if (me->query_skill_mapped("parry") != "lonely-sword")
return damage;

if (me->query("neili") < 500)
return damage;
if (!objectp(weapon = me->query_temp("weapon"))
        || (string)weapon->query("skill_type") != "sword")
return damage;

             if (random(ap) > dp/2 && random(2)==0)
             {
                        result = HIG "$n" HIG "不理会$N" HIG "的攻势,"
                                    "随意挥出一剑,反攻向$N" HIG "。\n" NOR;
                                    if (!ob->is_busy()) ob->start_busy(3);
                    message_vision(result,ob,me);
             }
            
  if (random(ap) < dp/2  && me->query("fengset")
  && random(2)==0)
        {
                switch (random(9))
                {
                case 0:
                        result = HIC "却见$n" HIC "踏前一步,剑式斜指$P" HIC
                                            "右臂,招式迅捷无比,使得$N" HIC "闪身而退"
                                            "。\n" NOR;
                        break;

                case 1:
                        result = HIC "可$n" HIC "以攻为守,以进为退,凝神运"
                                            "气向$N" HIC "猛攻快打地挥出方位大异的泰山"
                                            "「" NOR + YEL "快活三" NOR + HIC "」剑法。"
                                            "\n" NOR;
                        break;

                case 2:
                        result = HIC "$n" HIC "突然一剑点向$N" HIC ",虽一剑"
                                            "却暗藏无数后着,$N" HIC "顿时手足无措,攻"
                                            "势不由自主停了下来。\n" NOR;
                        break;

                case 3:
                        result = HIC "可是$n" HIC "不闪不避,举剑闪电般使出"
                                            "「" NOR + HIG "叠翠浮青" NOR + HIC "」反削"
                                            "$N" HIC "手腕,挡开了此招。\n" NOR;
                        break;

                case 4:
                        result = HIC "却见$n" HIC "突然使出青城派松风剑法「"
                                            NOR + CYN "鸿飞冥冥" NOR + HIC "」,长剑对"
                                            "着$N" HIC "一绞,顿时突破了攻势。\n" NOR;
                        break;

                case 5:
                        result = HIC "$n" HIC "挺剑而射,若一招「" NOR + HIW
                                            "白云出岫" NOR + HIC "」回刺$N" HIC ",顿"
                                            "时已将攻势化解。\n" NOR;
                        break;

                case 6:
                        result = HIC "只见$n" HIC "不退反进,身如飘风,一式"
                                            "「" NOR + HIW "天柱云气" NOR + HIC "」动向"
                                            "无定,挡住了进攻。\n" NOR;
                        break;

                case 7:
                        result = HIC "但见$n" HIC "不退反进,使出恒山剑招「"
                                            NOR + HIY "绵里藏针" NOR + HIC "」,剑气四"
                                            "溢,架开了$N" HIC "这招。\n" NOR;
                        break;

                default:
                        result =  HIC "$n" HIC "剑法突变,剑势伸缩不定,奔腾"
                                            "矫夭,逆使嵩山剑法的「" NOR + HIY "天外玉"
                                            "龙" NOR + HIC "」企图迫使$N" HIC "变招。\n"
                                            NOR;
                        break;
                }
message_vision(result,ob,me);
                                    if (!ob->is_busy()) ob->start_busy(3);
if ((int)me->query("qi") < (int)me->query("eff_qi"))
me->add("qi",damage/3);
if ((int)me->query("eff_qi") < (int)me->query("max_qi"))
me->add("eff_qi",damage/3);
            damage=100;
            j=100;
            return j;

        }
            
        
if ((int)me->query("qi")>1 && (int)me->query("eff_qi")>1)
{
if ((int)me->query("qi") < (int)me->query("eff_qi"))
        i = (int)me->query("eff_qi") / (int)me->query("qi") + 1;
else         i = (int)me->query("max_qi") / (int)me->query("eff_qi") + 1;
        if ( i > 5 ) i = 5;
}
else i=1;
        limbs = ob->query("limbs");
        level = me->query_skill("lonely-sword", 1);

        if( me->is_busy()) return 1;
        if( damage < 100 ) return 1;
        if (  random(level) > 100 /i
         && me->query_skill_mapped("sword") =="lonely-sword"
         && me->query_skill_mapped("parry") =="lonely-sword"
         && me->query("fengset")
         && weapon
         && weapon->query("skill_type") == "sword"
         && me->query_skill("sword") > 300
         && random(me->query_skill("sword",1)) > 150
         && !me->is_busy()
         && me->query("neili") > 200
         && me->query("max_neili") > 4000
         && random(me->query_int()) >= 20 ){
            me->add("neili", -100);
            msg = HIW"$N身子摇摇欲坠,行动不便,知道这一招无可躲避,当即挺剑刺出,后发先至,噗的一声刺向$n的咽喉。\n"NOR;
            if ( random(level) > ob->query_skill("dodge", 1) / i){
             q = damage * i ;
             if ( q > 3500 ) q = 3500 + ( q - 3500 )/ 100;
             ob->receive_damage("qi", q);
             ob->receive_wound("qi", q/2);
             if (!ob->is_busy())
             ob->start_busy(2+random(2));
             if ( random(me->query("combat_exp")) > ob->query("combat_exp") / i)
             p = ob->query("qi")*100/ob->query("max_qi");
             msg += damage_msg(damage, "刺伤") + "( $n"+eff_status_msg(j)+" )\n";
             msg = replace_string(msg, "$l", limbs[random(sizeof(limbs))]);
             msg = replace_string(msg, "$w", "剑刃");
             j = -(damage/2+random(damage/2));
            }
            else {
              dodge_skill = ob->query_skill_mapped("dodge");
              if( !dodge_skill ) dodge_skill = "dodge";
              msg += SKILL_D(dodge_skill)->query_dodge_msg(ob, 1);
              j = -damage/4;
            }
            message_vision(msg, me, ob);
            return j;
        }
}

[发帖际遇]: hxsd给云中鹤擦背,得到奖赏银两3。
【武侠.中国】铁血丹心论坛(大武侠):致力于推广和发展武侠文化,让我们一起努力,做全球最大的武侠社区。
可能是目前为止最好的金庸群侠传MOD游戏交流论坛,各种经典武侠游戏等你来玩,各种开源制作工具等你来实现你的游戏开发之梦。
发表于 2009-9-10 16:24 | 显示全部楼层
这些是什么,看的头都晕了

[发帖际遇]: John哥遭太岳四侠打劫,落荒而逃中丢失银两2.
【武侠.中国】铁血丹心论坛(大武侠):致力于推广和发展武侠文化,让我们一起努力,做全球最大的武侠社区。
可能是目前为止最好的金庸群侠传MOD游戏交流论坛,各种经典武侠游戏等你来玩,各种开源制作工具等你来实现你的游戏开发之梦。
头像被屏蔽
发表于 2009-9-10 18:19 | 显示全部楼层

风花雪夜演绎的风流

对于“爱情”这个字眼,我一直都是讳莫如深,从不当众启齿或直白与人。可以说,这不仅仅是我,从我所处的那个时代一道走过来的整整一拨人都会有这种避讳。因为我们那个时代不是没有爱情,而是“流行”着不谈爱情。
因为无人谈及,所以当时也就很难说清是否有、或者是能否懂得什么是爱与真爱等等一切与爱情有关的问题。所以,也就出现了大多数人对此都不太开窍,而且根本就没有什么爱情的意识。纵有少数开了窍的,也会把这种意识当成一种思想认识的错误,以悄悄的自我批评的方式对其刚刚冒头的情感嫩芽予以坚决的否决或是压抑。实在压抑不住的只有被迫认罪伏法,有的甚至会以赎罪的形式回避、远离和逃脱。因为在那个时代里,爱情这玩意,实际上就是一种谈即令人色变的情感怪物。当然,也有即开了窍、又懂得顺应世事风水的聪明人,在偷尝了禁果之后,巧言令色地以革命的名义、或以碳带m3 skym3-skym3 skym3-sky战友的豪情结为连理。既达到了政治要求、又满足了生理需要,两相适宜、皆大欢喜。只不过,那种所谓的革命只是一种来自集体的自以为是的愚昧,所以,由其衍发而来的那种特殊的情感生活,无论如何都得不到我们在幡然醒悟过来之后所予以的欣然接受、或者是屈意地加以肯定。
也就是我们那一茬人,当我们怀着晚熟的懵懂感到必须真正地涉足爱情,并把两性情感当成不可缺少的生活内容的时候,才发现我们都早已远离了那种最最单纯的、淳朴的、透明的、以及充满清纯甜美和活力的、被称之为情窦初开的爱情。这又怎能不说是一种人生的莫大的缺憾呢?而且,还是整整一个时代的情感缺憾啊。
在中国,纵览上下五千年的文化,沥沥述说着数不尽的风花雪夜之中尽数辗转演绎的风流人物和浪漫故事,唯独我们的命运被失手镶嵌在那爱情的空白之处,令我们即使是上天入地也永远都无法再往回找补。这种由历史所造成的轮空感对于我们而言,不能不说是一种无谓的失去。回想过来还不如祈求命运“行行好”地在当时给我们哪怕是安排一次绝望的失恋——一个能让我们为了真正的爱情而品尝一次失去的机会。其实,要是背着人面掏出肺腑地说,哪个内心里没有过一段故事呢?哪怕仅仅是一个念头、或者是一段被扭曲了的初衷,或者——呵呵,都已成为过去——付出而无人埋单罢了。
当我们在为时尤晚的无奈中,总算循规蹈矩地经历过相识、恋爱、婚姻、生子,以及随之而来的婚后所必须和必然遇到的一切环节和细节,在我们的认识中,爱情的含义和内容已经时过境迁,而我们对爱情生活的意念要求和现实的胃口也都随之发生了的许多意想不到的变化。不过,无论发生了怎样的变化,旧时的烙印依然深刻;无论在我们的心中滚动过或者依旧还盘桓着怎样的情感故事,我们对爱情这个词依然是鲜有开口和提及。不过,在近几次偶然的电视观摩中,那些个涉及爱情的片段,却又帮我打开了已被我收藏了多年的话头。一种评价爱情的冲动油然而生,并在对其思忖、品尝的过程中,深情地抚摸和实实在在地感受到因它而带来的感动。
在电视上,cctv电影频道在前不久播放了一部介绍著名电影女星奥黛丽&#8226;赫本的纪录短片,影片里也讲述了一段同样感人之深的爱情故事。
奥黛丽&#8226;赫本于1929年5月4日生于比利时的布鲁塞尔,父亲是一位英国的银行家,而母亲是一名荷兰的女男爵。
1952年,赫本在友人的推荐下,与当时红极一时的美国著名电影男明星格里高利&#8226;派克一起,以男女主角的身份联袂出演了电影《罗马假日》。在影片正式上映之前,派克发现海报上自己的名字太大太显眼而赫本的名字却很小,就特地通知制片方把原来海报上的“格里高利&#8226;派克主演”改成“奥黛丽&#8226;赫本”的名字。1953年8月,电影一上映就即刻引起轰动,赫本也因此而成为世界瞩目的明星,并于翌年3月25日,获得了第26届奥斯卡最佳女主角金像奖。尽管赫本站在领奖台上,望着手上的小金像一时激动地说话难以成句,但是她依然郑重而清晰地向整个关注她的世界宣称:“这是派克送给我的礼物。”
在鲜为人知的传说中,派克与赫本在电影的拍摄过程中彼此擦出了爱情的火花。但是,鉴于派克当时是一位已有家室的男人,于是,一方面为了维护完整的家庭,而另一方面则为了使赫本在事业上能有更大的发展,派克特地善意地将赫本介绍给才华横溢的好莱坞著名导演梅厄&#8226;菲热。并在发生在后来的赫本与梅厄的婚礼上,送给赫本一枚蝴蝶胸针作为结婚的礼物。而这枚胸针就成为赫本一生的最爱而一直珍藏在她的身边。
一直到1993年1月20日,赫本因患结肠癌在瑞士的托洛彻纳茨病逝。此时,当年风流倜傥的白马王子已成为耄耋年迈的再婚老人。但是,对于那爱来说岁月的变迁又能说明什么呢?闻讯的老派克当即携妻飞往大洋彼岸参加了这位昔日密友的葬礼。
在安葬仪式上,派克不无伤感地说:
“作为银幕情侣能握着她的手翩翩起舞,那是我此生无比的幸运。”说着,他低下头,在赫本的棺木上轻轻地印下深情的一吻,并喃喃低语道:
“你是我一生中最爱的女人。”
听到这样的道别之语,全场所有的人无不为之伤感动容。而派克已跻身于扛抬棺木的队列中,随着现场演奏的安魂曲的旋律节奏缓慢地移动着步履——在自己心爱之人在世的时候,他把她藏在心底;而当她离去的时候,他则用自己的肩膀亲自为她送行。
后来,著名的苏富比拍卖行在2003年4月24日举办了赫本生前衣物、首饰的慈善义卖会。那一天,派克亲自前往参加并买回了那枚他曾赠送给赫本而且陪伴了赫本40多年的蝴蝶胸针。从此以后,每当派克用自己那枯老的手指抚摸那枚胸针的时候,便如同触摸到了赫本那曾经充满了美丽的心跳,曾经的一切宛若再现。这对于他来说,仅此一点已无遗憾。
而尽管派克用其一生的时间在银幕上演绎了无数个爱情帅男,但是,当他在自己的比弗山庄的寓所里向这个世界做最后告别的时候,却没有忘记赋予自己的妻子——一个随他姓氏的女人、伴侣、孩子的母亲、以及相濡以沫的爱妻等等身份——以应有的也是最后的尊严,他安详而宁静地把自己的手放入爱妻的手中,并感谢她多年以来与他的陪伴。然后,坦然而优雅地闭上了眼睛。
就在此时,当我缅怀一个已经逝去的国际型帅哥、一个男人、一个老男人用其生命所演绎的情感故事,并深深地体愠到被我们在内心里赞慕已久的那种深藏在所谓“真正的男人”外表之下难以言表的复杂的情感意味,那缓慢而低沉地叙述着伤感却依然不失风度的爱情,又怎能不使我再次的落泪。
有时候,我不禁会反复地诘问:难道真爱就总会被无情刺痛?难道爱情的结局必有情伤?而我,只是想为自己寻找一个落泪的理由,但是,一直到了最后也没能找到满意的答案。
关于爱情我们从来都不缺乏谈资。无论是媒体的报道、编撰的故事,还是市井街巷的传闻、现实生活的演绎,还是我们所经历过的和正在发生着的经历。实际上,所有的有爱之情所反复讲述的无非就是“付出和得到”或者是“付出和失去”这样一个互为反相的交换定律。也就是人啊,自始至终摆脱不了这样一个命题,即“我的得到和我的失去”。
在上述的爱情片段中,一个男人自从在心中有了属于自己的女人,在他的意识中并不是用自然的欲望去占有她,而是在现实当中对于她之所需尽其所能地给予一切切实的爱护、帮助、保护、甚至是挺出性命冒死担当。在这样的人所持有的爱情观念中,自然而然地会把自己身上那来自本能的欲望悄悄地藏入心底,然后,用默默的方式给予“我的人”以及“我自己”以最最之大的情感上的满足。而对于女人来说,她也是通过这样一段经历获得了一生难得的男人和真正属于自己的爱情。这与现代十分流行的商业交割式的爱情观相比而言,真是天与地之间的差距,难能可贵,十分了得。
男人和女人,通过这种本分得让现代人咂舌的爱情招式,单纯而优雅地完成了彼此最后的告白,并完全地获得了彼此、获得了属于自己的人和属于自己的真爱。尽管这种情感只能永远地停留在意念当中,就像一朵漂浮在想象中的云彩,但是,谁又能说那不是一种完整而真实的获得呢?那么,对于这种爱情,我们除了心生钦佩和敬慕之外,不能不说还有一种类似于对艺术珍品的欣赏,哪怕那仅仅只能是一种站在远处的欣赏。在这种情形之下,即使是作为一名局外的旁观者,也已经再也无法掩饰、回避、拒绝、甚至是逃离那份来自内心某处深藏已久的关于爱情所应有的沉甸甸的神圣与庄严。
在对这有关爱情的玩味中,忽然感到我之落泪似乎合乎了一个若隐若现的情理。终于有一天,在翻看旧日相册的时候,看到夫人的一张相片背后有几行发旧的文字而感到茅塞顿开:
“爱需要理由吗?我自己的答案是不需任何理由。或许,正如爱无需理由那样,与爱有关的一切都可以无需理由,因为,有爱足够!”
这是我十五年前写下的思想心得,尽管时日久远,但我还是感到自己似乎已经找到了答案:因爱而感动的眼泪也无需理由——任何理由都不足以诠释以爱为内容的情感。
——终于还是由自己回答了自己的问题,虽说那只是一个似是而非、没有最终结论的、且有些稀里糊涂的逻辑结果。倒是显得有些蛮横、有些不讲道理。就仿佛像是在说,爱情无需讲理那样,呵呵。
是的,有爱足够!我常常这么想,事实也确是这样。
在这个世界上,每一个人在自己转瞬即逝的人生之旅中,除了这爱我们还能留下什么?除了爱又还有什么是值得我们可以留下的?
而对于我们的整个人生来说——不管你如何理解,也不管你能否接受——有一点是不容置疑的,那就是我们都曾怀揣着一份这般简单的清纯和质朴来到这里,这人生啊,就是我们谈情说爱的地方,而且,这里原本就应该是我们谈情说爱的地方。
至于那爱,尽管我们并不轻信能够轻易地找到这来自灵魂深处的悠远而深奥的答案,但是,我们依然还是会以各自的虔诚悄悄地等待着——无论肯定与否,事实上从那远去的曾经就已经开始,一直到现在,一直到未来——我们都在默默地希望能够听到发自内心的回声。
或近,或远,我们从未放弃地等待着……

[发帖际遇]: iuerniu21暑假期间在洛阳绿竹巷参加《任盈盈琴箫兴趣班》,学习初级课程,报名费银两4。
【武侠.中国】铁血丹心论坛(大武侠):致力于推广和发展武侠文化,让我们一起努力,做全球最大的武侠社区。
可能是目前为止最好的金庸群侠传MOD游戏交流论坛,各种经典武侠游戏等你来玩,各种开源制作工具等你来实现你的游戏开发之梦。
发表于 2009-9-14 13:06 | 显示全部楼层
九劍後期威力真大

[发帖际遇]: adv123给云中鹤擦背,擦中腋窝,扣工钱银两10.
【武侠.中国】铁血丹心论坛(大武侠):致力于推广和发展武侠文化,让我们一起努力,做全球最大的武侠社区。
可能是目前为止最好的金庸群侠传MOD游戏交流论坛,各种经典武侠游戏等你来玩,各种开源制作工具等你来实现你的游戏开发之梦。

本版积分规则

小黑屋|手机版|铁血丹心

GMT+8, 2025-5-19 22:42

Powered by Discuz! X3.4 Licensed

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表