ДА БУДЕТ БOT!

[gtynfujy924]

я вот так сделал, но оно токо спойл кидает (очень редко), свип не делает, семку не вбивает...

procedure PhisicalAttack;          // команда атаки
var
ppp1: integer;
begin

buf:=#$04; //action
  WriteD(TargetID);
  WriteD(MyX);
  WriteD(MyY);
  WriteD(MyZ);
  WriteC(0);
  SendToServerEx(NickName);


if ppp1 = targetid then begin
ppp1:= targetid
end
else
begin
buf:=HStr('14 6C 7A 0C 10 00 00 00 00 ');      //семка
buf:=HStr('2F FE 00 00 00 00 00 00 00 00 ');      //spoil
  SendToServerEx(NickName);

End;
     ppp1:= targetid
end;

procedure InitPickUpMode(mode: boolean);
begin
 if mode then
  begin
   PickUpMode:= true;
   TimerCombat.enabled:= false;
   TimerPickUp.enabled:= true;
  end
 else
  begin
   PickUpMode:= false;
   TimerCombat.enabled:= true;
   TimerPickUp.enabled:= false;
  end;
end;

а при таком расскладе семку забивает в моба..очень редко,  но нужен и спойл..; как сделать что бы бот постоянно кидал спойл или манор? на каждого моба, а не через пару раз?
(извините, мож там ниче, но я не разбираюсь ни грама в скриптах, такого уже напутал.. что...)

procedure PhisicalAttack;          // команда атаки
var
ppp1: integer;
begin

buf:=#$04; //action
  WriteD(TargetID);
  WriteD(MyX);
  WriteD(MyY);
  WriteD(MyZ);
  WriteC(0);
  SendToServerEx(NickName);


if ppp1 = targetid then begin
ppp1:= targetid
end
else
begin
buf:=HStr('14 6C 7A 0C 10 00 00 00 00 ');      //семка
  SendToServerEx(NickName);

End;
     ppp1:= targetid
end;

procedure InitPickUpMode(mode: boolean);
begin
 if mode then
  begin
   PickUpMode:= true;
   TimerCombat.enabled:= false;
   TimerPickUp.enabled:= true;
  end
 else
  begin
   PickUpMode:= false;
   TimerCombat.enabled:= true;
   TimerPickUp.enabled:= false;
  end;
end;