xiaolu.c

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

// xiaolu.c

inherit NPC;
inherit F_MASTER;

string ask_me();

void create()
{
	set_name("陆冠英", ({ "lu guanying", "lu" }));
	set("title", "归云庄少庄主");
	set("long", "
他是归云庄少庄主陆冠英。他肩宽背阔，躯体甚是壮健，
但行动之间温文尔雅，谦恭有礼，一派世家子弟风范。
传闻他就是太湖群盗的首领，不知是真是假。\n");
	set("gender", "男性");
	set("age", 21);
	set("attitude", "peaceful");
	set("class", "fighter");
	set("shen_type", 1);
	set("per", 26);
	set("str", 28);
	set("int", 28);
	set("con", 28);
	set("dex", 28);
	
	set("max_qi", 600);
	set("max_jing", 500);
	set("neili", 1000);
	set("max_neili", 1000);
	set("jiali", 20);
	set("combat_exp", 150000);
	set("score", 6000);

	set_skill("force", 50);
	set_skill("hunyuan-yiqi", 50);
	set_skill("dodge", 80);
	set_skill("shaolin-shenfa", 50);
	set_skill("strike", 50);
	set_skill("banruo-zhang", 50);
	set_skill("parry", 50);
	set_skill("blade", 50);
	set_skill("cibei-dao", 50);

	map_skill("force", "hunyuan-yiqi");
	map_skill("dodge", "shaolin-shenfa");
	map_skill("strike", "banruo-zhang");
	map_skill("parry", "cibei-dao");
	map_skill("blade", "cibei-dao");

	set("inquiry", ([
		"归云庄" : (: ask_me :),
	]));

	set("book_count", 1);

	setup();
	carry_object("/clone/weapon/gangdao")->wield();
	carry_object("/clone/misc/cloth")->wear();
}
init()
{
	add_action("do_decide", "decide");
}
string ask_me()
{
	object me = this_player();
	me->set_temp("guiyun/decide",1);
	return "归云庄就是在下居处，如果"+RANK_D->query_respect(me)+"有意(decide)，我可修书一封代为引荐。\n";
}
int do_decide()
{
	object ob, me;
	me = this_player();
	if (!me->query_temp("guiyun/decide"))
	{
		message_vision("$N对$n奇怪地说道：你要决定干嘛？\n", this_object(), me);
		return 1;
	}
	me->delete_temp("guiyun/decide");
	ob = new(__DIR__"obj/xin");
	ob->move(me);
	message_vision("$N双手抱拳，道：有劳少庄主费心了。\n", me);
	message_vision("$N说道：好！\n", this_object());
	message_vision("$N给$n一封书信。\n", this_object(), me);
	message_vision("$N说道：这位"+RANK_D->query_respect(me) + "请先到敝庄盘恒数日，以后再图相叙。\n", this_object());
	return 1;
}