秋林拾叶【mud.Gameivy.COM】 >> 论坛 >> ┈┋MUD 交流区┋┈ >> 梦幻泥潭 >> 红花会三当家「千臂如来」赵半山(zhao banshan)
红花会三当家「千臂如来」赵半山(zhao banshan) ivy,2006-01-11 01:35:25

[b]xTiNt[/b]
[color=#008000]00000:[/color] [color=#0000D0]#include[/color] <ansi.h>
[color=#008000]00001:[/color] [color=#0000D0]#include[/color] [color=#808080]"honghua.h"[/color]
[color=#008000]00002:[/color]
[color=#008000]00003:[/color] [color=#0000D0]#define[/color] HUILONGBI    [color=#808080]"/clone/lonely/huilongbi"[/color]
[color=#008000]00004:[/color]
[color=#008000]00005:[/color] inherit NPC;
[color=#008000]00006:[/color] inherit F_MASTER;
[color=#008000]00007:[/color] inherit F_COAGENT;
[color=#008000]00008:[/color]
[color=#008000]00009:[/color] mixed ask_bi();
[color=#008000]00010:[/color] mixed ask_skill1();
[color=#008000]00011:[/color]
[color=#008000]00012:[/color] [color=#0000D0]void[/color] create()
[color=#008000]00013:[/color] {
[color=#008000]00014:[/color]         object ob;
[color=#008000]00015:[/color]         set_name([color=#808080]"赵半山"[/color], ({[color=#808080]"zhao banshan"[/color], [color=#808080]"zhao"[/color], [color=#808080]"banshan"[/color]}));
[color=#008000]00016:[/color]         set([color=#808080]"title"[/color], [color=#808080]"红花会三当家"[/color]);
[color=#008000]00017:[/color]         set([color=#808080]"nickname"[/color], HIY [color=#808080]"千臂如来"[/color] NOR );
[color=#008000]00018:[/color]         set([color=#808080]"gender"[/color], [color=#808080]"男性"[/color]);
[color=#008000]00019:[/color]         set([color=#808080]"age"[/color], 48);
[color=#008000]00020:[/color]         set([color=#808080]"long"[/color], [color=#808080]"只见他一张胖胖的脸,笑起来给人一副很慈\n"[/color]
[color=#008000]00021:[/color]                     [color=#808080]"祥的感觉。他原是温州王氏太极门掌门大弟\n"[/color]
[color=#008000]00022:[/color]                     [color=#808080]"子。豪迈豁达,行侠江湖,一手暗器功夫和\n"[/color]
[color=#008000]00023:[/color]                     [color=#808080]"太极剑少有能匹敌。屠龙帮风流云散之后,\n"[/color]
[color=#008000]00024:[/color]                     [color=#808080]"投入红花会。很得被红花会老当家于万亭赏\n"[/color]
[color=#008000]00025:[/color]                     [color=#808080]"识。\n"[/color]);
[color=#008000]00026:[/color]         set([color=#808080]"attitude"[/color], [color=#808080]"peaceful"[/color]);
[color=#008000]00027:[/color]         set([color=#808080]"shen_type"[/color], 1);
[color=#008000]00028:[/color]         set([color=#808080]"per"[/color], 21);
[color=#008000]00029:[/color]         set([color=#808080]"str"[/color], 30);
[color=#008000]00030:[/color]         set([color=#808080]"int"[/color], 30);
[color=#008000]00031:[/color]         set([color=#808080]"con"[/color], 30);
[color=#008000]00032:[/color]         set([color=#808080]"dex"[/color], 30);
[color=#008000]00033:[/color]
[color=#008000]00034:[/color]         set([color=#808080]"qi"[/color], 4500);
[color=#008000]00035:[/color]         set([color=#808080]"max_qi"[/color], 4500);
[color=#008000]00036:[/color]         set([color=#808080]"jing"[/color], 3000);
[color=#008000]00037:[/color]         set([color=#808080]"max_jing"[/color], 3000);
[color=#008000]00038:[/color]         set([color=#808080]"neili"[/color], 5000);
[color=#008000]00039:[/color]         set([color=#808080]"max_neili"[/color], 5000);
[color=#008000]00040:[/color]         set([color=#808080]"jiali"[/color], 150);
[color=#008000]00041:[/color]         set([color=#808080]"combat_exp"[/color], 3000000);
[color=#008000]00042:[/color]         set([color=#808080]"score"[/color], 10000);
[color=#008000]00043:[/color]
[color=#008000]00044:[/color]         set_skill([color=#808080]"force"[/color], 220);
[color=#008000]00045:[/color]         set_skill([color=#808080]"honghua-xinfa"[/color], 220);
[color=#008000]00046:[/color]         set_skill([color=#808080]"tianchi-neigong"[/color], 220);
[color=#008000]00047:[/color]         set_skill([color=#808080]"unarmed"[/color], 220);
[color=#008000]00048:[/color]         set_skill([color=#808080]"dodge"[/color], 220);
[color=#008000]00049:[/color]         set_skill([color=#808080]"yanzi-chuanyun"[/color], 220);
[color=#008000]00050:[/color]         set_skill([color=#808080]"taiji-jian"[/color], 220);
[color=#008000]00051:[/color]         set_skill([color=#808080]"taiji-quan"[/color], 220);
[color=#008000]00052:[/color]         set_skill([color=#808080]"parry"[/color], 220);
[color=#008000]00053:[/color]         set_skill([color=#808080]"sword"[/color], 220);
[color=#008000]00054:[/color]         set_skill([color=#808080]"throwing"[/color], 240);
[color=#008000]00055:[/color]         set_skill([color=#808080]"huilong-bifa"[/color], 240);
[color=#008000]00056:[/color]         set_skill([color=#808080]"martial-cognize"[/color], 200);
[color=#008000]00057:[/color]         set_skill([color=#808080]"literate"[/color], 200);
[color=#008000]00058:[/color]
[color=#008000]00059:[/color]         set([color=#808080]"no_teach"[/color], ([
[color=#008000]00060:[/color]                 [color=#808080]"taiji-jian"[/color] : [color=#808080]"嗯……你还是学点其它的吧。"[/color],
[color=#008000]00061:[/color]                 [color=#808080]"taiji-quan"[/color] : [color=#808080]"嗯……你还是学点其它的吧。"[/color],
[color=#008000]00062:[/color]         ]));
[color=#008000]00063:[/color]
[color=#008000]00064:[/color]         map_skill([color=#808080]"force"[/color]   , [color=#808080]"tianchi-neigong"[/color]);
[color=#008000]00065:[/color]         map_skill([color=#808080]"unarmed"[/color] , [color=#808080]"taiji-quan"[/color]);
[color=#008000]00066:[/color]         map_skill([color=#808080]"dodge"[/color]   , [color=#808080]"yanzi-chuanyun"[/color]);
[color=#008000]00067:[/color]         map_skill([color=#808080]"parry"[/color]   , [color=#808080]"taiji-jian"[/color]);
[color=#008000]00068:[/color]         map_skill([color=#808080]"sword"[/color]   , [color=#808080]"taiji-jian"[/color]);
[color=#008000]00069:[/color]         map_skill([color=#808080]"throwing"[/color], [color=#808080]"huilong-bifa"[/color]);
[color=#008000]00070:[/color]
[color=#008000]00071:[/color]         create_family([color=#808080]"红花会"[/color], 4, [color=#808080]"当家"[/color]);
[color=#008000]00072:[/color]
[color=#008000]00073:[/color]         set([color=#808080]"inquiry"[/color], ([
[color=#008000]00074:[/color]                 [color=#808080]"回龙璧"[/color] : (: ask_bi :),
[color=#008000]00075:[/color]                 [color=#808080]"掌藏龙"[/color] : (: ask_skill1 :),
[color=#008000]00076:[/color]         ]));
[color=#008000]00077:[/color]
[color=#008000]00078:[/color]         set([color=#808080]"chat_chance_combat"[/color], 100);
[color=#008000]00079:[/color]         set([color=#808080]"chat_msg_combat"[/color], ({
[color=#008000]00080:[/color]                 (: perform_action, [color=#808080]"sword.chan"[/color] :),
[color=#008000]00081:[/color]                 (: perform_action, [color=#808080]"throwing.cang"[/color] :),
[color=#008000]00082:[/color]                 (: exert_function, [color=#808080]"powerup"[/color] :),
[color=#008000]00083:[/color]                 (: exert_function, [color=#808080]"recover"[/color] :),
[color=#008000]00084:[/color]         }) );
[color=#008000]00085:[/color]         setup();
[color=#008000]00086:[/color]
[color=#008000]00087:[/color]         [color=#0000D0]if[/color] (clonep())
[color=#008000]00088:[/color]         {
[color=#008000]00089:[/color]                 ob = find_object(HUILONGBI);
[color=#008000]00090:[/color]                 [color=#0000D0]if[/color] (! ob) ob = load_object(HUILONGBI);
[color=#008000]00091:[/color]                 [color=#0000D0]if[/color] (! environment(ob))
[color=#008000]00092:[/color]                 {
[color=#008000]00093:[/color]                         ob->move(this_object());
[color=#008000]00094:[/color]                         set_temp([color=#808080]"handing"[/color], ob);
[color=#008000]00095:[/color]                 } [color=#0000D0]else[/color]
[color=#008000]00096:[/color]                 {
[color=#008000]00097:[/color]                         set_temp([color=#808080]"handing"[/color], carry_object([color=#808080]"/d/beijing/npc/obj/jinbiao"[/color]));
[color=#008000]00098:[/color]                 }
[color=#008000]00099:[/color]         }
[color=#008000]00100:[/color]         carry_object([color=#808080]"/clone/weapon/changjian"[/color])->wield();
[color=#008000]00101:[/color]         carry_object([color=#808080]"/d/wudang/obj/greyrobe"[/color])->wear();
[color=#008000]00102:[/color]    
[color=#008000]00103:[/color] }
[color=#008000]00104:[/color]
[color=#008000]00105:[/color] [color=#0000D0]void[/color] attempt_apprentice(object me)
[color=#008000]00106:[/color] {
[color=#008000]00107:[/color]         [color=#0000D0]if[/color] (! permit_recruit(me))
[color=#008000]00108:[/color]                 [color=#0000D0]return[/color];
[color=#008000]00109:[/color]
[color=#008000]00110:[/color]         [color=#0000D0]if[/color] (([color=#0000D0]int[/color])me->query([color=#808080]"shen"[/color]) < 15000)
[color=#008000]00111:[/color]         {
[color=#008000]00112:[/color]                 command([color=#808080]"say 你侠义之事做得太少,需要多多注意。"[/color]);
[color=#008000]00113:[/color]                 [color=#0000D0]return[/color];
[color=#008000]00114:[/color]         }
[color=#008000]00115:[/color]
[color=#008000]00116:[/color]         [color=#0000D0]if[/color] (([color=#0000D0]int[/color])me->query([color=#808080]"combat_exp"[/color]) < 200000)
[color=#008000]00117:[/color]         {
[color=#008000]00118:[/color]                 command([color=#808080]"say 你的江湖经验太浅,还是先跟着其它几位当家练练吧。"[/color]);
[color=#008000]00119:[/color]                 [color=#0000D0]return[/color];
[color=#008000]00120:[/color]         }
[color=#008000]00121:[/color]
[color=#008000]00122:[/color]         [color=#0000D0]if[/color] (([color=#0000D0]int[/color])me->query_skill([color=#808080]"honghua-xinfa"[/color], 1) < 80)
[color=#008000]00123:[/color]         {
[color=#008000]00124:[/color]                 command([color=#808080]"say 你下去把本门的心法练好了再来找我。"[/color]);
[color=#008000]00125:[/color]                 [color=#0000D0]return[/color];
[color=#008000]00126:[/color]         }
[color=#008000]00127:[/color]
[color=#008000]00128:[/color]         command([color=#808080]"smile"[/color]);
[color=#008000]00129:[/color]         command([color=#808080]"say 念在你如此有心,我便收下你好了。"[/color]);
[color=#008000]00130:[/color]         command([color=#808080]"recruit "[/color] + me->query([color=#808080]"id"[/color]));
[color=#008000]00131:[/color] }
[color=#008000]00132:[/color]
[color=#008000]00133:[/color] mixed ask_skill1()
[color=#008000]00134:[/color] {
[color=#008000]00135:[/color]         object me;
[color=#008000]00136:[/color]
[color=#008000]00137:[/color]         me = this_player();
[color=#008000]00138:[/color]
[color=#008000]00139:[/color]         [color=#0000D0]if[/color] (me->query([color=#808080]"can_perform/huilong-bifa/cang"[/color]))
[color=#008000]00140:[/color]                 [color=#0000D0]return[/color] [color=#808080]"这招我不是早传授给你了吗?"[/color];
[color=#008000]00141:[/color]
[color=#008000]00142:[/color]         [color=#0000D0]if[/color] (me->query([color=#808080]"family/family_name"[/color]) != query([color=#808080]"family/family_name"[/color]))
[color=#008000]00143:[/color]                 [color=#0000D0]return[/color] RANK_D->query_respect(me) + [color=#808080]"和本教素无瓜葛,何出此言?"[/color];
[color=#008000]00144:[/color]
[color=#008000]00145:[/color]         [color=#0000D0]if[/color] (me->query_skill([color=#808080]"huilong-bifa"[/color], 1) < 1)
[color=#008000]00146:[/color]                 [color=#0000D0]return[/color] [color=#808080]"你连回龙璧法都没学,还谈什么绝招可言?"[/color];
[color=#008000]00147:[/color]
[color=#008000]00148:[/color]         [color=#0000D0]if[/color] (me->query([color=#808080]"gongxian"[/color]) < 600)
[color=#008000]00149:[/color]                 [color=#0000D0]return[/color] [color=#808080]"你在会中所作的贡献还不够,这招我不忙传你。"[/color];
[color=#008000]00150:[/color]
[color=#008000]00151:[/color]         [color=#0000D0]if[/color] (me->query([color=#808080]"shen"[/color]) < 30000)
[color=#008000]00152:[/color]                 [color=#0000D0]return[/color] [color=#808080]"你侠义正事做得不够,这招我不能传你。"[/color];
[color=#008000]00153:[/color]
[color=#008000]00154:[/color]         [color=#0000D0]if[/color] (me->query_skill([color=#808080]"force"[/color]) < 160)
[color=#008000]00155:[/color]                 [color=#0000D0]return[/color] [color=#808080]"你的内功火候不足,学不成这一招。"[/color];
[color=#008000]00156:[/color]
[color=#008000]00157:[/color]         [color=#0000D0]if[/color] (me->query_skill([color=#808080]"huilong-bifa"[/color], 1) < 120)
[color=#008000]00158:[/color]                 [color=#0000D0]return[/color] [color=#808080]"你的回龙璧法还练得不到家,自己下去练练再来吧!"[/color];
[color=#008000]00159:[/color]
[color=#008000]00160:[/color]         message_vision(HIY [color=#808080]"$n"[/color] HIY [color=#808080]"哈哈一笑,将$N"[/color] HIY [color=#808080]"招至跟前,轻"[/color]
[color=#008000]00161:[/color]                        [color=#808080]"声在耳旁秘密说了些什么。随后又伸出右\n手,十指"[/color]
[color=#008000]00162:[/color]                        [color=#808080]"箕张,一伸一缩,看样子是一种很特别的暗器法门。\n"[/color]
[color=#008000]00163:[/color]                        NOR, me, this_object());
[color=#008000]00164:[/color]
[color=#008000]00165:[/color]         command([color=#808080]"haha"[/color]);
[color=#008000]00166:[/color]         command([color=#808080]"say 听清楚了吗,自己下去练吧。"[/color]);
[color=#008000]00167:[/color]         tell_object(me, HIC [color=#808080]"你学会了「掌藏龙」。\n"[/color] NOR);
[color=#008000]00168:[/color]
[color=#008000]00169:[/color]         [color=#0000D0]if[/color] (me->can_improve_skill([color=#808080]"throwing"[/color]))
[color=#008000]00170:[/color]                 me->improve_skill([color=#808080]"throwing"[/color], 1500000);
[color=#008000]00171:[/color]         [color=#0000D0]if[/color] (me->can_improve_skill([color=#808080]"huilong-bifa"[/color]))
[color=#008000]00172:[/color]                 me->improve_skill([color=#808080]"huilong-bifa"[/color], 1500000);
[color=#008000]00173:[/color]         me->improve_skill([color=#808080]"martial-cognize"[/color], 1500000);
[color=#008000]00174:[/color]         me->set([color=#808080]"can_perform/huilong-bifa/cang"[/color], 1);
[color=#008000]00175:[/color]         me->[color=#0000D0]add[/color]([color=#808080]"gongxian"[/color], -600);
[color=#008000]00176:[/color]
[color=#008000]00177:[/color]         [color=#0000D0]return[/color] 1;
[color=#008000]00178:[/color] }
[color=#008000]00179:[/color]
[color=#008000]00180:[/color] mixed ask_bi()
[color=#008000]00181:[/color] {
[color=#008000]00182:[/color]         object me;
[color=#008000]00183:[/color]         object ob;
[color=#008000]00184:[/color]
[color=#008000]00185:[/color]         me = this_player();
[color=#008000]00186:[/color]
[color=#008000]00187:[/color]         [color=#0000D0]if[/color] (me->query([color=#808080]"family/family_name"[/color]) != [color=#808080]"红花会"[/color])
[color=#008000]00188:[/color]                 [color=#0000D0]return[/color] [color=#808080]"嘿,你是哪里来的?我可不认识你。"[/color];
[color=#008000]00189:[/color]
[color=#008000]00190:[/color]         [color=#0000D0]if[/color] (me->query([color=#808080]"family/master_id"[/color]) != [color=#808080]"chen jialuo"[/color] &&
[color=#008000]00191:[/color]            me->query([color=#808080]"family/master_id"[/color]) != [color=#808080]"wuchen daozhang"[/color] &&
[color=#008000]00192:[/color]            me->query([color=#808080]"family/master_id"[/color]) != [color=#808080]"zhao banshan"[/color])
[color=#008000]00193:[/color]                 [color=#0000D0]return[/color] [color=#808080]"这个…你师父"[/color] + me->query([color=#808080]"family/master_name"[/color]) + CYN
[color=#008000]00194:[/color]                        [color=#808080]"说了,不能太宠着你,过些日子吧。"[/color];
[color=#008000]00195:[/color]
[color=#008000]00196:[/color]         [color=#0000D0]if[/color] (me->query_skill([color=#808080]"huilong-bifa"[/color], 1) < 150)
[color=#008000]00197:[/color]                 [color=#0000D0]return[/color] [color=#808080]"等你回龙璧法练成后再来找我,快下去练练。"[/color];
[color=#008000]00198:[/color]
[color=#008000]00199:[/color]         [color=#0000D0]if[/color] (me->query([color=#808080]"shen"[/color]) < 30000)
[color=#008000]00200:[/color]                 [color=#0000D0]return[/color] [color=#808080]"哎呀呀,我这倒不是吝啬,可是你的德行也……"[/color];
[color=#008000]00201:[/color]
[color=#008000]00202:[/color]         [color=#0000D0]if[/color] (present([color=#808080]"huilong bi"[/color], me))
[color=#008000]00203:[/color]                 [color=#0000D0]return[/color] [color=#808080]"我的回龙璧不正是你拿着在用吗,为何还反倒问起我来了?"[/color];
[color=#008000]00204:[/color]
[color=#008000]00205:[/color]         ob = present([color=#808080]"huilong bi"[/color], this_object());
[color=#008000]00206:[/color]
[color=#008000]00207:[/color]         [color=#0000D0]if[/color] (! objectp(ob))
[color=#008000]00208:[/color]                 [color=#0000D0]return[/color] [color=#808080]"你来晚了,回龙璧现在并不在我手中。"[/color];
[color=#008000]00209:[/color]
[color=#008000]00210:[/color]         message_vision([color=#808080]"$N拿出"[/color] HIC [color=#808080]"回龙璧"[/color] NOR [color=#808080]"(Huilong bi)给$n。\n"[/color],
[color=#008000]00211:[/color]                        this_object(), me);
[color=#008000]00212:[/color]         ob->move(me, 1);
[color=#008000]00213:[/color]         set_temp([color=#808080]"handing"[/color], carry_object([color=#808080]"/d/beijing/npc/obj/jinbiao"[/color]));
[color=#008000]00214:[/color]
[color=#008000]00215:[/color]         [color=#0000D0]return[/color] [color=#808080]"既然这样,我这支回龙璧你就暂时拿去用吧。"[/color];
[color=#008000]00216:[/color] }
[color=#008000]00217:[/color]
[color=#008000]00218:[/color]
本代码由xTiNt自动着色 http://kbadboy.yeah.net

 97 1 8: 此主题共有1帖 此页1帖 每页12帖 

[查看完整模式]

LeadBBS 4.0 耗时0.006秒 query:2