ошибочка в скрипте

[bazoooka]

const
part='01 00 00 00 03 1B 01 10 E0 02 00 00 01 00 00 00 00 00 00 00 03 1B 01 10 E0 02 00 00 01 00 00 00 00 00 00 00';
begin
buf:=#$37;
WriteD(ReadD(10));
buf:=buf+HStr(part);
SendtoServer;
end.

Спасибо форуму , добавил строчку на условие пакета If FromServer and (pck(1)=#$06) then begin и спам прекратился.
Тему можно закрывать .

[Zergatul]

о бох ты мой

что значит "part="

[bazoooka]

Константа, туда записываем часть пакета 37, которая не меняется.

[Zergatul]

part=???
ты туда ничего не запихиваешь

[kpa9pt]

part='01 00 00 00 03 1B 01 10 E0 02 00 00 01 00 00 00 00 00 00 00 03 1B 01 10 E0 02 00 00 01 00 00 00 00 00 00 00';

ДА будет щастие тебе