[Помогите]Прикрутить таймер к скрипту

[afonbka]

Всем наидобрейшего дня. Долго читал мануал и пытался прикрутить таймер к скрипту питья банок хп, но без результатно. Хотелось бы попросить тех, кто умеет это делать, помоч решить данную проблему. Я имею скрипт питья банок хп если CurHP<MaxHP. Но скрипт начинает флудить и пытается пить банки каждую секунду. Хотелось бы чтобы он повторял питье только через 11 секунд. Вот сам скрипт.

//автоматическое использование НР пробирок
const
    Name = 'UberWark';

var MyID:Word;
    OID:String;

begin
 if FromServer and (pck[1]=#$21) and (ReadD(12)=1539) then
   OID:=pck[8]+pck[9]+pck[10]+pck[11];

 if FromServer and (pck[1]=#$32) then  MyID:=ReadD(18);
 if FromServer and (pck[1]=#$18) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(14)<=ReadD(11)) then
    begin
     SendToServerEx(Name);
     buf:=HStr('19 D9 03 21 10 00 00 00 00');
     SendToServer;
    end;
end.

Спасибом не обижу. Прошу помощи по человечески. Мог бы сам сделать, не просл бы о помощи. Прошу понять..

[J-Fobos]

http://coderx.ru/showpost.php?p=30293&postcount=404

[afonbka]

ругаетсяна else

    begin
     Timer01.enabled:=True;
    end;
    else
    begin
     Timre01.enabled:=False;
    end;

Я так понял, в твоем скрипте таймер стоит на проверку моего хп, а не на питье банок, или на то и другое стоит таймер?

[dyh9l]

    begin
     Timer01.enabled:=True;
    end
    else
    begin
     Timre01.enabled:=False;
    end;

вот так попробуй

[afonbka]

теперь ругается вот на етот код:

     Timre01.enabled:=False;

[dyh9l]

ну блин ошибся) чего не видно Timer01.enabled:=False;

Добавлено через 52 секунды
у меня таймер стоит вот на это
1: begin buf := hstr('19 D9 03 21 10 00 00 00 00') ;
SendToServer;
end;
а вот что это за пакет я хз чесно)

[afonbka]

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

[dyh9l]

19 D9 03 21 10 00 00 00 00 - юзание хп банки?

[afonbka]

Неа, не работает вообще не пьет банки...

Добавлено через 36 секунд

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

19 D9 03 21 10 00 00 00 00 - юзание хп банки?

да. узание хп банки, чтобы не писать процедуру определения обектида.

[NLObP]

afonbka, дай лог пакетов при лечении банками, чтобы точно написать скрипт.

Вот скрипт для С4

//автоматическое использование НР пробирок by NLObP
// 1-Изменяем Name='NLObP';
// 2-бросаем, подбираем или выпиваем Heal Potion

//Работа проверена на L2C4 Protocol 660 LocalServer "L2J FORTRESS"

const
    Name='NLObP';

var
    ColvoHP, CharObjID, ItemObjID: integer;
    MaxHP, CurHP: integer;
    TimerHP: TTimer;
    Status: boolean;

procedure OnTimerHP(Sender: TObject);
begin
    if ColvoHP=0 then exit;
    buf:=#$14;
    WriteD(ItemObjID);
    WriteD(00);
    SendToServerEx(Name);
    ColvoHP:=ColvoHP-1; //количество хилок
    if ColvoHP=0 then begin
      Say('Хилок='+inttostr(ColvoHP));
      Say('Кончились хилки! Закупите Heal Potion!');
    end;
end;

procedure Say(msg:string);
begin
  buf:=hstr('4A 00 00 00 00');
  WriteD(2);
  WriteS(Name);
  WriteS(msg);
  SendToClientEx(Name);
end;

procedure InitStats;
var
  i: integer;
begin
  //Запоминаем ИД
  i:=18;
  CharObjID:=ReadD(i);
  //смещение переменное, зависит от имени (LenName*2+2)
  i:=i+(Length(Name)*2+2)+44;
  MaxHP:=ReadD(i);
  CurHP:=ReadD(i);
  //Say('MaxHP='+inttostr(MaxHP)+'CurHP='+inttostr(CurHP));
  if ItemObjID=0 then exit;
  if (CurHP<=MaxHP-50) then TimerHP.enabled:=true else TimerHP.enabled:=false;
end;

procedure StatsUpdate;
var
  i: integer;
begin
  for i:=0 to ReadD(6)-1 do begin
    case pck[i*8+10] of
      #$09: CurHP:=ReadD(i*8+14);
      #$0A: MaxHP:=ReadD(i*8+14);
    end;
  end;
  if ItemObjID=0 then exit;
  if (CurHP<=MaxHP-50) then TimerHP.enabled:=true else TimerHP.enabled:=false;
end;

//******************************************************************************
procedure ObjtoColvo(ItemObjID:integer);
var
  i: integer;
begin
  if ItemObjID=0 then exit;
  for i:=0 to ReadD(4)-1 do begin
    if ItemObjID=ReadD(i*28+8) then ColvoHP:=ReadD(i*28+16); //количество хилок
  end;
end;

//******************************************************************************
//                 Вызывается при включении скрипта
//******************************************************************************
procedure Init;
begin
    status:=false;
    CharObjID:=0;
    ItemObjID:=0;
    timerHP:=TTimer.Create(nil);
    timerHP.OnTimer:=@OnTimerHP;
    timerHP.enabled:=false;
    timerHP.interval:=5000; //время отката лечения
    Say('Для начала работы скрипта бросаем, подбираем или выпиваем Heal Potion!');
end;

//******************************************************************************
//                 Вызывается при выключении скрипта
//******************************************************************************
procedure Free;
begin
     timerHP.Free;
end;

//******************************************************************************
//       Вызывается при приходе каждого пакета, если скрипт включен
//******************************************************************************
begin
 //******************************************************************************
  //не обрабатываем пустые пакеты
  if pck='' then exit;

 //******************************************************************************
 //InventoryUpdate
 if FromServer and (ConnectName=Name) and (pck[1]=#$27) and ((ReadD(12)=1060) or (ReadD(12)=1061)) then begin //Healing Potion, Lesser Healing Potion
    ItemObjID:=ReadD(8);
    ColvoHP:=ReadD(16); //количество хилок
    if status then exit;
    Say('Автоматическое использование Нeal Рotion готово к работе!');
    Say('Хилок='+inttostr(ColvoHP));
    status:=true;
 end;

 //******************************************************************************
 //ItemList
 if FromServer and (ConnectName=Name) and (pck[1]=#$1B) and status then begin
    ObjtoColvo(ItemObjID); //количество хилок
    //Say('Хилок='+inttostr(ColvoHP));
 end;

 //******************************************************************************
 //UserInfo
 if FromServer and (ConnectName=Name) and (pck[1]=#$04) then InitStats;

 //******************************************************************************
 //StatusUpdate
 if FromServer and (ConnectName=Name) and (pck[1]=#$0E) and (CharObjID=ReadD(2)) then StatsUpdate;

end.

PS: требуется поправить ID пакетов и смещения в пакетах