а я прям ну совсем бота так и не сделал
у меня автоассистеры были. и тоже про оптимизацию кода не слышал никада
)) дичайший разбор инвентаря в поисках манны, но работал
))
Код:
//разбор инвентаря для получения айди манны
#$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;