Stealth Client Forum

Posted: **15.09.2011 22:04**

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 - эта процедура вызывает инвиз рекол все как положено, но проблема заключается в том, как склеить это всё в единое целое, чтобы после наступления события и ухода от пк, программа продолжила с следующей шахты уже пропуская последнюю. Кому интересно могу в личку скинуть полную версию скрипта.

Posted: **19.09.2011 12:37**

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

Posted: **19.09.2011 22:51**

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

Stealth Client Forum

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

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

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

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