Цитата:
|
инвентарем - countitem := readd(8)
|
readh....
Цитата:
|
и также остался вопрос как проверять на "существует ли значение" для обоих случаев цифрового или строчного значений.
|
Скриптовый движек к сожалению довольно ограничен.. нельзя использовать классы, приходиться извращаться..
попытайся понять что делает этот код
delphi Код:
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/ в пх давненько появилась вот функция помогающая в составлении чтения пакета с помошью ридмаск
Оффтоп