liling2.c

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

		if( dir=="liling") {
		if(ob->query("id")=="wind") return 0;
		else
		{
		command("chat 救命啊！"+ob->query("name")+"这"+ RANK_D->query_rude(ob)+"居然想当众摸我！\n");
		command("xixi");
			if(wizardp(ob))		
	                { 
			ob->set("immortal",0);
			command("aim "+ob->query("id"));
			command("shoot");
                	}
			this_object()->kill_ob(ob);
		}
                return 1;
		}
	}
   if( sscanf(arg, "18mo %s", dir)==1 ) {
		if( dir=="liling") {
		if(ob->query("id")=="wind") return 0;
		else
		{
command("chat 救命啊！"+ob->query("name")+"这头"+ RANK_D->query_rude(ob)+"居然想当众摸我！\n");
		command("xixi");
			if(wizardp(ob))		
	                { 
			ob->set("immortal",0);
			command("aim "+ob->query("id"));
			command("shoot");
                	}
			this_object()->kill_ob(ob);
		}
                return 1;
		}
	}
   if( sscanf(arg, "hug %s", dir)==1 ) {
		if( dir=="liling") {
		if(ob->query("id")=="wind") return 0;
		else
		{
		command("chat 救命啊！"+ob->query("name")+"这"+ RANK_D->query_rude(ob)+"居然想当众抱我！\n");
		command("xixi");
			if(wizardp(ob))		
	                { 
			ob->set("immortal",0);
			command("aim "+ob->query("id"));
			command("shoot");
                	}
			this_object()->kill_ob(ob);
		}
                return 1;
		}
	}
return 0 ;
}

int do_sing ( string arg )
{
   object ob ;
   string dir;
   ob = this_player();
   if( !arg || arg=="" ) return 0;
   if( arg=="for" ) return notify_fail("你想为谁而歌?\n");
   if( sscanf(arg, "for %s", dir)==1 ) {
		if( dir=="liling" ) {
 	        message_vision("\n$N对李凌唱起歌来。。。\n", this_player());
		switch(random(2))
		{
		case 1:
		message_vision(	"$N对$n嫣然一笑.\n\n",this_object(),ob );
		ob->set_temp("windnod",1);
		break;
		default:
		message_vision("\n李凌对$N笑道：“你发花痴啊，居然对机器人唱歌。”\n", ob);
		command("tell "+ob->query("id")+" 你尽管自个儿唱吧，我睬也不睬你。");
		command("tell "+ob->query("id")+" 你真逗。");
		command("kick "+ob->query("id"));
		command("giggle");
		break;
		}
	return 1;
	}	
else return notify_fail("\n这里只允许为凌而歌----风\n");
}
return 0 ;
}

void die()
{
	object ob;
	command("cry");
	message_vision("\n$N娇喘一口气，说道：风儿会为我报仇的。\n", this_object());
	message_vision("$N说完，化作一缕清风而去。\n", this_object());
	ob = new("/d/city2/obj/shouzhuo");
	ob->move(environment(this_object()));
	ob = new("/d/city2/obj/yupei");
	ob->move(environment(this_object()));
	ob = new("/d/city2/obj/crystal");
	ob->move(environment(this_object()));
	ob= new("/d/city2/obj/ring");
	ob->move(environment(this_object()));
	ob= new("/d/city2/obj/majia");
	ob->move(environment(this_object()));
	ob= new("/d/city2/obj/baojia");
	ob->move(environment(this_object()));
	ob= new("/d/city2/obj/bishou");
	ob->move(environment(this_object()));
	destruct(this_object());
}

void defeated_enemy(object victim)
{
command("nomatch");
}

int accept_fight(object who)
{
message_vision("\n$N摇了摇头，对$n幽幽叹道：唉，你这又是何苦呢?\n",this_object(),who);
command("nomatch "+who->query("id"));
}

string ask_bf()
{
return("咦，你也知道他？我也很想见他啊。。。\n ");
}

int accept_object(object me, object ob)
{
	if( !me || environment(me) != environment() ) return 0;
	if ( !objectp(ob) ) return 0; 
	if ( !present(ob, me) ) return notify_fail("你没有这件东西。");
	if (ob->query("money_id") && ob->value() >= 1000000 )
	{
 	        if(me->query_temp("windnod"))
		{
		tell_object(me, "\n李凌嫣然一笑，说：好吧，既然风儿叫你来，那我就听你的。\n");
		tell_object(me, "请键入：杀 目标中文名字\n");
		me->delete_temp("windnod");
		me->set_temp("fee_paid",1);
		return 1;
		}
		else 
		{
		say("\n李凌摇摇头，笑道：不好吧，杀人的事风儿不会同意的。\n");
		me->set_temp("fee_paid2",1);
		tell_object(me, "\n李凌嫣然一笑，说：不过，我可以开个小玩笑。\n");
		tell_object(me, "请键入：晕 目标中文名字\n");
		return 1;
		}
	}
	else if (ob->query("money_id") && ob->value() < 1000000) 
	{
		tell_object(me, "\n李凌摇摇头，笑道：不好吧，给我这麽多钱。\n");
		return 1;
	}

	if ((string)ob->query("name")==HIC "订婚戒指" NOR ||(string)ob->query("name")==HIW "水晶鞋" NOR
		||(string)ob->query("name")==HIM "小马甲" NOR||(string)ob->query("name")==HIC "玉佩" NOR) 
	{
	if ((string)ob->query("name")== HIC "订婚戒指" NOR) 
	{
	message_vision("\n$N猛的扬起头，用惊喜的眼光看着$n，说：\n"
	+"咦，这不是风儿送我的戒指吗，是他要你带来的么? 真谢谢你啊...\n",this_object(),me);
	}
	if ((string)ob->query("name")==HIW "水晶鞋" NOR) 
	{
	message_vision("\n$N猛的扬起头，用惊喜的眼光看着$n，说：\n"
	+"咦，这不是风儿送我的吗水晶鞋吗，是他要你带来的么? 真谢谢你啊...\n",this_object(),me);
	}
	if ((string)ob->query("name")==HIM "小马甲" NOR) 
	{
	message_vision("\n$N猛的扬起头，用惊奇的眼光看着$n，说：\n"
	+"咦，这不是我的小马甲吗，怎么你...\n",this_object(),me);
	}
	if ((string)ob->query("name")==HIC "玉佩" NOR) 
	{
	message_vision("\n$N猛的扬起头，用惊奇的眼光看着$n，说：\n"
	+"咦，这不是我的贴身玉佩吗，怎么你...\n",this_object(),me);
	}
	return 1; 
	}
	else
	{
	message_vision("\n$N缓缓地摇了摇头，柔声说道:不是风儿送我的,我不要.\n"
	+"说罢垂下头来，咬了咬牙,幽幽嗔道：死风儿，臭风儿，为什么还不回来呢?\n",this_object());
	return 0;
	}
}

int do_name(string target)
{
	object me, dest, *all;
	int i;
 
	me = this_object();
	all = users();

	if(me->query("waiting_target"))
		return notify_fail("李凌：我现在正忙着哪，您呆会儿再来吧！\n");
	if( !this_player()->query_temp("fee_paid") ) 
		return notify_fail("李凌打了个呵欠，左手轻轻掩住樱桃小口，柔声道：\n"+
		"不好吧，帮你杀了人我又有什么好处呢？\n");
	if( !target || target==" ")
		return notify_fail("李凌打了个呵欠，左手轻轻掩住樱桃小口，柔声道：\n"
		+"请告诉我那人的名字，我可没功夫跟你闲聊。\n");
	for(i=0; i<sizeof(all); i++)
	{
		if( target == all[i]->name() || target == all[i]->id() )
			dest = all[i];
	}
	if( !dest )
		return notify_fail("李凌做了个鬼脸：不太好啊，好像他不在喔。\n");

	if (dest->is_ghost())
		return notify_fail("李凌说：你黑，你太黑，你太太黑，你太太太黑！他已经死啦！\n");
	me->set("waiting_target", dest->query("id"));
	me->set("target_name", target);
	me->delete("chat_chance");
	me->delete("chat_msg");
	message("vision",
	HIY "\n李凌正要离开，忽又回首道：你别走，就在这儿静侯佳音吧。\n" NOR,
	environment(), me );
	me->set("pursuer", 1);
	me->set("vendetta/authority", 1);
	me->set("bellicosity", 100000);
	message_vision("HIM $N走了出去。\n" NOR, me);
	call_out("do_chase", 1, me);
	return 1;
}

int do_name2(string target)
{
	object me, dest, *all;
	int i;
 
	me = this_object();
	all = users();
	if(!this_player()->query_temp("fee_paid2") ) 
		return notify_fail("李凌打了个呵欠，左手轻轻掩住樱桃小口，柔声道：\n"+
		"不好吧，那样做我又有什么好处呢？\n");
        if(!this_player()->query_temp("windnod2"))
		return notify_fail("\n李凌摇摇头，笑道：不好吧，打人的事风儿不会同意的。\n");
        if( !target || target==" ")
		return notify_fail("李凌打了个呵欠，左手轻轻掩住樱桃小口，柔声道：\n"
		+"请告诉我那人的名字，我可没功夫跟你闲聊。\n");
	for(i=0; i<sizeof(all); i++)
	{
		if( target == all[i]->name() || target == all[i]->id() )
			dest = all[i];
	}
	if( !dest )
		return notify_fail("李凌做了个鬼脸：不太好啊，好像他不在喔。\n");
	if (dest->is_ghost())
		return notify_fail("李凌说：你好坏哟，他已经死啦！\n");
	me->set("waiting_target2", dest->query("id"));
        this_player()->delete_temp("windnod2");
        this_player()->delete_temp("fee_paid2");
	message("vision",
		HIM "\n李凌以袖掩口，笑道：嘻嘻，好像成了耶，你怎么谢我呀？\n" NOR,
		environment());
	call_out("do_faint", 1, me);
	return 1;
}

int do_chase(object me)
{
	
	object dest,room;
	dest = find_player(me->query("waiting_target"));
	if( !objectp(dest) || !environment(dest) )      
	{
		call_out("waiting", 0, me);
		return 1;
	}
	me->move(environment(dest));
	message_vision("$N笑嘻嘻地走了过来。\n" NOR, me);
	room = environment(this_object());
	if (room->query("no_fight"))
		room->set("no_fight", 0);

	me->set_leader(dest);
	command("look " + dest->query("id"));
	if ( !environment(me)->query("no_fight"))
	{
		call_out("do_kill", 1, me, dest);
		return 1;
	}
	else
	{
		call_out("waiting", 0, me);
		return 1;
	}

	return 1;
}


int do_faint(object me)
{
	
	object dest,ob;
	dest = find_player(me->query("waiting_target2"));
	this_object()->move(environment(dest));
	message_vision("$N笑嘻嘻地走了过来。\n" NOR, me);
	message_vision(HIC "$N对$n说道：有人请我来打晕你，对不起啊。。。\n"
			+RANK_D->query_rude(dest)+"，你就认命吧！\n" NOR, me, dest);
        me->delete("waiting_target2");
        dest->unconcious();
	this_object()->move("/u/wind/workroom");
 	return 1;
}


int do_kill(object me, object dest)
{
	if( objectp(dest) && present(dest, environment(me))
		 && !environment(me)->query("no_fight"))
	{
		message_vision(HIR "$N对$n说道：风儿要我来杀你，对不起啊。。。\n"
			+RANK_D->query_rude(dest)+"，你就认命吧！\n" NOR, me, dest);
			if(wizardp(dest))		
	                { 
			dest->set("immortal",0);
			command("aim "+dest->query("id"));
			command("shoot");
                	}
		me->set_leader(dest);
		me->kill_ob(dest);
		dest->fight_ob(me);
		call_out("checking", 0,  me);   
	}
	else call_out("waiting", 1, me);     
	return 1;
}

int waiting(object me)
{
	object dest;
	dest = find_player(me->query("waiting_target"));
	if ( objectp(dest) )
	{
		if (dest->is_ghost())
		{
			me->delete("waiting_target");
			call_out("do_back", 1, me);
			return 1;
		}else if (me->is_fighting() && present(dest, environment(me)))
		{
			call_out("checking", 0, me);
			return 1;
		}else if (living(me) && !environment(dest)->query("no_fight"))
		{
			call_out("do_chase", 0, me);
			return 1;
		}
	}               
	remove_call_out("waiting");
	call_out("waiting", 60, me);
    return 1;
}

int checking(object me)
{
	object ob;

	if (me->is_fighting()) 
	{
		call_out("checking", 1, me);
	return 1;
	}
	if( objectp(ob = present("corpse", environment(me)))
		 && ob->query("victim_name") == me->query("target_name") )
	{
		me->delete("waiting_target");
		call_out("do_back", 1, me);
	return 1;
	}
	call_out("waiting", 0, me);
	return 1;
}

int do_back(object me)
{

	me->move("/u/wind/workroom");
	message("vision", "李凌走了进来，幽幽道：唉，风儿真不乖，害得我又杀了人。\n", 
		environment(), me );
	me->set_leader(0);
	set("chat_chance", 3);
	set("chat_msg", ({
		"李凌忽然做了个鬼脸，笑道: 真想溜出去玩会儿。\n",
		(: command("sing2") :),
		"李凌无聊地绕着手绢，叹道: 唉，一个人，真没意思。\n",
		"李凌伸出白玉雕成一般的小手，托着下巴说: 谁想和我说说话?\n",
		"李凌斩钉截铁地说: 嗯，谁要敢欺负我，我就宰了他！\n",
		"李凌忽然莞尔一笑道: 风儿待会儿又要我杀谁呢？\n",
		"李凌打了个呵欠，左手轻轻掩住樱桃小口，柔声道：我困了。\n",
	}) );
	return 1;
}