inherit NPC;
inherit F_MASTER;
string ask_me();

void create()
{
        object ob;
        set_name("渡难", ({ "du nan", "nan" }) );
        set("title", "少林长老");
        set("gender", "男性");
        set("class", "bonze");
        set("age", 90);
        set("long", "这是一个面颊深陷，瘦骨零丁的老僧，他脸色漆黑，象是生铁铸成。\n");
        set("attitude", "peaceful");
        set("combat_exp",2000000);
        set("shen", 50000);
        set("str", 30);
        set("int", 25);
        set("dex", 28);
        set("con", 28);
        set("qi", 5500);
        set("max_qi",5500);
        set("max_jing", 3000);
        set("eff_jingli", 2500);
        set("neili",5500); 
        set("max_neili",5500);
        set("jiali", 70);        
        set("no_get", 1);
        set("unique", 1);
set("vendetta_mark", "lcc");
        create_family("少林派", 35, "弟子");
        assign_apprentice("弟子", 0);
        set_skill("force", 180);
        set_skill("whip", 180);
        set_skill("parry", 180);
        set_skill("dodge", 180);        
        set_skill("jingang-quan",180);
        set_skill("banruo-zhang", 180);
        set_skill("yijin-jing", 180);
        set_skill("riyue-bian", 180);
        set_skill("cuff",180);
        set_skill("strike", 180);
        set_skill("shaolin-shenfa", 180);
        set_skill("buddhism", 180);
        set_skill("fumoquan-zhen", 180);
        set_skill("literate", 150);
        map_skill("cuff","jingang-quan");
        map_skill("strike", "banruo-zhang");
        map_skill("force", "yijin-jing");
        map_skill("whip",  "riyue-bian");
        map_skill("parry", "riyue-bian");
        map_skill("dodge", "shaolin-shenfa");
        prepare_skill("cuff","jingang-quan");
        prepare_skill("strike", "banruo-zhang");
        set("chat_chance_combat", 60);
        set("chat_msg_combat", ({
                (: perform_action, "whip.chanrao" :),
                (: perform_action, "whip.fumoquan" :),
                (: perform_action,"cuff.fumo" :),
        }));
        set("inquiry", ([
                "菩提子"     : (: ask_me :),
        ]));
        set("count", random(5)-3);
        setup();
        if (clonep()) {                
                ob = unew(BINGQI_D("whip/heisuo"));               
                if (!ob) ob = unew(BINGQI_D("changbian"));
                ob->move(this_object());
                ob->wield();
                carry_object("/d/shaolin/obj/du-cloth")->wear();
        }  
}


