Вот тоже попытался коечто слямзить и добавить но....как говорится "дело было не в машине.." вот оно:
delphi Код:
//основа by mks
//Бот баффер ПП, должен бафать за 100к и 150к
const //баффы 3й профы
bufer='хххххххх';
b1='2F 0B 04 00 00 00 00 00 00 00 '; //mental shield
b2='2F 0C 04 00 00 00 00 00 00 00 '; //magic barrier
b3='2F 10 04 00 00 00 00 00 00 00 '; // shield
b4='2F 14 04 00 00 00 00 00 00 00 '; // regeneration
b5='2F 15 04 00 00 00 00 00 00 00 '; // bless body
b6='2F 18 04 00 00 00 00 00 00 00 '; //bless soul
b7='2F 2c 04 00 00 00 00 00 00 00 '; //might
b8='2F 35 04 00 00 00 00 00 00 00 '; //focus
b9='2F d8 04 00 00 00 00 00 00 00 '; //guidance
b11='2F 3e 04 00 00 00 00 00 00 00 '; //haste
b10='2F B4 04 00 00 00 00 00 00 00 '; // Wind walk
b12='2F da 04 00 00 00 00 00 00 00 '; //death wisper
b13='2F 26 04 00 00 00 00 00 00 00 '; //berserk spirit
b14='2F 3d 04 00 00 00 00 00 00 00 '; //acumen
b15='2F 36 04 00 00 00 00 00 00 00 '; //concentration
b16='2F db 04 00 00 00 00 00 00 00 '; //bless shield
var
Target: string;
prof,x: integer;
timer1: TTimer;
procedure Init;
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer;
timer1.enabled:=true;
timer1.interval:=2500;
x:=0
end;
procedure OnTimer(Sender: TObject);
begin
case x of
1: begin
buf:=hstr(b1);
SendToServerEx(bufer);
x:=x+1;
end;
2: begin
buf:=hstr(b2);
SendToServerEx(bufer);
x:=x+1;
end;
3: begin
buf:=hstr(b3);
SendToServerEx(bufer);
x:=x+1;
end;
4: begin
buf:=hstr(b4);
SendToServerEx(bufer);
x:=x+1;
end;
5: begin
buf:=hstr(b5);
SendToServerEx(bufer);
x:=x+1;
end;
6: begin
buf:=hstr(b6);
SendToServerEx(bufer);
x:=x+1;
end;
7: begin
if (prof=1) then begin buf:=hstr(b7); SendToServerEx(bufer); end;
x:=x+1;
end;
8: begin
buf:=hstr(b8);
SendToServerEx(bufer);
x:=x+1;
end;
9: begin
if (prof=1) then begin buf:=hstr(b9); SendToServerEx(bufer); end;
x:=x+1
end;
10: begin
buf:=hstr(b10);
SendToServerEx(bufer);
x:=x+1;
end;
11: begin
if (prof=1) then begin buf:=hstr(b11); SendToServerEx(bufer); end;
x:=x+1;
end;
12: begin
if (prof=1) then begin buf:=hstr(b12); SendToServerEx(bufer); end;
x:=x+1
end;
13: begin
buf:=hstr(b13);
SendToServerEx(bufer);
x:=x+1;
end;
14: begin
if (prof=2) then begin buf:=hstr(b14); SendToServerEx(bufer); end;
x:=x+1;
end;
15: begin
if (prof=2) then begin buf:=hstr(b15); SendToServerEx(bufer); end;
x:=x+1;
end;
16: begin
buf:=hstr(b16);
SendToServerEx(bufer);
x:=0;
end;
end;
end;
procedure Free;
begin
timer1.Free;
end;
///////////////////////////////////////////////////////////////////
begin
if FromServer and (pck[1]=#$5E) and (x=0) and (ConnectName=bufer) then //подкорректил немного, что б бот не принимал трэйд когда кого-то уже баффает 06.08.07
begin
Target:=#$04+pck[2]+pck[3]+pck[4]+pck[5];
buf:=hstr('44 01 00 00 00');
SendToServerEx(bufer); //если кидают трэйд, то принимать
end;
if fromclient and (pck[1]=#$44) and (ConnectName=bufer) then pck:=''; {клиент почему-то иногда автоматом отылает кэнсл трэйд, поэтому убиватю этот пакет}
if fromserver and (pck[1]=#$21) then
begin
if pck[14]+pck[15]+pck[16]=#$f0#$49#$02 then {если в трэйд положили 5кк}
begin
buf:=hstr('17 01 00 00 00');//подтвердить трэйд
prof:=1;
end;
if pck[14]+pck[15]+pck[16]=#$a0#$86#$01 then {если в трэйд положили 5кк}
begin
buf:=hstr('17 01 00 00 00');//подтвердить трэйд
prof:=2
end;
if prof=0 then buf:=hstr('17 00 00 00 00');//отмена трэйда
SendToServerEx(bufer);
end;
if FromServer and (pck[1]+pck[2]=#$22#$01) then
begin
buf:=target;
SendToServerEx(bufer);
if prof<>0 then
begin
x:=1;
prof:=0;
end;
end;
end.
Переделал все как посоветовали, синтаксис исправлен, но вложенные условия почему то невыполняются
