Доброго времени суток.
Постигая азы L2PacketHack столкнулся с одной проблеммой -
у меня есть 3 пакета, которые посылает клиент, мне нужно зацыклить их, чтобы они отправлялись поочереди, с определённым интервалом. Тоисть выглядит это так - 1-ый пакет отсылается, идёт задержка в 10 секунд потом отсылается пакет номер 2, снова задержка и отсылается пакет номер 3 и цыкл начинался сначала, с первого пакета.
Заранее благодарю за помощь.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок, а в том, чтобы писать программы, работающие при любом количестве ошибок.
Цитата:
[10-06, 14:15] efreet Заплачу за настройку l2px
[11-06, 09:25] xkor не плач)
Дай плз ссылку на инфу, не владею навыками написания скриптов под l2ph, готовые смотрел, нечего не понял. На Валкер с закрытыми глазами пишу) но тут другие команды и условия написания
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок, а в том, чтобы писать программы, работающие при любом количестве ошибок.
Цитата:
[10-06, 14:15] efreet Заплачу за настройку l2px
[11-06, 09:25] xkor не плач)
Нашол горы флуда, но полезного практически нечего, если не трудно, помогите с скриптом. Не верю что алгоритм, отсылающий 3 пакета поочереди с определённым интервалом, так сложен в написании. Покамисть самому знания l2ph не позволяют
Там лежит готовый скрипт, половину написаного не понимаю, я же писал, не знаю команды и тд, я его даже не переделаю под то что мне нада.
Добавлено через 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);
begincase 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.
Причина: Добавлено сообщение
Скрипт вышел полностью не рабочий, на каждом шагу ошибки синтаксиса.....
это ведь твои ошибки синтаксиса.. не так ли ?
а... к стати.. скрипт - каша. полнейшая каша.
для начала разберись что в исходном каждая строчка обозначает - а уж потом меси свое.
Добавлено через 2 минуты
и еще. исходный QaK'овский и так зациклен. лишние шаги просто убрать надо.
__________________
L2Ext - project closed.
Последний раз редактировалось alexteam, 18.07.2009 в 21:26.
Причина: Добавлено сообщение
Почитай, что я писал в предыдущих постах, я в притык не понимаю что и как, говоря откровенно, я не знаю не условий написания, не команд, поэтому и обращзаюсь сюда.
Последний раз редактировалось RedSkyShamrik, 18.07.2009 в 21:25.