Мининг по шахтам + защита от ПК

[Tiger89]

Code: Select all

Begin
    moveOpenDoor := True;
    moveCheckStamina := 1;
    moveThroughNPC := 100;
    moveBetweenTwoCorners := False;
    moveThroughCorner := False;
    Runes := [..............];

    SetEventProc(evDrawObject,'DrawObject');
    GoToRespawn;
    
End.

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

Code: Select all

Procedure GoToRespawn;
  Var
    RuneId: Cardinal;
  Begin
    RuneId := NextRune;
    If RuneId <> 0 Then
      Begin
        Recall(RuneId, True);
        //Mark(RuneId, 20);
        Mining;
        GoToRespawn;
      End;
  End; 

Внутри процедуры Mining вызываются другие процедуры по цепочке и так далее.
У меня есть такой ивент как SetEventProc(evDrawObject,'DrawObject');
DrawObject - эта процедура вызывает инвиз рекол все как положено, но проблема заключается в том, как склеить это всё в единое целое, чтобы после наступления события и ухода от пк, программа продолжила с следующей шахты уже пропуская последнюю. Кому интересно могу в личку скинуть полную версию скрипта.

[SaNeK]

Как понимаю, у тебя пробиты все шахты по номерам. Добавь к каждой шахте метку фалс/труе.
И перед реколом в нее смотри можно или нет. Можно еще таймер добавить, чтобы каждые 2 ч делал шахту доступной )

[Tiger89]

С этим ладно, позже вернемся. А вот как прикрутить к основному скрипту процедуру инвиз рекола, и чтобы после продолжилась работа скрипта со следующего респа. Кому интересно могу полную версию показать