头衔 小混混
|
ivy | 门派 秋林拾叶
职务 总舵主
人物等级 炉火纯青
江湖威望 ＋8
江湖阅历 30
门派贡献 1507
实战经验 22561
文章 534
注册 05-01-09 22:36
|
|
|
发表 2005-07-10 23:59:59 人气:4011  
机器人：读书机器人（*乾坤大挪移）
[COLOR=red]下载地址[/COLOR]：[URL=http://www.gameivy.com/mud/down/Robots/dushu.rar][U][COLOR=blue]读书机器人[/COLOR][/U][/URL]
说明：本机器人主要是为了读乾坤大挪移，读其它的书更没问题，不过读一般的书用机器人还没用计划来的快，设定也不用这么细，当然用不用是大家的问题。
[COLOR=green]乾坤大挪移[/COLOR]相关代码如下：
[code]
inherit SKILL;
#include <ansi.h>
#include <combat.h>
string *parry_msg = ({
"$N一招击在$n身上，却被$n暗运乾坤大挪移，将内力尽数移入地下。\n",
"$n轻轻一带，$N发现自己招数回击过来，吓得往后倒退几步。\n",
"$n手臂回转，在$N手肘下轻轻一推，$N招数落空。\n",
"$n右手伸出，在$N手腕上轻轻一拉，$N收势不住，直往前扑去。\n",
"$n身形不动，$N一招击下，有如石沉大海，不觉呆住了。\n",
"$n左牵右引，$N如身处漩流，连续转了好几个圈子。\n",
"$n双手回圈，$N只觉得前面好象有一堵墙，再也攻不进去。\n",
"$n轻轻一转，$N一招击在地上，只打得尘土飞扬。\n",
});
string *pfail_msg = ({
"$n暗运乾坤大挪移，试图将内力尽数移入地下，然而$N早已勘破其中奥妙，内力变化莫测。\n",
"$n轻轻一带，$N发现自己招数回击过来，急忙变招，身转如意，反让$n防不胜防。\n",
"$n手臂回转，在$N手肘下轻轻一推，然而$N招数忽的一变，并未落空。\n",
"$n右手伸出，在$N手腕上轻轻一拉，$N收势不住，顺势变招扑前直击。\n",
"$n左牵右引，$N如身处漩流，顺势变招，圆转如意，随心所欲。\n",
"$n双手回圈，$N只觉得前面好象有一堵墙，猛然警醒，聚力于一点，力攻对方。\n",
});
int valid_enable(string usage)
{
return usage == "parry";
}
string query_parry_msg(string limb)
{
return parry_msg[random(sizeof(parry_msg))];
}
int valid_learn(object me)
{
int layer;
if (me->query("gender") == "无性" &&
me->query_skill("qiankun-danuoyi", 1) >= 50)
return notify_fail("你试图按照心法修炼大挪移，却"
"觉得心中一阵迷茫，难以继续。\n");
if (me->query_condition("qiankun-except"))
return notify_fail("你现在体内若冰、四肢皆寒、面赤"
"如火，无法继续修炼神功。\n");
layer = (int)me->query_skill("qiankun-danuoyi", 1) / 50;
if (layer > 7) layer = 7;
if (me->query("int") < 36 )
return notify_fail("你觉得乾坤大挪移实在是深奥无比，全然无法理解。\n");
//if (me->query("int") < 32 + layer )
// return notify_fail("你觉得第" + chinese_number(layer) +
// "层乾坤大挪移实在是深奥无比，全然无法理解。\n");
if (me->query("int") < 43 + layer - (int)me->query_skill("force")/50)
return notify_fail("你觉得第" + chinese_number(layer) +
"层乾坤大挪移实在是深奥无比，全然无法理解。\n");
if ((int)me->query("max_neili") < 6000)
return notify_fail("你的内力修为太差，无法修炼乾坤大挪移。\n");
if ((int)me->query_skill("force") < 450)
return notify_fail("你的内功火候不够，无法修炼乾坤大挪移。\n");
if ((int)me->query_skill("parry", 1) < (int)me->query_skill("qiankun-danuoyi", 1))
return notify_fail("你的基本招架火候有限，无法体会更高深的乾坤大挪移。\n");
if ((int)me->query_skill("dodge", 1) < (int)me->query_skill("qiankun-danuoyi", 1))
return notify_fail("你的基本轻功火候有限，无法体会更高深的乾坤大挪移。\n");
if ((int)me->query_skill("force", 1) < (int)me->query_skill("qiankun-danuoyi", 1))
return notify_fail("你的基本内功火候有限，无法体会更高深的乾坤大挪移。\n");
return 1;
}
mixed valid_damage(object ob, object me, int damage, object weapon)
{
mapping result;
string msg;
int ap, dp, mp, sk, ma, wn, na;
sk = ob->query_skills();
ma = ob->query_skill_map();
if ((int)me->query_skill("qiankun-danuoyi", 1) < 100
|| ! living(me))
return;
mp = ob->query_skill("count", 1);
ap = ob->query_skill("force", 1) + mp;
dp = me->query_skill("parry", 1);
if (ap / 2 + random(ap) < dp
&& ! me->is_busy()
&& ! me->query_temp("nuoyi")
&& ! ob->query_temp("nuoyi")
&& me->query_skill("qiankun-danuoyi", 1) > 350
&& me->query("max_neili") * 2 / 3 > ob->query("max_neili")
&& random(30) == 1
&& sizeof(sk)
&& sizeof(ma) != 0
&& mapp(ma)
&& mp < 100)
{
if (objectp(weapon = ob->query_temp("weapon")))
{
wn = weapon->query("skill_type");
na = ob->query_skill_mapped(wn);
} else
if (ob->query_skill_prepared("finger"))
na = ob->query_skill_mapped("finger");
else
if (ob->query_skill_prepared("strike"))
na = ob->query_skill_mapped("strike");
else
if (ob->query_skill_prepared("claw"))
na = ob->query_skill_mapped("claw");
else
if (ob->query_skill_prepared("cuff"))
na = ob->query_skill_mapped("cuff");
else
if (ob->query_skill_prepared("hand"))
na = ob->query_skill_mapped("hand");
else
na = ob->query_skill_mapped("unarmed");
msg = HIM "\n$N" HIM "一招攻出，却见$n" HIM "迎身而"
"上，冷笑道：「区区" + CHINESE_D->chinese(na) +
HIM "，能奈我何？」\n$n" HIM "当即运起乾坤大挪"
"移第七层心法，企图挪移$N" HIM "的攻势。\n\n" NOR;
me->start_call_out((: call_other, __FILE__, "nuoyi",
ob, me :), 1);
me->set_temp("nuoyi/" + ob->query("id"), 1);
me->start_busy(2);
result = ([ "damage" : -damage,
"msg" : msg ]);
return result;
} else
if (ap / 2 + random(ap) < dp)
{
msg = parry_msg[random(sizeof(parry_msg))];
msg = replace_string(msg, "$N", "$N" HIG);
msg = replace_string(msg, "$n", "$n" HIG);
msg = HIG + msg + NOR;
result = ([ "damage": -damage,
"msg" : msg ]);
return result;
} else
if (mp >= 100)
{
msg = pfail_msg[random(sizeof(pfail_msg))];
msg = replace_string(msg, "$N", "$N" HIY);
msg = replace_string(msg, "$n", "$n" HIY);
msg = HIY + msg + NOR;
COMBAT_D->set_bhinfo(msg);
}
}
void skill_improved(object me)
{
int lvl;
int layer;
lvl = me->query_skill("qiankun-danuoyi", 1);
layer = lvl / 50;
if (layer > 7) layer = 7;
if (! layer)
{
tell_object(me, HIM "你潜心修炼乾坤大挪"
"移心法，若有所悟。\n" NOR);
} else
if ((lvl % 50) == 0)
{
tell_object(me, HIM "你修炼成了第" + chinese_number(layer) +
"层的乾坤大挪移心法。\n" NOR);
} else
tell_object(me, HIM "你对第" + chinese_number(layer) +
"层的乾坤大挪移心法又加深了一层了解。\n" NOR);
if (lvl > me->query_skill("force") * 2 / 3)
{
if (lvl < me->query_skill("force") * 2 / 3 + 10)
{
tell_object(me, HIG "你觉得内息一阵紊乱，丹田时冷时"
"热，不由得大吃一惊。\n心想莫非是走"
"火入魔？丹田越来越是寒冷，极为难受"
"。\n" NOR);
message("vision", HIG + me->name() + HIG "的脸色忽红"
"忽绿，变得不停，只是浑身颤抖，似"
"乎十分痛苦。\n" NOR,
environment(me), ({ me }));
return;
}
tell_object(me, HIB "你忽然觉得丹田腾起一阵寒意，霎时间四肢"
"百赅一起变得寒冷无比，忍不住大声呻吟。\n" NOR);
message("vision", HIB + me->name() + HIB "忽然一抖，脸色忽然"
"变得惨白，隐然笼罩了一股绿气，呻吟不止。"
"\n" NOR, environment(me), ({ me }));
} else
if (lvl < 350 && (lvl * 20 + 4000) > me->query("max_neili"))
{
if ((lvl * 20 + 4000) < me->query("max_neili") + 200)
{
tell_object(me, HIR "你试着运转了一下内息，一时觉得内"
"力不济，看来还是不要贸然修炼大挪移神功。\n" NOR);
return;
}
tell_object(me, HIR "你试着运转了一下内息，忽然觉得一口气"
"竟然转不过来，顿时心中绞痛，接连吐了几口鲜血。\n" NOR);
message("vision", HIR + me->name() + HIR "脸色忽然"
"一变，呕出几口鲜血，触目惊心。\n" NOR,
environment(me), ({ me }));
} else
return;
me->apply_condition("qiankun-except", lvl +
(int)me->query_condition("qiankun-except"));
}
void nuoyi(object ob, object me)
{
string msg;
int ap, dp, damage;
if (! ob
|| ! me->is_fighting(ob)
|| ! me->query_temp("nuoyi/" + ob->query("id")))
return;
msg = HIM "\n$N" HIM "乾坤大挪移第七层心法施展出来，顿将先前所积蓄"
"的十余道力量归并为一掌，朝$n" HIM "疾拍而出，这便如一座大湖"
"在山洪爆发时储满了洪水却突然崩决，洪水急冲而出一般。\n" NOR;
ap = me->query_skill("parry");
dp = ob->query_skill("force");
me->start_busy(2);
if (dp / 2 + random(dp) < ap)
{
damage = ap + dp;
msg += COMBAT_D->do_damage(me, ob, REMOTE_ATTACK, damage, 300,
HIR "只听$n" HIR "一声惨叫，将$N"
HIR "返回的力道受了个十足，全身喀"
"嚓喀嚓一阵脆响，腕骨、臂骨、肩骨"
"、肋骨竟然一齐折断。\n" NOR);
} else
{
msg += HIC "$n" HIC "眼见$P来势汹涌，不敢"
"大意，施出浑身解数化解开来。\n" NOR;
}
me->delete_temp("nuoyi");
message_sort(msg, me, ob);
}
int practice_skill(object me)
{
return notify_fail("乾坤大挪移只能通过学习或研读乾坤大挪移心法提高。\n");
}
string perform_action_file(string func)
{
return __DIR__"qiankun-danuoyi/" + func;
}
[/code] |
[ 这个贴子最后由ivy在2005-7-27 10:10:58从 游戏讨论区 转移过来 ]
|
|
机器人：读书机器人（*乾坤大挪移） (