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

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 01.08.2010, 08:03   #1
Пользователь
 
Регистрация: 01.08.2010
Сообщений: 82
Сказал Спасибо: 49
Имеет 5 спасибок в 4 сообщенях
semiromid пока неопределено
По умолчанию Таймер на отправление пакетов

Помогите зделать скрипт для отправнения нужного пакета через определенное количества времени.

Например я хочю оттправлять пакет "19 F5 E7 00 10 00 00 00 00" .В режиме бесконечной цикличности . с минимальным количеством времени между отправками.
semiromid вне форума   Ответить с цитированием
Старый 01.08.2010, 09:39   #2
Местный
 
Аватар для Breadfan
 
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Breadfan пока неопределено
По умолчанию

http://coderx.ru/showpost.php?p=30293&postcount=404
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."

А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Breadfan вне форума   Ответить с цитированием
Старый 01.08.2010, 20:42   #3
Пользователь
 
Регистрация: 01.08.2010
Сообщений: 82
Сказал Спасибо: 49
Имеет 5 спасибок в 4 сообщенях
semiromid пока неопределено
По умолчанию

Разобрался Спасибо).но возникла проблема. Как задержку между отправкой пакетов сделать поменьше?
Цитата:
var
TimerCycle:integer;
timer:TTimer;

procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=1;
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
TimerCycle:=1;
end;

procedure OnTimer(Sender: TObject);
begin
case TimerCycle of
1:begin
buf:=HStr('95 DA 1A 01 10 01 00 00 00 00 00 00 00'); //1 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=1;
end;
2:begin
buf:=HStr('2C DA 1A 01 10 01 00 00 00 00 00 00 00 00 00 00 00'); //2 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=1;
end;
3:begin
buf:=HStr('95 DA 1A 01 10 01 00 00 00 00 00 00 00'); //3 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=1;
end;
4:begin
buf:=HStr('2C DA 1A 01 10 01 00 00 00 00 00 00 00 00 00 00 00'); //4 пакет
sendtoserver;
TimerCycle:=1;
timer.interval:=1;
end;
end;
end;

procedure Free;
begin
timer.free;
end;


begin
useforconnectid := ConnectID;
if FromClient and (pck=HStr('56 0D 00 00 00 00 00 00 00 00')) then timer.enabled:=true;
if FromClient and (pck=HStr('39 0F 02 00 00 00 00 00 00 00')) then timer.enabled:=false;
end.
semiromid вне форума   Ответить с цитированием
Старый 01.08.2010, 21:09   #4
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от semiromid Посмотреть сообщение
Разобрался Спасибо).но возникла проблема. Как задержку между отправкой пакетов сделать поменьше?
У тебя и так самый минимум стоит - 1 миллисекунда
Цитата:
Сообщение от semiromid Посмотреть сообщение
timer.interval:=1;
Здесь значение числа в миллисекундах (Миллисекунда — одна тысячная секунды), то есть 1 сек = 1000, вот в скрипте, в пределах от 200-300 и выше надо ставить.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг



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

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


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

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

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