L2PacketHackФорум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела!
Категорически запрещено:
* Просить пакеты/скрипты на шмот/адену/другие вещи;
* Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
* Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
* Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
* Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
* Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
* Данные запреты неподлежат обсуждению.
var
a:integer;
procedure Time(Sender: TObject);
begin
if a=0 then begin a:=1; buf:=hstr(''); end;
if a=1 then begin a:=2; buf:=hstr(''); end;
if a=2 then begin a:=0; Timer01.enabled:=false; buf:=hstr(''); end;
end;
Остальное как у вас, ну в Init надо задать чтоб изначально a =0
ps: используйте плиз тег [ code ], а то читать не удобно
Ещебы скрипт на авто скан Object ID нужного мне NPC, былобы идеально