// /kungfu/class/xueshan/xuedao.c  血刀老祖// by secret#include <ansi.h>inherit NPC;inherit F_MASTER;string ask_for_quit();void create(){        set_name("血刀老祖", ({ "xuedao laozu", "xue dao", "laozu" }));        set("long",@LONG這喇嘛身著黃袍，年紀極老，尖頭削耳，臉上都是皺紋。他就是血刀門第四代掌門。LONG        );        set("title",HIR"血刀門第四代掌門"NOR);        set("gender", "男性");        set("age", 85);        set("attitude", "peaceful");        set("shen_type", -1);        set("str", 30);        set("int", 30);        set("con", 30);        set("dex", 30);        set("max_qi", 5000);        set("max_jing", 2000);        set("neili", 12000);        set("max_neili", 12000);        set("jiali", 50);        set("combat_exp", 2500000);        set("score", 180000);        set_skill("lamaism", 150);        set_skill("literate", 80);        set_skill("force", 180);        set_skill("parry", 180);        set_skill("blade", 250);        set_skill("sword", 120);        set_skill("dodge", 180);        set_skill("longxiang", 300);        set_skill("shenkong-xing", 300);        set_skill("hand", 280);        set_skill("dashou-yin", 300);        set_skill("mingwang-jian", 200);        set_skill("xue-dao", 300);        map_skill("force", "longxiang");        map_skill("dodge", "shenkong-xing");        map_skill("hand", "dashou-yin");        map_skill("parry", "xue-dao");        map_skill("blade", "xue-dao");        map_skill("sword", "mingwang-jian");	set("chat_chance_combat", 90);  	set("chat_msg_combat", ({                (: perform_action, "blade.kuangdao" :),                (: perform_action, "blade.shendao" :),                (: perform_action, "blade.kuangdao" :),                (: perform_action, "blade.shendao" :),                (: perform_action, "dodge.tianmaxingkong" :),                (: exert_function, "fumozhou" :),                                (: exert_function, "fumozhou" :),                                (: exert_function, "fanchang" :),                	}) );        set("inquiry",([                "還俗"  :  (: ask_for_quit :),        ]));        set_temp("apply/attack", 300);        set_temp("apply/defense", 200);        set_temp("apply/armor", 500);        set_temp("apply/damage", 250);        create_family("雪山寺", 4, "弟子");        set("class", "bonze");        setup();        carry_object("/d/xueshan/obj/y-jiasha")->wear();        carry_object("/d/xueshan/obj/xblade")->wield();        add_money("gold",2);}void attempt_apprentice(object ob){        if ((string)ob->query("gender") != "男性")        {                command("say 我不收女徒弟。\n");                return;        }        if ((string)ob->query("family/family_name") != "雪山寺")        {                command("say 這位" + RANK_D->query_respect(ob) +                        "既非本門弟子，還是請回吧！\n");                return;        }        if ((int)ob->query("shen") > -100000)        {                command("say 你是不是向著俠義道，連殺人都不會！\n");                return;        }        if ((int)ob->query_skill("longxiang", 1) < 60)        {                command("say 入我血刀門，修習龍象功法是首要的。\n");                return;        }        command("haha");        command("nod");        command("recruit " + ob->query("id"));        ob->set("title", HIR "血刀門第五代弟子" NOR);}string ask_for_quit(){    object me;    mapping myfam;    me = this_player();    myfam = (mapping)me->query("family");    if (!myfam || (myfam["family_name"] != "雪山寺"))         return ("你和雪山寺沒有淵源，我不敢給你還俗。\n");    if (me->query("combat_exp")< 1000000)        return ("你就這點本事，我可不敢給你還俗。\n");    if ((int)me->query_skill("lamaism", 1) < 180)                 command("say 你修習的密宗心法不足,我可不敢給你還俗。");    if ((int)me->query_skill("longxiang", 1) < 180)                 command("say 你修習的龍象般若功不足,我可不敢給你還俗。");    if (me->query("combat_exp")< 1000000)        return ("你就這點本事，我可不敢給你還俗。\n");    if( (string)me->query("class")!="bonze" )        return "你已經是俗家人了。\n";        command ("say 你一心要還俗，看來和我是同道中人。\n");        command ("haha");        command ("say 以后昨們有酒同吃，有女人一起。。。。。。\n");        me->set("class", "xueshan");}