// Npc: /kungfu/class/shaolin/dao-xiang.c
// Date: YZC 96/01/19

inherit NPC;

string ask_me_1(string name);
string ask_me_2(string name);

void create()
{
	set_name("道相禪師", ({
		"daoxiang chanshi",
		"daoxiang",
		"chanshi",
	}));
	set("long",
		"他是一位身材高大的中年僧人，兩臂粗壯，膀闊腰圓。他手持兵\n"
		"刃，身穿一襲灰布鑲邊袈裟，似乎有一身武藝。\n"
	);

	set("gender", "男性");
	set("attitude", "friendly");
	set("class", "bonze");

	set("age", 40);
	set("shen_type", 1);
	set("str", 20);
	set("int", 20);
	set("con", 20);
	set("dex", 20);
	set("max_qi", 400);
	set("max_jing", 300);
	set("neili", 450);
	set("max_neili", 450);
	set("jiali", 40);
	set("combat_exp", 10000);
	set("score", 100);

	set_skill("force", 50);
	set_skill("hunyuan-yiqi", 50);
	set_skill("dodge", 50);
	set_skill("shaolin-shenfa", 50);
	set_skill("strike", 50);
	set_skill("banruo-zhang", 50);
	set_skill("parry", 50);
	set_skill("sword", 50);
	set_skill("damo-jian", 50);
	set_skill("buddhism", 50);
	set_skill("literate", 50);

	map_skill("force", "hunyuan-yiqi");
	map_skill("dodge", "shaolin-shenfa");
	map_skill("strike", "banruo-zhang");
	map_skill("sword", "damo-jian");
	map_skill("parry", "damo-jian");

	prepare_skill("strike", "banruo-zhang");

	create_family("少林派", 39, "弟子");

        set("inquiry", ([
		"鐵護腕" : (: ask_me_1, "huwan" :),
		"鐵護腰" : (: ask_me_1, "huyao" :),
		"皮手套" : (: ask_me_1, "shoutao" :),
		"皮圍脖" : (: ask_me_1, "weibo" :),
		"鐵指套" : (: ask_me_1, "zhitao" :),
		"僧鞋"   : (: ask_me_1, "sengxie" :),
                "鐵背心" : (: ask_me_2, "beixin" :)
        ]));

	set("huju_count", 50);
	set("beixin_count", 5);

	setup();

        carry_object("/d/shaolin/obj/changjian")->wield();
        carry_object("/d/shaolin/obj/dao-cloth")->wear();
}

string ask_me_1(string name)
{
	mapping fam; 
	object ob;
	
	if (!(fam = this_player()->query("family")) || fam["family_name"] != "少林派")
		return RANK_D->query_respect(this_player()) + 
		"與本派素無來往，不知此話從何談起？";

	if (  present(name, this_player()) )
		return RANK_D->query_respect(this_player()) + 
		"你現在身上不是有這樣防具嗎，怎麼又來要了？ 真是貪得無饜！";

	if (query("huju_count") < 1)
		return "抱歉，你來得不是時候，防具已經發完了。";

	ob = new("/d/shaolin/obj/" + name);
	ob->move(this_player());

	add("huju_count", -1);

	message_vision("道相給$N一件" + ob->query("name") + "。\n", this_player());

	return "拿去吧。不過要記住，防具只可防身練武，不可憑此妨害他人。";
}

string ask_me_2(string name)
{
	mapping fam; 
	object ob;
	
	if (!(fam = this_player()->query("family")) || fam["family_name"] != "少林派")
		return RANK_D->query_respect(this_player()) + 
		"與本派素無來往，不知此話從何談起？";

	if (query("beixin_count") < 1)
		return "抱歉，你來得不是時候，武器已經發完了。";

	ob = new("/d/shaolin/obj/" + name);
	ob->move(this_player());

	add("beixin_count", -1);

	message_vision("道相給$N一件" + ob->query("name") + "。\n", this_player());

	return "拿去吧。不過要記住，鐵背心乃是防身寶物，不可憑此妨害他人。";
}