отправка пакетов таймером

[Lelee]

ребят подскажите что не так? или я слепая. но при включении скарипта "пнх" выдает ошибку.

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.

то есть после того как выдал ошибку скрипт не отключается, при нажатии на чоц действие "да" он пишит в пм что старт все нормально, а пакеты отпралять не хочет.

[QaK]

Какую ошибку пишет? Поправил твой скрипт.

[Lelee]

[QaK]

хз, попробуй скачай последнюю версию ПНХ. ненаю из-за чего, честно.

[Lelee]

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

Добавлено через 11 минут
все пасиба, нашла )

Добавлено через 6 минут
скачала последнию версию .....68
ошибки не выдает, но пакеты не отправляет ( буду опять голову ломать)

[NLObP]

Сообщение от Lelee

ребят подскажите что не так? или я слепая. но при включении скарипта "пнх" выдает ошибку.

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

PS: Синтаксическую ошибку исправил. Сам скрипт нет возможности проверить. Визуально скрипт правильный. Может время повторения побольше поставить?

PPS: Что за пакеты клиента 19 и D0?

[Lelee]

NLObP,
пасиб большое, помогло

[Lelee]

NLObP,
19- открыть точку
D0- поместить оружие в окно заточки

сервер Грация парт 2 Ява

[kamil]

Может какая то разница в протоколах и прочего, но у меня пакеты на соц действие ДА и Нет такие
1B 06 00 00 00 //да
1B 05 00 00 00 //нет

Поискал пакет $#19 в пакетсах, нашел в T1.
Переделал под свои пакеты (packetsc5) все нормально работает.
Видимо надо другой packets...

ПС. Кстати попробуйте создать у себя такой скрипт только спамом антидотов и при count=2 SocialWaiting. Запустил за гнома выглядит ппц классно. Собрать несколько персов и будет настоящее диско...

[NLObP]

И что, этот скрипт позволяет точить? А как же id предметов/скроллов?