// yan.c 俞岱巖#include <ansi.h>inherit NPC;inherit F_MASTER;void create(){        set_name("俞岱巖", ({ "yu daiyan", "yu" }));        set("nickname", "武當三俠");        set("long",                "他就是張三豐的最不幸的弟子、武當七俠之三的俞岱巖。\n"                "身穿一件干干凈凈的青布長衫。\n"                "他不過三十出頭年紀，雙腿殘廢，張真人命他主持真武劍陣。\n");        set("gender", "男性");        set("age", 31);        set("attitude", "peaceful");        set("class", "swordsman");        set("shen_type", 1);        set("str", 28);        set("int", 30);        set("con", 28);        set("dex", 28);        set("max_qi", 5000);        set("max_jing", 5000);        set("neili", 3500);        set("max_neili", 12500);        set("jingli", 1000);        set("max_jingli", 1000);        set("jiali", 50);        set("combat_exp", 550000);        set("score", 60000);        set_skill("force", 200);        set_skill("taiji-shengong", 200);        set_skill("dodge", 150);        set_skill("tiyunzong", 150);        set_skill("unarmed",200);        set_skill("taiji-quan", 200);        set_skill("parry", 200);        set_skill("sword", 200);        map_skill("force", "taiji-shengong");        map_skill("dodge", "tiyunzong");        map_skill("unarmed", "taiji-quan");        map_skill("parry", "taiji-jian");        map_skill("sword", "taiji-jian");	set("chat_chance", 1);        set("chat_msg", ({            "俞岱巖說道：真武劍陣是恩師的心血。",            "俞岱巖仰天嘆道：哪位巫師能治好我的腿，我也請鴨莊一頓。"        }));         create_family("武當派", 2, "弟子");        setup();        carry_object("/clone/weapon/changjian")->wield();        carry_object("/d/wudang/obj/bluecloth")->wear();}void init(){        object ob;        ::init();        if( interactive(ob = this_player()) && !is_fighting() ) {                remove_call_out("greeting");                call_out("greeting",3 , ob);        }}void greeting(object ob){   int i;   if (environment(ob)->query("short")=="南巖宮高臺"){if (!ob) return;   if (((int)ob->query_skill("taiji-shengong", 1) == 0))   {      message_vision(CYN"十三弟子對$N齊聲喝道：你這個邪魔外道，敢來真武劍陣？\n\n"NOR,ob);      ob->set("qi",30);//      if ((int)ob->query("combat_exp") <2000) ob->set("combat_exp",1);//         else ob->add("combat_exp",-1000);      message_vision(CYN"真武劍陣頓時啟動，高臺上劍氣縱橫，把$N圍在中央。\n"NOR,ob);      message_vision(CYN"十三口長劍齊出，在$N身上劃出了十三道口子，鮮血淋漓。\n"NOR,ob);      say(CYN"\n\n俞岱巖臉現怒容：“邪魔外道，也敢闖真武劍陣！”\n");      message_vision("俞岱巖居高臨下，起手一掌把$N劈落高臺。\n\n\n"NOR,ob);      ob->unconcious();      ob->move("/d/wudang/nanyangong");      CHANNEL_D->do_channel(this_object(),"chat",sprintf("%s 私闖真武劍陣，念其成長不易，暫免一死！",ob->name(1)));   }}}void attempt_apprentice(object me){        if ((int)me->query("guarded") < 3) {                command("say " + RANK_D->query_respect(me) +                        "你對我武當派盡了多少心力，有幾分忠心呢？");                return;        }        if ((int)me->query_skill("taiji-shengong", 1) < 30) {                command("say 我武當派乃內家武功，最重視內功心法。");                command("say " + RANK_D->query_respect(me) +                        "是否還應該在太極神功上多下點功夫？");                return;        }        if ((int)me->query("shen") < 1000) {                command("say 我武當乃是堂堂名門正派，對弟子要求極嚴。");                command("say 在德行方面，" + RANK_D->query_respect(me) +                        "是否還做得不夠？");                return;        }        command("say 好吧，我就收下你了。");        command("recruit " + me->query("id"));}