mu.c

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

//Cracked by Kafei
// /d/city/npc/mu.c
// by sdong 6 / 98

inherit NPC;
string ask_zhaoqing();
string ask_baoming();
int let(string arg);
int start(string host,string challenger);
int do_zhaoqing();
int do_zhongyi();
void full_all(object me);
int check_zhongyi(string girl,string host);
int ask_abandon();

void create()
{
		  set_name("穆易", ({ "mu yi", "mu" }) );
		  set("gender", "男性");
		  set("age", 50);
		  set("long",
"他腰粗膀阔，甚是魁梧，但背脊微驼，两鬓花白，满脸皱纹，神色间\n"+
"甚是愁苦，身穿一套粗布棉袄，衣裤上都打了补钉.\n");
		  set("combat_exp", 10000);
		  set("shen_type",  1);
		  set("attitude", "friendly");

		  set("str", 28);
        set("con", 30);
        set("int", 20);
        set("dex", 27);

        set("max_qi", 800);
		  set("max_jing", 300);
		  set("max_neili", 1000);
		  set("neili", 1000);
		  set("jiali", 30);

        set_temp("apply/armor", 40);

        set_skill("force", 100);
		  set_skill("dodge", 100);
		  set_skill("parry", 100);
		  set_skill("liuhe-qiang", 120);
        set_skill("club", 120);
		  set_skill("unarmed", 100);

		  map_skill("club", "liuhe-qiang");
		  map_skill("parry", "liuhe-qiang");

		  set("inquiry", ([
					 "郭啸天" : "他是我义兄。",
					 "包惜弱" : "她是我浑家。",
					 "杨康" : "这是一个道人给我未出世的儿女取的名字。",
					 "郭靖" : "这是我义兄郭啸天的骨肉。",
					 "李萍" : "她是我嫂子",
					 "比武招亲" : (: ask_zhaoqing :),
					 "bwzq" : (: ask_zhaoqing :),
					 "报名" : (: ask_baoming :),
					 "baoming" : (: ask_baoming :),
					 "不招了" : (: ask_abandon :),
					 "abandon" : (: ask_abandon :),
		  ]));

		  set_temp("fighting",0);

		  setup();

		  carry_object("/clone/weapon/changqiang")->wield();
		  carry_object("/clone/misc/cloth")->wear();
}

void init()
{
		  object ob = this_player();

		  ::init();

		  if( interactive(ob) && ob->query("muyi") )
			{
				message("vision",
				"穆易向" + ob->name() +"笑道：我的乖女儿来看老爹啦！\n", ob );
				command("hug "+ob->query("id"));
			}

		  add_action("do_zhaoqing", "认");
		  add_action("do_zhaoqing", "ren");
		  add_action("do_zhongyi", "中意");
		  add_action("do_zhongyi", "want");
}

int ask_abandon()
{
	string name,boyname,host;
	object me,boy,ob;

	remove_call_out("auto_check");
	call_out("auto_check",0);
	me = this_player();

	if( !me->query_temp("zhaoqing") )
	{
		message_vision("$N向$n笑道：你又不在招亲.\n", this_object(), me);
		return 1;
	}


  if(	 query_temp("fighting") )
  {
		message_vision("$N向$n笑道：还在比武呢！比完再说吧。\n", this_object(), me );
		return 1;
  }

	if( (host=query_temp("host")) )
	{
		if( (boy=find_player(host)) )
		{
			if( base_name(boy) == "/d/city/npc/fighter" )
			{
				boy->quit(boy);
			}
			if( (boy=find_player(host)) )
				if(boy->query_temp("defeated")) boy->delete_temp("defeated");
		}
	}

	me->delete_temp("zhaoqing");

	command("say 好，不招就不招，下次再来！");

	if(query_temp("girl"))delete_temp("girl");
	if(query_temp("host"))delete_temp("host");
	if(query_temp("challenger"))delete_temp("challenger");
	if(query_temp("fighting"))delete_temp("fighting");
	return 1;
}


string ask_zhaoqing()
{
	string msg, name;
	object me;

	me = this_player();

	command("look "+me->query("id"));

	if( me->query("gender")=="男性" || me->query("gender")=="无性" )
	{
		message("vision",
	"穆易向" + me->name() +"怒道：你无聊不无聊呀。臭男人还想比武招亲！\n", me );
		command("kick " + me->query("id"));
		msg = "滚蛋!";
		return msg;
	}

	if( me->query("age")<16 )
	{
		message("vision",
	"穆易向" + me->name() +"笑道：小姑娘这麽小就想婆家啦?羞不羞！\n", me );
		command("laugh " + me->query("id"));
		msg = "呵呵呵!";
		return msg;
	}

	if( me->query("age")>80 )
	{
		message("vision",
	"穆易向" + me->name() +"笑道：您老人家这么老还招亲?羞不羞！\n", me );
		command("laugh " + me->query("id"));
		msg = "呵呵呵!";
		return msg;
	}

	if ( me->is_married() )
	{
		message("vision",
	"穆易向" + me->name() +"笑道：想墙外开花也不必这么大张旗鼓！\n", me );
		command("laugh " + me->query("id"));
		msg = "呵呵呵!";
		return msg;
	}

  if( me->query("class") == "bonze" )
  {
		message("vision",
	"穆易向" + me->name() +"道：你身在佛门，这婚嫁之事嘛，不提也罢！\n", me );
		command("walkby " + me->query("id"));
		msg = "呵呵呵!";
		return msg;
	}

//  if( me->query("muyi") > 0)
//  {
//		message("vision",
//	"穆易向" + me->name() +"笑道：哪能天天比武招亲？再好的花也黄了！\n", me );
//		command("laugh " + me->query("id"));
//		msg = "呵呵呵!";
//		return msg;
//	}


	if( query_temp("girl") == me->query("id") )
	{
		msg="爹正在帮你组织比武招亲，不要急！\n";
		remove_call_out("auto_check");
		call_out("auto_check",30);
		return msg;
	}

	if(query_temp("girl"))
	{
		msg="有人正在比武招亲，待会再来吧！\n";
		remove_call_out("auto_check");
		call_out("auto_check",30);
		return msg;
	}

	me->set_temp("zhaoqing",1);
	msg = "好，你愿不愿意认我为干爹?(type 认 or ren)";
	return msg;
}

int do_zhaoqing()
{
	string msg, name;
	object me;


	me = this_player();
	if(!me->query_temp("zhaoqing"))
	{
		message("vision",
		"穆易向" + me->name() +"笑道：这怎么敢当？\n", me );
		return 1;
	}

	if(query_temp("girl"))
	{
		command("say 有人正在比武招亲，待会再来吧！\n");
		remove_call_out("auto_check");
		call_out("auto_check",30);
		return 1;
	}


	me->set_temp("admitted",1);
	name = me->query("name")+"("+me->query("id")+")";
	command("say " + "小女" + name + "年已及笄，尚未许得婆家。现在开始比武招亲.\n");
	command("say " + "凡年在八十岁以下，尚未娶亲，能胜得小女一拳一脚的，并技压群雄，在下即将小女许配于他.");
	command("chat " + "小女" + name + "年已及笄，尚未许得婆家。现在开始比武招亲.\n");
	command("chat " + "凡年在八十岁以下，尚未娶亲，能胜得小女一拳一脚的，并技压群雄，在下即将小女许配于他.");

	set_temp("girl",me->query("id"));
	set_temp("host",me->query("id"));
	remove_call_out("let");
	call_out("let",0,me->query("id") + " play " + me->query("id"));

	remove_call_out("auto_check");
	call_out("auto_check",30);

	return 1;
}

string ask_baoming()
{
	string msg, name;
	object me;
	string host,challenger,girl;
	int i, age = 0;

	remove_call_out("auto_check");
	call_out("auto_check",0);

	me = this_player();

	command("look "+me->query("id"));

	if( me->query("gender")=="女性" )
	{
		message("vision",
		"穆易向" + me->name() +"怒道：你无聊不无聊呀。我女儿不是同性恋！\n", me );
		command("kick " + me->query("id"));
		msg = "滚!";
		return msg;
	}


	if( me->query("gender")=="无性" )
	{
		msg = "公公不受欢迎!";
		return msg;
	}

	if( me->query("age")<18 )
	{
		message("vision",
	"穆易向" + me->name() +"笑道：小孩子这麽小就想姑娘啦?羞不羞！\n", me );
		command("laugh " + me->query("id"));
		msg = "呵呵呵!";
		return msg;
	}

	if( me->query("age")>80 )
	{
		message("vision",
	"穆易向" + me->name() +"怒道：您老人家这么老还来,老牛吃嫩草?\n", me );
		command("laugh " + me->query("id"));
		msg = "滚蛋!";
		return msg;
	}

	if ( me->is_married() )
	{
		message("vision",
	"穆易向" + me->name() +"笑道：想墙外开花也不必这么大张旗鼓！\n", me );
		command("laugh " + me->query("id"));
		msg = "呵呵呵!";
		return msg;
	}

  if( me->query("class") == "bonze" )
  {
		message("vision",
	"穆易向" + me->name() +"道：你身在佛门，这婚嫁之事嘛，不提也罢！\n", me );
		command("walkby " + me->query("id"));
		msg = "呵呵呵!";
		return msg;
	}

	if( !(girl=query_temp("girl")) )
	{
		msg="现在没有人比武招亲！\n";
		return msg;
	}

	if( me->query_temp("admitted") )
	{
	  msg="你已经报名。急什么？到时会叫你上. \n";
	  return msg;
	}

	if( me->query_temp("defeated") )
	{
		msg="败将一边去！\n";
		return msg;
	}



	if( !(host=query_temp("host")) )
	{
		msg="好，现在你是擂主！\n";
		me->set_temp("admitted",1);
		name = me->query("name")+"("+me->query("id")+")";
		set_temp("host",me->query("id") );
		host = me->query("id");

		remove_call_out("let");
		call_out("let",0,me->query("id") + " play " + me->query("id"));
		remove_call_out("auto_check");
		call_out("auto_check",30);
		return msg;
	}

	if( query_temp("fighting"))
	{
		me->set_temp("admitted",1);
		msg="好。现在有人正在比武，轮到你时会叫你！\n";
		set_temp("boy/" + time(), me->query("id") );
		return msg;
	}


	me->set_temp("admitted",1);
	name = me->query("name")+"("+me->query("id")+")";
	set_temp("challenger",me->query("id") );
	challenger = me->query("id");

	remove_call_out("let");
	call_out("let",0,me->query("id") + " play " + me->query("id"));

	remove_call_out("start");
	call_out("start",20,host,challenger);
	set_temp("fighting",1);
	msg = name + "符合条件，