// the body of guard by row May, 1999
#include <ansi.h>
inherit PMODULES+"m_charnpc";
//inherit "/std/guild_guard.c";
private string n_id;

void setup()
{
//   add_block(enter);
   add_question("enter","enter");
   add_ask_str("enter","$N对$T一拱手，道：$s有要事在身，不知大人可否放行？\n");
}
string long()
{
   string my_area;
   string a_id;
   my_area=CHAR_D->get_char(this_object()->query_id()[0],"my_area");
   a_id=AREA_D->get_area(my_area,"name");
   return a_id+"司隶校尉，专门负责地区的安全保卫事宜。\n他正在认真地盘查过往的一切行人。\n";
}
string query_title(string p_id,string c_id)
{
   string p_nationname;
   string p_areaname;
   p_areaname=AREA_D->get_area(CHAR_D->get_char(p_id,"my_area"),"name");
   p_nationname=COUNTRY_D->get_country(AREA_D->get_area(CHAR_D->get_char(p_id,"my_area"),"nation"),"name");
   return ""HIC"【"+p_nationname+"】"HIY"⊙"+p_areaname+"⊙司隶校尉"NOR"(guard)";
}
void extra_init()
{
        add_id("guard");
}
void answer_enter(object who)
{
	string p_id,my_id,p_area,my_area;
	string p_entry,p_short;
	int p_lo;
	p_id=who->query_id()[0];
	my_id=this_object()->query_id()[0];
	my_area=CHAR_D->get_char(my_id,"area");
	p_area=CHAR_D->get_char(p_id,"area");
	p_entry=AREA_D->get_area(my_area,"path")+AREA_D->get_area(my_area,"entry");
	p_short=load_object(p_entry)->short();
	p_lo=CHAR_D->get_char_loyalty(p_id,CHAR_D->get_char(my_id,"nation"));
	if(my_area==p_area)
	{
	this_object()->targetted_action
	("$N道：$R乃本地人士，直接进入便可。\n",who);
	return;
	}
	if(!COUNTRY_D->nation_exist(CHAR_D->get_char(p_id,"nation")))
	{
	this_object()->targetted_action
	("$N看了$T一眼：哦，$R乃是隐居贤人，请进，请进。\n",who);
	CHAR_D->appear(p_id,my_area,"entry","$N在司隶校尉的指引下，来到了"+p_short+"。\n");
	return;
	}
	if(p_lo>49)
	{
	this_object()->targetted_action
	("$N忙道：原来是$M$R，失敬失敬，快快请进。\n",who);
	CHAR_D->appear(p_id,my_area,"entry","$N在司隶校尉的指引下，来到了"+p_short+"。\n");
	return;
	}
}