xunbu2.c

来自「C实现的MUD,对大家基本入门网络游戏很有帮助!」· C语言 代码 · 共 87 行

//xunbu1.c 巡捕
//9/24/2000 BY 风狐(WFoxd)

inherit NPC;

void create()
{
	set_name("高级巡捕", ({ "xun bu", "bu" }));
	set("gender", "男性");
	set("age", 35);
	set("shen_type", 1);
	
	set("str", 29);
	set("int", 28);
	set("con", 28);
	set("dex", 27);
	
	 set("neili", 10000); 	 
	 set("max_neili", 10000);
	 set("jiali", 250);
	set_skill("force", 185);
	set_skill("hunyuan-yiqi", 185);
	set_skill("dodge", 185);
	set_skill("shaolin-shenfa", 185);
	set_skill("hand", 190);
	set_skill("fengyun-shou", 190);
	set_skill("parry", 185);
	set_skill("buddhism", 185);
	set_skill("literate", 185);

	map_skill("force", "hunyuan-yiqi");
	map_skill("dodge", "shaolin-shenfa");
	map_skill("hand", "fengyun-shou");
	map_skill("parry", "fengyun-shou");
        set_temp("apply/attack", 100);
        set_temp("apply/defense", 100);
        set_temp("apply/armor", 100);
        set_temp("apply/damage", 200);
	prepare_skill("hand", "fengyun-shou");

	setup();

	carry_object("/clone/misc/cloth")->wear();
}
	
void kill_ob(object ob) 
{
 
 	int max_skill;

	if(query("killing"))  
		 {:: kill_ob(ob);
		  return;
	        }
	set("killing",ob);

	set("max_qi",ob->query("max_qi") + 1000); 
	set("max_jing",ob->query("max_jing") + 1000);
	set("max_neili",ob->query("max_neili"));
	set("jiali",ob->query("jiali"));
	set("combat_exp", ob->query("combat_exp") + 50000);
	set("score", ob->query("score") + 1000);
	reincarnate();
	
	set_leader(ob); 
	
	:: kill_ob(ob);
	call_out("check_status",3,ob); 
}

void check_status(object ob)
{
	if(!ob || ob->is_ghost()) {
		destruct(this_object());
		return; }  

	if(environment(ob)!=environment()) {
		this_object()->move(environment(ob));  
		message_vision("$N忽然从一旁跳出来，大吼一声：“"+ob->name()+"，哪里跑？”",this_object());
		}

	remove_call_out("check_status");
	call_out("check_status",2,ob);
}