Пишу бота, нужна помощь

[SeregaZ]

а я прям ну совсем бота так и не сделал у меня автоассистеры были. и тоже про оптимизацию кода не слышал никада )) дичайший разбор инвентаря в поисках манны, но работал ))

        //разбор инвентаря для получения айди манны
        #$1B:begin
          countitem:= readh(4); //количество всех итемов
          it1:=12;
          it2:=13;
          it3:=14;
          it4:=15;
          it5:=30;
          base1item:=it1+(28*countitem);
          iditema:=pck[it1]+pck[it2]+pck[it3]+pck[it4];

          repeat
            if (iditema=HStr('D8 02 00 00'))
            then begin
              idmana:= pck[it1-4]+pck[it2-4]+pck[it3-4]+pck[it4-4];

              buf:=#$4A;
              WriteD(0);
              WriteD(10);
              WriteS('');
              WriteS('банки манны есть');
              SendToClient;     
              break;     
            end; 

            it1:= it1 + 28;
            it2:= it2 + 28;
            it3:= it3 + 28;
            it4:= it4 + 28;
            it5:= it5 + 28;
            iditema:=pck[it1]+pck[it2]+pck[it3]+pck[it4]; 

          until it1 > base1item;         
        end;