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

[v0ltag3]

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

[QaK]

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

[v0ltag3]

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

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

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

[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;

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

[Yegor]

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

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

[v0ltag3]

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

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

я делал так:

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

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

[Yegor]

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

я делал так:

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

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

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

[mks]

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

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

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