// /kungfu/class/xueshan/xuedao.c  血刀老祖// by secret#include <ansi.h>inherit NPC;int do_copy(object me);int do_back(object me);string* names = ({"趙","錢","孫","李","周","吳","鄭","王","馮","陳","褚","衛","蔣","沈","韓","楊","朱","秦","尤","許","何","呂","施","張","孔","曹","嚴","華","金","魏","陶","姜","戚","謝","鄒","喻","柏","水","竇","章","云","蘇","潘","葛","奚","范","彭","郎","魯","韋","昌","馬","苗","鳳","花","方","傻","任","袁","柳","鄧","鮑","史","唐","費","廉","岑","薛","雷","賀","倪","湯","藤","殷","羅","華","郝","鄔","安","常","樂","呆","時","付","皮","卞","齊","康","伍","余","元","卜","顧","盈","平","黃","和","穆","肖","尹","姚","邵","湛","汪","祁","毛","禹","狄","米","貝","明","藏","計","伏","成","戴","談","宋","茅","龐","熊","紀","舒","屈","項","祝","董","梁","樊","胡","凌","霍","虞","萬","支","柯","昝","管","盧","英","仇","候","岳","帥","司馬","上官","歐陽","夏候","諸葛","聞人","東方","赫連","皇甫","尉遲","公羊","澹臺","公治","宗政","濮陽","淳于","單于","太叔","申屠","公孫","仲孫","轅軒","令狐","鐘離","宇文","長孫","幕容","司徒","師空","顓孔","端木","巫馬","公西","漆雕","樂正","壤駟","公良","拓趾","夾谷","宰父","谷梁","楚晉","閻法","汝鄢","涂欽","段千","百里","東郭","南郭","呼延","歸海","羊舌","微生","梁丘","左丘","東門","西門","佰賞","南官","緱","亢","況","后","有","琴","商","牟","佘","耳","墨","哈","譙","年","愛","陽","佟","第","五","言","福","蒯","鐘","宗","林","石",});string* ids = ({"zhao","qian","sun","li","zhou","wu","zhen","wang","feng","chen","zhu","wei","jiang","shen","han","yang","zhu","qing","you","xu","he","lu","shi","zhang","kong","cao","yan","hua","jin","wei","tao","jiang","qie","xie","zhou","yu","bo","shui","dou","zhang","yun","su","pan","ge","xi","fan","peng","lang","lu","wei","chang","ma","miao","feng","hua","fang","sha","ren","yuan","liu","deng","bao","shi","tang","fei","lian","chen","xue","lei","he","ni","tang","teng","yin","luo","hua","hao","wu","an","chang","le","dai","shi","fu","pi","bian","qi","kang","wu","yu","yuan","po","gu","ying","ping","huang","he","mu","xiao","yin","yao","shao","zhan","wang","qi","mao","yu","di","mi","bei","ming","zang","ji","fu","cheng","dai","tan","song","mao","pang","xiong","ji","su","qu","xiang","zhu","dong","liang","fan","hu","ling","ho","yu","wan","zhi","ke","jiu","guan","lu","ying","qiu","hou","yue","suai","sima","shangguan","ouyang","xiahou","zhuge","wenren","dongfang","helian","huangpu","weichi","gongyang","zhantai","gongye","zongzheng","puyang","chunyu","shanyu","taishu","shentu","gongshun","zhongshun","xuanyuan","linghu","zhongli","yuwen","changshun","murong","situ","shikong","zhuankong","duanmu","wuma","gongxi","qidiao","lezheng","xiangsi","gongliang","tuozhi","jiagu","zaifu","guliang","chujing","yanfa","ruye","tuqin","duanqian","baili","dongguo","nanguo","huyan","guihai","yangshe","weisheng","liangqiu","zuoqiu","dongmen","ximen","baishang","nangong","gou","kang","kuang","hou","you","qing","shang","mo","she","er","mo","ha","qiao","nian","ai","yang","dong","di","wu","yan","fu","kai","zong","zong","lin","shi",});//----以下歡迎添加，nm2需要一定的空字，以便產生出單名--------------string* nm2 = ({"忠","孝","禮","義","智","勇","仁","匡","憲","令","福","祿","大","小","曉","高","可","阿","金","世","克","叔","之","公","夫","時","若","慶","文","武","多","才","長","子","永","友","自","人","為","鐵","","","","","","","","","","","","","","","","","","","","","","",});string* nm3 = ({"霸","白","班","斌","賓","昌","超","誠","川","鼎","定","斗","法","飛","風","鋒","鋼","罡","貫","光","海","虎","華","浩","宏","濟","堅","健","劍","江","進","杰","俊","康","良","麟","民","明","鳴","寧","培","啟","強","榮","山","泰","濤","挺","偉","熙","祥","雄","旭","毅","瑜","羽","宇","岳","舟",});void create(){   int i = random(sizeof(names));  set_name(names[i]+nm2[random(sizeof(nm2))]+nm3[random(sizeof(nm3))], ({"fawang"}));	set("per", 35);	set("long",@LONG這喇嘛身著黃袍，他就是血刀門的出師弟子。LONG        );        set("gender", "男性");        set("age", 25);        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", 30);  	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_temp("apply/attack", 50);        set_temp("apply/defense", 50);        set_temp("apply/armor", 50);        set_temp("apply/damage", 150);        create_family("雪山寺", 5, "護教弟子");        set("class", "bonze");        setup();        carry_object("/d/xueshan/obj/y-jiasha")->wear();        carry_object("/d/xueshan/obj/xblade")->wield();}int checking(object ob, object me){	if(!me || !present(me, environment())) do_back(ob);	else call_out("checking", 2, ob, me);        return 1;}int do_copy(object me){        int i;        object ob;        ob = this_object();      if(!me->query_temp("xx_rob")){      	   do_back(me);      	   return 0;      	   }        message_vision(HIR"突然從附近竄出一個$N，二話不說就撲向了$n！\n"NOR, ob, me);        ob->set("combat_exp",me->query("combat_exp") * 4 / 5);        ob->set("max_qi",me->query("max_qi"));        ob->set("eff_qi",me->query("max_qi"));        ob->set("qi",me->query("max_qi"));        ob->set("max_jingli",me->query("max_jingli"));        ob->set("eff_jingli",me->query("max_jingli"));        ob->set("jingli",me->query("max_jingli"));        ob->set("max_neili",me->query("max_neili"));        ob->set("neili",me->query("max_neili"));        ob->set_skill("force", me->query_skill("force"));        ob->set_skill("longxiang", me->query_skill("force")* 4 / 5);        ob->set_skill("shenkong-xing", me->query_skill("force")* 4 / 5);        ob->set_skill("dashou-yin", me->query_skill("force")* 4 / 5);        ob->set_skill("xue-dao",me->query_skill("force")* 4 / 5);        ob->set_skill("dodge", me->query_skill("force")* 4 / 5);         ob->set_skill("force", me->query_skill("force")* 4 / 5);         ob->set_skill("hand", me->query_skill("force")* 4 / 5);         ob->set_skill("sword", me->query_skill("force")* 4 / 5);         ob->set_skill("taiji-quan", me->query_skill("force")* 4 / 5);         ob->set_skill("parry",me->query_skill("force")* 4 / 5);         ob->set_skill("blade", me->query_skill("force")* 4 / 5);        ob->set_skill("mingwang-jian", me->query_skill("force")* 4 / 5);         ob->set("shen",(me->query("combat_exp")/20));        ob->kill_ob(me);	 me->kill_ob(ob);        checking(ob, me);            call_out("do_back", 350,  ob);          return 1;}void die(){int i,pot,exp;	object killer;	exp= random(100)+50;	pot= exp/3;	if(objectp(killer = query_temp("last_damage_from")))        	tell_object(killer,"你被獎勵了\n"+chinese_number(exp)+"點實戰經驗\n"		+chinese_number(pot)+"點潛能\n");	killer->add("combat_exp",exp);	killer->add("potential",pot);	::die();return ;}