L2PacketHackФорум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела!
Категорически запрещено:
* Просить пакеты/скрипты на шмот/адену/другие вещи;
* Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
* Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
* Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
* Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
* Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
* Данные запреты неподлежат обсуждению.
ребят подскажите что не так? или я слепая. но при включении скарипта "пнх" выдает ошибку.
Код:
const
count:integer; //- счетчик
procedure Init; //вызывается при включении скрипта
begin
count:=1;
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer1; //
timer1.enabled:=false; //
timer1.interval:=1000;
end;
procedure Free; //вызывается при выключении скрипта
begin
timer1.Free;
end;
procedure Say(msg:string);
begin
buf:=hstr('4A 00 00 00 00');
WriteD(2);
WriteS(Name);
SendToClientEx(Name);
end;
procedure OnTimer1(Sender: TObject);
begin
if count=1 then
begin
buf:=hstr('19 2A 42 30 10 00 00 00 00');
count:=2;
end
else begin
buf:=hstr('D0 51');
count:=1;
end;
SendToServerEx(Namе);
end;
begin
//****************************************************************************
//не обрабатываем пустые пакеты
if pck='' then exit;
//****************************************************************************
//чоц дейтсвие "да" для начало спама пакетов
if FromClient and (ConnectName=Name) and (pck=HStr('34 06 00 00 00')) then begin
Say('Старт!!!');
timer1.enabled:=true;
end;
// соц действие "нет" для отключения спама
if FromClient and (ConnectName=Name) and (pck=HStr('34 05 00 00 00')) then begin
Say('Стопï!!!');
timer1.enabled:=false;
end;
end.
то есть после того как выдал ошибку скрипт не отключается, при нажатии на чоц действие "да" он пишит в пм что старт все нормально, а пакеты отпралять не хочет.
Последний раз редактировалось Lelee, 17.12.2008 в 18:37.
Причина: ещё чуть-чуть поправил скрипт
QaK,
скачивала с вашего форума.
выше этой версии не нашла, если не сложно напишите ссылку, пожалйуста, потмоу что искать в яндексе боюсь, до этого был "пнх" но весь вирусный, заразил мне всю винду, пришлось переустанавливать.
терь доверяю тока вашему форуму
Добавлено через 11 минут
все пасиба, нашла )
Добавлено через 6 минут
скачала последнию версию .....68
ошибки не выдает, но пакеты не отправляет ( буду опять голову ломать)
Последний раз редактировалось Lelee, 12.12.2008 в 14:42.
Причина: Добавлено сообщение
Может какая то разница в протоколах и прочего, но у меня пакеты на соц действие ДА и Нет такие
1B 06 00 00 00 //да
1B 05 00 00 00 //нет
Поискал пакет $#19 в пакетсах, нашел в T1.
Переделал под свои пакеты (packetsc5) все нормально работает.
Видимо надо другой packets...
ПС. Кстати попробуйте создать у себя такой скрипт только спамом антидотов и при count=2 SocialWaiting. Запустил за гнома выглядит ппц классно. Собрать несколько персов и будет настоящее диско...