Нужна помощь в переделке скрипта

[ForSer]

Вобщем есть пакет на перебор мультиселлов на ПТС серверах

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.

Все нормально пашет, не забываем что сервер меняет пакеты каждую новую сессию, поэтому меняем выделенные значения.
56 (RequstActionUse) - это первый байт пакета, который будет проматывать листы, делаем соответствующие действие (к примеру бег или таргет), смотрим пакет и вписываем первый байт в скрипт.
23 - первый байт наших листов. Открываем любой лист (Multisell), смотрим пакет, меняем 23 на первый байт из пришедшего пакета.

Как этот скрипт изменить под Ява сервер?

Вот как он работает на нем

Подхожу к ГМшопу, открываю список мультов, запускаю скрипт и теперь при нажатии на соц действие приветствия у меня отправляеться серверу вот такой пакет

Tип: 0x23 (RequestBypassToServer)
Pазмер: 67+2
Время прихода: 13:29:55:387
0002 s Command: menu_select?ask=-303&reply=11113

23 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 2D 00 33 00 30 00 33 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 31 00 31 00 31 00 31 00 33 00 00 00

но вот почему то этот пакет получаеться должен открывать мультисел 11113

но он его не открывает хотя вот он сам пакет этого мульта через обычное открытие в гм шопе.

Tип: 0x23 (RequestBypassToServer)
Pазмер: 61+2
Время прихода: 13:31:59:153
0002 s Command: npc_268476624_multisell 11113

23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 36 00 36 00 32 00 34 00 5F 00 6D 00 75 00 6C 00 74 00 69 00 73 00 65 00 6C 00 6C 00 20 00 31 00 31 00 31 00 31 00 33 00 00 00

[Nickers]

Есть 2 варианта:
1й Я ничерта не понял, что делает этот скрипт...

2й Этот скрипт направлен на поиск разделов Мульти селла скрытых от глаз ламеров...
По поводу 2го: Вобщем есть скрипт* на перебор мультиселлов на ПТС серверах

Хм я пытался такой делать)) Но тогда про таймеры не знал и ПХ зависал насмерть Т_Т

Ты бредишь)) Зачем ты вообще взялся за этот пакет?
Чтоб проверить ативные Мультиселлы нада и посылать мульти селл пакет на покупку... Когда покупает или пишет сис. сообщение сохраняется в txt, иначе пропускается) Ну или как то так))

Вообще ты сам с 0ля писал? Если нет, то это и было прямое предназначение скрипта?

Добавлено через 2 минуты
Дай полный скрипт и объясни поточней че он делаит))
Я тя направлю (Или не я)

[ForSer]

Есть 2 варианта:
1й Я ничерта не понял, что делает этот скрипт...

2й Этот скрипт направлен на поиск разделов Мульти селла скрытых от глаз ламеров...
По поводу 2го:

Хм я пытался такой делать)) Но тогда про таймеры не знал и ПХ зависал насмерть Т_Т

Ты бредишь)) Зачем ты вообще взялся за этот пакет?
Чтоб проверить ативные Мультиселлы нада и посылать мульти селл пакет на покупку... Когда покупает или пишет сис. сообщение сохраняется в txt, иначе пропускается) Ну или как то так))

Вообще ты сам с 0ля писал? Если нет, то это и было прямое предназначение скрипта?

Добавлено через 2 минуты
Дай полный скрипт и объясни поточней че он делаит))
Я тя направлю (Или не я)

Скрипт предназначен для поиска скрытых мультиселов :) которые не отображаються в списке мультов гм шопа. Он их перебирает, скрипт писал не я. Это полный скрипт :)

[Nickers]

Ты все усложнил... Сотри и заново напиши сам :D
Мне влом писать правильный скрипт т.к. До пх нада открыть 3 папки...
А это невыносимо тяжело если вы такой пельмень как я :D

Добавлено через 1 минуту
А откуда скриптик взят?

[ForSer]

Ты все усложнил... Сотри и заново напиши сам :D
Мне влом писать правильный скрипт т.к. До пх нада открыть 3 папки...
А это невыносимо тяжело если вы такой пельмень как я :D

:D не ну так неприкольно, есть мааааассссенькая проблемка, я в скриптописании нечивчу) как писал выше, скрипт не я писал я лишь его нашел, а потом его разобрали и выяснилось что он под птс а как под яву переправить известно повидимому только тут, вот за этим я и отписал.

п.с. бубен не помогает танцевал долго.

[Nickers]

Мде... буит время напишу скриптик такой, когда наконец ПХ открою :D

[Mixa90]

var
i:int64;
procedure Init;
begin
i:=10004; {Тут вбиваем номер с которого мультиселла начнём брутить}
end;
begin
if FromClient and (pck[1]=#$56) then
begin
pck:='';
buf:=#$23;
WriteS('_bbsmultisell:'+inttostr(i));
SendToServer;
inc(i);
end;
end.

Такой вопрос путь до мультисела выглядит вот так:
_bbsmultisell:10004;_bbspage:Shop/shop

Как прописать в строке WriteS('_bbsmultisell:'+inttostr(i));
чтоб значение i:=10004; находилось между _bbsmultisell: и _bbspage:Shop/shop ?

//WriteS('_bbsmultisell:'+inttostr(i)+';_bbspage:Sho p/shop ') - не?

Добавлено через 1 час 27 минут
Да спасибо.