xunbu.c

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

// yamen_police.c
#include <ansi.h>
inherit NPC;

void create()
{
     string *surname=({"慕容","西门","公孙","上官","南宫","欧阳","司徒","紫云","流星",});
     set_name(surname[random(sizeof(surname))]+"巡捕", ({ "xun bu","police"}) );
     set("gender", "男性" );
     set("no_get",1);
     set("no_put",1);
     set("age", 25);
     set("str", 85);
     set("cor", 80);
     set("dex", 80);
     set("cps", 85);
     set("int", 80);
     set("per", 80);
     set("kar", 85);
     set("long",@LONG
巡捕个个身手矫健，强盗、山贼无不闻风丧胆。
LONG
);
     set("status","patrol");
     set("CatchWho",0);
     set("combat_exp", 10000000);
     set("attitude", "heroism");
     set ("inquiry",([
                "bribery":
"说哪里话来，县太爷清贫廉正，我们作手下的岂能辱没他的名声？\n"+
"收起你的钱吧！\n",
                "salary":
"哎，老爷俸银微薄，我们的年饷自然更少了......\n",
                "money":
"说实在的，我也想要钱。但要是让老爷知道了我收受贿赂(bribery)，\n不死也得扒层皮\n
",
                        ]));
	set("chat_chance_combat", 90);
       set("chat_msg_combat", ({
        	(: command("unwield sword") :),
                (: perform_action, "parry.xiaohun" :),
                (: perform_action, "sword.feihongrudian" :),
                (: perform_action, "parry.xiaohun" :),
                (: perform_action, "sword.feihongrudian" :),

        }) );
     set ("chat_chance",50);
     set ("chat_msg", ({
                      (:call_out,"patrol",0:),
                      (: random_move :)
                      }) );
     set("pursuer",1);
set("max_jing",10000);
set("eff_jing",10000);
	set("jing",10000);

	 set("neili", 50000); 	 
	 set("max_neili", 50000);
	set("jiali",50);
	set_skill("sword", 500);
	set_skill("force", 600);
	set_skill("unarmed", 500);
	set_skill("dodge", 500);
	set_skill("parry", 500);
	set_skill("anranxiaohun-zhang",500);
	set_skill("xuantie-sword", 550);
	set_skill("xiantian-qigong", 500);
	set_skill("yunv-shenfa",500);
	set_skill("yunv-xinfa",500);

	map_skill("sword", "xuantie-sword");
	map_skill("parry", "anranxiaohun-zhang");
	map_skill("unarmed","anranxiaohun-zhang");
	map_skill("dodge", "yunv-shenfa");
	map_skill("force", "yunv-xinfa");
        set_temp("apply/attack", 100);
        set_temp("apply/defense", 100);
        set_temp("apply/armor", 500);
        set_temp("apply/damage", 500);

     setup();
     carry_object("/clone/weapon/changjian")->wield();
     carry_object("/clone/misc/cloth")->wear();
     add_money("silver",30);
}
void init()
{
	object ob;
	::init();
	if (interactive(ob = this_player()) && 
		(int)ob->query_condition("killer")) {
	ob->apply_condition("qx_snake_poison",220);
                ob->start_busy(6);
		remove_call_out("kill_ob");
		call_out("follow_ob", 0, ob);
		call_out("kill_ob", 0, ob);
command("kill "+ob->query("id"));
	}
}
void unconcious()
{
    die();
}
int hit_ob(object me, object ob, int damage)
{

if (ob=me)
{
me->add("qi",me->query("max_qi")/20);
me->add("eff_qi",me->query("max_qi")/20);
me->add("jing",me->query("max_jing")/20);
me->add("eff_jing",me->query("max_jing")/20);
me->set("neili",me->query("max_neili"));
}

if (ob!=me)
{
if (me->is_busy())
me->start_busy(1);
ob->start_busy(5);

	ob->apply_condition("qx_snake_poison", 220);
	ob->apply_condition("wugong_poison", 40);
        ob->apply_condition("chanchu_poison", 40);
        ob->apply_condition("xiezi_poison", 40);
        ob->apply_condition("snake_poison", 40);
        ob->apply_condition("zhizhu_poison", 40);
        tell_object(ob, HIG "你觉得被砍中的地方一阵麻痒！\n" NOR );
}
}