Скрипт для поиска мультиселлов (корявый)

[hunterNOZ]

Помогите поправить скрипт .

Скрипт ищет с msd номера мультиселла до msp .

const
msd=0; //типо начало
msp=777; //типо конец

var
ms:integer;
mss:string;

begin
for ms:=msd to msp do
Begin
delay(50);
mss:=inttostr(ms);
//отправка пакета с номером
buf:=#$23;
WriteS('_bbsshop_multisell '+mss);
SendToServer;
delay(50);
//проверка прихода пакета на открытие мультиселла
if FromServer and (pck[1]=#$D0) then
begin
delay(50);
//отправка в чат клиента найденного мультиселла
buf:=#$4A;
WriteD(0);
WriteD(0);
WriteS('Search');
WriteS('Multisell '+mss);
SendToClient;
end;
end;
end.

Проблема в том что скрипт вешает л2пкх , но иногда срабатывает ... а потом всеровно вешает

[wimax]

delay(50); тупо

[J-Fobos]

Красота, че За десяток секунд сотня циклов набирается.

[hunterNOZ]

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

delay(50); тупо

Задержка стоит для того чтобы не грузить канал пакетами ...

[Zergatul]

Лол, для такого надо таймер юзать

[wimax]

мне от интересно ты свой сервер случаем не положишь таким спамом?))))

[Yegor]

А что сервер дает возможность напрямую мультиселлы вызывать по номерам?

[hunterNOZ]

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

А что сервер дает возможность напрямую мультиселлы вызывать по номерам?

есть один сервак с корявым гмшопом , да и так на нём всё почти работает

[Roman32]

В личку можно?что за серв)

[hunterNOZ]

Ребята ... а ктонить может показать как примерно Таймер работает ?