подскажите, как можно скрипт остановить?
переделал скрипт под свою задачу, когда чар берет стейки из сумки, жарит на форже и кидает обратно, но когда в сумке стейки заканчиваются, то скрипт продолжает работать, как его остановить полностью?
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.