L2PacketHackФорум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела!
Категорически запрещено:
* Просить пакеты/скрипты на шмот/адену/другие вещи;
* Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
* Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
* Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
* Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
* Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
* Данные запреты неподлежат обсуждению.
1. при произведенном мною действии
2 . если нет ответа на действие
// вот здесь наверно надо мне чтобы высчитывалось время
// между п.1 и п.2 _ ток как сделать я невкурю
3. если время высчитаное более заданого то
4. произвести другое действие
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
TAMBIK, делаешь п1 - запускаешь таймер, в интервале ставишь, скклько надо тебе ждать, в обработчик таймера - п4 и стоп таймера, ну и проверяешь, если получил ответ на п1 и таймер.енабле = true тогда товет получили и тормозишь таймер.
Как-то так ... что непонятно - спрашивай
Добавлено через 38 секунд newbie61, чем больше, тем лучше, ставь секунд 30, не промахнешься.
[quote=QaK;35012]TAMBIK, делаешь п1 - запускаешь таймер, в интервале ставишь, скклько надо тебе ждать, в обработчик таймера - п4 и стоп таймера, ну и проверяешь, если получил ответ на п1 и таймер.енабле = true тогда товет получили и тормозишь таймер.
Как-то так ... что непонятно - спрашивай
вот так ?
Код:
// п.1
procedure Action;
begin
timer5.enabled:=true;
end;
procedure OnTimer5(Sender: TObject);
begin
stopAttacka;
end;
// п.4
procedure stopAttaka;
begin
timer5.enabled:=false;
end;
procedure Init;
begin
timer5:=TTimer.Create(nil);
timer5.OnTimer:=@OnTimer5;
timer5.enabled:=false;
timer5.interval:=6000;
end;
procedure Free;
begin
Timer5.free;
end;
// п.2
begin
if FromServer and(pck[1]=#$33)and(ReadD(2)=myID) then
if timer5.enabled=true then timer5.enabled:=false;
end;
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
Последний раз редактировалось TAMBIK, 05.08.2009 в 13:17.
TAMBIK, ну, примерно, только нужно же еще включить таймер, ну и п4 - это же тоже какие-то действия, не просто тормознуть таймер. Ну и после условия
if timer5.enabled=true then
тоже надо какое-то действие совершить?
А так - в первом приближении, все норм.
TAMBIK, ну, примерно, только нужно же еще включить таймер, ну и п4 - это же тоже какие-то действия, не просто тормознуть таймер. Ну и после условия
if timer5.enabled=true then
тоже надо какое-то действие совершить?
А так - в первом приближении, все норм.
действия есть так показал примерно
СПАСИБО
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
Подскажите, играю на Грации Финал, использую пакет хак для точки скилов, вопрос в следующим: какую лучше поставить задержку отправления пакетов на сервер, чтобы меньше палиться в логах.
alexteam, не-не, нифига,там же надо проверку, если таймер активен - значит мы ждем этого действия, еслиине активен - значит не ждем,TAMBIK, не слушай этого язычника =)