Exception: List index out of bounds (1) at 0.1095
и закрывает скрипт.
Ошибка где-то в этом куске кода, но не могу понять что не так:
Code: Select all
while count(item_1)>0 do begin
b:=TStringList.Create;
UseObject($00000357);
for timer_1:=0 to 15 do wait(200);
GetGumpTextLines(GetGumpsCount-1,b);
if b.strings[1]=stroka then proc_1;
CloseSimpleGump(0);
b.free;
end;