Вернуться   CoderX :: Forums > Lineage II > L2PacketHack
Войти через OpenID

L2PacketHack Форум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела! Обсуждение багов Lineage ЗАПРЕЩЕНО!

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 08.05.2008, 23:02   #1
Гость
 
Сообщений: n/a
Восклицание ТАЙМЕР на 4 пакета

Долго пытался разобраться, просмотрев все примеры, но так и не смог добиться...
Таймер, как же его всё таки сделать?
Прошу выложить полный код скрипта, который с интервалом в 1 секунду будит выполнять по кругу 4 пакета:

----пауза 1 сек.----
buf:=hstr('1B 01 00 00 00');
----пауза 1 сек.----
buf:=hstr('1B 02 00 00 00');
----пауза 1 сек.----
buf:=hstr('1B 03 00 00 00');
----пауза 1 сек.----
buf:=hstr('1B 04 00 00 00');
____________________________
ПОмогите, пожалуйста.
(не пишите лишнего, ОЧЕНЬ многим пользователям этот пример поможет)
  Ответить с цитированием
Старый 09.05.2008, 11:27   #2
Пользователь
 
Регистрация: 09.05.2008
Сообщений: 6
Сказал Спасибо: 5
Имеет 4 спасибок в 4 сообщенях
KeL пока неопределено
По умолчанию

Что не ясного, книжку в руки и вперед
//хотя не пойму, а тебе не легче делать делай (задержку) и зициклить процес
Код:
type
            TForm1 = class(TForm)     //кусок из примитивной 
    Panel1: TPanel;                  //проги - секундомер,
    Timer1: TTimer;                  //где используется таймер
    procedure Timer1Timer(Sender: TObject);  
var                          
  Form1: TForm1;min,sec:integer;    
procedure TForm1.Timer1Timer(Sender: TObject);
var str,st:string;
begin
        if sec = 59 then  //вырезка из просто таймера
        begin               //тебе все не надо главное вот делаеш таймер
        inc(min);         //а там уже если секунды/минуты равны, тогда...
        sec:=0;
        end
        else
        if sec mod 2=0
        then st :=' : '+st
        else st :='   '+st;
        inc(sec);
        if Length(st) = 1 then st:='0'+st;
        str:=str+ IntToStr (sec);
        st:=st+ IntToStr (min);
        if Length(str) = 1 then str:='0'+str;
        if sec mod 2=0
        then str :=' : '+str
        else str :='   '+str;
        str:=IntToStr (min) +str;
        Panel1.Caption:=str;
        end

Последний раз редактировалось KeL, 09.05.2008 в 11:27. Причина: Добавлено сообщение
KeL вне форума   Ответить с цитированием
Старый 10.05.2008, 19:38   #3
Местный
 
Регистрация: 13.12.2007
Сообщений: 126
Сказал Спасибо: 10
Имеет 39 спасибок в 32 сообщенях
Zergatul
По умолчанию

Цитата:
Сообщение от KeL Посмотреть сообщение
Что не ясного, книжку в руки и вперед
//хотя не пойму, а тебе не легче делать делай (задержку) и зициклить процес
Код:
type
            TForm1 = class(TForm)     //кусок из примитивной 
    Panel1: TPanel;                  //проги - секундомер,
    Timer1: TTimer;                  //где используется таймер
......
Код не полный, не проинициализироан таймер.

Код:
var
  Timer1 : TTimer; 
  q : Integer;  // счетчик 
procedure Init;
begin
  Timer1 := TTimer.Create(nil);
  Timer1.Interval := 1000;  // задержка таймера 1к мс
  Timer1.Enabled := False;
  Timer1.OnTimer := @OnTimer;   // имя процедуры, которая будет выполнятся при проходе таймера
end;
procedure Free;
begin
  Timer1.Free;
end;
procedure OnTimer;
begin
  // здесь код, который должен повторятся
  Inc(q);
  if q = 4 then  // если выполнилось уже 4 раза, то останавливаем таймер
    Timer1.Enabled := False;
end;
begin
  if {умова запуска таймера} then
    begin
      Timer1.Enabled := True;
      q := 0;  //счетчик ставим у 0
    end;
end.

Последний раз редактировалось Zergatul, 04.07.2008 в 19:46. Причина: выправление ошыбки
Zergatul вне форума   Ответить с цитированием
За это сообщение Zergatul нажился 2 спасибками от:
Старый 12.06.2008, 11:34   #4
Гость
 
Сообщений: n/a
По умолчанию

Цитата:
Сообщение от Zergatul Посмотреть сообщение
Код:
 if {умова запуска таймера} then
нипонял что там должно было быть написано?
  Ответить с цитированием
Старый 12.06.2008, 12:08   #5
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от -=Ma}{imuS=- Посмотреть сообщение
нипонял что там должно было быть написано?
Условие запуска таймера. Почитай книжки по паскалю, многое станет понятно

этот кусочек надо исправить на
Код:
type
  Timer1 : TTimer; 
  q : Integer;  // счетчик
Код:
var
  Timer1 : TTimer; 
  q : Integer;  // счетчик

Последний раз редактировалось NLObP, 12.06.2008 в 12:10.
NLObP вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:08.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!