остановка скрипта

[45vvv]

привет,
подскажите, как можно скрипт остановить?

переделал скрипт под свою задачу, когда чар берет стейки из сумки, жарит на форже и кидает обратно, но когда в сумке стейки заканчиваются, то скрипт продолжает работать, как его остановить полностью?

Code: Select all

program CookingUp;
// Прокачка кукинга на рыбных стейках и форже
// (с) Edred, v.1.00 (первая и последняя)

{$Include 'all.inc'}

const
RawSteak = $097A;
HotSteak = $097B;
HowMinRawSteak = 5;
HowGetRawSteak = 100;
HowMaxHotSteak = 100;
Forge = $40071A29;
SundFish = $4041F96E;

var
ctime : TDateTime;
k : integer;


   procedure GetSteak;   
 begin 
  FindType(RawSteak,Backpack); 
  If Count(RawSteak) < HowMinRawSteak then 
    begin 
      UseObject(SundFish); 
      wait(250); 
      FindType(RawSteak,SundFish); 
      if FindCount > 0 then 
        begin 
          MoveItem(FindItem,HowGetRawSteak,Backpack,0,0,0); 
          wait(250); 
        end 
      else 
        Addtosystemjournal('Нет стейков в ящике, добавьте'); 
       end;
end;

   procedure DropSteak;
   begin 
      waitconnection(3000);
      If Count(HotSteak) >= (HowMaxHotSteak) then
      begin
         k := Count(HotSteak); 
         FindType(HotSteak, backpack); 
         while FindCount > 0 do 
         begin 
            MoveItem(FindItem, 0, SundFish, 0, 0, 0); 
            wait(1000); 
            checksave; 
            waitconnection(3000);
            FindType(HotSteak, backpack); 
         end; 
      end; 
   end;

Begin
   FindDistance:=2;
   while true do
   begin
      waitconnection(5000);
      if TargetPresent then CancelTarget;
      if (WarMode = true) then SetWarMode(false);
      Useobject(SundFish); 
      DropSteak;
      GetSteak;
      ctime := Now;
      Useobject(FindType(RawSteak, BackPack)) 
      begin
         WaitForTarget(5000);
         If TargetPresent then TargetToObject(Forge);
         k := 0;
         repeat
            wait(100);
            k := k + 1;
         until (InJournalBetweenTimes('You burn|You put', ctime, Now)<>-1) or (k > 300);
      end;
   end;   
End.

в журнале начинают повторяться фразы:

Code: Select all

Нет стейков в ящике, добавьте
UseObject error: Object not found.

[CFA]

привет,
подскажите, как можно скрипт остановить?

переделал скрипт под свою задачу, когда чар берет стейки из сумки, жарит на форже и кидает обратно, но когда в сумке стейки заканчиваются, то скрипт продолжает работать, как его остановить полностью?

Замени

Code: Select all

        Addtosystemjournal('Нет стейков в ящике, добавьте'); 

на

Code: Select all

        raiseException(erCustomError, 'Нет стейков в ящике, добавьте');