wuxiuwen.c

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

// wuxiuwen.c

#include <ansi.h>

inherit NPC;
string ask_me_1(string name);
string ask_me_2(string name);
void create()
{
	set_name("武修文", ({"wu xiuwen", "wu", "xiuwen"}));
	set("title", HIY"郭靖二弟子"NOR);
	set("gender", "男性");
	set("age", 21);
	set("long", "他是郭靖的二弟子，精明强干，专门负责后勤。\n");
 	set("attitude", "peaceful");
	
	set("per", 23);
	set("str", 20);
	set("int", 20);
	set("con", 30);
	set("dex", 25);

	set("inquiry", ([
		"黄蓉" : "那是我师母。\n",
		"郭靖" : "那是我师父。\n",
	]));

	set("qi", 1000);
	set("max_qi", 1000);
	set("jing", 500);
	set("max_jing", 500);
	set("neili", 1000);
	set("max_neili", 1000);
	
	set("combat_exp", 180000);
	set("score", 20000);

	set("huju_count", 20);
	set("beixin_count", 2);
	 
	set_skill("force", 150);			// 基本内功
	set_skill("huntian-qigong", 150);	// 混天气功
	set_skill("unarmed", 150);		// 基本拳脚
	set_skill("xianglong-zhang", 150);	// 降龙十八掌
	set_skill("dodge", 150);			// 基本躲闪
	set_skill("xiaoyaoyou", 150);		// 逍遥游
	set_skill("parry", 150);			// 基本招架
        set("inquiry", ([
		"铁护腕" : (: ask_me_1, "huwan" :),
		"铁护腰" : (: ask_me_1, "huyao" :),
		"皮手套" : (: ask_me_1, "shoutao" :),
		"皮围脖" : (: ask_me_1, "weibo" :),
		"铁指套" : (: ask_me_1, "zhitao" :),
                "铁背心" : (: ask_me_2, "beixin" :)
        ]));
	
	map_skill("force", "huntian-qigong");
	map_skill("unarmed", "xianglong-zhang");
	map_skill("dodge", "xiaoyaoyou");
	map_skill("parry", "xianglong-zhang");
	
	setup();
	
	carry_object("/clone/misc/cloth")->wear();
}
string ask_me_1(string name)
{
	mapping fam; 
	object ob;
	
	if (  present(name, this_player()) )
		return RANK_D->query_respect(this_player()) + 
		"你现在身上不是有这样防具吗，怎麽又来要了？ 真是贪得无餍！";

	if (query("huju_count") < 1)
		return "抱歉，你来得不是时候，防具已经发完了。";

	ob = new("/d/shaolin/obj/" + name);
	ob->move(this_player());

	add("huju_count", -1);

	message_vision("武修文给$N一件" + ob->query("name") + "。\n", this_player());

	return "拿去吧。不过要记住，防具只可防身练武，不可凭此妨害他人。";
}

string ask_me_2(string name)
{
	mapping fam; 
	object ob;
	
	if (query("beixin_count") < 1)
		return "抱歉，你来得不是时候，武器已经发完了。";

	ob = new("/d/shaolin/obj/" + name);
	ob->move(this_player());

	add("beixin_count", -1);

	message_vision("武修文给$N一件" + ob->query("name") + "。\n", this_player());

	return "拿去吧。不过要记住，铁背心乃是防身宝物，不可凭此妨害他人。";
}