xunbu1.c

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

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

inherit NPC;

void create()
{
	set_name("一般巡捕", ({ "xun bu", "bu" }));
	set("gender", "男性");
	set("age", 25);
	set("str", 22);
	set("int", 22);
	set("con", 25);
	set("dex", 23);
	
	 set("neili", 8000); 	 
	 set("max_neili", 8000);
	 set("jiali", 150);
	set_skill("force", 150);
        set_skill("dodge", 150);
        set_skill("parry", 150);
        set_skill("cuff", 140);
        set_skill("strike", 150);
	set_skill("kurong-changong", 150);
        set_skill("tiannan-step", 150);
        set_skill("jinyu-quan", 130);
        set_skill("wuluo-zhang", 150);

	map_skill("force", "kurong-changong");
	map_skill("dodge", "tiannan-step");
	map_skill("cuff", "jinyu-quan");
	map_skill("strike", "wuluo-zhang");
	map_skill("parry", "sun-finger");
	prepare_skill("cuff", "jinyu-quan");
	prepare_skill("strike", "wuluo-zhang");
        set_temp("apply/attack", 100);
        set_temp("apply/defense", 100);
        set_temp("apply/armor", 100);
        set_temp("apply/damage", 200);

	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") + 50); 
	set("max_jing",ob->query("max_jing") + 50);
	set("max_neili",ob->query("max_neili"));
	set("jiali",ob->query("jiali"));
	set("combat_exp", ob->query("combat_exp") + 10000);
	set("score", ob->query("score") + 50);
	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);
}