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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 16.10.2010, 23:12   #1
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию процедура с таймером)

Напишите мне пож-ста процедуру таймера которая состоит из 7 событий где при 7 событии отключается сам таймер, за место пакетов используйте a b c d e f g очень поможете мне у мну чето мягко говоря все время на a зависает))
dyh9l вне форума   Ответить с цитированием
Старый 16.10.2010, 23:33   #2
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

Леньтяй
На а зацикливается потому что не увеличиваешь счетчик итераций таймера.
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Старый 17.10.2010, 01:04   #3
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

Цитата:
Сообщение от J-Fobos Посмотреть сообщение
Леньтяй
На а зацикливается потому что не увеличиваешь счетчик итераций таймера.
да не лентяй я, не получается блин..
dyh9l вне форума   Ответить с цитированием
Старый 17.10.2010, 01:06   #4
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

заюзай поиск блин там примеров мягко говоря много, если не сказать больше их просто докуя каждый 2-й скрипт наверное
Grinch вне форума   Ответить с цитированием
Старый 17.10.2010, 02:33   #5
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

нашел чето из поиска но не робит.., исправьте хотяб ошибки))
delphi Код:
procedure OnTimer01(Sender: TObject); begin case TimerCycle of 1:begin buf:=HStr('38 31 00 00 00 00 00 00 00'); //1 ïàêåò sendtoserverex(charname); Inc(TimerCycle); timer01.interval:=1500; end; 2:begin buf:=HStr('38 32 00 00 00 00 00 00 00'); //2 ïàêåò sendtoserverex(charname); Inc(TimerCycle); timer01.interval:=1500; end; 3:begin buf:=HStr('38 33 00 00 00 00 00 00 00'); //3 ïàêåò sendtoserverex(CharName); Inc(TimerCycle); timer01.interval:=1500; end; 4:begin buf:=HStr('38 34 00 00 00 00 00 00 00'); //4 ïàêåò sendtoserverex(charname); TimerCycle:=1; timer01.interval:=1500; end; end; end;
этим включаю таймер
delphi Код:
If ItemToEnchant = 0 then Timer01.enabled:=true ;
dyh9l вне форума   Ответить с цитированием
Старый 17.10.2010, 03:24   #6
Местный
 
Регистрация: 27.01.2009
Сообщений: 154
Сказал Спасибо: 23
Имеет 26 спасибок в 19 сообщенях
guplen пока неопределено
По умолчанию

Проверять вломак, хз что у тебя там не так, надо весь код смотреть.
Вот каркас с таймером на 7 разных действий. annon выводит в чате циферки от 1 до 7.

delphi Код:
var     cycle:integer;     Timer1:TTimer;     procedure annon(msg:string); begin   buf:=#$4A;   WriteD(0);   WriteD(10);   WriteS('');   WriteS(msg);   SendToClient; end; procedure Init; //Вызывается при включении скрипта begin     Timer1:=TTimer.Create(nil);     Timer1.OnTimer:=@OnTimer;     Timer1.Enabled:=true;     Timer1.Interval:=1000;//интервал запрещения пакета     cycle:=0;     useforconnectname:='op'; end; procedure Free; //Вызывается при выключении скрипта begin     Timer1.Free(); end; procedure OnTimer(); begin     case cycle of         1:begin             annon(inttostr(cycle));         end;         2:begin             annon(inttostr(cycle));         end;         3:begin             annon(inttostr(cycle));         end;         4:begin             annon(inttostr(cycle));         end;         5:begin             annon(inttostr(cycle));         end;         6:begin             annon(inttostr(cycle));         end;         7:begin             annon(inttostr(cycle));             timer1.Enabled:=false;         end;     end;     inc(cycle); end; //основная часть скрипта //вызывается при приходе каждого пакета если скрипт включен begin end.

А в какой тег надо вписывать код, чтобы он отформатировался в делфи? НА пенельке редактора ничего не нашел чота.

Последний раз редактировалось guplen, 17.10.2010 в 15:03.
guplen вне форума   Ответить с цитированием
Старый 17.10.2010, 14:34   #7
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

[highlight="delphi" ] [ /HIGHLIGHT] ты про него?)
dyh9l вне форума   Ответить с цитированием
За это сообщение dyh9l нажился спасибкой от:
Старый 17.10.2010, 15:04   #8
Местный
 
Регистрация: 27.01.2009
Сообщений: 154
Сказал Спасибо: 23
Имеет 26 спасибок в 19 сообщенях
guplen пока неопределено
По умолчанию

Цитата:
Сообщение от dyh9l Посмотреть сообщение
[highlight="delphi" ] [ /HIGHLIGHT] ты про него?)
Ага, я думал это что-то типа спойлера. С таймером разобрался?
guplen вне форума   Ответить с цитированием
Старый 17.10.2010, 17:04   #9
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

Цитата:
Сообщение от guplen Посмотреть сообщение
Ага, я думал это что-то типа спойлера. С таймером разобрался?
Нет еще, на учебе щас
dyh9l вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



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

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


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

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

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