[Hworang]

begin
  if pck='' then exit;

    if FromServer and (ConnectName=nik) and (pck[1]=#$1B) then
  begin
    if (ReadD(12)=57) then
    begin
      Edit.Text:='Adena ( '+IntToStr(ReadD(16))+' )';
      Edit1.Text:='Gold ( '+IntToStr(ReadD(52))+' )';
      gg:=ReadD(52);
      if e then IncomeG:=ReadD(52);
    end
    else if (ReadD(48)=57) then
    begin
      Edit.Text:='Adena ( '+IntToStr(ReadD(52))+' )';
      Edit1.Text:='Gold ( '+IntToStr(ReadD(16))+' )';
      gg:=ReadD(16);
      if e then IncomeG:=ReadD(16);
    end;
    e:=false;
  end;

    if FromServer and (ConnectName=nik) and (pck[1]=#$1B) and (ReadH(4)<10) then
     begin
                   buf:=#$A7;
                   WriteD(90010);
                   WriteD(900000);
                   WriteD(it);
                   WriteH(0);
                   //SendToServerEx(nik);
                   sendB:=buf;
                   seB:=true;
     end;

     if FromServer and (ConnectName=nik) and (pck[1]=#$1B) then
     begin
              c:=ReadH(4)-2;
              buf:=#$1E;
              WriteD(0);
              WriteD(c);

              if (ReadD(12)=2414) then
                for i:=1 to c do
                begin
                  WriteD(ReadD(i*36-28));
                  WriteD(2414);
                  WriteD(1);
                end
              else if (ReadD(48)=2414) then
              for i:=1 to c do
              begin
                WriteD(ReadD(i*36+8));
                WriteD(2414);
                WriteD(1);
              end
              else if (ReadD(84)=2414) then
              for i:=1 to c do
              begin
                WriteD(ReadD(i*36+44));
                WriteD(2414);
                WriteD(1);
              end;
              if (c>=1) then
              begin
                sendS:=buf;
                seS:=true;
                //SendToServerEx(nik);
              end;
     end;

     if ((ReadD(16)>700000000) and (ReadD(12)=57)) or ((ReadD(52)>700000000) and (ReadD(48)=57)) and (pck[1]=#$1B) then
     begin
         buf:=#$38;
         WriteS('.deposit');
         WriteD(0);
         sendP:=buf;
         seP:=true;
         //SendToServerEx(nik);
     end;
end.