fanyao.h.old

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

// FanYao.h
// 1997.05.10

#include <ansi.h>

string* names = ({
	"chengxin luohan",
	"chengyi luohan",
	"chengsi luohan",
	"chengshi luohan",
	"chengzhi luohan",
	"chengxin luohan",
	"chengling luohan",
	"chengyu luohan",
	"chengshang luohan",
});

string ask_me()
{
	mapping fam, my_fam, skl; 
        object fighter, me, room, monk;
	string *sname;
	int i,j;

	fighter = this_player();
	me = this_object();
	my_fam  = me->query("family");

	skl = fighter->query_skills();
	sname  = keys(skl);

	for(i=0; i<sizeof(skl); i++) {
		if (skl[sname[i]] < 80) 
		return RANK_D->query_respect(fighter) + 
                "功力不够，不够资格闯光明圣火阵。";
	}

	if( fighter->query("luohan_winner") )
		return RANK_D->query_respect(fighter) + 
                "已然闯过光明圣火阵，可不要拿范遥开这等玩笑。";

	if ( mapp(fam = fighter->query("family")) 
        && fam["family_name"] == "明教"
	&& fam["generation"] != (my_fam["generation"] + 2))
		return RANK_D->query_respect(fighter) + 
                "职位不合，不够资格闯光明圣火阵。";

        if ( (int)fighter->query("guilty") > 0 )
		return RANK_D->query_respect(fighter) + 
                "你累犯数戒，身带重罪，我如何能准许你闯光明圣火阵！";

	if ( me->query("assigned_fighter") )
		return RANK_D->query_respect(fighter) + 
                "，今日已有人挑战光明圣火阵，你过一段时间再来吧。";

	fighter->set_temp("xuannan-asked", 1);

        say("\n范遥说道：好吧，我来召集般若堂长老们于西练武场集合，我稍候在中央练武场上等你。\n");

	me->set("assigned_fighter", fighter->query("id")); 		
	
	if( !fighter->query_temp("xuanku-asked") )
        say("\n范遥又道：请你速去告知罗汉堂杨左使，请他即刻招集般若堂诸罗汉于西练武场集合。\n");

        message_vision("\n范遥往南离开。\n\n", fighter);

        for(j=1; j<10; j++) 
	{
                if(!( room = find_object("/d/shaolin/banruo" + j)) )
                room = load_object("/d/shaolin/banruo" + j);
                
  		me->move(room);
                
		if( !objectp(monk = present(names[j-1], room) ))
		{
	        	me->move("/d/shaolin/luohan5");
                        message_vision("\n范遥走了过来。\n\n", fighter);
                        return "真是对不起，般若堂中有人不在，无法举行光明圣火阵。\n";
		}

                message("vision", "\n范遥走了过来，跟" + monk->query("name") + "俯耳轻声说了几句。\n", room, monk);

                monk->move("/d/shaolin/wuchang1");
                message("vision", monk->query("name") + "罗汉点了点头，快步走了出去。\n", room, monk);
	}
	
        me->move("/d/shaolin/wuchang");

        call_out("waiting", 1, me);

	return "好！大家都出来了。\n";
}

int waiting(object me)
{
	object fighter;
	int wait_time;

	if( wait_time == 300 )
	{
                say( "范遥说道：看来他不会来了，我们回去罢！\n\n");
		call_out("do_back", 0, me);		
	}

	if( !objectp( fighter = present( me->query("assigned_fighter"), environment(me) ) ) )
	{
		wait_time++;
		call_out("waiting", 1, me);
	}
	else if( !present("xuanku dashi", environment(me)) || !fighter->query_temp("xuanku-asked") )
	{
		if( random(10) == 0 ) 
                say("\n范遥说道：" + RANK_D->query_respect(fighter) + "去请了杨左使没有？ 照理他现在该到了罢？\n");

		wait_time++;
		call_out("waiting", 1, me);
	}
	else 	call_out("preparing", 0, me, fighter);

	return 1;
}

int preparing(object me, object fighter)
{
	object monk, room, ob;

	if(!( room = find_object("/d/shaolin/wuchang")) )
	room = load_object("/d/shaolin/wuchang");

        say( "范遥说道：不相干的人，如不欲现场观摩光明圣火阵，请即刻离开此处。\n");

        message("vision", HIY "\n范遥大声宣布：西光明圣火阵合围！\n\n" NOR, room);
	command("chat " + fighter->query("title") + fighter->query("name") + 
                "于今日" + NATURE_D->game_time() + "挑战明教光明圣火阵！\n");

	fighter->delete_temp("xuannan-asked");
	fighter->delete_temp("beat_count");
	fighter->set_temp("fighting", 1);

	call_out("fighting",  10, me, fighter, 0);

	return 1;
}

int fighting(object me, object fighter, int count)
{
	object monk1, monk2, room1, room2;

	if(!( room1 = find_object("/d/shaolin/wuchang1")) )
	room1 = load_object("/d/shaolin/wuchang1");

	if(!( room2 = find_object("/d/shaolin/wuchang")) )
	room2 = load_object("/d/shaolin/wuchang");

//	message_vision(HIY "xuannan's count = " + count + "\n" NOR, fighter);

	if( count <= 8 ) {
                message("vision", "\n光明圣火阵急速地旋转着，一层层地向内收紧！\n" NOR, room2);

		monk1 = present(names[count], room1);
		monk1->move(room2);
	}
		
	if( count >= 1 && count <= 9 ) {
		monk2 = present(names[count-1], room2);
		monk2->move(room1);
	}

	if( !find_player(me->query("assigned_fighter")) ||
	!living(fighter) || fighter->query("qi") <= 1 )
	{
		if( objectp(present(me->query("assigned_fighter"), environment(me)) )) {
			fighter->delete_temp("fighting");
			fighter->delete_temp("beat_count");
		}
		monk1->move(room1);

                say( "范遥说道：是啊，可惜呀 ... 唉！\n\n");
		command("sigh");
		call_out("do_back", 5, me );
	}
	else if( count >= 9 )
	{
		if( (int)fighter->query_temp("beat_count") >= 18 )	
			call_out("do_recruit", 5, me, fighter);
		else
			call_out("do_back", 5, me );
	}
	else
	{
		count++;
		call_out("fighting", 2, me, fighter, count);
	}
 
	return 1;
}

int do_recruit(object me, object fighter)
{
	mapping ft_fam, my_fam;

	fighter->delete_temp("beat_count");
	fighter->delete_temp("fighting");
	fighter->add("combat_exp", 7500);
	fighter->set("luohan_winner", 1);

        if (!(ft_fam = fighter->query("family")) || ft_fam["family_name"] != "明教")
	{
		command("smile");
                say("范遥说道：" + RANK_D->query_respect(fighter) + "武功卓绝，兼又手下留情，品德更是过人一筹，范遥不胜佩服之至！\n");
		call_out("do_back", 5, me );
	}
	else
	{
                say("\n范遥说道：好，好，好！" + fighter->query("name") + "，你愿意拜我等为师吗？\n");
		call_out("do_back", 30, me );
	}

		
	return 1;
}

int do_back(object me)
{
        object monk, room1, room2;
	int i;

        message("vision", "\n范遥也挥了挥手， 般若堂长老们随即也离开练武场。\n", environment(me) );
	
        if(!( room1 = find_object("/d/shaolin/wuchang")) )
        room1 = load_object("/d/shaolin/wuchang");

        room1->set("exits/south", "/d/shaolin/houdian" );
        room1->set("exits/north", "/d/shaolin/fzlou");
        room1->set("exits/east",  "/d/shaolin/wuchang2");
        room1->set("exits/west",  "/d/shaolin/wuchang1"   );

        if(!( room1 = find_object("/d/shaolin/wuchang1")) )
        room1 = load_object("/d/shaolin/wuchang1");

	for(i=1; i<10; i++) 
	{
                if(!( room2 = find_object("/d/shaolin/banruo" + i)) )
                room2 = load_object("/d/shaolin/banruo" + i);

                if( objectp( monk = present(names[i-1], room1) ));
	                monk->move(room2);
	}

        me->delete("assigned_fighter");
	
	me->move("/d/shaolin/banruo5");

	return 1;
}

#include "shizhe.h"