Спс
QaK за
инвентаризацию
на её основе составил скрипт
тормозит и комп и линия
помогите оптимизировать
delphi Код:
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.