Показать сообщение отдельно
Старый 10.11.2012, 15:48   #1
Новичок
 
Регистрация: 10.11.2012
Сообщений: 4
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
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пкх , но иногда срабатывает ... а потом всеровно вешает
hunterNOZ вне форума   Ответить с цитированием