Собственно, вот сам скрипт на резку шерсти по реколу,склепал его из кусков, но не получается стабилизировать то есть он как бы работает но не так как хочется чар летит на точку режет овец возвращается к лодке и запрыгивает на нее дропает шерсть потом делает дисконект и как бы должен ждать на выставленном реконекте 30 мин до следующего респа в дисконект ушел но скрипт продолжает работать , подскажите как его остановить и что бы начинал работать через 30 мин когда чар войдет в игру
program rezkawersti;
const
ItemType = $0DF8;
rbLodka = $62E13C72;
rbOvca = $62E13998;
Trap = $60E7705B;
{$Include 'all.inc'}
procedure checkreags;
begin
if (Count($0F7A) < 20) then
begin
MoveItem(FindType($0F7A,Ground),20,Backpack,0,0,0);
wait(1000);
FindType($0F7A,Ground);
Addtosystemjournal('Black Pearls осталось - ' + IntToStr(FindFullQuantity));
end;
if (Count($0F7B) < 20) then
begin
MoveItem(FindType($0F7B,Ground),20,Backpack,0,0,0);
wait(1000);
FindType($0F7B,Ground);
Addtosystemjournal('Blood Moss осталось - ' + IntToStr(FindFullQuantity));
end;
if (Count($0F86) < 20) then
begin
MoveItem(FindType($0F86,Ground),20,Backpack,0,0,0);
wait(1000);
FindType($0F86,Ground);
Addtosystemjournal('Mandrake Roots осталось - ' + IntToStr(FindFullQuantity));
end;
end;
procedure gohome;
begin
FindDistance:=3;
CheckLag;
disarm;
UseObject(rbLodka);
WaitGump(IntToStr(?));
Wait(3000);
UseObject(Trap);
UseObject(Trap);
Wait(2000);
if (Count(ItemType) > 0) then stack(ItemType,$0000);
wait(2000);
end;
procedure rezka;
begin
while findtype($00CF,ground) > 0 do
begin
CheckLag;
if TargetPresent then CancelTarget;
FindDistance := 1;
WaitTargetobject(findtype($00CF,ground));
AddToSystemJournal(IntToStr(FindCount)+' Овец');
AddToSystemJournal(IntToStr(CountEx($0DF8,$0000,backpack))+' Шерсти');
UseObject(findtype($0F51,backpack));
wait(1000);
end;
end;
BEGIN
SetARStatus(true);
Addtosystemjournal('Скрипт на скупку успешно стартовал!');
while not Dead do
begin
IgnoreReset;
UseObject(rbOvca);
WaitGump(IntToStr(?));
Wait(3000);
rezka;
gohome;
checkreags;
Disconnect;
end;
END.
Re: нужна помощь по скрипту резка шерсти по реколу