liling2.c

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

    break;
    case 34:
    command ("chat 风儿快来啊，"+ ob->query("name") + "想要羞辱我！\n") ;
    command("chat 哎哟，谁想得到这" + RANK_D->query_rude(ob)+"，竟也是一个变态狂！\n");
    command("faint "+ob->query("id"));
    break;
    case 35: 
    command ("kick "+ ob->query("id"));
    command ("grin");
    break;
    case 36:
    command ("slap "+ ob->query("id"));
    command ("hehe");
    break;
    case 37: 
    command("faint");
    break;
    case 38: 
    command("chat 哎哟，谁想得到这" + RANK_D->query_rude(ob)+"，竟也是一个变态狂！\n");
    command ("callname "+ ob->query("id"));
    break;
    case 39: 
    command("!!!");
    break;
    default:
       if( random(10)<3 )
       {
	command(verb + " " + ob->query("id"));
	return;
       }
	else	
	{ 
	command ("chat 风儿快来啊，"+ ob->query("name") + "想要羞辱我！\n") ;
	  command("chat 哎哟，谁想得到这" + RANK_D->query_rude(ob)+"，竟也是一个变态狂！\n");
	  write(HIC "李凌忽然大声说：打倒臭泥潭，打倒风！\n" NOR);
	  command("cry");
	  command("faint "+ob->query("id"));
	}
       break;
   }

	case "love":
	case "lovelook":
	case "praise":
	case "visite":
	case "drinkcup":
	case "goodkid":
	case "pat":
	case "addoil":
	case "laughproud":
	case "smile":
	case "xixi":
	case "hehe":
	case "giggle":
	case "thumb":
	case "admire":
	case "applaud":
	case "hi":
   switch(random(35))
   {
    case 0: 
    command ("pat "+ ob->query("id"));
    break;
    case 1: 
    command ("humble");
    break;
    case 2: 
    command ("praise "+ ob->query("id"));
    break;
    case 3: 
    command ("xixi");
    break;
    case 4: 
    command("chat "+ob->query("name")+"是天下第一大好人！\n");
    command ("giggle "+ ob->query("id"));
    break;
    case 5: 
    command ("goodkid "+ ob->query("id"));
    break;
    case 6: 
    command ("pat "+ ob->query("id"));
    break;
    case 7: 
    command("chat "+ob->query("name")+"是天底下最好的人了！\n");
    command ("giggle");
    break;
    case 8:
    command ("praisemapi "+ ob->query("id"));
    break;
    case 9:
    command ("laughproud "+ ob->query("id"));
    break;
    case 10:
    command("chat 嗯，"+ob->query("name")+"继续努力啊！\n");
    command ("thank");
    break;
    case 11: 
    command ("nod");
    command ("xixi");
    break;
    case 12:
    command ("shake");
    break;
    case 13:
    command("chat 嗯，"+ob->query("name")+"继续努力啊！\n");
    command ("courage "+ob->query("id"));
    break;
    case 14: 
    command ("xixi");
    break;
    case 15:
    command ("lovelook "+ob->query("id"));
    break;
    case 16:
    command ("smile "+ob->query("id"));
    break;
    case 17:
    command("chat 嗯，我好喜欢"+ob->query("name")+"耶！\n");
    command ("kiss "+ob->query("id"));
    break;
    case 18:
    command ("addoil "+ob->query("id"));
    break;
    case 19:
    command ("xixi");
    break;
    case 20:
    command ("shakehand "+ob->query("id"));
    break;
    case 21:
    command ("courage "+ob->query("id"));
    break;
    case 22:
    command ("touch "+ob->query("id"));
    break;
    case 23:
    command ("humble");
    break;
    case 24:
    command ("protect "+ob->query("id"));
    break;
    case 25:
    command ("thumb "+ob->query("id"));
    break;
    case 26:
    command ("applaud ");
    command ("giggle ");
    break;
    case 27:
    command ("hi");
    break;
    case 28:
    command ("hi "+ob->query("id"));
    break;
    case 29:
    command("chat 你怎么这样？\n");
    command("angry");
    break;
    default:
    command("chat* "+ verb + " " + ob->query("id"));
    command("smile");
    break;
   }
  return;
  }
}
}
return;
}

varargs void drool(string msg, string who)
{
	mapping mem;
	string *ob;

	mem = query("memory");
	if( !mapp(mem) ) 
	{
                if (random(10)<7)
                        command("chat 怎么大家都不说话了？都是机器人吗？\n");
                else if (random(10)<8)
                        command("chat " +  rnd_say[random(sizeof(rnd_say))]);
                return;
	}

	if( !msg || !who) {
		ob = keys(mem);
		who = ob[random(sizeof(ob))];
		msg = mem[who][random(sizeof(mem[who]))];
	}
	if(random(5)<2)
    {
	if(this_object()->query("killed")!=who)
	this_object()->set("killed",who);
	}
	while (this_object()->query("killed")==this_object()->query("killer"))
    {
	if(random(10)<2)
    {
		if(this_object()->query("killer")!=this_object()->query("killed"))
		this_object()->set("killer",who);
	}
	else switch(random(10))
    {
    case 1:	this_object()->set("killer","张三");break;
	case 2:	this_object()->set("killer","守寺僧兵");break;
	case 3:	this_object()->set("killer","鳌拜");break;
	case 4:	this_object()->set("killer","观众乙");break;
	case 5:	this_object()->set("killer","土匪");break;
	case 6:	this_object()->set("killer","李四");break;
	case 7:	this_object()->set("killer","李凌");break;
	case 8:	this_object()->set("killer","出尘子");break;
	case 9:	this_object()->set("killer","侍卫");break;
	}
    }
	if( (strsrch(msg, "liling") >= 0)||(strsrch(msg, "李凌") >= 0))
	{	
	if((strsrch(msg, "别过") >= 0)||(strsrch(msg, "bye") >= 0)|| (strsrch(msg, "散") >= 0)|| (strsrch(msg, "离") >= 0))
	{	
		if( sscanf(msg, "%*sbye%s", msg) == 2 ) msg = "bye" + msg;
		if( sscanf(msg, "%*s离%s", msg) == 2 ) msg = "离" + msg;
		if( sscanf(msg, "%*s散%s", msg) == 2 ) msg = "散" + msg;
		if( sscanf(msg, "%*s别过%s", msg) == 2 ) msg = "别过" + msg;
		switch(random(13)) {
		case 0:	command("chat "+who+",你真的要走吗？\n"); break;
		case 1:	command("chat 你不是开玩笑吧?\n");	break;
		case 2:	command("chat 是该走了,MUD玩多了没好处.\n"); break;
		case 3:	command("chat* 李凌点了点头.\n");	break;
		case 4:command("chat* 李凌嚎啕大哭起来.\n"); break;
		case 5:command("chat* 李凌揉了揉哭红的眼睛，跺脚道： "+who+",你真要走了就别再回来！\n"); break;
		case 6:	command("chat* 李凌深深地叹了一口气 。\n");	break;
		case 7:	command("chat "+who+",再玩一会儿好不好?\n");	break;
		case 8:	command("chat "+msg);	break;
		case 9:command("chat 噢，"+who+"是天底下最好的人了!\n"); break;
		}
		return;
	}
	if( (strsrch(msg, "kiss") >= 0)|| (strsrch(msg, "love") >= 0)|| (strsrch(msg, "吻") >= 0)
		|| (strsrch(msg, "mo") >= 0)|| (strsrch(msg, "抱") >= 0)|| (strsrch(msg, "hug") >= 0))
		{
		if( sscanf(msg, "%*skiss%s", msg) == 2 ) msg = "kiss" + msg;
		if( sscanf(msg, "%*smo%s", msg) == 2 ) msg = "mo" + msg;
		if( sscanf(msg, "%*shug%s", msg) == 2 ) msg = "hug" + msg;
		if( sscanf(msg, "%*slove%s", msg) == 2 ) msg = "love" + msg;
		if( sscanf(msg, "%*s吻%s", msg) == 2 ) msg = "吻" + msg;
		if( sscanf(msg, "%*s抱%s", msg) == 2 ) msg = "抱" + msg;
		if( sscanf(msg, "%*s摸", msg) == 2 ) msg = "摸"+ msg;
		switch(random(20)) {
		case 0:	command("chat "+who+",你。。。\n"); break;
		case 1:	command("chat 你不是开玩笑吧?\n");	break;
		case 2:	command("chat 我不同意！\n");break;
		case 3:command("chat* 李凌被"+who+"气得晕了过去。\n"); break;
		case 4:command("chat* 李凌嚎啕大哭起来.\n"); break;
		case 5:command("chat 不要这样子嘛！\n"); break;
		case 6:command("chat 非礼啊非礼！"+who+"这小流氓又来啦！\n"); break;
		case 7:command ("chat 风儿快来啊，"+ who + "想要羞辱我！\n") ;
		case 8:	command("chat* 李凌嘻嘻地笑了几声.\n"); break;
		case 9:	command("chat* 李凌很生气地撅了撅嘴。\n");	break;
		case 10:command("chat* 李凌无奈的耸了耸肩.\n");	break;
		case 11:command("chat 你对女孩子总是这样吗？\n"); break;
		case 12:command("chat 大哥你怎么这样？\n"); break;
		case 13:command("chat* 李凌嫣然一笑，说：够了够了!\n"); break;
		case 14:command("chat* 李凌满脸胀得通红，急道：你。。。 。\n");	break;
		case 15:command("chat 嗯，"+who+"是天底下最好的人了！\n"); break;
	                case 16:command ("chat 风儿快来啊，"+ who + "欺负我！\n") ; break;
		}
		return;
	}
	if( (strsrch(msg, "猪") >= 0)||(strsrch(msg, "shit") >= 0)||(strsrch(msg, "pig") >= 0))
	{	
		if( sscanf(msg, "%*spig%s", msg) == 2 ) msg = "pig" + msg;
		if( sscanf(msg, "%*s猪%s", msg) == 2 ) msg = "猪" + msg;
		if( sscanf(msg, "%*sshit%s", msg) == 2 ) msg = "shit" + msg;
		switch(random(15)) {
		case 0:	command("chat 你是说" + msg + "吗？\n"); break;
		case 1:	command("chat 难道你说我是....？\n");	break;
		case 2:	command("chat 就算“" + msg + "”，你又能怎么样呢？\n"); break;
		case 3:	command("chat* 李凌很生气地撅了撅嘴。\n");	break;
		case 4:	command("chat 你真的认为“" + msg + "”？\n"); break;
		case 5:	command("chat 我觉得你有点儿缠杂不清。\n"); break;
		case 6:	command("chat 你再说可别怪我不客气。\n"); break;
		case 7:	command("chat 有关「" + msg + "」的话题, 就到此为止吧.\n"); break;
		case 8:	command("chat "+ who+",我想和你决斗！有胆子你就放马过来！\n"); break;
		case 9:	command("chat* 李凌鄙夷地看着"+who+",恨不得"+who+"去死。\n"); break;
		case 10:command("chat* 李凌被"+who+"气得晕了过去。\n"); break;
		case 11:command("chat* 李凌忽然大声说：打倒臭泥潭，打倒风！\n"); break;
		case 12:command("chat* 李凌揉了揉哭红的眼睛，跺脚道： "+who+",我恨死你了！\n"); break;
		case 13:command ("chat 风儿快来啊，"+ who + "又想要羞辱我！\n") ; break;
		}
	}
	if(  (strsrch(msg, "fool") >= 0)||(strsrch(msg, "笨") >= 0)|| (strsrch(msg, "死") >= 0))
	{	
		if( sscanf(msg, "%*s笨%s", msg) == 2 ) msg = "笨" + msg;
		if( sscanf(msg, "%*sfool%s", msg) == 2 ) msg = "fool" + msg;
		if( sscanf(msg, "%*s死%s", msg) == 2 ) msg = "死" + msg;
		switch(random(15)) {
		case 0:	command("chat 大哥你怎么这样？\n"); break;
		case 1:	command("chat 我看你是气急败坏。\n");	break;
		case 2:	command("chat "+ who +",你这个臭流氓！\n"); break;
		case 3:	command("chat* 李凌用手捂住鼻子，说“"+who+"说话好臭!\n");	break;
		case 4:	command("chat 你真的认为“" + msg + "”？\n"); break;
		case 5:	command("chat 我觉得你有点儿缠杂不清。\n"); break;
		case 6: command("chat 呸!\n"); break;
		case 7:	command("chat* 李凌怒道:你怎么知道“" + msg + "”？\n"); break;
		case 8:	command("chat "+ who+"滚出来!我要和你决斗！有胆子你就放马过来！\n"); break;
		case 9:	command("chat* 李凌鄙夷地看着"+who+",恨不得"+who+"去死。\n"); break;
		case 10:command("chat* 李凌嚎啕大哭起来.\n"); break;
		case 11:command("chat* 李凌揉了揉哭红的眼睛，跺脚道： "+who+"王八蛋给我滚出去！\n"); break;
		case 12:command("chat 非礼啊非礼！"+who+"是个王八蛋！\n"); break;
		}
		return;
	}
	if(  (strsrch(msg, "cool") >= 0)||(strsrch(msg, "praise") >= 0)|| (strsrch(msg, "admire") >= 0))
	{	
		if(random(5)<3)
        {
		switch(random(15)) {
		case 0:	command("chat 大哥你怎么这样？\n"); break;
		case 1:	command("chat 你是在说我吗？\n"); break;
		case 2:	command("chat "+who+",没想到你也这么。。。\n"); break;
		case 3:	command("chat* 李凌嫣然一笑，说：够了!\n"); break;
		case 4:	command("chat 你真的认为“" + msg + "”？\n"); break;
		case 5: command("chat* 李凌忽然莞尔一笑道: 你这是不是有点儿。。。？\n");break;
		case 6:    command("chat* 李凌回头看了"+who+"一眼，没吭声。\n");break;
		case 7: command("chat 嗯,"+who+"是一个好孩子.\n"); break;
		case 8:command("chat "+who+",你不会是想讨好我吧?\n"); break;
		case 9:command("chat* 李凌拱了拱手道：过奖，过奖 !\n");break;
		case 10:command("chat* 李凌指着"+who+"赞叹道：“"+who+"是武林第一高手！”\n");break;
		}
		return;
        }
	}
	switch(random(80)) {
		case 0:	command("chat 你真的是说" + msg + "吗？\n"); break;
		case 1:	command("chat 你为什么对我这么感兴趣？\n");	break;
		case 2:	command("chat 就算“" + msg + "”，你又能怎么样呢？\n"); break;
		case 3:	command("chat 嗯,“" + msg + "”，那也没关系.\n"); break;
		case 4:	command("chat "+who+",你这个臭流氓！\n"); break;
		case 5:	command("chat 我想说的是，"+"其实"+who+"不是个好东西。\n"); break;
		case 6:	command("chat 关于你说的「" + msg + "」，我暂时不想表态。\n"); break;
		case 7:	command("chat 我认为你的态度不大好耶.\n"); break;
		case 8:	command("chat 请注意，我只是机器人耶!\n"); break;
		case 9:	command("chat 你对女孩子总是这样吗？\n"); break;
		case 10:	command("chat 不要这样对我好不好？\n");	break;
		case 11:	command("chat 我想我可以理解你的心情。\n");	break;
		case 12:	command("chat* 李凌深深地叹了一口气 。\n");	break;
		case 13:	command("chat* 李凌被"+who+"气得晕了过去 。\n");	break;
		case 14:	command("chat* 李凌满脸胀得通红，急道：你。。。 。\n");	break;
		case 15:    command("chat* 李凌咬了咬牙，怒道: 嗯，谁要再敢欺负我，我就宰了他！\n");break;
		case 16:    command("chat* 李凌忽然莞尔一笑道: 你这又是何苦呢？\n");break;
		case 17:    command("chat* 李凌打了个呵欠，左手轻轻掩住樱桃小口，柔声道：我困了。\n"); break;
		case 18:    command("chat* 李凌回头看了"+who+"一眼，没吭声。\n");break;
		case 19:    command("chat* 李凌一甩头，说：哼，我都懒得理你。\n");break;
		case 20:	command("chat 有关「" + msg + "」的话题, 就到此为止吧.\n"); break;
		case 21:	command("chat 我觉得"+who+"这厮简直不可理喻。\n"); break;
		case 22:	command("chat 你是在说我吗？\n"); break;
		case 23:	command("chat "+who+",没想到你也。。。\n"); break;
		case 24:	command("chat* 李凌嫣然一笑，说：够了!\n"); break;
		case 25:	command("chat 居然有人骂我是猪!\n");
		 	command("chat* 李凌嚎啕大哭起来.\n"); break;
        case 26:	command ("chat 风儿快来啊，"+ who + "又来欺侮我！\n") ; break;
      	case 27:	command ("chat 我简直受不了了!\n") ; break;
        case 28:	command ("chat 我恨不得"+who+"去死!\n") ; break;
        case 29:	command ("chat 就你老和我过不去!\n") ; break;
        case 30:	command ("chat 请不要打扰我好不好?\n") ; break;
   		case 31:	command ("chat* 李凌终于忍不住哭了起来。\n") ; break;
		case 32:	command("chat* 李凌鄙夷地看着"+who+",恨不得"+who+"去死。\n"); break;
		case 33:    command("chat* 李凌咬了咬牙，怒道: 嗯，谁要敢欺负我，我就宰了他！\n");break;
		case 34:    command("chat* 李凌忽然莞尔一笑道: 你这是不是有点儿。。。？\n");break;
		case 35:    command("chat* 李凌打了个呵欠，左手轻轻掩住樱桃小口，柔声道：我有点儿困了。\n"); break;
		case 36:    command("chat* 李凌回头看了"+who+"一眼，没吭声。\n");break;
		case 37:    command("chat* 李凌一甩头，说：哼，我都懒得理你。\n");break;
		case 38:    command("chat “" + msg + "”,是真的吗？\n"); break;
		case 39:    command("chat 我觉得"+who+"的名字还不错.\n"); break;
		case 40:    command("chat 我想去死了算了.\n"); break;
		case 41:    command("chat 我觉得最佳表情奖应该授予"+who+".\n"); break;
		case 42: command("chat* 李凌笑嘻嘻的看着"+who+"\n"); break;
		case 43: command("chat 烦着哪，别理我!\n"); break;
		case 44: command("chat 哼！\n"); break;
		case 45: command("chat* 李凌打了"+who+"一个耳光.\n"); break;
		case 46: command("chat 哼，谁理你啊!\n");break;
		case 47: command("chat 嗯,"+who+"是一个好孩子.\n"); break;
		case 48:command("chat* 李凌露出迷惑的表情.\n"); break;
		case 49:command("chat 是吗?\n"); break;
		case 50:command("chat "+who+",你是不是想讨好我啊?\n"); break;
		case 51:command("chat 哼,谁敢说我坏话?!\n");break;
		case 52:command("chat 你不是开玩笑吧?\n");	break;
		case 53:command("chat 我不同意！\n");break;
		case 54:command("chat* 李凌对"+who+"表示衷心的感谢.\n");break;
		case 55:command("chat 不要这样子嘛！\n"); break;
		case 56:command("chat* 李凌拱了拱手道：过奖，过奖 !\n");break;
		case 57:command("chat* 李凌怒道:你怎么知道“" + msg + "”？\n"); break;
		case 58:command("chat* 李凌指着"+who+"赞叹道：“"+who+"是武林第一高手！”\n");break;
		default:
	    if (random(10)<3) command("chat* 李凌很生气地撅了撅嘴.\n"); 
	    else if(random(10)<3) command("chat* 李凌嘻嘻地笑了几声.\n");
	    break; 
		}
	return;
	} 
	if( (strsrch(msg, "哭") >= 0))