houshan.c

来自「C实现的MUD,对大家基本入门网络游戏很有帮助!」· C语言 代码 · 共 127 行

#include <ansi.h>
inherit ROOM;

void create()
{
	set("short", "后山");
	set("long", @LONG
这里是玉女峰后山的一个小山谷，长年人迹罕至。谷中古树参天，绿荫森
森。偶尔从远处传来几声悠扬的鸟语，伴随着阵阵花香，简直让人疑心自己到
了世外桃源。
　　你远远的看见谷中有两间小屋，不过看来已经好久每住过人了。你心里不
禁发起愁来，该怎么办呢？
LONG
	);
	set("exits", ([
		"northdown" : __DIR__"midong",
	]));
set("tbg",1);
	set("outdoors", "华山" );

	setup();
}
void init()
{
  add_action("do_shout","han");
}


int do_shout(string arg)
{
    object ob,me;
    int j;
    me=this_player();
    if (!arg||arg!="风老前辈")
      return notify_fail("你在瞎喊乱叫些什么?\n");
// if( me->query("family/family_name") != "华山派")
//{
//message_vision(HIY"这里是华山的地方，此事与你无关吧。”\n"NOR,me);
//return notify_fail("你在瞎喊乱叫些什么?\n");
//}
    if (me->is_busy())
      return notify_fail("你正忙着呢，不能喊叫。\n");
    if (me->is_fighting())
      return notify_fail("你还是专心打架吧。\n");
     message_vision(HIY"$N运用丹田之气，纵声长啸道:“风老前辈。。。”\n"NOR,me);
     if(random(10)<6)   
{
     message_vision(HIY"四野寂静无声，唯有空谷回音随风飘散。”\n"NOR,me);
       return notify_fail("四野寂静无声，唯有空谷回音随风飘散。\n");
}
     if(!query("tbg"))   
{
     message_vision(HIY"四野寂静无声，唯有空谷回音随风飘散。”\n"NOR,me);
message_vision(HIY"风老前辈好像不在家。”\n"NOR,me);
       return notify_fail("风老前辈好像不在家。\n");
}

     ob=new(__DIR__"npc/tbg");
     ob->move(this_object());
     j=(int)me->query_skill("force") - 80;
        
       ob->set_skill("blade",j);
       ob->set_skill("parry",j);
       ob->set_skill("cuff",j);
       ob->set_skill("dodge",j);
       ob->set_skill("kuangfeng-blade",j);
       ob->set_skill("taizu-quan",j);
       ob->set_skill("force",j);
       ob->set_skill("huntian-qigong",j);
       ob->set_skill("shaolin-shenfa",j);
       
       ob->map_skill("dodge","shaolin-shenfa");
       ob->map_skill("blade","kuangfeng-blade");
       ob->map_skill("cuff","taizu-quan");
       ob->map_skill("parry","kuangfeng-blade");
       ob->map_skill("force","huntian-qigong");
       ob->prepare_skill("cuff","taizu-quan");

       ob->set("combat_exp",(int)me->query("combat_exp")*2);
       ob->set("max_neili",me->query("max_neili"));
       ob->set("neili",(int)me->query("max_neili")*2 - 1);    
       message_vision("一条黑影从山后闪出,刀光霍霍，已经将$N笼罩在狂风快刀刀光之下。\n",me);
       ob->kill_ob(me);
       remove_call_out("confirm");
       call_out("confirm",60,me);
       return 1;
}
int confirm()
 {
    object me,ob;
    me=this_player();
    ob=present("tian boguang",this_object());
if (!ob) return 1;
    if (me->is_ghost()||!me->is_fighting()){
       if(ob) destruct(ob);
       return 1;
    }
    message_vision(CYN"一道青影飘然而落，淡淡道：“我要指点$N几招，难道收拾不了$n这个笨蛋?\n"NOR, me,ob);
    message_vision(CYN"$N先使一招‘白虹贯日’，跟着便使‘有凤来仪’，再使一招‘金雁横空’。\n"
                        +"接下来使‘截剑式’……”一口气滔滔不绝的使了三十招招式。\n"NOR,me);
    message_vision(CYN"$n 招架不住，飞身向山下逃去。青衣人轻叹一声消失在山后。\n"NOR,me,ob);
    destruct(ob); 
    if (!me->query("fengset")){
    write("你得到风清扬的指点，顿感功力大进。\n");
    me->add("kar",1);
    me->add("combat_exp",15000);
    me->set("fengset",1);
    }
this_object()->set("tbg",0);
this_object()->delete("tbg");
    me->delete_temp("mb");
    me->set_temp("met_feng",1);
   return 1;
   }

int valid_leave(object me, string dir)
{
	if ((me->query("family/family_name") == "华山派") && (me->query("fengset"))&&(dir == "northdown"))
	{
		me->move(__DIR__"siguoya");
		me->delete_temp("mark/steps");
		return notify_fail("你循着风清扬高速的捷径一下子就来到了思过崖。\n");
	}
	return ::valid_leave(me, dir);

}