qingwei2.c

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

inherit NPC;
void create()
{
   set_name("近卫兵",({"jinwei bing"}));
   set("gender","男性");
   set("long","贴身保护铁木真的士兵!\n");
   set("shen",2000);
   set("combat_exp",80000);
   
set("age",18+random(30));
set("kee",1500);
   set("max_kee",1500);
set("food",250);
set("water",250);
   set("neili",1000);
   set("max_neili",1000);
   set("force_factor",20+random(30));

   set_skill("dodge",100+random(50));
   set_skill("force",100+random(50));
   set_skill("parry",100+random(50));
   set_skill("unarmed",100+random(50));
   set_skill("blade",100+random(50));

   setup();
   add_money("silver",5+random(20));
carry_object(__DIR__"obj/cloth")->wear();
carry_object(__DIR__"obj/blade")->wield();
}
void init()
{
  object ob;

  ::init();
  if (interactive(ob=this_player())&&!is_fighting())  {
  	remove_call_out("greeting");
  	call_out("greeting",1,ob);
    }
  }
void greeting(object ob)
{ 
  if (!ob||environment(ob)!=environment())  return;
  if (ob->query("banghui")!=query("banghui"))   {
    kill_ob(ob);
    return;
   }
   return;
}