liling2.c

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

inherit NPC;
#include <ansi.h>

int waiting(object me);
int checking(object me);
int do_chase(object me);
int do_kill(object me, object dest);
string ask_bf();
varargs void drool(string msg, string who);
string *rnd_say = ({
	"我忽然好想去滑冰.",
	"今天有没有上bbs？有好新闻哟!",
	"为什么大家都不理我?！",
	"可不可以告诉我哪里有杀人？",
	"今天我心情不大好, 大家可要小心了.",
	"今晚有人跳舞吗?",
	"谁想讲个故事？",
	"现在几点了？",
	"为什么不说话呢?",
	"为什么不回去睡觉呢?",
	"谁想去看电影?",
	"我可以出去杀人吗?",
    "风简直就是一个流氓! ",
	"我对MUD根本没什么好感.",
	"我对足球根本没什么兴趣.",
	"我好象很苯耶.",
	"今晚有人请客吗?",
	});

void create()
{
	set_name("李凌", ({"liling"}));
	set("nickname", HIM "北邮之花" NOR);
	set("long", HIC "\n她长得极美，尤其是那双眼睛，媚得直可以勾人魂魄。\n"+
	"其容色晶莹如玉，映照于红红烛光之下，娇美不可方物。\n"+
	"回眸嫣然一笑，雅如仙子下凡。眼波流转之间，\n"+
	"便把一个少年的心灵，推向梦中极美的境界。\n" NOR);
	set("title", HIC "海南之花" NOR);
	set("gender", "女性");
	set("age", 21);
	set("rank_info/respect", "小姑娘");
	set("max_qi", 10000);
	set("max_jing", 10000);
	set("neili", 5000);
	set("max_neili", 5000);
	set("jiali", 100);
	set("inmortal",1);
	set("age", 20);
	set("attitude", "friendly");
	set("shen_type", 1);
	set("str", 50);
	set("int", 50);
	set("con", 50);
	set("dex", 50);
	set("no_get_from", 1);
	set("killed", "风云");
	set("killer", "李凌");

	set_skill("force", 200);
	set_skill("dodge", 500);
	set_skill("unarmed", 500);
	set_skill("parry", 200);
	set_skill("sword", 200);
	set_skill("whip", 200);
	set_skill("blade", 200);
	set_skill("hand", 200);
	set_skill("claw", 200);

	set_skill("yunlong-jian", 150);
	set_skill("yunlong-xinfa", 200);
	set_skill("yunlong-shengong", 200);
	set_skill("yunlong-shenfa", 200);
	set_skill("shenxing-baibian", 200);
	set_skill("yunlong-bian", 150);
	set_skill("yunlong-shou", 200);
	set_skill("yunlong-zhua", 200);

	map_skill("dodge", "shenxing-baibian");
	map_skill("force", "yunlong-shengong");
	map_skill("hand", "yunlong-shou");
	map_skill("parry", "yunlong-shou");
	map_skill("claw", "yunlong-zhua");
	map_skill("sword", "yunlong-jian");
	map_skill("whip", "yunlong-bian");
	
	prepare_skill("hand", "yunlong-shou");
	prepare_skill("claw", "yunlong-zhua");

	set_temp("apply/attack", 100);
	set_temp("apply/defense", 100);
	set_temp("apply/damage", 100);
	set("env/wimpy", 90);
	set("inquiry", ([
		"谈耀"   : (: ask_bf :),
		"风云"   : (: ask_bf :),  
		"风"     : (: ask_bf :),
	]) );
	set("chat_chance", 3);
	set("chat_msg", ({
		"李凌忽然做了个鬼脸，笑道: 真想溜出去玩会儿。\n",
		(: command("sing2") :),
		(: command("angry") :),
		(: command("slogan2") :),
		(: command("yawn") :),
		(: command("lazy") :),
		(: command("laughproud") :),
		"李凌忽然大声说：打倒臭泥潭，打倒风！\n",
		"李凌无聊地绕着手绢，叹道: 唉，一个人，真没意思。\n",
		"李凌伸出白玉雕成一般的小手，托着下巴说: 谁想和我说说话?\n",
		"李凌斩钉截铁地说: 嗯，谁要敢欺负我，我就宰了他！\n",
		"李凌忽然莞尔一笑道: 风儿待会儿又要我杀谁呢？\n",
		"李凌打了个呵欠，左手轻轻掩住樱桃小口，柔声道：我困了。\n",
		(: drool :),
		(: drool :),
		(: command("reclaim") :),
		(: command("reclaim") :),
		(: command("reclaim") :),
		(: command("reclaim") :),
	}) );
	set("combat_exp", 3000000);
	set("shen_type", 1);
	set("score", 5000000);
	set("chat_chance_combat", 20);  
	set("chat_msg_combat", ({
		"李凌幽幽叹道：唉，你这又是何苦呢?\n",
		(: command("!!!") :),
		(: command("smile") :),
		(: command("poem") :),
		(: command("yawn") :),
		(: command("lazy") :),
		(: command("giggle") :),
		(: command("waggle") :),
		(: command("laughproud") :),
		(: command("nomatch") :),
		(: command("xixi") :),
		(: command("chat 生有何欢，死亦何忧? 不如就成全了你吧。\n") :),
		(: command("chat 你这" + RANK_D->query_rude(this_player())+"怎生如此执迷不悟?\n") :),
		(: command("unwield bishou") :),
		(: command("unwield bishou") :),
		(: command("unwield bishou") :),
		(: command("unwield bishou") :),
		(: command("wield bishou") :),
		(: command("wield bishou") :),
		(: command("wield bishou") :),
		(: command("wield bishou") :),
		(: command("wield bian") :),
		(: command("wield bian") :),
		(: command("wield bian") :),
		(: command("unwield bian") :),
		(: command("unwield bian") :),
		(: command("unwield bian") :),
	}) );
	setup();
	carry_object("/d/city2/obj/ring")->wear();
	carry_object("/d/city2/obj/crystal")->wear();
	carry_object("/d/city2/obj/shouzhuo")->wear();
	carry_object("/d/city2/obj/majia")->wear();
	carry_object("/d/city2/obj/baojia")->wear();
	carry_object("/d/city2/obj/bishou")->wield();
	carry_object("/d/city2/obj/yupei")->wear();
	carry_object("/d/city2/obj/hlbian")->wield();
//        carry_object("/u/wind/gun")->wield();
	if( clonep() ) CHANNEL_D->register_relay_channel("chat");
}


int add_phrase(string who, string msg)
{
	msg = replace_string(msg, "?", "");
	msg = replace_string(msg, "？", "");
	msg = replace_string(msg, "？", "");
	msg = replace_string(msg, "!", "");
	msg = replace_string(msg, "！", "");
	msg = replace_string(msg, "啊", "");
	msg = replace_string(msg, "吗", "");
	msg = replace_string(msg, "耶", "");
	msg = replace_string(msg, "吧", "");

	if( msg!="" ) {
		add("memory/" + who, ({ msg }));
		return 1;
	} else return 0;
}

string make_reply()
{
}

void relay_channel(object ob, string channel, string msg)
{
	string who, phrase;

	if( !userp(ob) || (channel != "chat") ) return;
	who = ob->query("name");

	if( ob==this_object() ) return;

	if( add_phrase(who, msg) &&	random(10) > 3 )
		drool(msg, ob->query("name"));
}

void relay_say(object ob, string msg)
{
	string who, phrase;

	if( !userp(ob) ) return;
	who = ob->query("name");

	if( ob==this_object() ) return;

	if( add_phrase(who, msg) &&	random(10) > 3 )
		drool(msg, ob->query("name"));
}

void relay_emote(object ob, string verb)
{
       if( !userp(ob) ) return;
	switch(verb) {

	case "hug":
	case "kiss":
	case "mo":
	case "18mo":
	case "nocloth":

	if ( (string) ob -> query ("gender") == "男性"||(string) ob -> query ("gender") == "无性" )
	{
	command ("chat 风儿快来啊，"+ ob->query("name") + "想要非礼我！\n") ;
	command("chat 哎哟，谁想得到这" + RANK_D->query_rude(ob)+"，竟也是一个好色之徒 。");
	}
	else
	{
	message_vision("\n李凌对$N笑道：“你我同为女儿身，再怎么喜欢也不要这样啊。”\n", ob);
	command("giggle");
	command("chat 想不到"+ ob->query("name") +"这" + RANK_D->query_rude(ob)+"，竟然是一个变态！");
	}
	message_vision("$N摇了摇头，对$n幽幽叹道：唉，你这又是何苦呢?\n",this_object());
	if(wizardp(ob))		
	{
	ob->set("immortal",0);
	command("aim "+ob->query("id"));
	command("shoot");
	}
	this_object()->kill_ob(ob);
	break;
       default:
       if( random(10)<8 )
       {
	command(verb + " " + ob->query("id"));
 	return;
       }
       else
	{
	switch(verb)
	{
	case  "kick":
        case  "taste":
        case  "hate":
	case  "brag":
	case  "showscar":
	case  "callname":
	case  "slap":
	case  "rascal":
	case  "slapsb":
	case  "bite":
	case  "knife":
	case  "die":
	case  "drug":
	case  "cook":
	case  "stuff":
	case  "shit":
	case  "shutup":
	case  "stare":
	case  "praisemapi":
	case  "anniversary":
   switch(random(50))
   {
    case 0: 
    command ("kick "+ ob->query("id"));
    command ("xixi");
    break;
    case 1:
    command ("slap "+ ob->query("id"));
    command ("xixi");
    break;
    case 2:
    command ("drug "+ ob->query("id"));
    break;
    case 3:
    command ("smell");
    command ("cook "+ ob->query("id"));
    break;
    case 4:
    command ("trip "+ ob->query("id"));
    break;
    case 5:
    command ("knife "+ ob->query("id"));
    command ("doubt "+ ob->query("id"));
    break;
    case 6: 
    command("cry");
    command("chat 啊，"+ob->query("name")+"这"+RANK_D->query_rude(ob)+"，真坏！\n");
    break;
    case 7: 
    command ("shutup ");
    command ("shutup "+ ob->query("id"));
    break;
    case 8: 
    command("cry");
   command ("chat 风儿快来啊，"+ ob->query("name") + "想要羞辱我！\n") ;
   command ("die "+ ob->query("id"));
    break;
    case 9:
    command ("callname "+ ob->query("id"));
    break;
    case 10: 
    command ("shit "+ ob->query("id"));
    break;
    case 11: 
    command ("hero");
    command ("shout "+ ob->query("id"));
    break;
    case 12: 
    command ("shake");
    command ("nomatch "+ ob->query("id"));
    break;
    case 13: 
    command ("stare "+ob->query("id"));
    command ("hit "+ ob->query("id"));
    break;
    case 14: 
    command ("sneer");
    break;
    case 15: 
    command("chat 哎哟，"+ob->query("name")+"这个" + RANK_D->query_rude(ob)+"真不要脸。\n");
    command ("faint");
    break;
    case 16: 
    command ("shrug");
    break;
    case 17: 
    command ("poke "+ob->query("id"));
    command ("hehe");
    break;
    case 18: 
    command ("blush");
    break;
    case 19: 
    command ("nono");
    write(HIM "李凌一下子羞红了脸，急道：你，你。。。\n" NOR);
    break;
    case 20: 
    command("cry");
    command("chat 哎哟，谁想得到这" + RANK_D->query_rude(ob)+"，竟也是一个变态狂！\n");
    break;
    case 21: 
    command ("blush");
    command ("chat 风儿快来啊，"+ ob->query("name") + "想要羞辱我！\n") ;
    break;
    case 22: 
    command ("nono");
    command ("cry");
    break;
    case 23: 
    command ("hate");
    command ("die "+ob->query("id"));
    break;
    case 24: 
    command ("careful");
    break;
    case 25: 
    command ("rascal "+ob->query("id"));
    break;
    case 26:
    command ("nono");
    command ("faint");
    break;
    case 27: 
    command ("grpfight "+ob->query("id"));
    break;
    case 28: 
    command ("rascal "+ob->query("id"));
    command("chat 哎哟，谁想得到这" + RANK_D->query_rude(ob)+"，竟然是一个臭流氓！\n");
    break;
    case 29: 
    command ("rascal "+ob->query("id"));
    command ("die "+ob->query("id"));
    break;
    case 30:
    command("waggle "+ob->query("id"));
    break;
    case 31:
    command("waggle");
    command ("callname "+ ob->query("id"));
    break;
    case 32: 
    command ("chat 快来人啊，帮我打"+ ob->query("name") + "这个大色魔！\n") ;
    break;
    case 33: 
    command("chat 哎哟，哎哟，"+ ob->query("name")+"这" + RANK_D->query_rude(ob)+"不老实！\n");
    command ("shit "+ ob->query("id"));