AIKA Last Journey Files

[clold157]

O erro esta bem claro, a data do nation é invalido.

unit Nation;interface
uses
  Windows, SysUtils, DateUtils, StrUtils, Classes, MiscData, ServerSocket;
{$OLDTYPELAYOUT ON}
type
  TNationCerco = packed record
    Defensoras: TGuildsAlly;
    Atacantes: ARRAY [0 .. 3] OF TGuildsAlly;
  end;
type
  TNationData = packed record
    NationID: Integer;
    ChannelName: Array [0 .. 31] of AnsiChar;
    ChannelID: Byte;
    NationRank: Byte;
    MarechalGuildID: Integer;
    TacticianGuildID: Integer;
    JudgeGuildID: Integer;
    TreasurerGuildID: Integer;
    CitizenTax: WORD;
    VisitorTax: WORD;
    Settlement: Integer;
    NationIDAlly: Integer;
    MarechalAllyName: Array [0 .. 31] of AnsiChar;
    AllyDate: DWORD;
    NationGold: Int64;
    Cerco: TNationCerco;
    Server: PServerSocket;
  public
    procedure CreateNation(ChannelID: Byte);
    procedure LoadNation();
    procedure SaveNation();
    procedure SaveNationTaxes();
  end;
{$OLDTYPELAYOUT OFF}
implementation
uses
  GlobalDefs, Log, System.AnsiStrings, SQL, Functions;
procedure TNationData.CreateNation(ChannelID: Byte);
begin
  Self.ChannelID := ChannelID;
  Self.Server := @Servers[ChannelID];
end;
procedure TNationData.LoadNation;
var
  StringHelper: String;
  NationComp: TQuery;
  i: Integer;
  DevirId: Integer;
  Slot: Integer;
  TimeToEst: TDateTime;
begin
  NationComp := TQuery.Create(AnsiString(MYSQL_SERVER), MYSQL_PORT,
    AnsiString(MYSQL_USERNAME), AnsiString(MYSQL_PASSWORD),
    AnsiString(MYSQL_DATABASE));
  if not(NationComp.Query.Connection.Connected) then
  begin
    Logger.Write('Falha de conex�o individual com mysql.[LoadNation]',
      TlogType.Warnings);
    Logger.Write('PERSONAL MYSQL FAILED LOAD.[LoadNation]', TlogType.Error);
    NationComp.Destroy;
    Exit;
  end;
  try
    NationComp.SetQuery(format('SELECT * FROM nations WHERE channel_id=%d',
      [ChannelID]));
    NationComp.Run();
    if (NationComp.Query.RecordCount = 0) then
    begin
      Logger.Write('O servidor n�o encontrou o ChannelIndex ' +
        ChannelID.ToString + ' para carregar a na��o do MySQL.',
        TlogType.Warnings);
      NationComp.Destroy;
      Exit;
    end;
    Self.NationID := NationComp.Query.FieldByName('nation_id').AsInteger;
    System.AnsiStrings.StrPLCopy(Self.ChannelName,
      AnsiString(NationComp.Query.FieldByName('nation_name').AsString), 32);
    Self.NationRank := NationComp.Query.FieldByName('nation_rank').AsInteger;
    Self.MarechalGuildID := NationComp.Query.FieldByName('guild_id_marshal')
      .AsInteger;
    Self.TacticianGuildID := NationComp.Query.FieldByName('guild_id_tactician')
      .AsInteger;
    Self.JudgeGuildID := NationComp.Query.FieldByName('guild_id_judge')
      .AsInteger;
    Self.TreasurerGuildID := NationComp.Query.FieldByName('guild_id_treasurer')
      .AsInteger;
    Self.CitizenTax := NationComp.Query.FieldByName('citizen_tax').AsInteger;
    Self.VisitorTax := NationComp.Query.FieldByName('visitor_tax').AsInteger;
    Self.Settlement := NationComp.Query.FieldByName('settlement').AsInteger;
    Self.NationIDAlly := NationComp.Query.FieldByName('nation_ally').AsInteger;
    System.AnsiStrings.StrPLCopy(Self.MarechalAllyName,
      AnsiString(NationComp.Query.FieldByName('marechal_ally').AsString), 32);
    Self.AllyDate := NationComp.Query.FieldByName('ally_date').AsInteger;
    Self.NationGold := NationComp.Query.FieldByName('nation_gold').AsInteger;
    { Zona E }
    if (Self.MarechalGuildID > 0) then
    begin
      StringHelper := Server.GetGuildByIndex(Self.MarechalGuildID);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Defensoras.LordMarechal,
        AnsiString(StringHelper), 20);
    end;
    if (Self.TacticianGuildID > 0) then
    begin
      StringHelper := Server.GetGuildByIndex(Self.TacticianGuildID);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Defensoras.Estrategista,
        AnsiString(StringHelper), 20);
    end;
    if (Self.JudgeGuildID > 0) then
    begin
      StringHelper := Server.GetGuildByIndex(Self.JudgeGuildID);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Defensoras.Juiz,
        AnsiString(StringHelper), 20);
    end;
    if (Self.TreasurerGuildID > 0) then
    begin
      StringHelper := Server.GetGuildByIndex(Self.TreasurerGuildID);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Defensoras.Tesoureiro,
        AnsiString(StringHelper), 20);
    end;
    { Zona A }
    if (NationComp.Query.FieldByName('cerco_guildid_attack_A1').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_A1').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[0].LordMarechal,
        AnsiString(StringHelper), 20);
    end;
    if (NationComp.Query.FieldByName('cerco_guildid_attack_A2').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_A2').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[0].Estrategista,
        AnsiString(StringHelper), 20);
    end;
    if (NationComp.Query.FieldByName('cerco_guildid_attack_A3').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_A3').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[0].Juiz,
        AnsiString(StringHelper), 20);
    end;
    if (NationComp.Query.FieldByName('cerco_guildid_attack_A4').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_A4').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[0].Tesoureiro,
        AnsiString(StringHelper), 20);
    end;
    { Zona B }
    if (NationComp.Query.FieldByName('cerco_guildid_attack_B1').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_B1').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[1].LordMarechal,
        AnsiString(StringHelper), 20);
    end;
    if (NationComp.Query.FieldByName('cerco_guildid_attack_B2').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_B2').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[1].Estrategista,
        AnsiString(StringHelper), 20);
    end;
    if (NationComp.Query.FieldByName('cerco_guildid_attack_B3').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_B3').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[1].Juiz,
        AnsiString(StringHelper), 20);
    end;
    if (NationComp.Query.FieldByName('cerco_guildid_attack_B4').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_B4').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[1].Tesoureiro,
        AnsiString(StringHelper), 20);
    end;
    if (NationComp.Query.FieldByName('cerco_guildid_attack_C1').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_C1').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[2].LordMarechal,
        AnsiString(StringHelper), 20);
    end;
    if (NationComp.Query.FieldByName('cerco_guildid_attack_C2').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_C2').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[2].Estrategista,
        AnsiString(StringHelper), 20);
    end;
    if (NationComp.Query.FieldByName('cerco_guildid_attack_C3').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_C3').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[2].Juiz,
        AnsiString(StringHelper), 20);
    end;
    if (NationComp.Query.FieldByName('cerco_guildid_attack_C4').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_C4').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[2].Tesoureiro,
        AnsiString(StringHelper), 20);
    end;
    if (NationComp.Query.FieldByName('cerco_guildid_attack_D1').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_D1').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[3].LordMarechal,
        AnsiString(StringHelper), 20);
    end;
    if (NationComp.Query.FieldByName('cerco_guildid_attack_D2').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_D2').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[3].Estrategista,
        AnsiString(StringHelper), 20);
    end;
    if (NationComp.Query.FieldByName('cerco_guildid_attack_D3').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_D3').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[3].Juiz,
        AnsiString(StringHelper), 20);
    end;
    if (NationComp.Query.FieldByName('cerco_guildid_attack_D4').AsInteger > 0)
    then
    begin
      StringHelper := Server.GetGuildByIndex
        (NationComp.Query.FieldByName('cerco_guildid_attack_D4').AsInteger);
      System.AnsiStrings.StrPLCopy(Self.Cerco.Atacantes[3].Tesoureiro,
        AnsiString(StringHelper), 20);
    end;
    NationComp.SetQuery(format('SELECT * FROM devires WHERE nation_id=%d',
      [Self.NationID]));
    NationComp.Run();
    if not(NationComp.Query.RecordCount = 0) then
    begin
      NationComp.Query.First;
      while not NationComp.Query.Eof do
      begin
        DevirId := NationComp.Query.FieldByName('devir_id').AsInteger;
        if (Self.NationID > 1) then
        begin
          Slot := (DevirId - ((Self.NationID - 1) * 5));
        end
        else
        begin
          Slot := DevirId;
        end;
        Slot := Slot - 1;
        Server.Devires[Slot].DevirId := DevirId;
        Server.Devires[Slot].NationID := Self.NationID;
        Server.Devires[Slot].IsOpen := False;
        Server.Devires[Slot].StonesDied := 0;
        Server.Devires[Slot].GuardsDied := 0;
        for i := 0 to 4 do
        begin
          case i of
  0:
    begin
      Server.Devires[Slot].Slots[i].ItemID :=
        NationComp.Query.FieldByName('slot1_itemid').AsInteger;
      Server.Devires[Slot].Slots[i].App := Server.Devires[Slot].Slots[i].ItemID;
      Server.Devires[Slot].Slots[i].IsAble :=
        Boolean(NationComp.Query.FieldByName('slot1_able').AsInteger);


      if (StrToInt64Def(NationComp.Query.FieldByName('slot1_timecap').AsString, 0) > 0) then
      begin
        Server.ReliqEffect[
          ItemList[Server.Devires[Slot].Slots[i].ItemID].EF[0]] :=
          Server.ReliqEffect[
            ItemList[Server.Devires[Slot].Slots[i].ItemID].EF[0]] +
            ItemList[Server.Devires[Slot].Slots[i].ItemID].EFV[0];


        Server.Devires[Slot].Slots[i].TimeCapped :=
          UnixToDateTime(StrToInt64Def(NationComp.Query.FieldByName('slot1_timecap').AsString, 0));


        TimeToEst := IncHour(Server.Devires[Slot].Slots[i].TimeCapped, RELIQ_EST_TIME);
        Server.Devires[Slot].Slots[i].TimeToEstabilish := TimeToEst;
      end;


      System.AnsiStrings.StrPLCopy(Server.Devires[Slot].Slots[i].NameCapped,
        NationComp.Query.FieldByName('slot1_name').AsString, 16);
    end;
  1:
    begin
      Server.Devires[Slot].Slots[i].ItemID :=
        NationComp.Query.FieldByName('slot2_itemid').AsInteger;
      Server.Devires[Slot].Slots[i].App := Server.Devires[Slot].Slots[i].ItemID;
      Server.Devires[Slot].Slots[i].IsAble :=
        Boolean(NationComp.Query.FieldByName('slot2_able').AsInteger);


      if (StrToInt64Def(NationComp.Query.FieldByName('slot2_timecap').AsString, 0) > 0) then
      begin
        Server.ReliqEffect[
          ItemList[Server.Devires[Slot].Slots[i].ItemID].EF[0]] :=
          Server.ReliqEffect[
            ItemList[Server.Devires[Slot].Slots[i].ItemID].EF[0]] +
            ItemList[Server.Devires[Slot].Slots[i].ItemID].EFV[0];


        Server.Devires[Slot].Slots[i].TimeCapped :=
          UnixToDateTime(StrToInt64Def(NationComp.Query.FieldByName('slot2_timecap').AsString, 0));


        TimeToEst := IncHour(Server.Devires[Slot].Slots[i].TimeCapped, RELIQ_EST_TIME);
        Server.Devires[Slot].Slots[i].TimeToEstabilish := TimeToEst;
      end;


      System.AnsiStrings.StrPLCopy(Server.Devires[Slot].Slots[i].NameCapped,
        NationComp.Query.FieldByName('slot2_name').AsString, 16);
    end;
  2:
    begin
      Server.Devires[Slot].Slots[i].ItemID :=
        NationComp.Query.FieldByName('slot3_itemid').AsInteger;
      Server.Devires[Slot].Slots[i].App := Server.Devires[Slot].Slots[i].ItemID;
      Server.Devires[Slot].Slots[i].IsAble :=
        Boolean(NationComp.Query.FieldByName('slot3_able').AsInteger);


      if (StrToInt64Def(NationComp.Query.FieldByName('slot3_timecap').AsString, 0) > 0) then
      begin
        Server.ReliqEffect[
          ItemList[Server.Devires[Slot].Slots[i].ItemID].EF[0]] :=
          Server.ReliqEffect[
            ItemList[Server.Devires[Slot].Slots[i].ItemID].EF[0]] +
            ItemList[Server.Devires[Slot].Slots[i].ItemID].EFV[0];


        Server.Devires[Slot].Slots[i].TimeCapped :=
          UnixToDateTime(StrToInt64Def(NationComp.Query.FieldByName('slot3_timecap').AsString, 0));


        TimeToEst := IncHour(Server.Devires[Slot].Slots[i].TimeCapped, RELIQ_EST_TIME);
        Server.Devires[Slot].Slots[i].TimeToEstabilish := TimeToEst;
      end;


      System.AnsiStrings.StrPLCopy(Server.Devires[Slot].Slots[i].NameCapped,
        NationComp.Query.FieldByName('slot3_name').AsString, 16);
    end;
  3:
    begin
      Server.Devires[Slot].Slots[i].ItemID :=
        NationComp.Query.FieldByName('slot4_itemid').AsInteger;
      Server.Devires[Slot].Slots[i].App := Server.Devires[Slot].Slots[i].ItemID;
      Server.Devires[Slot].Slots[i].IsAble :=
        Boolean(NationComp.Query.FieldByName('slot4_able').AsInteger);


      if (StrToInt64Def(NationComp.Query.FieldByName('slot4_timecap').AsString, 0) > 0) then
      begin
        Server.ReliqEffect[
          ItemList[Server.Devires[Slot].Slots[i].ItemID].EF[0]] :=
          Server.ReliqEffect[
            ItemList[Server.Devires[Slot].Slots[i].ItemID].EF[0]] +
            ItemList[Server.Devires[Slot].Slots[i].ItemID].EFV[0];


        Server.Devires[Slot].Slots[i].TimeCapped :=
          UnixToDateTime(StrToInt64Def(NationComp.Query.FieldByName('slot4_timecap').AsString, 0));


        TimeToEst := IncHour(Server.Devires[Slot].Slots[i].TimeCapped, RELIQ_EST_TIME);
        Server.Devires[Slot].Slots[i].TimeToEstabilish := TimeToEst;
      end;


      System.AnsiStrings.StrPLCopy(Server.Devires[Slot].Slots[i].NameCapped,
        NationComp.Query.FieldByName('slot4_name').AsString, 16);
    end;
  4:
    begin
      Server.Devires[Slot].Slots[i].ItemID :=
        NationComp.Query.FieldByName('slot5_itemid').AsInteger;
      Server.Devires[Slot].Slots[i].App := Server.Devires[Slot].Slots[i].ItemID;
      Server.Devires[Slot].Slots[i].IsAble :=
        Boolean(NationComp.Query.FieldByName('slot5_able').AsInteger);


      if (StrToInt64Def(NationComp.Query.FieldByName('slot5_timecap').AsString, 0) > 0) then
      begin
        Server.ReliqEffect[
          ItemList[Server.Devires[Slot].Slots[i].ItemID].EF[0]] :=
          Server.ReliqEffect[
            ItemList[Server.Devires[Slot].Slots[i].ItemID].EF[0]] +
            ItemList[Server.Devires[Slot].Slots[i].ItemID].EFV[0];


        Server.Devires[Slot].Slots[i].TimeCapped :=
          UnixToDateTime(StrToInt64Def(NationComp.Query.FieldByName('slot5_timecap').AsString, 0));


        TimeToEst := IncHour(Server.Devires[Slot].Slots[i].TimeCapped, RELIQ_EST_TIME);
        Server.Devires[Slot].Slots[i].TimeToEstabilish := TimeToEst;
      end;


      System.AnsiStrings.StrPLCopy(Server.Devires[Slot].Slots[i].NameCapped,
        NationComp.Query.FieldByName('slot5_name').AsString, 16);
    end;
    end;


        end;
        NationComp.Query.Next;
      end;
    end;
    Logger.Write('Nation ' + String(Self.ChannelName) + ' loaded.',
      TlogType.ServerStatus);
  except
    on E: Exception do
    begin
      Logger.Write('Nation Load Error 2: ' + E.Message, TlogType.Warnings);
    end;
  end;
  NationComp.Destroy;
end;
procedure TNationData.SaveNation();
var
  NationComp: TQuery;
  cerco_guildid_attack_A1,
  cerco_guildid_attack_A2,
  cerco_guildid_attack_A3,
  cerco_guildid_attack_A4,
  cerco_guildid_attack_B1,
  cerco_guildid_attack_B2,
  cerco_guildid_attack_B3,
  cerco_guildid_attack_B4,
  cerco_guildid_attack_C1,
  cerco_guildid_attack_C2,
  cerco_guildid_attack_C3,
  cerco_guildid_attack_C4,
  cerco_guildid_attack_D1,
  cerco_guildid_attack_D2,
  cerco_guildid_attack_D3,
  cerco_guildid_attack_D4: Integer;
begin
  if (Self.NationID = 0) then
    Exit;
  NationComp := TQuery.Create(AnsiString(MYSQL_SERVER), MYSQL_PORT,
    AnsiString(MYSQL_USERNAME), AnsiString(MYSQL_PASSWORD),
    AnsiString(MYSQL_DATABASE), True);
  if not(NationComp.Query.Connection.Connected) then
  begin
    Logger.Write('Falha de conex�o individual com mysql.[SaveNation]',
      TlogType.Warnings);
    Logger.Write('PERSONAL MYSQL FAILED LOAD.[SaveNation]', TlogType.Error);
    NationComp.Destroy;
    Exit;
  end;


  cerco_guildid_attack_A1 := 0;
  cerco_guildid_attack_A2 := 0;
  cerco_guildid_attack_A3 := 0;
  cerco_guildid_attack_A4 := 0;
  cerco_guildid_attack_B1 := 0;
  cerco_guildid_attack_B2 := 0;
  cerco_guildid_attack_B3 := 0;
  cerco_guildid_attack_B4 := 0;
  cerco_guildid_attack_C1 := 0;
  cerco_guildid_attack_C2 := 0;
  cerco_guildid_attack_C3 := 0;
  cerco_guildid_attack_C4 := 0;
  cerco_guildid_attack_D1 := 0;
  cerco_guildid_attack_D2 := 0;
  cerco_guildid_attack_D3 := 0;
  cerco_guildid_attack_D4 := 0;


  if(String(Self.Cerco.Atacantes[0].LordMarechal) <> '') then
    cerco_guildid_attack_A1 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[0].LordMarechal));
  if(String(Self.Cerco.Atacantes[0].Estrategista) <> '') then
    cerco_guildid_attack_A2 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[0].Estrategista));
  if(String(Self.Cerco.Atacantes[0].Juiz) <> '') then
    cerco_guildid_attack_A3 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[0].Juiz));
  if(String(Self.Cerco.Atacantes[0].Tesoureiro) <> '') then
    cerco_guildid_attack_A4 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[0].Tesoureiro));


  if(String(Self.Cerco.Atacantes[1].LordMarechal) <> '') then
    cerco_guildid_attack_B1 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[1].LordMarechal));
  if(String(Self.Cerco.Atacantes[1].Estrategista) <> '') then
    cerco_guildid_attack_B2 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[1].Estrategista));
  if(String(Self.Cerco.Atacantes[1].Juiz) <> '') then
    cerco_guildid_attack_B3 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[1].Juiz));
  if(String(Self.Cerco.Atacantes[1].Tesoureiro) <> '') then
    cerco_guildid_attack_B4 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[1].Tesoureiro));


  if(String(Self.Cerco.Atacantes[2].LordMarechal) <> '') then
    cerco_guildid_attack_C1 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[2].LordMarechal));
  if(String(Self.Cerco.Atacantes[2].Estrategista) <> '') then
    cerco_guildid_attack_C2 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[2].Estrategista));
  if(String(Self.Cerco.Atacantes[2].Juiz) <> '') then
    cerco_guildid_attack_C3 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[2].Juiz));
  if(String(Self.Cerco.Atacantes[2].Tesoureiro) <> '') then
    cerco_guildid_attack_C4 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[2].Tesoureiro));


  if(String(Self.Cerco.Atacantes[3].LordMarechal) <> '') then
    cerco_guildid_attack_D1 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[3].LordMarechal));
  if(String(Self.Cerco.Atacantes[3].Estrategista) <> '') then
    cerco_guildid_attack_D2 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[3].Estrategista));
  if(String(Self.Cerco.Atacantes[3].Juiz) <> '') then
    cerco_guildid_attack_D3 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[3].Juiz));
  if(String(Self.Cerco.Atacantes[3].Tesoureiro) <> '') then
    cerco_guildid_attack_D4 :=
      Server.GetGuildByName(String(Self.Cerco.Atacantes[3].Tesoureiro));




  NationComp.Query.Connection.StartTransaction;
  try
    NationComp.SetQuery
      ('UPDATE nations SET nation_rank='+
      Self.NationRank.ToString+', guild_id_marshal='+
      Self.MarechalGuildID.ToString+',' +
      ' guild_id_tactician='+Self.TacticianGuildID.ToString
      +', guild_id_judge='+Self.JudgeGuildID.ToString+',' +
      ' guild_id_treasurer='+Self.TreasurerGuildID.ToString+
      ', citizen_tax='+Self.CitizenTax.ToString+',' +
      ' visitor_tax='+Self.VisitorTax.ToString+', nation_ally='+
      Self.NationIDAlly.ToString+', marechal_ally="'+
      String(Self.MarechalAllyName)+'",' +
      ' ally_date='+Self.AllyDate.ToString+', nation_gold='+
      Self.NationGold.ToString+', cerco_guildid_attack_A1='+
      cerco_guildid_attack_A1.ToString+',' +
      ' cerco_guildid_attack_A2='+
      cerco_guildid_attack_A2.ToString+', cerco_guildid_attack_A3='+
      cerco_guildid_attack_A3.ToString+',' +
      ' cerco_guildid_attack_A4='+
      cerco_guildid_attack_A4.ToString+', cerco_guildid_attack_B1='+
      cerco_guildid_attack_B1.ToString+',' +
      ' cerco_guildid_attack_B2='+
      cerco_guildid_attack_B2.ToString+', cerco_guildid_attack_B3='+
      cerco_guildid_attack_B3.ToString+',' +
      ' cerco_guildid_attack_B4='+
      cerco_guildid_attack_B4.ToString+', cerco_guildid_attack_C1='+
      cerco_guildid_attack_C1.ToString+',' +
      ' cerco_guildid_attack_C2='+
      cerco_guildid_attack_C2.ToString+', cerco_guildid_attack_C3='+
      cerco_guildid_attack_C3.ToString+',' +
      ' cerco_guildid_attack_C4='+
      cerco_guildid_attack_C4.ToString+', cerco_guildid_attack_D1='+
      cerco_guildid_attack_D1.ToString+',' +
      ' cerco_guildid_attack_D2='+
      cerco_guildid_attack_D2.ToString+', cerco_guildid_attack_D3='+
      cerco_guildid_attack_D3.ToString+',' +
      ' cerco_guildid_attack_D4='+
      cerco_guildid_attack_D4.ToString+' WHERE nation_id='+Self.NationID.ToString+';');
    NationComp.Run(False);


    NationComp.Query.Connection.Commit;
  except
    on E: Exception do
    begin
      NationComp.Query.Connection.Rollback;
      Logger.Write('Error while saving nation: ' + String(Self.ChannelName) +
        ' ' + E.Message, TlogType.Error);
    end;
  end;
  NationComp.Destroy;
end;
procedure TNationData.SaveNationTaxes();
var
  NationComp: TQuery;
begin
  NationComp := TQuery.Create(AnsiString(MYSQL_SERVER), MYSQL_PORT,
    AnsiString(MYSQL_USERNAME), AnsiString(MYSQL_PASSWORD),
    AnsiString(MYSQL_DATABASE));
  if not(NationComp.Query.Connection.Connected) then
  begin
    NationComp.Destroy;
    Logger.Write('Falha de conex�o individual com mysql.[SaveNation]',
      TlogType.Warnings);
    Logger.Write('PERSONAL MYSQL FAILED LOAD.[SaveNation]', TlogType.Error);
    Exit;
  end;
  try
    NationComp.SetQuery
      (format('UPDATE nations SET citizen_tax=%d, visitor_tax=%d,' +
      ' nation_gold=%d WHERE nation_id=%d', [Self.CitizenTax, Self.VisitorTax,
      Self.NationGold, Self.NationID]));
    NationComp.Run(False);
  except
    on E: Exception do
    begin
      Logger.Write('Error while saving nation_taxes: ' +
        String(Self.ChannelName) + ' ' + E.Message, TlogType.Error);
    end;
  end;
  NationComp.Destroy;
end;
end.

Consegui resolver o erro modificando a database mysql mas o servidor n conecta na tela de personagens
Reconece o login e tudo mas quando ta carregando pra tela de personagem sou desconectado antes mesmo de ir pra tela de personagem ai volta pra tela de login novamente