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

[alexteam]

инвентарем - countitem := readd(8)

readh....

и также остался вопрос как проверять на "существует ли значение" для обоих случаев цифрового или строчного значений.

Скриптовый движек к сожалению довольно ограничен.. нельзя использовать классы, приходиться извращаться..
попытайся понять что делает этот код

procedure Init; //will be called on script initialization
var
list : tstringlist;
begin
list := tstringlist.create;
list.add(inttostr(123));
list.add(inttostr(321));
list.add('такая строчка есть');
sendMSG(inttostr(list.indexof(inttostr(123))));
sendMSG(inttostr(list.indexof(inttostr(321))));
sendMSG(inttostr(list.indexof(inttostr(222))));
sendMSG(inttostr(list.indexof(inttostr(222))));
sendMSG(inttostr(list.indexof('такая строчка есть')));
sendMSG(inttostr(list.indexof('а такой строчки в стринглисте нет')));

list.free;
end;

Добавлено через 4 минуты
ps/ в пх давненько появилась вот функция помогающая в составлении чтения пакета с помошью ридмаск
Оффтоп