npc.h

C实现的MUD,对大家基本入门网络游戏很有帮助!

			HIY"$n一看到$N，嘿嘿一笑，头也不回挤进行人之中，脚下抹油溜了。\n"NOR,ob,me); 
			ob->delete_temp("mark/gkill2");
			ob->set_temp("mark/gkill3",1); 
		case 2:
			message_vision(
				HIR"$n额头青筋跳动，冷哼了一声，瞪着通红的眼睛向着$N就冲了过去。\n"NOR,
				ob,me);
			me->set_leader(ob);
			remove_call_out("kill_ob");
			call_out("kill_ob", 1, ob);
			break;
		case 3:
			message_vision(
				HIR"$n额头青筋跳动，冷哼了一声，瞪着通红的眼睛向着$N就冲了过去。\n"NOR,
				ob,me);
			me->set_leader(ob);
			remove_call_out("kill_ob");
			call_out("kill_ob", 1, ob);
			break;
write(WHT"「"+ob->query_temp("guanfu_target")+"」好象往「"+dizhis["cdizhi"]+"」的方向逃去了。\n"NOR);
           me->move(dizhis["weizhi2"]);
           return; 
		}         
	}
	if (ob->query_temp("mark/gkill3")){
message_vision(HIR"$n气急败坏的对$N嚷道，杀人不过头点地，你一再苦苦向逼，大爷今天就和你拼个鱼死亡破。\n"NOR,ob,me);
                if(nei<nei1&&
                !me->query_temp("gf_nlset")){
                me->set("neili",nei1);
                me->set_temp("gf_nlset",1);
                }
		me->set_leader(ob);
		remove_call_out("kill_ob");
		call_out("kill_ob", 1, ob);
		me->add("combat_exp",exp/4);
		me->reincarnate(); 
	}
	}
	call_out("dest", 1800); 
	add_action("do_yes","yes");
	add_action("do_no","no");
} 

int do_yes()
{
        object r_shen, me, ob;
        me = this_object();
        ob = this_player();

        if (!ob->query_temp("guanf_huida1"))
        return 0;
        if (ob->query_temp("guanf_huida1") != (string)me->query("name"))
        return 0;
        if ((int)ob->query("shen") < 1
        && ob->query("combat_exp",1) < 180000){
        command("say 这位"+RANK_D->query_respect(ob)+"一定前途远大，嘿嘿，我是不会亏待你的。\n");
        me->add_money("gold",20+random(20));
        command("give "+ob->query("id")+" gold");
        message_vision("$N嘿嘿一笑，转身离开，一眨眼就消失不见了。\n",me);
        destruct(me);
        return 1;
        }
        if ((int)ob->query("shen") < 1
        && ob->query("combat_exp",1) > 180000
        && ob->query("combat_exp",1) < 500000){
        command("say 我早就看出这位"+RANK_D->query_respect(ob)+"是当世的俊杰，嘿嘿，这点小礼物请务必收下。\n");
        message_vision("$N嘿嘿奸笑两声，悄悄塞给了$n一棵人参。\n",me,ob);
           r_shen=new(__DIR__"renshen");;
        r_shen->move(ob);
        command("give "+ob->query("id")+" gold");
        message_vision("$N嘿嘿一笑，转身离开，一眨眼就消失不见了。\n",me);
        destruct(me);
        return 1;
        }
        if ((int)ob->query("shen") < 1
        && ob->query("combat_exp",1) > 500000){
        command("say 您老人家功夫如此出众，小的实在想不出拿什麽孝敬您老，回头我想起在说吧。\n");
        message_vision("$N嘿嘿一笑，转身离开，一眨眼就消失不见了。\n",me);
		destruct(me);
        return 1;
        }
        if ((int)ob->query("shen") > 1
        && ob->query("combat_exp",1) < 120000){
        command("say 这位"+RANK_D->query_respect(ob)+"前途远大，一身正气，嘿嘿，佩服。\n");
        me->add_money("gold",20+random(30));
        command("give "+ob->query("id")+" gold");
        ob->add("shen",-1000);
        message_vision("$N嘿嘿一笑，转身离开，一眨眼就消失不见了。\n",me);
        destruct(me);
        return 1;
        }
        if ((int)ob->query("shen") > 1
        && ob->query("combat_exp",1) > 120000
        && ob->query("combat_exp",1) < 500000){
        command("say 这位"+RANK_D->query_respect(ob)+"真是义薄云天，这个小礼物敬请务必收下。\n");
        me->add_money("gold",30+random(30));
        command("give "+ob->query("id")+" gold");
        message_vision("$N嘿嘿奸笑两声，悄悄塞给了$n一棵人参。\n",me,ob);
        r_shen=new(__DIR__"renshen");
        r_shen->move(ob);
        ob->add("shen",-3000);
        message_vision("$N嘿嘿一笑，转身离开，一眨眼就消失不见了。\n",me);
        destruct(me);
        return 1;
        }
        command("say 自古邪正势不两立，在下不过开个小小玩笑，千万不要当真啊。\n");
        command("laugh " + ob->query("id"));
        write("对方好象在拿你取笑，你不由怒火中烧。\n");
		tell_room(environment(me), me->query("name")+"纵身跳入行人之中，转眼就不见了。\n", ({me}));	
        destruct(me);
        return 1;
}
   

int do_no()
{
        object me, ob;
        me = this_object();
        ob = this_player();

        if (!ob->query_temp("guanf_huida1"))
        return 0;
        if (ob->query_temp("guanf_huida1") != (string)me->query("name"))
        return 0;
        if ((int)ob->query("shen") < 1){
        command("say 这位"+RANK_D->query_respect(ob)+"一身瘴气，你我本是一路货色，却在这里装什么侠义英雄呢？！\n");
        ob->delete_temp("guanf_huida1");
        ob->delete_temp("mark/gkill1");
        return 1;
        }
        command("say 这位"+RANK_D->query_respect(ob)+"一身正气，不愧名门正派弟子，不过不知道功夫怎麽样？！\n");
        command("hehe " + ob->query("id"));
        ob->delete_temp("guanf_huida1");
        ob->delete_temp("mark/gkill1");
        return 1;
}

void die()
{
        object ob, me;
        mapping dizhis;
        
        ob = this_object();
        me = query_temp("last_damage_from");
        dizhis = dizhia[random(sizeof(dizhia))];  
        
        if (!me->query_temp("mark/gkill3")
        &&  !me->query_temp("mark/gkill2")
        && (string)ob->query("name") == me->query_temp("guanfu_target")){
        message_vision(WHT"$N深吸口气，冷笑道，好身手！说完强忍伤痛纵身向「"+dizhis["cdizhi"]+"」处逃走。\n"NOR,ob,me);
        me->set_temp("mark/gkill2",1);
//        message_vision(WHT"「"+ob->query_temp("guanfu_target")+"」好象往「"+dizhis["cdizhi"]+"」的方向逃去了。\n"NOR);
        new(me->query_temp("path_rooms"))->move(dizhis["weizhi2"]);
        destruct(ob);
        return;
        }
        if (me->query_temp("mark/gkill2")
        && (string)ob->query("name") == me->query_temp("guanfu_target")){
        message_vision(WHT"$N冷笑一声，说道，好俊的功夫！说完纵身向「"+dizhis["cdizhi"]+"」处逃走。\n"NOR,ob,me);
        me->delete_temp("mark/gkill2");
        me->set_temp("mark/gkill3",1);
//        message_vision(WHT"「"+ob->query_temp("guanfu_target")+"」好象往「"+dizhis["cdizhi"]+"」的方向逃去了。\n"NOR);
        new(me->query_temp("path_rooms"))->move(dizhis["weizhi2"]);
        destruct(ob);
        return;
        }
        ::die();
}
int accept_fight(object me)
{
	command("say 大爷我正要赶路，没心思和你动手。");
	return 0;
}
void dest()
{
       object ob;
       ob = this_object();
    if (environment())
       message_vision("只见$N忽然急转身行，纵身钻进行人中，转眼就踪迹皆无。\n", ob);  
       destruct(this_object());
}