seng-bing1.c

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

//
// /d/xueshan/npc/seng-bing1.c
//

#include <ansi.h>

inherit NPC;

void create()
{
	set_name("守寺僧兵", ({
		"seng bing",
		"seng",
		"bing",
	}));
	set("long",
                "他是一位身材高大的壮年僧人，两臂粗壮，膀阔腰圆。他手持僧\n"
                "棍，身穿一袭黑色袈裟，似乎怀有一身武艺。\n"
	);

	set("gender", "男性");
	set("attitude", "peaceful");
	set("class", "bonze");

	set("age", 40);
	set("shen_type", -1);
	set("str", 25);
	set("int", 20);
	set("con", 20);
	set("dex", 25);
	set("max_qi", 500);
	set("max_jing", 300);
	set("neili", 500);
	set("max_neili", 500);
	set("jiaji", 50);
	set("combat_exp", 10000);
	set("score", 1);

	set_skill("force", 50);
	set_skill("xiaowuxiang", 50);
	set_skill("dodge", 50);
	set_skill("shenkong-xing", 50);
	set_skill("unarmed", 50);
	set_skill("yujiamu-quan", 50);
	set_skill("parry", 50);
	set_skill("staff", 50);
	set_skill("xiangmo-chu", 50);

	map_skill("force", "xiaowuxiang");
	map_skill("dodge", "shenkong-xing");
	map_skill("unarmed", "yujiamu-quan");
	map_skill("parry", "xiangmo-chu");
	map_skill("staff", "xiangmo-chu");

	setup();

    carry_object("/d/xueshan/obj/senggun")->wield();
    carry_object("/d/xueshan/obj/b-jiasha")->wear();
}

void init()
{
	object me, ob;
	mapping fam;

	::init();

	ob = this_player();
	me = this_object();
	
	if (interactive(ob) 
	&& !environment(ob)->query("no_fight")
        && ((fam=ob->query("family")) 
        && fam["family_name"]!="雪山寺" ))
	{
		if( !ob->query_temp("warned") ) {
                        command("say 你是谁？怎么闯入雪山寺来了！！\n");
			command("say 快给我速速离开，下次看到决不轻饶！");
			ob->set_temp("warned", 1);
		}
		else if( ob->query_temp("stay") < 10 ) ob->add_temp("stay", 1);
		else {
                        command("say 大胆狂徒，受死吧！\n");
                        me->set_leader(ob);
			remove_call_out("kill_ob");
			call_out("kill_ob", 1, ob); 
		}
	}

}