// chen.cinherit NPC;#include <ansi.h>;#include <skill.h>#include <weapon.h>#include <combat.h>void create(){        set_name( "陳玄風(fēng)" ,({ "chen xuanfeng", "chen" }));        set("title", "黑風(fēng)雙煞");        set("nickname", HIY"銅尸"NOR);        set("gender", "男性");        set("age", 35);        set("long",            "此人是黃藥師的二弟子，他濃眉大眼，背厚膀?qū)挘|體甚是壯健，只是\n"            "面色微微泛黃。\n");        set("attitude", "aggressive");        set("str", 27);        set("int", 32);        set("con", 35);        set("max_qi",5500);        set("max_jing",5000);        set("neili", 5500);        set("max_neili", 25500);        set("jiali", 100);        set("shen",-50000);        set("combat_exp", 1500000);        set_skill("claw", 180);        set_skill("force", 180);        set_skill("parry", 180);        set_skill("dodge", 140);        set_skill("jiuyin-baiguzhao", 280);        set_skill("bibo-shengong", 280);        set_skill("anying-fuxiang", 280);        map_skill("force", "bibo-shengong");        map_skill("parry", "luoying-shenjian");        map_skill("dodge", "anying-fuxiang");        map_skill("claw", "jiuyin-baiguzhao");        prepare_skill("claw", "jiuyin-baiguzhao");        set("chat_chance_combat", 50);        set("chat_msg_combat", ({                (: perform_action, "claw.zhua" :),                (: perform_action, "claw.cuijin" :),                (: perform_action, "claw.zhua" :),        }) );        create_family("桃花島", 2, "被逐弟子");        set("inquiry", ([           "銅尸":     "江湖上的人都這么叫我的，你怕不怕？哈哈哈哈。",           "東邪":     "那是我?guī)煾傅木b號(hào)。",           "西毒":     "那是與家?guī)燒R名的高手之一，是個(gè)老毒物，住在白駝山。",           "南帝":     "段王爺已出家當(dāng)和尚去了，法名叫一燈。",           "北丐":     "北丐統(tǒng)領(lǐng)中原的丐幫，勢(shì)力頗為強(qiáng)大。",           "洪七公":   "洪七公武功高強(qiáng)，而且教會(huì)郭靖那小兒降龍十八掌，可恨！",           "黃蓉":     "她是我?guī)煾傅莫?dú)女，最是刁蠻任性。",           "梅超風(fēng)":   "她是我的師妹，也是我的內(nèi)室。",           "陳玄風(fēng)":   "不就是我么？你是白癡啊？",           "黃藥師":   "他是我?guī)煾浮?quot;]) );        setup();        carry_object("/kungfu/class/taohua/obj/bupao")->wear();}void kill_ob(object me){	object ob = this_object();	if (environment(ob)->query("short") == "石洞" && !objectp(present("mei chaofeng", environment(ob)))) {		command("say 想搶我的九陰真經(jīng)？沒那么容易！");		message_vision(HIY"陳玄風(fēng)向你急攻數(shù)招，奪路向外跑去。"NOR, me);	        ob->add_temp("apply/attack", 200);	        ob->add_temp("apply/damage", 200);		COMBAT_D->do_attack(ob,me, ob->query_temp("weapon"));		COMBAT_D->do_attack(ob,me, ob->query_temp("weapon"));		COMBAT_D->do_attack(ob,me, ob->query_temp("weapon"));	        ob->add_temp("apply/attack", -200);		ob->add_temp("apply/damage", -200);		command("out");		this_object()->set_temp("target", me->query("id"));                this_object()->move("/d/huanghe/shamo1");	}        ::kill_ob(me);}void die(){	object ob = this_object(), me, obj;	if (!ob->query_temp("target")) {	        call_out("do_die", 1, ob);		return;	}	if (environment(ob)->query("short") != "沙漠"){	        call_out("do_die", 1, ob);		return;	}	me = ob->query_temp("last_damage_from");	if (me->query("id") != ob->query_temp("target")) {		ob->revive(1);		command("say 好，居然還有" + me->name(1) + "幫你，哼！");		message_vision(HIY"陳玄風(fēng)見形勢(shì)不好，轉(zhuǎn)身逃了！\n"NOR, me);		destruct(ob);		return;	}	ob->delete_temp("target");	if (me->query("jiuyin/full") || present("jiuyin xiajuan", me) || (!me->query("jiuyin/xia") && me->query("jiuyin/xia-failed") > 2)) {	        call_out("do_die", 1, ob);		return;	}	if (me->query("jiuyin/xia") && !present("jiuyin xiajuan", me)) {		obj = new ("/clone/book/jiuyin-xia");		obj->move(me);		message("channel:rumor", MAG"【謠言】某人："+me->query("name")+"拿到九陰真經(jīng)下卷啦。\n"NOR, users());	        call_out("do_die", 1, ob);		return;	}	message_vision(HIW"$N隱隱看到尸體的腹部刻了點(diǎn)東西，\n"NOR, me);	if (me->query("kar") > 40 && random(10) == 0) {		if(present("bishou", me)) {			message_vision(HIW"順手抽出匕首割下一小塊皮來，仔細(xì)一看，盡是九陰真經(jīng)下卷！\n"NOR, me);			obj = new ("/clone/book/jiuyin-xia");			obj->move(me);			message("channel:rumor", MAG"【謠言】某人："+me->query("name")+"拿到九陰真經(jīng)下卷啦。\n"NOR, users());			me->delete("jiuyin/xia-failed");			me->set("jiuyin/xia", 1);		} else {			message_vision(HIW"可惜$N沒有帶上匕首，只好暫時(shí)做罷。\n"NOR, me);			me->add("jiuyin/xia-failed", 1);		}	} else {		message_vision(HIW"可惜$N并沒在意。\n"NOR, me);		me->add("jiuyin/xia-failed", 1);	}	call_out("do_die", 1, ob);	return;}void do_die(object ob){        :: die();}