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

Пакеты Форум о форматах отдельных пакетов или групп пакетов

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 18.07.2009, 07:52   #1
Новичок
 
Регистрация: 18.07.2009
Сообщений: 7
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
RedSkyShamrik пока неопределено
По умолчанию Обьясните новичку

Доброго времени суток.
Постигая азы L2PacketHack столкнулся с одной проблеммой -
у меня есть 3 пакета, которые посылает клиент, мне нужно зацыклить их, чтобы они отправлялись поочереди, с определённым интервалом. Тоисть выглядит это так - 1-ый пакет отсылается, идёт задержка в 10 секунд потом отсылается пакет номер 2, снова задержка и отсылается пакет номер 3 и цыкл начинался сначала, с первого пакета.
Заранее благодарю за помощь.
RedSkyShamrik вне форума   Ответить с цитированием
Старый 18.07.2009, 12:33   #2
Местный
 
Аватар для 8tomat8
 
Регистрация: 17.01.2009
Сообщений: 282
Сказал Спасибо: 64
Имеет 81 спасибок в 63 сообщенях
8tomat8 пока неопределено
По умолчанию

Напиши скрипт с использованием таймера
__________________
помог?СКАЖИ СПАСИБО!)

Мастерство программиста не в том, чтобы писать программы, работающие без ошибок, а в том, чтобы писать программы, работающие при любом количестве ошибок.
Цитата:
[10-06, 14:15] efreet Заплачу за настройку l2px
[11-06, 09:25] xkor не плач)
Цитата:
Сообщение от Psih Посмотреть сообщение
Вот еще один вопрос:Вот вчера было све нормально
8tomat8 вне форума   Ответить с цитированием
Старый 18.07.2009, 12:35   #3
Новичок
 
Регистрация: 18.07.2009
Сообщений: 7
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
RedSkyShamrik пока неопределено
По умолчанию

Цитата:
Сообщение от 8tomat8 Посмотреть сообщение
Напиши скрипт с использованием таймера
Дай плз ссылку на инфу, не владею навыками написания скриптов под l2ph, готовые смотрел, нечего не понял. На Валкер с закрытыми глазами пишу) но тут другие команды и условия написания
RedSkyShamrik вне форума   Ответить с цитированием
Старый 18.07.2009, 12:43   #4
Местный
 
Аватар для 8tomat8
 
Регистрация: 17.01.2009
Сообщений: 282
Сказал Спасибо: 64
Имеет 81 спасибок в 63 сообщенях
8tomat8 пока неопределено
По умолчанию

юзай поиск по форуму тут есть
__________________
помог?СКАЖИ СПАСИБО!)

Мастерство программиста не в том, чтобы писать программы, работающие без ошибок, а в том, чтобы писать программы, работающие при любом количестве ошибок.
Цитата:
[10-06, 14:15] efreet Заплачу за настройку l2px
[11-06, 09:25] xkor не плач)
Цитата:
Сообщение от Psih Посмотреть сообщение
Вот еще один вопрос:Вот вчера было све нормально
8tomat8 вне форума   Ответить с цитированием
Старый 18.07.2009, 19:49   #5
Новичок
 
Регистрация: 18.07.2009
Сообщений: 7
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
RedSkyShamrik пока неопределено
По умолчанию

Нашол горы флуда, но полезного практически нечего, если не трудно, помогите с скриптом. Не верю что алгоритм, отсылающий 3 пакета поочереди с определённым интервалом, так сложен в написании. Покамисть самому знания l2ph не позволяют
RedSkyShamrik вне форума   Ответить с цитированием
Старый 18.07.2009, 20:16   #6
Местный
 
Регистрация: 05.11.2008
Сообщений: 168
Сказал Спасибо: 35
Имеет 139 спасибок в 66 сообщенях
Fer123 пока неопределено
По умолчанию

Плохо искал...
http://coderx.ru/showpost.php?p=32764&postcount=4
Fer123 вне форума   Ответить с цитированием
Старый 18.07.2009, 20:51   #7
Новичок
 
Регистрация: 18.07.2009
Сообщений: 7
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
RedSkyShamrik пока неопределено
По умолчанию

Там лежит готовый скрипт, половину написаного не понимаю, я же писал, не знаю команды и тд, я его даже не переделаю под то что мне нада.

Добавлено через 9 минут
Попытался всё же склепать, вопрос, как мне теперь его зацыклить? чтобы по окончание всё начиналось сначала
delphi Код:
const //обьявление констант и переменных. Name='RedSky'; var timer:TTimer;      phase:integer; //процедура инита вызывающаяся при "включении" скрипта procedure Init; begin timer:=TTimer.Create(nil); //создаем таймер timer.interval:=2100; //назначаем таймеру интервал timer.OnTimer:=@fireTimer; //говорим что мы должны выполнять fireTimer при срабатывании таймера timer.enabled:=false //включаем таймер. phase:=1; //скидываем счетчик в 1. end; //высвобождение обьектов, вызывается при выключении скрипта. procedure Free; begin timer.Free; //разрушене таймера. end; //процедура выполняющаяяся по таймеру. procedure fireTimer(Sender: TObject); begin case phase of //в зависимости от значения phase выполняеться то или иное вхождение. 1:begin //код от begin и до end выполняется при phase  = 1      buf:=hstr('{Первый пакет, который необходимо отослать}'); //назначить буферу значение, наш пакет.      SendToServerEx(Name); // отправить этот буффер на сервер      inc(phase); //увеличить phase  на единицу (=2)    end; procedure Init; //а это тут какого хрена забыло ? begin //и это timer:=TTimer.Create(nil); //.... timer.interval:=2100; //.... timer.OnTimer:=@fireTimer; //... timer.enabled:=false //копипастер млять... одни маты... 2:begin //аналогия с предыдущим вхождением. выполняеться при  phase  = 1      buf:=hstr('{Второй пакет который необходимо отосалать}');      SendToServerEx(Name);      inc(phase);    end; begin //бля.. слов нет... timer:=TTimer.Create(nil)//бля.. слов нет... накой черт это здесь ? timer.interval:=2100//бля.. timer.OnTimer:=@fireTimer;  //бля.. timer.enabled:=false  //бля.. 3:begin      buf:=hstr('{Третий пакет который необходимо отослать}');      SendToServerEx(Name);      inc(phase); //если вписать вместо этой строчки "phase := 1;" угадай что произойдет    end; begin //нах timer:=TTimer.Create(nil); //тудаже timer.interval:=2100; //я бы сказал кто автор... timer.OnTimer:=@fireTimer; //но цензуред. timer.enabled:=false //мля end; end; //не хватало енда..  для процедурного бегина. end.
Добавлено через 8 минут
Скрипт вышел полностью не рабочий, на каждом шагу ошибки синтаксиса.....
Ктото по существу поможет? или дальше будут слать - "юзай поиск" и тд...
без толковых разяснений, человеку который в этом не разбирается, нечего не понять

Последний раз редактировалось alexteam, 18.07.2009 в 21:28. Причина: Добавлено сообщение
RedSkyShamrik вне форума   Ответить с цитированием
Старый 18.07.2009, 21:16   #8
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

Цитата:
Скрипт вышел полностью не рабочий, на каждом шагу ошибки синтаксиса.....
это ведь твои ошибки синтаксиса.. не так ли ?
а... к стати.. скрипт - каша. полнейшая каша.
для начала разберись что в исходном каждая строчка обозначает - а уж потом меси свое.

Добавлено через 2 минуты
и еще. исходный QaK'овский и так зациклен. лишние шаги просто убрать надо.
__________________
L2Ext - project closed.

Последний раз редактировалось alexteam, 18.07.2009 в 21:26. Причина: Добавлено сообщение
alexteam вне форума   Ответить с цитированием
Старый 18.07.2009, 21:18   #9
Новичок
 
Регистрация: 18.07.2009
Сообщений: 7
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
RedSkyShamrik пока неопределено
По умолчанию

Почитай, что я писал в предыдущих постах, я в притык не понимаю что и как, говоря откровенно, я не знаю не условий написания, не команд, поэтому и обращзаюсь сюда.

Последний раз редактировалось RedSkyShamrik, 18.07.2009 в 21:25.
RedSkyShamrik вне форума   Ответить с цитированием
Старый 18.07.2009, 21:19   #10
Пользователь
 
Регистрация: 09.06.2009
Сообщений: 73
Сказал Спасибо: 10
Имеет 10 спасибок в 9 сообщенях
klemberg пока неопределено
По умолчанию

Написал специально без комментариев, чтобы жизнь малиной не казалась.
Скрипт полностью отвечает твоим условиям.

delphi Код:
var      Z_TIMER: TTimer;      NEXT_PCK: integer; procedure Init; begin      Z_TIMER:=TTimer.Create(nil);      Z_TIMER.OnTimer:=@On_TIMER();      Z_TIMER.enabled:=true;      Z_TIMER.interval:=10000;      NEXT_PCK:=1; end; procedure Free; begin      Z_TIMER.enabled:=false;      Z_TIMER.Free; end; procedure SEND_NOTICE(msg:string); begin      buf:=#$4A;      WriteD(0);      WriteD(3);      WriteS('');      WriteS(msg);      SendToClientEx('Allineer'); end; procedure On_TIMER(Sender: TObject); begin      case NEXT_PCK of           1: begin                   SEND_NOTICE('Пакет 1');                   NEXT_PCK:=2;              end;           2: begin                   SEND_NOTICE('Пакет 2');                   NEXT_PCK:=3;              end;           3: begin                   SEND_NOTICE('Пакет 3');                   NEXT_PCK:=1;              end;      end; end; begin end.

alexteam, камменты в коде из 7 поста ржачные)

Последний раз редактировалось klemberg, 18.07.2009 в 21:32.
klemberg вне форума   Ответить с цитированием
За это сообщение klemberg нажился 2 спасибками от:
Ответ

  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

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