Перебор мультиселлов.

[hetag6]

Помогите пожалуйста с перебором мультиселлов.Видел уже подобную тему на форуме там был показан вот этот скрипт:

var
i:int64;


procedure Init;
begin
i:=1; {Тут вбиваем номер с которого мультиселла начнём брутить}
end;


begin
if FromClient and (pck[1]=#$56) then
begin
pck:='';
buf:=#$23;
WriteS('menu_select?ask=-303&reply='+inttostr(i));
SendToServer;
inc(i);
end;
end.

но он не фурычит. Помогите пожалуйста. Хроники фрея.

[hetag6]

объясню по другому. Вот смотри мы имеем пакет на покупку:
B0 9B 23 00 00 A0 86 01 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FE FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00

9B 23 00 00 = 9115 (номер листа)
A0 86 01 00 = 100000 (номер шмотки)

мне нужно чтобы скрип начал перебирать номер листа с 1 и до 999999.
И при ответе записывал нужные номера листов
как это сделать?


Добавлено через 10 минут
ппц

Добавлено через 7 минут
Тут вообще хоть кто нибудь разбирается в скриптах?

[goodvin1709]

типо если шмотка есть в етом листе то оно записывало и останавливалось?

[Nickers]

Тут вообще хоть кто нибудь разбирается в скриптах?

Нет.

Когда-то давным-давно я делал такой скрипт без таймеров (Глупый был) и он зависал. Я прыгнул с моста и больше не брался за него.

как это сделать?

На интерлюде логика примерно такая:
Берешь шаблон скрипта с таймером.
вставляешь в выполняемую часть посылку пакета, который там же и составляется.
В ListID записывается переменная. Эту переменную (следом за отправкой в таймере) увиличиваем через inc(N);

В основной части скрипта (Begin ... end.) Вставляешь if'ы. Примеров на форуме куча. 1 иф на ввод в чат заветных букав #.start (Для начала таймера) (можно еще #.stop сделать).
И еще 1 IF, который как только видет один из пакетов (Это будут пакеты, которые ты отловишь в ПХ, отвечающие за таблички "Не достаточно денег" или "Ты купил хуиту гц") Этот IF будет записывать условную переменную N (из inc) в блокнотег на диске C. (Как? Пример был на форуме, надо найти)

И все. Ничего сложного.

Я понимаю, что hetag6 уже съебал, но кому-то будет полезно. Надеюсь.