procedure TGuildManager.LoadGuildInfo;
g_GuildManager.LoadGuildInfo();
HAM_Country{7}
HAM_Country: begin
if cretplay = selfplay then
Result:=True;
//if m_MyGuild <> nil then
begin
if g_Country.IsMember(cretplay.m_sCharName) then Result:=True;
if g_Country.IsMember2(cretplay.m_sCharName) then Result:=True;
end;
end;
procedure TCountry.LoadCountryInfo(Fdir:string);
var
LoadList:TStringList;
Guild:TGuild;
sGuildName:String;
i:integer;
begin
g_Config.sCountrydir:=Fdir;
//MainOutMessage(g_Config.sCountrydir+'秦国人士.txt'