// zhang.c 張三豐#include <ansi.h>inherit NPC;inherit F_MASTER;string ask_me_1();string ask_me_2();void create(){	set_name("張三豐", ({ "zhang sanfeng", "zhang" }));	set("nickname", "邋遢真人");	set("long", 		"他就是武當(dāng)派開山鼻祖、當(dāng)今武林的泰山北斗張三豐真人。\n"		"身穿一件污穢的灰色道袍，不修邊幅。\n"		"身材高大，年滿百歲，滿臉紅光，須眉皆白。\n");	set("gender", "男性");	set("age", 100);	set("attitude", "friendly");	set("shen_type", 1);	set("str", 50);	set("int", 50);	set("con", 50);	set("dex", 50);		set("max_qi", 18000);	set("max_jing", 18000);	set("neili", 55000);	set("max_neili", 55000);	set("jiali", 100);	set("combat_exp", 5000000);	set("score", 600000);        set("chat_chance_combat", 90);        set("chat_msg_combat", ({                (: perform_action, "dodge.zong" :),                (: perform_action, "unarmed.zhenup" :),                (: perform_action, "unarmed.zhan" :),                (: perform_action, "unarmed.ji" :),                (: perform_action, "unarmed.jielidali" :),                (: perform_action, "sword.lian" :),                (: perform_action, "sword.chan" :),                (: perform_action, "sword.chanup" :),                (: perform_action, "sword.sui" :),                (: perform_action, "sword.lian" :),                (: perform_action, "sword.lian" :),                (: perform_action, "sword.lian" :),                        }) );set_skill("claw", 250);set_skill("strike", 300);	set_skill("force", 250);	set_skill("taiji-shengong", 300);	set_skill("dodge", 150);	set_skill("tiyunzong", 300);	set_skill("unarmed", 200);	set_skill("taiji-quan", 300);	set_skill("parry", 300);	set_skill("sword", 300);	set_skill("taiji-jian", 300);	set_skill("liangyi-jian", 150);	set_skill("wudang-array", 300);	set_skill("array",100);	set_skill("taoism", 300);	set_skill("literate", 200);	set_skill("yitian-tulong", 300);	set_skill("juehu-shou", 300);	set_skill("raozhi-roujian", 300);	set_skill("wudang-mianzhang", 300);	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("count",1);        set("inquiry", ([                "真武劍" : (: ask_me_1 :),                  "考驗(yàn)" : (: ask_me_2 :),        ]));	create_family("武當(dāng)派", 1, "開山祖師");	set("class", "taoist");	setup();	carry_object("/clone/weapon/changjian")->wield();}void attempt_apprentice(object ob){        if ((int)ob->query("guarded") < 5) {                command("say " + RANK_D->query_respect(ob) +                        "你對我武當(dāng)派盡了多少心力，有幾分忠心呢？");                return;        }	if ((int)ob->query_skill("taiji-shengong", 1) < 60) {		command("say 我武當(dāng)派乃內(nèi)家武功，最重視內(nèi)功心法。"); 		command("say " + RANK_D->query_respect(ob) + 			"是否還應(yīng)該在太極神功上多下點(diǎn)功夫？");		return;	}    if ((int)ob->query_skill("taoism", 1) < 80)    {        command("say 我武當(dāng)派乃道家武功，高深的武功離不開道學(xué)心法。");        command("say " + RANK_D->query_respect(ob) +            "是否還應(yīng)該多讀讀道德經(jīng)？");        return;    }	if ((int)ob->query("shen") < 2000) {		command("say 學(xué)武之人，德義為先，功夫的高低倒還在其次，未練武，要先學(xué)做人。");		command("say 在德行方面，" + RANK_D->query_respect(ob) +			"是否還做得不夠？");		return;	}	if (ob->query_int() < 30) {		command("say 我武當(dāng)派武功全從道藏悟出。");		command("say 要能達(dá)到爐火純青之境，體質(zhì)什么的倒是無關(guān)緊要，悟性卻是半點(diǎn)也馬虎不得。");		command("say " + RANK_D->query_respect(ob) + "的悟性還大有潛力可挖，還是請回吧。");		return;	}	command("chat 哈哈哈哈！！！！");	command("chat 想不到老道在垂死之年，又覓得一個(gè)可塑之才，真是可喜可賀。");	command("recruit " + ob->query("id"));}string ask_me_1(){        mapping fam;                 if (!(fam = this_player()->query("family")) || fam["family_name"] !="武當(dāng)派")                return RANK_D->query_respect(this_player())+"與本派素?zé)o來往，不知此話從何談起？";        if (!this_object()->query("count"))		return "啊！我真老糊涂了，劍不知放哪了。\n";        command("pat "+ (string)this_player()->query("id"));        return "此劍乃本門鎮(zhèn)山之寶！不經(jīng)過考驗(yàn)我如何能放心交你保管？\n";}string ask_me_2(){        mapping fam;                 if (!(fam = this_player()->query("family")) || fam["family_name"] !="武當(dāng)派")                return RANK_D->query_respect(this_player())+"與本派素?zé)o來往，不知此話從何談起？";        command("thumb "+ (string)this_player()->query("id"));           return "你把郭女俠送我的禮物找來，就算你通過考驗(yàn)！你到我年輕時(shí)練功的附近找吧。\n";}int accept_object(object who, object ob){        object sword, me;        mapping fam;        me = this_object();        if (!(fam = this_player()->query("family")) || fam["family_name"] !="武當(dāng)派")           {             command("thank "+ (string)who->query("id"));             command("say 你與本派素?zé)o來往，不知為何送如此厚禮？ \n");//        call_out("destroying", 1, ob);             return 0;            }            if (fam["generation"] == 2)        if ((string)ob->query("id") == "tie luohan")        {            command("goodkid "+(string)who->query("id"));            call_out("destroying", 1, ob);	    if (present("zhenwu jian", who)) {                command("? " + who->query("id"));                command("say 不是已經(jīng)給你了嗎？");		return 1;	    }            if (!me->query("count")) {                command("say 啊！真老糊涂了，劍不知放哪了。\n");                return 1;            }            sword = new("/clone/unique/zhenwu-jian");            sword->move(this_player());	    me->set("count", 0);            command("say 你如果用這劍為非做歹，我必取你性命!\n");            return 1;        }        command("? "+ (string)who->query("id"));        command("say 今天不是老道的生日，你送什么禮呀！");//    call_out("destroying", 1, ob);    return 0;}void destroying(object obj){         if (!obj) return;    if (userp(obj)) command("drop "+obj->parse_command_id_list()[0]);    else destruct(obj);}