limochou.c

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

// Jay 3/21/96

#include <ansi.h>

inherit NPC;

int do_look(string var);
int ask_me();

void create()
{
	set_name("李莫愁", ({ "li mochou", "li", "mochou" }));
	set("long", "她生得极为美貌，但冰冷的目光让人不寒而立。\n");
	set("nickname", "赤练仙子");
	set("gender", "女性");
        set("pubmaster",1);
	set("rank_info/respect", "道姑");
	set("age", 27);
	set("attitude","heroism");
	set("str", 30);
	set("dex", 35);
	set("con", 17);
	set("int", 25);
	set("shen_type", -1);

	set_skill("unarmed", 90);
	set_skill("force", 80);
	set_skill("dodge", 100);
	set_skill("whip",130);
	set_skill("chilian-shenzhang",300);
	set_skill("jueqing-bian",300);
	set_skill("taiji-shengong",50);
	map_skill("force", "taiji-shengong");
	map_skill("whip", "jueqing-bian");
	map_skill("strike", "chilian-shenzhang");
	map_skill("parry", "chilian-shenzhang");
	map_skill("force", "taiji-shengong");
        prepare_skill("strike","chilian-shenzhang");

	set("jiali",50);
        set("chat_chance_combat", 30);
        set("chat_msg_combat", ({
                (: perform_action, "whip.sanwu" :),
        }) );

	set("combat_exp", 95000);

	set("qi", 1500);
	set("jing", 1000);
	set("max_qi", 1500);
	set("max_jing", 1000);
	set("neili", 5000);
	set("max_neili", 5000);

	set("inquiry", ([
	    "name" : "站远点！",
	    "here" : "我不是本地人，不知道。",
	    "情" : "你如何能理解其中相思之苦、惆怅之意？",
	    "陆展元" : "你问那个薄情的小畜生做什么？",
	    "何沅君" : (: ask_me :),
	    "小龙女" : "那是我的师妹。你问她想干什么？",
	    "林朝英" : "那是我的师祖，不该你问的你别问，小心我宰了你。",
       ]) );

	set("chat_chance", 10);
	set("chat_msg", ({
	    "李莫愁纵声而歌，音调凄婉，歌道：「问世间，情是何物，直教生死相许？」\n",
	    "李莫愁歌道：「天南地北双飞客，老翅几回寒暑？」\n",
	    "李莫愁唱道：「欢乐趣，离别苦，就中更有痴儿女。」\n",
	    "李莫愁唱道：「君应有语，渺万里层云，千山暮雪，只影向谁去？」\n",
	    "李莫愁词意悲切，声调更是哀怨，唱道：「横汾路，寂寞当年箫鼓。荒烟依旧平楚。」\n",
	    "李莫愁歌道：「招魂些何嗟及，山鬼自啼风雨。」\n",
	    "李莫愁唱道：「天也妒，未信兴，莺儿燕子俱黄土。」\n",
	    "李莫愁唱道：「千秋万古，为留待骚人，狂歌痛饮，来访雁丘处。」\n",
	}) );

	setup();
	carry_object("/d/quanzhou/obj/fuchen")->wield();
	carry_object("/d/wudang/obj/greenrobe")->wear();

}

void init()
{
	::init();
	add_action("do_look","look");
	add_action("do_look","hug");
	add_action("do_look","mo");
	add_action("do_look","18mo");
	add_action("do_look","kiss");

}

int ask_me()
{
	object me;

	me = this_player();
	if( environment(me)->query("no_fight") )
		return 0;

	   message("vision",
   HIY "李莫愁冷笑一声：『我这就送你去见她』\n"
       "李莫愁决心杀死" + me->name() +"\n"
   NOR, environment(), this_object() );
		   kill_ob(this_player());
   return 1;
}


int do_look(string target)
{
	object me;

	me = this_player();
	if( environment(me)->query("no_fight") )
		return 0;

	if (target=="li" || target=="li mochou" || target=="mochou" )
           if ((string)me->query("gender") != "女性") {
		   message("vision",
   HIY "李莫愁大怒，喝道：我最恨你们这些薄情的臭男人！去死吧！\n"
       "李莫愁决心杀死" + me->name() +"\n"
   NOR, environment(), this_object() );
                   kill_ob(this_player());
           }
}

int accept_object(object who, object ob)
{
	int i;

	if (!(int)who->query_temp("learn_timez"))      
		who->set_temp("learn_timez", 0);

	if( environment(who)->query("no_fight") )
		return 0;

	if( !ob->query("money_id") )
		return 0;		
           if ((string)who->query("gender") != "女性") {
		   message("vision",
   HIY "李莫愁大怒，喝道：我最恨你们这些薄情的臭男人！去死吧！\n"
       "李莫愁决心杀死" + who->name() +"\n"
   NOR, environment(), this_object() );
                   kill_ob(who);
return 1;
           }

	if(who->query_skill("jueqing-bian",1)<30)
		i=ob->value() / 50;
	else
	{
		if(who->query_skill("jueqing-bian",1)<60)
			i=ob->value() / 100;
		else
		{
			if(who->query_skill("jueqing-bian",1)<100)
				i=ob->value() / 150;
			else
				i=ob->value() / 300;
		}
	}
	who->add_temp("learn_timez",i);

      message_vision("李莫愁对$N说道：既然你诚心想学我的武功，我就成全成全你吧。\n",who);

	return 1;
}

int recognize_apprentice(object ob)
{
	if( ob->query_temp("learn_timez") <= 0) return 0;
else         
ob->add_temp("learn_timez",-1);
return 1;
}