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

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

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