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

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

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

переделайте мне зацикленную процедуру делаем в таймер, я перепробывал около 5 разных вариантов, я уже не знаю что думать, кто сделает буду любить
Последний вариант таймера закоментирован под процедурой BuyScroll, в таймер надо сделать BuyScroll & BuyItem
фобос я в тебя верю ;-)
Вложения
Тип файла: txt Dual for Odessit)).txt (10.0 Кб, 29 просмотров)
dyh9l вне форума   Ответить с цитированием
Старый 19.10.2010, 20:44   #2
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

Я леньтяй Если не забуду, то завтра на работе сделаю.

Добавлено через 20 часов 49 минут
Гы, я забыл сделать)) Ну вот пример:

Код:
procedure OnTimer01(Sender: TObject);
begin
case TimerCyrcle of
1: Begin buf:=#$00; SendToServerEx(name); End;
2: Begin buf:=#$00; SendToServerEx(name); End;
3: Begin buf:=#$00; SendToServerEx(name); End;
4: Begin buf:=#$00; SendToServerEx(name); End;
5: Begin buf:=#$00; SendToServerEx(name); End;
6: Begin buf:=#$00; SendToServerEx(name); End;
7: Begin buf:=#$00; SendToServerEx(name); End;
8: Begin buf:=#$00; SendToServerEx(name); End;
//9.. 10.. 11.. сколько надо
else 
Begin 
TimerCyrcle:=1;
Timer01.enabled:=false;
exit;
End;
end;
Inc(TimerCyrcle);
end;
__________________

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

Переходим на протокол нового поколения jabber

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

Цитата:
Сообщение от J-Fobos Посмотреть сообщение
Я леньтяй Если не забуду, то завтра на работе сделаю.

Добавлено через 20 часов 49 минут
Гы, я забыл сделать)) Ну вот пример:

Код:
procedure OnTimer01(Sender: TObject);
begin
case TimerCyrcle of
1: Begin buf:=#$00; SendToServerEx(name); End;
2: Begin buf:=#$00; SendToServerEx(name); End;
3: Begin buf:=#$00; SendToServerEx(name); End;
4: Begin buf:=#$00; SendToServerEx(name); End;
5: Begin buf:=#$00; SendToServerEx(name); End;
6: Begin buf:=#$00; SendToServerEx(name); End;
7: Begin buf:=#$00; SendToServerEx(name); End;
8: Begin buf:=#$00; SendToServerEx(name); End;
//9.. 10.. 11.. сколько надо
else 
Begin 
TimerCyrcle:=1;
Timer01.enabled:=false;
exit;
End;
end;
Inc(TimerCyrcle);
end;
Timer01.enabled=true ; достаточно будет или еще TimerCyrcle включать надо?)
dyh9l вне форума   Ответить с цитированием
Старый 19.10.2010, 22:03   #4
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

TimerCyrcle:integer;
Ну начальное значение конечно надо задавать
__________________

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

Переходим на протокол нового поколения jabber

Последний раз редактировалось J-Fobos, 20.10.2010 в 14:45.
J-Fobos вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



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

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


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

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

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