Кружок нубов(Вопрос-Ответ)

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[cherepok]

мб подскажет ктонить как пройти защиту на руофф запускаю окно через факконсоль.
(бот работает нормально)

[Yegor]

cherepok, защитить докторскую по взлому криптозащиты ну и потом сам разберешся. Мы пока даже не кандидаты.

[v0ltag3]

как сделать задержку скрипта до тех пор пока pck[1] не будет 7C?

[QaK]

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

[Yegor]

v0ltag3, точнее сформулируй, что значит задержка?

Не выполнять определенный скрипт пока pck[1] <> 7C
или вообще ничего не выполнять.

[v0ltag3]

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

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

Я отправляю пакет UseItem, после чего мне нужно отправить следующий пакет, но только после того как придет пакет с началом 7C

[mks]

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

как сделать задержку скрипта до тех пор пока pck[1] не будет 7C?

if pck[1]<>#$7C then exit;

[v0ltag3]

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

Не выполнять определенный скрипт пока pck[1] <> 7C
или вообще ничего не выполнять.

я делал так:

repeat
until pck[1]=#$7C;

но не получилось

[Yegor]

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

я делал так:

repeat
until pck[1]=#$7C;

но не получилось

Конечно не получилось. А откуда между Repeat и until в pck возмется новое значение? Проверяй как написали выше. При каждом приходе пакета. Если нужно перехватить именно после отправки то введи дополнительную переменную.

[QaK]

v0ltag3,
добавляешь в раздел описания переменных новую переменную, при иницаализации скрипта обнуляешь ее, при срабатывании условия ставишь нужное тебе значение.

var var_1:integer;
procedure Init;
begin
//......................
var_1:=0;
//......................
end;

//......................
begin
//...............
//..........
//при каких-нибудь действиях, например, после юз итем ставишь
var_1:=1;
//................
//после этого ставишь дополнительное условие
if pck[1]=#$7C then 
begin
if var_1=1 then //обнуляем переменную
var_1:=0;
//ну и проверяешь, если 
{.........} if var_1=0 then UseItem(1234{юзаем следующий итем});
end;
//...............
end;

З.Ы. Старался максимально запутать ситуевину =)