Автобафер PP+SE

Breadfan · 29.04.2008, 12:46

Вот тоже попытался коечто слямзить и добавить но....как говорится "дело было не в машине.." вот оно:

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.

Переделал все как посоветовали, синтаксис исправлен, но вложенные условия почему то невыполняются

mks · 29.04.2008, 13:56

Breadfan, ну при таком расскладе он уже и b9 не должен баффать, получается x доходит до x=8, далее x не повышается, так как в 8 кейсе ты убрал x:=x+1.

NLObP · 29.04.2008, 14:36

Цитата:

Сообщение от Breadfan

Вот тоже попытался коечто слямзить и добавить но....как говорится "дело было не в машине.." вот оно:
[...]
если заремить строки проверки x=7 то пп работает, берет торг но бафает только до b(9), b(10) уже не идет...В чем ошибка моя подскажите

Ты забыл про конструкцию типа:

Код:

if X then  Y;
if X then begin X1; X2; X3; end;

Так по идее должно работать (не забываем inc(x) делать):

delphi Код:

begin
 case x of
   1: begin
      buf:=hstr(b1);
      SendToServerEx(bufer);
      inc(x);
   end;
   2: begin
      buf:=hstr(b2);
      SendToServerEx(bufer);
      inc(x);
   end;
   3: begin
      buf:=hstr(b3);
      SendToServerEx(bufer);
      inc(x);
   end;
   4: begin
      buf:=hstr(b4);
      SendToServerEx(bufer);
      inc(x);
   end;
   5: begin
      buf:=hstr(b5);
      SendToServerEx(bufer);
      inc(x);
   end;
   6: begin
      buf:=hstr(b6);
      SendToServerEx(bufer);
      inc(x);
   end;
   7: begin
      if (prof=2) then begin
        buf:=hstr(b7);
        SendToServerEx(bufer);
      end;
      inc(x);
   end;
   8: begin
      if (prof=1) then begin
        buf:=hstr(b8);
        SendToServerEx(bufer);
      end;
      inc(x);
   end;
   9: begin
      buf:=hstr(b9);
      SendToServerEx(bufer);
      inc(x);
   end;
   10: begin
       buf:=hstr(b10);
       SendToServerEx(bufer);
       inc(x);
   end;
   11: begin
      if (prof=1) then begin
        buf:=hstr(b11);
        SendToServerEx(bufer);
      end;
      inc(x);
   end;
   12: begin
       buf:=hstr(b12);
       SendToServerEx(bufer);
       inc(x);
   end;
   13: begin
       buf:=hstr(b13);
       SendToServerEx(bufer);
       inc(x);
   end;
   14: begin
       if (prof=2) then begin
         buf:=hstr(b14);
         SendToServerEx(bufer);
       end;
       inc(x);
   end;
   15: begin
      if (prof=2) then begin
        buf:=hstr(b15);
        SendToServerEx(bufer);
      end;
      x:=0;
   end;
 end;
end;

Breadfan · 29.04.2008, 17:37

Переделал скрипт, сейчас синтаксис в порядке, но бафает все равно только до WindWalk дальше останавливается несмотря ни на что, несрабатывают вложенные условия..или тут другой способ добавить их?

mks · 29.04.2008, 17:59

Breadfan,

Код:

 if prof<>0 then
    begin
      x:=1;
//  prof:=0;//убери эту строчку, вставь ее в последний бафф(16)
    end;

и будет тебе счастье)

Добавлено через 9 минут
хотя тогда в это условие надо добавить еще and (x=0)
и вообще я тут все бы переделал, у тебя получается если он не баффает не нужный бафф операясь на переменную prof, то 2.5сек на этот бафф один фиг будет отсчитывать

NLObP · 29.04.2008, 23:31

Цитата:

Сообщение от Breadfan

9: begin
if (prof=1) then begin buf:=hstr(b9); SendToServerEx(bufer); end;
x:=x+1
end;

Цитата:

Сообщение от Breadfan

12: begin
if (prof=1) then begin buf:=hstr(b12); SendToServerEx(bufer); end;
x:=x+1
end;

Не хватает ';' точки с запятой после x:=x+1!
Поверяй скрипт в пакетхаке нажатием кнопки "ПРОВЕРИТЬ СИНТАКСИС".

Breadfan · 30.04.2008, 16:55

Цитата:

Сообщение от NLObP

Не хватает ';' точки с запятой после x:=x+1!
Поверяй скрипт в пакетхаке нажатием кнопки "ПРОВЕРИТЬ СИНТАКСИС".

Это просто в коде пропушенно..сам скрипт проверку проходит, все нормально НО он не бафает бафы где стоят if...then... Вот в этом и трудность моя. Причем они не срабатывают в обоих случаях prof=1 и prof=2

mks · 30.04.2008, 17:13

Breadfan,
ты похоже пропустил что я тебе написал чуть выше, у тебя переменной prof присваивается 0 одновременно с началом баффа, вот он и не баффает когда условие что prof=1 или 2