[Hworang]

Спс QaK за инвентаризацию
на её основе составил скрипт

тормозит и комп и линия
помогите оптимизировать

var i:integer;
const nik = 'LooksThatKill';
procedure Init; 
begin

end;

procedure Free; 
begin

end;

begin
if pck='' then exit;
if FromServer and (ConnectName=nik) then
   begin
         if (pck[1]=#$1B) then  //если получили итемлист
         begin

         if (ReadH(4)<10) then //если вещей у рюкзаке <10 (вместимость 200 а купить надо 190)
               begin
                 buf:=HStr('A7 9A 5F 01 00 A0 BB 0D 00 BE 00 00 00 00 00 00 00 00 00 00 00 ');  //покупаем 190 вещей
                 SendToServerEx(nik);
               end
         else
         begin
            buf:=HStr('0F '); //запрос на итемлист
            SendToServerEx(nik);
         end;

            buf:=#$1E; //составляем продажу
            WriteD(0);
            WriteD(ReadH(4)-2); //колво на продажу = всё - 2 итема (адена и голд бары)

            if (ReadD(12)=2414) then //если 1й итем у нас - один из 190 (который продавать)
              for i:=1 to (ReadH(4)-2) do
              begin
                WriteD(ReadD(i*36-28));
                WriteD(2414);
                WriteD(1);
              end
            else
            for i:=1 to (ReadH(4)-2) do  //если он не первый - значит 3й
            begin
              WriteD(ReadD(i*36+44));
              WriteD(2414);
              WriteD(1);
            end;
            SendToServerEx(nik);  //продаём
         end;
   end;

   buf:=HStr('0F ');  //запрос итемлиста
   SendToServerEx(nik);

   if (ReadD(16)>700000000) and (ReadD(12)=57) then  //если адены больше 700кк покупаем голдбар (500кк)
   begin
       buf:=HStr('38 2E 00 64 00 65 00 70 00 6F 00 73 00 69 00 74 00 00 00 00 00 00 00 ');
       SendToServerEx(nik);
   end;
end.