camera.c

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

//Cracked by Kafei
// /d/bwdh/obj/camer.c  摄影师
// sdong 09/30/98
#include <room.h>
#include <ansi.h>
inherit NPC;
//inherit ITEM;
int do_broadcast(string arg);
int do_shut(string arg);
int do_query();
void moving();
int do_setleader(string arg);
void auto_check();

void create()
{
	object me = this_player();
	set_name("摄影师", ({ "sheying shi", "camera" }) );
	set("long", "一位精明能干的摄影师。\n");
	set_weight(100);
	set("unit", "位");

	set("max_jingli",10000);
	set("max_jing",10000);
	set("max_neili",10000);
	set("max_qi",100000);
	set("combat_exp",5000000);
	set("env/invisibility", 10);
	setup();
	remove_call_out("auto_check");
	call_out("auto_check",1);
}

init()
{
	object ob = this_player();
	add_action("do_broadcast",  "broadcast");
	add_action("do_shut",  "shut");
	add_action("do_query",  "query");
	add_action("do_setleader",  "setleader");
}


string look_room(object me, object env)
{
		  int i;
		  object *inv;
		  mapping exits;
		  string str, *dirs;

		  if( !env ) {
					 return "你的四周灰蒙蒙地一片，什么也没有。\n";
		  }
		  str = sprintf( "%s - %s\n    %s%s",
					 env->query("short"),
					 wizardp(me)? file_name(env): "",
					 env->query("long"),
					 env->query("outdoors")? NATURE_D->outdoor_room_description() : "" );

		  if( mapp(exits = env->query("exits")) ) {
					 dirs = keys(exits);
					 for(i=0; i<sizeof(dirs); i++)
                        if( (int)env->query_door(dirs[i], "status") & DOOR_CLOSED )
										  dirs[i] = 0;
					 dirs -= ({ 0 });
					 if( sizeof(dirs)==0 )
								str += "    这里没有任何明显的出路。\n";
					 else if( sizeof(dirs)==1 )
								str += "    这里唯一的出口是 " + BOLD + dirs[0] + NOR + "。\n";
                else
                        str += sprintf("    这里明显的出口是 " + BOLD + "%s" + NOR + " 和 " + BOLD + "%s" + NOR + "。\n",
                                implode(dirs[0..sizeof(dirs)-2], "、"), dirs[sizeof(dirs)-1]);
		  }
//      str += env->door_description();

        inv = all_inventory(env);
        for(i=0; i<sizeof(inv); i++) {
					 if( inv[i]==me ) continue;
					 if( !me->visible(inv[i]) ) continue;
					 if( objectp(inv[i]->query("rider")) ) continue;
					 else inv[i]->delete("rider");
					 if( objectp(inv[i]->query("rided")) ) {
								str += "  " + inv[i]->short() + "骑在" +
								(inv[i]->query("rided"))->name() + "上";
					 if( stringp(inv[i]->query_temp("exit_blocked")))
								str += "挡着往"+inv[i]->query_temp("exit_blocked")+
								"去的路";
								str += "\n";
					 }
					 else {
								if (stringp(inv[i]->query_temp("exit_blocked")))
								str += "  " + inv[i]->short() + "挡着往" + inv[i]->query_temp("exit_blocked")
										  +"去的路\n";
								else
								str += "  " + inv[i]->short() + "\n";
								inv[i]->delete("rided");
					 }
		  }

		  return(str);
}

int do_setleader(string arg)
{
	object obj,me=this_player();
	if(!arg)return notify_fail("setleader id");


	if( me && objectp(me) && !wizardp(me) ) return notify_fail("摄影师说：不是巫师谁理你！");

	message_vision("$N对摄影师说：请跟踪拍摄"+arg+"\n",me);
	obj = present(arg);
	if( ! obj ){
		obj = find_player(arg);
		if( !obj )
		return notify_fail("摄影师说：没有这个玩家！");
	}

	set("target",arg);
	set_leader(obj);
	write("摄影师说：好，我就跟踪"+obj->query("name")+"！\n");
	remove_call_out("auto_check");
	call_out("auto_check",1);
	return 1;
}


int do_broadcast(string arg)
{
	string dest;
	object me = this_player();
	int i;
	if(!arg) return notify_fail("usage: broadcast room");

	if( me && objectp(me) && !wizardp(me) ) return notify_fail("摄影师说：不是巫师谁理你！");

	if(sscanf(arg, "%s", dest) != 1) {
		return notify_fail("usage: broadcast room");
	}

	for(i=1;i <= query("destinations/nDest");i++)
	{
		if( query("destinations/"+i) == arg)
			return notify_fail("摄影师说：已经在播发目标中了。");;
	}

	set( "destinations/nDest",query("destinations/nDest")+1 );
	set( "destinations/"+i,arg);
	tell_object(me, "摄影师说：好！"+arg+"加入播发目标中!\n");
	return 1;
}

int do_shut(string arg)
{
	string dest;
	object me = this_player();
	int i;
	if(!arg) return notify_fail("usage: shut room");

	if( me && objectp(me) && !wizardp(me) ) return notify_fail("摄影师说：不是巫师谁理你！");

	if(sscanf(arg, "%s", dest) != 1) {
		return notify_fail("usage: shut room");
	}

	for(i=1;i <= query("destinations/nDest");i++)
	{
		if( query("destinations/"+i) == arg)break;
	}
	if(i >query("destinations/nDest") )
			return notify_fail("摄影师说：不在播发目标中了。");;

	for(i=i;i < query("destinations/nDest");i++)
	{
		set( "destinations/"+i,query("destinations/"+(i+1) ) );
	}

	set( "destinations/nDest",query("destinations/nDest")-1 );
	tell_object(me, "摄影师说：好！不再播发到"+arg+"!\n");
	return 1;
}

int do_query()
{
	string dest;
	object me = this_player();
	int i;

	if( me && objectp(me) && !wizardp(me) ) return notify_fail("摄影师说：不是巫师谁理你！");
	tell_object(me,"摄影师说：以下房间为本机播发目的：\n");
	for(i=1;i <= query("destinations/nDest");i++)
	{
		tell_object(me, query("destinations/"+i )+"\n");
	}

	return 1;
}

void destruct_me()
{
	destruct(this_object());
}

void auto_check()
{
	object obj;
	object me = this_object();
	object here = environment(me);
	string where;

	if( !me || !objectp(me) || !here || !objectp(here) || !query("target") )return;


	obj = present(query("target"),here);

	if( !obj )
	{
		obj = find_player(query("target"));
		if( !obj )
		{
			remove_call_out("auto_check");
			call_out("auto_check",60);
			return;
		}
		move( environment(obj) );
	}

	

	set("nMsg",0);
	if( objectp(me) )me->remove_all_killer();

	remove_call_out("auto_check");
	call_out("auto_check",1);
}

void moving()
{
	int i, nMsg;
	string msg;

	msg = "\n"+look_room(this_player(),environment(this_player()));

	nMsg = (int)query("nMsg");

	for(i=1;i <= query("destinations/nDest");i++)
	{
		if( nMsg < 30 && random(5)==1 )
			tell_room( query("destinations/"+i ), msg+"\n", this_object());
	}
}




void receive_message(string msgclass, string msg)
{
	int i,last = strsrch(msg, '\n', -1),nMsg;
	string temp;
	string where = environment(this_object())->query("short");
	if(where==0){
		where = this_player()->query("name");
	}


	if(last != -1 )
		msg = msg[0..(last-1)];

	if (msg[0..0] != "\n")msg = GRN"【"+where+"】"NOR + msg;
	else msg = replace_string(msg, "\n", "\n"GRN"【"+where+"】"NOR);

	last = strlen(msg);
	temp = msg[(last-6)..(last-1)];

	if( temp == "离开。" || temp == "出去。" ) {
		msg = replace_string(msg, "离开。", "走去。");
		remove_call_out("moving");
		call_out("moving",1);
	}

	nMsg = (int)query("nMsg");

	for(i=1;i <= query("destinations/nDest");i++)
	{
		if( nMsg < 30 && random(2)==1 )
		{
			tell_room( query("destinations/"+i ), msg+"\n", this_object());
		}
	}

	nMsg++;
	set("nMsg",nMsg);
}