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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 08.01.2011, 15:56   #1
Местный
 
Регистрация: 04.11.2009
Адрес: Где-то в жопе европы
Сообщений: 316
Сказал Спасибо: 32
Имеет 42 спасибок в 39 сообщенях
wimax пока неопределено
По умолчанию скрипт

Вот короче скрипт который при получения пакета запускает таймер01 и таймер03 который по окончанию запускает таймер02 который
в свою очередь начинает спам пакетом каждые 0.1 в секу после спамит до окончания времени таймера03 когда interval в нем офф то он
отрубает таймер02 и себя.

суть проблемы хули не пашыт?)))
Цитата:
var
Timer01: TTimer;
Timer02: TTimer;
Timer03: TTimer;

procedure Init; //первый таймер активирует второй
begin
Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
Timer01.enabled:=false; //начальное положение включен(true)/выключен(false)
Timer01.interval:=29000; //29000 интервал(в милисекундах) как часто таймер срабатывает
Timer02:=TTimer.Create(nil); //выделяем памать и т.п.
Timer02.OnTimer:=@OnTimer02; //привязываем процедуру к событию
Timer02.enabled:=false; //начальное положение включен(true)/выключен(false)
Timer02.interval:=10; //30000интервал(в милисекундах) как часто таймер срабатывает
Timer03:=TTimer.Create(nil); //выделяем памать и т.п.
Timer03.OnTimer:=@OnTimer03; //привязываем процедуру к событию
Timer03.enabled:=false; //начальное положение включен(true)/выключен(false)
Timer03.interval:=31000; //310000интервал(в милисекундах) как часто таймер срабатывает
end;

procedure OnTimer01(Sender: TObject);
begin
Timer01.enabled:=False;
Timer02.enabled:=True;
end;

procedure OnTimer02(Sender: TObject);
begin
pck:='';
buf:=HStr('C6 BF 07 00 00 01 00 00 00 03 00 00 00');
SendToServer;
end;

procedure OnTimer03(Sender: TObject);
begin
Timer03.enabled:=False;
Timer02.enabled:=False;
end;

begin
IF FromServer and (pck[1]=#$4A) and (ReadS(12)=('CTF: Старт через 5 мин. для уровней 76-85.') then
begin
Timer01.enabled:=True;
Timer03.enabled:=True;
end;
end.
wimax вне форума   Ответить с цитированием
Старый 08.01.2011, 16:20   #2
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

IF FromServer and (pck[1]=#$4A) and (ReadS(12)=('CTF: Старт через 5 мин. для уровней 76-85.') then
Я один не вижу смысл этой скобки?
еще добавь procedure Free; где бы было освобождение памяти у 3 таймеров, и еще попробуй сделать SendToServerEx
__________________
dyh9l вне форума   Ответить с цитированием
Старый 09.01.2011, 02:24   #3
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

3 таймера, это ж ппц
__________________

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

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Старый 09.01.2011, 04:50   #4
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

скрипт явно ахренителен
__________________
Начало.
supernewbie вне форума   Ответить с цитированием
Старый 10.01.2011, 17:05   #5
Местный
 
Регистрация: 04.11.2009
Адрес: Где-то в жопе европы
Сообщений: 316
Сказал Спасибо: 32
Имеет 42 спасибок в 39 сообщенях
wimax пока неопределено
По умолчанию

Оффтоп

Последний раз редактировалось Breadfan, 10.01.2011 в 22:17.
wimax вне форума   Ответить с цитированием
Старый 10.01.2011, 20:36   #6
Местный
 
Аватар для Breadfan
 
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Breadfan пока неопределено
По умолчанию

зачем городить миллион таймеров, если можно использовать один, по необходимости меняя Timer.interval ?
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."

А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Breadfan вне форума   Ответить с цитированием
Старый 10.01.2011, 20:45   #7
Местный
 
Регистрация: 04.11.2009
Адрес: Где-то в жопе европы
Сообщений: 316
Сказал Спасибо: 32
Имеет 42 спасибок в 39 сообщенях
wimax пока неопределено
По умолчанию

можно не спорю но так быстрей дошло как написать лутше, потскажы как objid узнать а то там чота не так я епу чо.....
и хотя нет нельзя надо имено 4 таймера
wimax вне форума   Ответить с цитированием
Старый 10.01.2011, 20:47   #8
Местный
 
Аватар для Breadfan
 
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Breadfan пока неопределено
По умолчанию

1. еще как можно
2. модули разбирающие итемлист и итемапдейт - есть в соседних темах.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."

А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Breadfan вне форума   Ответить с цитированием
Старый 10.01.2011, 20:50   #9
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

wimax, 4 таймера, я плакаю
Напишите чего хотите добиться, а я выдам алгоритм, может все решается гораздо проще
__________________

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

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Старый 10.01.2011, 23:01   #10
Местный
 
Регистрация: 04.11.2009
Адрес: Где-то в жопе европы
Сообщений: 316
Сказал Спасибо: 32
Имеет 42 спасибок в 39 сообщенях
wimax пока неопределено
По умолчанию

При получении пакета (pck[1]=#$4A) and (ReadS(12)='CTF: Старт через 5 мин. для уровней 76-85.') ждать 4 мин 40 секунд начинать спамить пакетом
('C6 BF 07 00 00 01 00 00 00 03 00 00 00'); каждую 0.1секунду в течении 30 секунд через 15 минут делоть проверку где мы находимся ('B3 00 00 00 00');
команда /loc смотрим если мы в теретории адены (pck=HStr('62 9C 03 00 00') тогда юзае скрол тп в руну(иногда на евенте проста не портует) в руну потомучто с колизея обычный скрол не катит а писать чтоб обегал дополнительный геморой .... вот щас 1 проблема ето узнать как работает узнавание ObjID
wimax вне форума   Ответить с цитированием
Ответ

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


Опции темы
Опции просмотра

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

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


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

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

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