Stealth Client Forum

Code: Select all

...
repeat
          if FindTypeEx($0267,$045E,ground, true) > 0 then
          begin
            WaitTargetObject(FindItem);
            UseObject($5CA5A0EB);    
          end;

ВОТ ТУТ У МЕНЯ ВОЗНИКЛА ТРУДНОСТЬ(

until ((dead) or (Weight>350));

Code: Select all

var
  cTime: tdatetime;

begin
  while (NOT dead) AND (weight < 350) AND (findtypeex($0267, $045E, ground, true) > 0) do begin
    if (injournalbetweentimes('удача|неудача', cTime, now) > 0) OR (now >= cTime + 1.0/(24*60*3)) then begin
      wait(7000);
      cTime := now;
      waittargetobject(finditem);
      useobject($5CA5A0EB);
    end;

    wait(300);
  end;
end.

Code: Select all

repeat
      wait(1000);
 
          if FindTypeEx($0267,$045E,ground, true) > 0 then
          begin
            
            WaitTargetObject(FindItem);
            UseObject($5CA5A0EB);    
          end;
           
          repeat
          repeat
          ctime:= Now;
          CheckGump;

          ClearJournal;
          until (InJournalBetweenTimes('текст1|текст2',ctime,Now)<>0);
          until (InJournalBetweenTimes('текст1|текст2',ctime,Now)<>1) and (Delay + 7000 <= Timer);
          
          ClearJournal; 
until (dead);