Stealth Client Forum

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;

Code: Select all

if b[1]=stroka then proc_1;

Code: Select all

b:=TStringList.Create;
...
b.free;

Code: Select all

 if b.strings[1]=stroka then proc_1;

Code: Select all

 if b[1]=stroka then proc_1;

Code: Select all

    stringlist := tstringlist.create;
      while isgump do closesimplegump(0);
      usetype(runebooktype, runebookcolor);
      wait(300);
      getgumptextlines(0, stringlist);
      count := copy(stringlist[12], 10, length(stringlist[12]));
      if strtoint(count) < 30 then addtosystemjournal('Мужик! У меня в рунбуке мало зарядов: ' + count);
      numgumpbutton(0, buttonnum);
    stringlist.free;

Code: Select all

if (b.Count > 0) and (b.strings[1]=stroka) then proc_1;

Code: Select all

CloseSimpleGump(0);
CloseSimpleGump(0);
b:=TStringList.Create;
a:=GetGumpsCount;
UseObject($00000357);   //разговор с NPC, выдает гамп с названием квеста, которое нужно распознать.
for timer_1:=0 to 20 do begin
      if GetGumpsCount>a then break;
      wait(150);
end;
if GetGumpsCount>0 then begin
      GetGumpTextLines(GetGumpsCount-1,b);      //вылетает именно на этой строке. проверял "addtosystemjournal"
      if b.strings[1]=stroka then proc_1;             
      CloseSimpleGump(0);
      b.free;
end;

Code: Select all

if (b.Count > 0) ...