zangao.c

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

// by victori
inherit NPC;
#include <ansi.h>

string *first_name = ({"藏"});
string *name_words = ({ "獒"});
void create()
{
        string name;
        name = first_name[random(sizeof(first_name))];
        name += name_words[random(sizeof(name_words))];
        set_name(name,({"zang ao","ao"}));
	set("race", "野兽");
        set("long", "一只凶猛的藏獒，正警觉的来回踱步。\n");
	set("age", 5);
	set("attitude", "peaceful");

	set("max_ging", 1000);
	set("max_qi", 1000);

	set("str", 30);
	set("cor", 50);

	set("limbs", ({ "头部", "身体", "尾巴" ,"腿"}) );
	set("verbs", ({ "bite" }) );

	set_skill("unarmed", 100);
	set_skill("dodge", 100);
	set_temp("apply/attack", 100);
	set_temp("apply/damage", 100);
	set_temp("apply/defense", 150);
	set_temp("apply/armor", 50);

	set("combat_exp", 150000);
 
//     set_weight(500000);
//	carry_object("/clone/misc/cloth")->wear();
	setup();
}
void init()
{
        object me;
        add_action("do_train", "train");
//       object me,ob;
//        ::init();
        if (interactive(me = this_player()))
        {
	      if((string)me->query("family/family_name")!="五毒教")
              {
      	           remove_call_out("kill_ob");
                  call_out("kill_ob", 1, me);
              }
        }
        ::init();
}
int do_train(string arg)
{
	object me,who;
	me =this_object();
	who=this_player();
	if (!arg || (arg != "zang ao"))
		return notify_fail("你要驯服什么？\n");
	if(me->is_fighting())
		return notify_fail("这只藏獒正在战斗。\n");
	if((string)who->query("family/family_name")!="五毒教")
		return notify_fail("什么？\n");
	
	message_vision("藏獒本来就是人驯养的，你有没有搞错哦？\n\n", who,me);
	return 1;
}