[boyan]

а что тебя останавливает?

Добавлено спустя 9 часов 25 минут 48 секунд:
покапался я и разобрался.. =)
переделал под пп, чтобы бафал за 2кк. вроде все работает нармуль..
так как берс только в пати, то если ему кинуть пати, он ее возьмет, бафнет берс, и выйдет с пати..(только с пати палево - все очень быстро происходит, окна пати даже не видно.. )
вот скрипт..

//исходник by mks | переработан boyan
//Prophet бафае

const //баффы профета
b1='2F 0C 04 00 00 00 00 00 00 00 '; //shield 
b2='2F 0B 04 00 00 00 00 00 00 00 '; //mental shield  
b3='2F 3D 04 00 00 00 00 00 00 00 '; //acumen
b4='2F 15 04 00 00 00 00 00 00 00 '; //blessHP
b5='2F B4 04 00 00 00 00 00 00 00 '; //ww
b6='2F 0C 04 00 00 00 00 00 00 00 '; //magic barier 
b7='2F 26 04 00 00 00 00 00 00 00 '; //bers 


var
Target: string;
prof,x: integer;
timer1: TTimer;

procedure Init;
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer;
timer1.enabled:=true;
timer1.interval:=2000;
end;

procedure OnTimer(Sender: TObject);

begin
case x of
1: begin
    buf:=hstr(b1);
    sendtoserver;
    x:=x+1;
    end;
2: begin
    buf:=hstr(b2);
    sendtoserver;
    x:=x+1;
    end;
3: begin
    buf:=hstr(b3);
    sendtoserver;
    x:=x+1;
    end;
4: begin
    buf:=hstr(b4);
    sendtoserver;
    x:=x+1;
    end;
5: begin
    buf:=hstr(b5);
    sendtoserver;
    x:=x+1;
    end;
6: begin
    buf:=hstr(b6);
    sendtoserver;
    x:=0;
    buf:=#$38;
    WriteS('Spasibo i udachi! Nuzhen bers? invite to party');
    WriteD(0);
    SendToServer;
    end;
end;


end;

procedure Free;
begin
timer1.Free;
end;
///////////////////////////////////////////////////////////////////
begin

   if FromServer and (pck[1]=#$5E) and (x=0) then //подкорректил немного, что б бот не принимал трэйд когда кого-то уже баффает 06.08.07
      begin
        Target:=#$04+pck[2]+pck[3]+pck[4]+pck[5];
        buf:=hstr('44 01 00 00 00');
        sendtoserver;  //если кидают трэйд, то принимать
   end;
      if fromclient and (pck[1]=#$44) then
  begin
    pck:=''; {клиент почему-то иногда автоматом отылает кэнсл трэйд, поэтому убиватю этот пакет}
    sendtoserver;
  end;
   if fromserver and (pck[1]=#$21) then
      begin
      if pck[14]+pck[15]+pck[16]=#$80#$84#$1E  then {если в трэйд положили 2000000}
             begin
             buf:=hstr('17 01 00 00 00');//подтвердить трэйд
             prof:=1;
             end;
            if prof=0 then buf:=hstr('17 00 00 00 00');//отмена трэйда
      sendtoserver;
   end;

   if FromServer and (pck[1]+pck[2]=#$22#$01) then
     begin
      buf:=target;
      sendtoserver;

    if prof=1 then
    begin
      x:=1;
      prof:=0;
    end;
   
end;
  if FromServer and (pck[1]=#$39) then //если кидают пати - берет ее, бафает берс, и выходит из пати
  begin
  buf:=Hstr('2A 01 00 00 00 ');
  sendtoserver;
  buf:=Hstr(b7);
  sendtoserver;
  buf:=Hstr('2B');
  SendToServer;
  end;
end.

Добавлено спустя 7 минут:
забыл сказать, что скрипт сделан только под баф на мага..
в планах, доработать его, чтобы определял профу, и бафал в соответствии с ней..

Добавлено спустя 6 минут 3 секунды:
буду очень благодарен, тому кто мне покажет, как прочитать ИД профы, того кто заплатил боту.. =) (чот башка не варит.. надо с дудкой завязывать)