нужна помощь по скрипту резка шерсти по реколу

[proff-2010]

Собственно, вот сам скрипт на резку шерсти по реколу,склепал его из кусков, но не получается стабилизировать то есть он как бы работает но не так как хочется чар летит на точку режет овец возвращается к лодке и запрыгивает на нее дропает шерсть потом делает дисконект и как бы должен ждать на выставленном реконекте 30 мин до следующего респа в дисконект ушел но скрипт продолжает работать , подскажите как его остановить и что бы начинал работать через 30 мин когда чар войдет в игру

ошибка

Code: Select all

6:46:45:351 [Крафт]: Black Pearls осталось - 582
16:46:46:452 [Крафт]: Blood Moss осталось - 582
16:46:47:558 [Крафт]: Mandrake Roots осталось - 573
16:46:48:562 [Крафт]: Character Amika Disconnected.
16:46:49:573 [Крафт]: UseObject error: Object not found.
16:46:52:702 [Крафт]: UseObject error: Object not found.
16:46:55:703 [Крафт]: UseObject error: Object not found.
16:46:55:704 [Крафт]: UseObject error: Object not found.
16:47:00:705 [Крафт]: Drag error: Object not found.
16:47:01:706 [Крафт]: Black Pearls осталось - 0
16:47:01:707 [Крафт]: Drag error: Object not found.
16:47:02:708 [Крафт]: Blood Moss осталось - 0
16:47:02:709 [Крафт]: Drag error: Object not found.
16:47:03:710 [Крафт]: Mandrake Roots осталось - 0
16:47:05:711 [Крафт]: UseObject error: Object not found.
16:47:08:840 [Крафт]: UseObject error: Object not found.
16:47:11:841 [Крафт]: UseObject error: Object not found.
16:47:11:842 [Крафт]: UseObject error: Object not found.
16:47:16:843 [Крафт]: Drag error: Object not found.
16:47:17:844 [Крафт]: Black Pearls осталось - 0
16:47:17:845 [Крафт]: Drag error: Object not found.
16:47:18:846 [Крафт]: Blood Moss осталось - 0
16:47:18:847 [Крафт]: Drag error: Object not found.
16:47:19:848 [Крафт]: Mandrake Roots осталось - 0.
16:48:28:377 [Крафт голден Amika]: Succesfully executed
16:48:28:378 [Крафт голден Amika]: Script рекол шерсть тест.sc stopped successfuly

скрипт

Code: Select all

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.

[murderinc]

SetPauseScriptOnDisconnectStatus

[proff-2010]

подскажи как эту функцию правильно внедрить

[proff-2010]

вроде разобрался пока тестирую

[proff-2010]

эта функция не помогает ибо бывают внезпные дисконекты ....есть еще варианты ?

[nah nah]

Code: Select all

def check_connection():
    while not GetConnectedStatus():
        Connect()
        time.sleep(0.100)

аналог такой штуки распихать по всем циклам

[murderinc]

а просто после дисконекта добавить

Code: Select all

   ...
   Disconnect;
   while not connected do wait(5000); 
  end;