// ma.c 马超兴 #include inherit NPC; inherit F_MASTER; //inherit F_UNIQUE; //int do_join(string arg); int ask_weiwang(); string ask_me(); void create() { set_name("马超兴", ({ "ma chaoxing", "ma"})); set("title", HIR "天地会"HIW"家后堂香主"NOR); set("gender", "男性"); set("long", "\n他就是天地会家后堂香主，矮矮胖胖的个，善使一柄大刀。\n"); set("class", "fighter"); set("age", 45); set("int", 30); set("qi", 8500); set("max_qi", 8500); set("jing", 5000); set("max_jing", 5000); set("shen_type", 1); set("combat_exp", 1250000); set("attitude", "friendly"); set_skill("force", 80); set_skill("unarmed",80); set_skill("parry", 80); set_skill("dodge", 80); set_skill("sword", 70); set_skill("blade", 100); set_skill("whip", 90); set_skill("yunlong-shengong", 90); set_skill("yunlong-shenfa", 90); set_skill("wuhu-duanmendao", 90); set_skill("houquan", 90); set_skill("yunlong-jian", 90); set_skill("yunlong-bian", 90); set_temp("apply/attack", 25); set_temp("apply/defense", 25); set_temp("apply/damage", 25); map_skill("force", "yunlong-shengong"); map_skill("dodge", "yunlong-shenfa"); map_skill("parry", "wuhu-duanmendao"); map_skill("blade","wuhu-duanmendao"); map_skill("sword", "yunlong-jian"); map_skill("whip", "yunlong-bian"); map_skill("unarmed","houquan"); create_family("云龙门",2, "弟子"); // set("class", "yunlong-xinfa"); set("book_count", 1); set("inquiry", ([ "陈近南" : "\n江湖威望值达到70就可以拜总舵主为师。\n", "天地会" : "\n只要是英雄好汉，都可以入我天地会(join tiandihui)。\n", "入会" : "\n只要入了我天地会，可以向会中各位好手学武功。\n", "反清复明" : "去药铺和棺材店仔细瞧瞧吧！\n", "威望" : (: ask_weiwang :), "江湖威望" : (: ask_weiwang :), "云龙经" : (: ask_me :), ]) ); set("chat_chance_combat", 50); set("chat_msg_combat", ({ (: command("smile") :), (: command("haha") :), (: command("chat 这位" + RANK_D->query_respect(this_player())+",你我无冤无仇，何必如此?\n") :), (: command("unwield changjian") :), (: command("unwield changjian") :), (: command("unwield changjian") :), (: command("unwield changjian") :), (: command("unwield changjian") :), (: command("unwield changjian") :), (: command("unwield changjian") :), (: command("unwield changjian") :), (: command("wield changjian") :), (: command("wield changjian") :), (: command("wield changjian") :), (: command("wield changjian") :), (: command("wield bian") :), (: command("wield bian") :), (: command("wield bian") :), (: command("wield bian") :), (: perform_action, "sword.xian" :), (: perform_action, "whip.chan" :), (: perform_action, "whip.chan" :), (: perform_action, "blade.duan" :), (: perform_action, "blade.duan" :), (: perform_action, "blade.duan" :), (: perform_action, "unarmed.zhen" :), (: perform_action, "unarmed.zhen" :), (: exert_function, "recover" :), (: exert_function, "recover" :), (: command("unwield bian") :), (: command("unwield bian") :), (: command("unwield bian") :), (: command("unwield bian") :), (: command("wield blade") :), (: command("wield blade") :), (: command("wield blade") :), (: command("wield blade") :), (: command("unwield blade") :), (: command("unwield blade") :), (: command("unwield blade") :), (: command("unwield blade") :), (: command("unwield blade") :), (: command("unwield blade") :), }) ); setup(); carry_object("/d/shaolin/obj/changbian")->wield(); carry_object("/clone/weapon/changjian"); carry_object("/d/city2/obj/dadao"); carry_object("/clone/misc/cloth")->wear(); add_money("silver",20); } void init() { ::init(); remove_call_out("greeting"); call_out("greeting", 1, this_player()); add_action("do_join","join"); add_action("do_skills","skill"); add_action("do_skills","cha"); } int ask_weiwang() { command("tell "+this_player()->query("id")+" 你现在的江湖威望是 " +(string)(this_player()->query("weiwang"))); say("\n马超兴说道：如果你威望值很高，有些人见了你不但不会杀你，还会教你武功，送你宝贝。\n" +"而且你还可以加入帮会，率领会众去攻打目标，就连去钱庄取钱也会有利息 。。。。。\n"); say("马超兴又说：杀某些坏人或救某些好人可以提高江湖威望。\n"); return 1; } string ask_me() { mapping fam; object ob; if (!(fam = this_player()->query("family")) || fam["family_name"] != "云龙门") return RANK_D->query_respect(this_player()) + "与本派素无来往，不知此话从何谈起？"; if (query("book_count") < 1) return "你来晚了，本派的云龙真经不在此处。"; add("book_count", -1); ob = new("clone/book/yljing1"); ob->move(this_player()); return "好吧，这本「云龙经」你拿回去好好钻研。"; } void attempt_apprentice(object ob) { /* if((string)ob->query("gender")=="女性") { command("say 女人的名字是弱者，我云龙门顶天立地，怎会收你呢？！"); return; } */ if((string)ob->query("gender")=="无性") { command("say 云龙门顶天立地，怎会收你这样的废人？！"); return; } if (ob->query("party/party_name") != HIR "天地会" NOR ) { command("say 你不是本会弟兄，我不能收你！"); return; } if ((int)ob->query_skill("shenlong-xinfa",1) < 60 ) { command("say 你的本门内功心法太低了,还是努努力先提高一下吧!"); command("say 好吧，既然" + RANK_D->query_respect(ob) + "也是" + "我辈中人，今天就收下你吧。"); command("recruit " + ob->query("id")); if((!(string)ob->query("class")) || ((string)ob->query("class") != "fighter")) ob->set("class","fighter"); } } void greeting(object ob) { if(random(5) 朋友，可有什么不平之事么？\n"); } int do_skills(string arg) { object ob ; ob = this_player () ; if( !arg || arg!="ma" ) return 0; if(wizardp(ob)) return 0; if (ob->query("party/party_name") != HIR "天地会" NOR ) { message_vision("$N摇了摇头。\n",this_object()); command("tell "+ob->query("id")+" 不是天地会弟子不能察看。\n"); return 1; } command("tell "+ob->query("id")+" 我所有的基本武功如下：\n"+ " 基本刀法 (blade) - 深不可测 100/ \n"+ " 基本轻功 (dodge) - 登峰造极 80/ \n"+ " 基本内功 (force) - 登峰造极 80/ \n"+ " 基本招架 (parry) - 登峰造极 80/ \n"+ " 基本剑法 (sword) - 出神入化 70/ \n"+ " 基本拳脚 (unarmed) - 登峰造极 80/ \n"+ " 基本鞭法 (whip) - 出神入化 70/ \n"+ "□五虎断门刀 (wuhu-duanmendao) - 登峰造极 80/ \n"+ "□猴拳 (houquan) - 出类拔萃 50/ \n"+ "□云龙鞭 (yunlong-bian) - 出类拔萃 50/ \n"+ "□云龙剑法 (yunlong-jian) - 出类拔萃 50/ \n"+ "□云龙身法 (yunlong-shenfa) - 出神入化 70/ \n"+ "□云龙神功 (yunlong-shengong) - 出神入化 70/ \n"); return 1; } #include "/kungfu/class/yunlong/tiandihui.h";
