// chen.c 陳近南#include <ansi.h>inherit NPC;inherit F_MASTER;int ask_weiwang();int ask_tuihui();int ask_job();int ask_fail();string ask_me();void create(){	set_name("陳近南", ({ "chen jinnan", "chen","jinnan" }));	set("title", HIR "天地會(huì)"HIM"總舵主"NOR );	set("nickname", HIC "英雄無(wú)敵" NOR);	set("long", 		"\n這是一個(gè)文士打扮的中年書(shū)生，神色和藹。\n"		"他就是天下聞名的天地會(huì)總舵主陳近南，\n"		"據(jù)說(shuō)十八般武藝，樣樣精通。\n"		"偶爾向這邊看過(guò)來(lái)，頓覺(jué)他目光如電，英氣逼人。\n");	set("gender", "男性");	set("class", "scholar");	set("age", 45);	set("attitude", "friendly");	set("shen_type", 1);	set("str", 30);	set("int", 30);	set("con", 30);	set("dex", 30);		set("max_qi", 2000);	set("max_jing", 1000);	set("neili", 3000);	set("max_neili", 3000);	set("jiali", 100);	set("combat_exp", 2000000);	set("score", 500000);	set_skill("literate", 100);	set_skill("force", 200);	set_skill("dodge", 200);	set_skill("unarmed", 200);	set_skill("parry", 200);	set_skill("whip", 200);	set_skill("blade", 200);	set_skill("sword", 200);	set_skill("hand", 200);	set_skill("claw", 200);	set_skill("houquan", 300);	set_skill("yunlong-xinfa", 300);	set_skill("yunlong-shengong", 300);	set_skill("wuhu-duanmendao", 300);	set_skill("yunlong-jian", 300);	set_skill("yunlong-shenfa", 300);	set_skill("yunlong-bian", 300);	set_skill("yunlong-shou", 300);	set_skill("yunlong-zhua", 300);	map_skill("dodge", "yunlong-shenfa");	map_skill("force", "yunlong-shengong");	map_skill("unarmed", "houquan");	map_skill("blade", "wuhu-duanmendao");	map_skill("hand", "yunlong-shou");	map_skill("parry", "yunlong-shou");	map_skill("claw", "yunlong-zhua");	map_skill("sword", "yunlong-jian");	map_skill("whip", "yunlong-bian");	prepare_skill("hand","yunlong-shou");	prepare_skill("claw","yunlong-zhua");	create_family("云龍門(mén)",1, "開(kāi)山祖師");	set("book_count", 1);        set("inquiry", ([		"天地會(huì)" :  "\n只要是英雄好漢，都可以入我天地會(huì)(join tiandihui)。\n",		"入會(huì)" :  "\n只要入我天地會(huì)，可以向各位好手學(xué)武藝。\n",                "反清復(fù)明" : "去棺材店和回春堂仔細(xì)瞧瞧吧！\n",                "暗號(hào)" : "敲三下！\n",                "切口" : "敲三下！\n",                "威望" :  (: ask_weiwang :),                "江湖威望" : (: ask_weiwang :),		"云龍劍譜" : (: ask_me :),                "job" : (: ask_job() :),                "失敗" : (: ask_fail() :),		"退會(huì)" : (: ask_tuihui :),		"tuihui"   : (: ask_tuihui :),	]) );	set("env/wimpy", 60);	set("chat_chance_combat", 70);  	set("chat_msg_combat", ({		"\n陳近南搖頭嘆道：螳臂當(dāng)車(chē)，不自量力。唉，你這又是何苦呢?\n",		(: command("smile") :),		(: command("poem") :),		(: command("nomatch") :),		(: command("haha") :),		(: command("chat 這位" + RANK_D->query_respect(this_player())+",你我無(wú)冤無(wú)仇，何必如此?\n") :),		(: command("unwield changjian") :),		(: command("unwield changjian") :),		(: command("unwield changjian") :),		(: command("unwield changjian") :),		(: command("unwield changjian") :),		(: command("unwield changjian") :),		(: command("unwield changjian") :),		(: command("unwield changjian") :),		(: command("wield changjian") :),		(: command("wield changjian") :),		(: command("wield changjian") :),		(: command("wield changjian") :),		(: command("wield bian") :),		(: command("wield bian") :),		(: command("wield bian") :),		(: command("wield bian") :),                (: perform_action, "sword.xian" :),                (: perform_action, "sword.xian" :),                (: perform_action, "sword.xian" :),                (: perform_action, "whip.chan" :),                (: perform_action, "whip.chan" :),                (: perform_action, "blade.duan" :),                (: perform_action, "blade.duan" :),                (: exert_function, "recover" :),                (: exert_function, "recover" :),		(: command("unwield bian") :),		(: command("unwield bian") :),		(: command("unwield bian") :),		(: command("unwield bian") :),		(: command("unwield bian") :),		(: command("unwield bian") :),		(: command("wield blade") :),		(: command("wield blade") :),		(: command("wield blade") :),		(: command("wield blade") :),		(: command("unwield blade") :),		(: command("unwield blade") :),		(: command("unwield blade") :),		(: command("unwield blade") :),		(: command("unwield blade") :),		(: command("unwield blade") :),	}) ); 	setup();	carry_object("/d/city2/obj/jinduan")->wear();	carry_object("/d/city2/obj/yaodai")->wear();	carry_object("/clone/weapon/changjian")->wield();	carry_object("/d/city2/obj/hlbian");	carry_object("/d/city/obj/gangdao");}string ask_me(){        mapping fam;         object ob;        if (!(fam = this_player()->query("family")) 	    || fam["family_name"] != "云龍門(mén)")                return RANK_D->query_respect(this_player()) +                 "與本派素?zé)o來(lái)往，不知此話從何談起？";        if (query("book_count") < 1)                return "你來(lái)晚了，本派的云龍真經(jīng)不在此處。";        add("book_count", -1);        ob = new("/clone/book/yljianpu");        ob->move(this_player());        return "好吧，這本「云龍劍譜」你拿回去好好鉆研。";}void init(){	::init();	add_action("do_skills","skills");	add_action("do_skills","cha");	add_action("do_join","join");}void attempt_apprentice(object ob){	if ((int)ob->query_skill("yunlong-shengong", 1) < 50)	{		command("say 我云龍神功乃內(nèi)家武功，最重視內(nèi)功心法。"); 		command("say " + RANK_D->query_respect(ob) + 			"是否還應(yīng)該在云龍神功上多下點(diǎn)功夫？");		return;	}	if ((int)ob->query("weiwang") <60)	{		command("say 我云龍門(mén)武功天下無(wú)敵，凡入我門(mén)，\n必闖蕩江湖，行俠仗義，為天下蒼生謀福利。\n"); 		command("say " + RANK_D->query_respect(ob) + 			"是否應(yīng)該先出去闖一闖，做幾件驚天動(dòng)地的大事？");		return ;	}	if ((int)ob->query("shen") >0&&(int)ob->query("shen") < 5000) {		command("say 學(xué)武之人，德義為先，功夫的高低倒還在其次，未練武，要先學(xué)做人。");		command("say 在德行方面，" + RANK_D->query_respect(ob) +			"是否還做得不夠？");		return ;	}	if(ob->query("weiwang")<80)	{		if((int)ob->query("shen")<0) command("say "+ RANK_D->query_respect(ob) +"雖然是邪派中人，但也還做了些好事。\n");		command("chat 我天地會(huì)所作所為，無(wú)一不是前人所未行之事。\n");		command("chat 萬(wàn)事開(kāi)創(chuàng)在我，駭人聽(tīng)聞，物議沸然，又何足論？\n");		command("chat 今天就收了你吧！！\n");		command("chat 想不到我一身驚人藝業(yè)，今日終于有了傳人，哈哈哈哈！！！！\n");		message_vision(HIC "$N的江湖威望提高了！\n" NOR,this_player());		ob->set("weiwang",80);	}	command("recruit " + ob->query("id"));	if((!(string)ob->query("class")) || ((string)ob->query("class") != "fighter"))		ob->set("class","fighter");}int do_skills(string arg){	object ob ;	ob = this_player () ;	if( !arg || arg!="chen" )		return 0;	if(wizardp(ob))  return 0;	if (ob->query("party/party_name") != HIR "天地會(huì)" NOR )	{		message_vision("$N搖了搖頭。\n",this_object());		command("tell "+ob->query("id")+" 不是天地會(huì)弟子不能察看。\n"); 		return 1;	}	command("tell "+ob->query("id")+" 我所有的基本武功如下：\n"+	"  基本刀法 (blade)                         - 深不可測(cè) 200/   \n"+	"  基本爪法 (claw)                          - 深不可測(cè) 200/   \n"+	"  基本輕功 (dodge)                         - 深不可測(cè) 200/    \n"+	"  基本內(nèi)功 (force)                         - 深不可測(cè) 200/    \n"+	"  基本手法 (hand)                          - 深不可測(cè) 200/    \n"+	"  基本拳腳 (unarmed)                       - 深不可測(cè) 200/    \n"+	"  基本鞭法 (whip)                          - 深不可測(cè) 200/    \n"+	"  基本招架 (parry)                         - 深不可測(cè) 200/    \n"+	"  基本劍法 (sword)                         - 深不可測(cè) 200/    \n"+	"  云龍心法 (yunlong-xinfa)                 - 深不可測(cè) 200/    \n"+	"  讀書(shū)寫(xiě)字 (literate)                      - 深不可測(cè) 100/    \n");	command("tell "+ob->query("id")+" 我所有的高深武功如下：\n"+	"□猴拳 (houquan)                           - 深不可測(cè) 150/    \n"+	"□五虎斷門(mén)刀 (wuhu-duanmendao)             - 深不可測(cè) 150/    \n"+	"□云龍神功 (yunlong-shengong)              - 深不可測(cè) 150/    \n"+	"□云龍身法 (yunlong-shenfa)                - 深不可測(cè) 150/    \n"+	"□云龍劍法 (yunlong-jian)                  - 深不可測(cè) 200/    \n"+	"□云龍鞭 (yunlong-bian)                    - 深不可測(cè) 150/    \n"+	"□云龍手 (yunlong-shou)                    - 深不可測(cè) 150/    \n"+	"□云龍爪 (yunlong-zhua)                    - 深不可測(cè) 150/    \n");	return 1;}int ask_weiwang(){	command("tell "+this_player()->query("id")+" 你現(xiàn)在的江湖威望是 " +(string)(this_player()->query("weiwang")));	say("\n陳近南說(shuō)道：如果你威望值很高，有些人見(jiàn)了你不但不會(huì)殺你，還會(huì)教你武功，送你寶貝。\n"	+"而且你還可以加入幫會(huì)，率領(lǐng)會(huì)眾去攻打目標(biāo)，就連去錢(qián)莊取錢(qián)也會(huì)有利息 。。。。。\n");	say("陳近南又說(shuō)：殺某些壞人或救某些好人可以提高江湖威望。\n");	return 1;}int ask_tuihui(){	object ob;	ob=this_player();	if(ob->query("party/party_name") != HIR "天地會(huì)" NOR )	{message_vision("陳近南笑了笑，對(duì)$N說(shuō)道：你還沒(méi)加入我天地會(huì)呢，退什么退？\n", ob);		return 1;	}	if(ob->query("family/family_name") == "云龍門(mén)" )	{message_vision("陳近南板著臉對(duì)$N說(shuō)道：你已經(jīng)是我云龍門(mén)弟子，如何能退會(huì)？\n", ob);		return 1;	}	command("look "+ob->query("id"));	command("sigh ");	command("say 反清復(fù)明，就要堅(jiān)貞志士，你去吧! ");	ob->delete("party");	ob->delete("rank");	ob->delete("level");	return 1;}                                           int ask_job(){        object me = this_player();        object ob;        mapping quest;        mapping skl;         string *sname, place;                int i, skill = 0;        quest = (__DIR__"lagjob")->query_quest();        skl = me->query_skills();        if ( !skl ) {                tell_object(me, "你去學(xué)一些本事先吧！\n");                return 1;                }        sname  = sort_array( keys(skl), (: strcmp :) );        for(i=0; i<sizeof(skl); i++)                 if (skl[sname[i]] >= skill && sname[i] != "literate" && sname[i] != "taoism")                        skill = skl[sname[i]];                                if (skill < 80) skill = 80;        if( me->query("family/family_name") != "云龍門(mén)")           {                      message_vision("$N對(duì)著$n說(shuō)道。你是哪里來(lái)的奸細(xì)？\n", this_object(), me);                      return 1;            }           if (me->query("combat_exp") < 100000) {                command("say " + RANK_D->query_respect(me) + "救反清義士的事沒(méi)那么容易，你還是練高經(jīng)驗(yàn)再來(lái)吧");                return 1;}        if ((int)me->query_condition("menpai_busy"))              {                      message_vision("$N對(duì)著$n搖了搖頭說(shuō)：你辦事不利,等會(huì)再來(lái)!\n", this_object(), me);                      return 1;            }        if (me->query("potential") < 200 || me->query("combat_exp") < 300) {                command("say 你的潛能太少了!!");                return 1;        }        if (me->query("kill_yunlong") == 1) {                command("kick " + me->query("id"));                command("say 我不是給了你任務(wù)了嗎？");                return 1;                }        else {                command("nod" + me->query("id"));                command("say " + RANK_D->query_respect(me) + "反清復(fù)明，就要堅(jiān)貞志士，你去吧!");                command("say " + me->query("id") + " 有一個(gè)反清義士被抓了，要送往京城，要在『" + quest["short"]             + "』路過(guò)，快去救人吧！\n" NOR);                me->set("kill_yunlong", 1);                me->set("quest/quest_type", "救");                me->set("quest/quest", "反清義士");                me->set("task_time", time() + 300);                ob = new(__DIR__"shangdui",1);                ob->move(quest["place"]);                ob->set_temp("owner/id",me->query("id"));                ob->set("combat_exp", me->query("combat_exp"));                ob->set("max_force", me->query("max_force"));                ob->set("eff_kee", me->query("max_kee"));                ob->set("max_kee", me->query("max_kee"));                ob->set("kee", me->query("max_kee"));                ob->set_skill("dodge", skill);                ob->set_skill("force", skill);                ob->set_skill("parry", skill);                                ob->set("force_factor", random(10));                   return 1;               }                              }int ask_fail(){        object me = this_player();                if (me->query("kill_yunlong") == 1) {                command("pk1");                command("say 我看錯(cuò)你了，我只能派別人去救反清義士,扣你150點(diǎn)POT.");                me->add("potential",-50);                me->apply_condition("menpai_busy",10);                call_out("delete", 1);                return 1;                }}int delete(){        this_player()->delete("kill_yunlong");        return 1;}#include "/kungfu/class/yunlong/tiandihui.h";