Перемаркировка рун!!! HELP PLEASE

[kexwer]

Нужен скрипт чтобы летал по рунам(всего 17) и перезарежал их при запуске скрипта...
Как все перезарядит скрипт останавливался...
Если не трудно помогите!!!

[flake]

Вписывай в массив айдишники рун и проверяй.

Code: Select all

sub Recharge()
VAR a, MyX, MyY, MyMana
Dim Rune[17]
Rune[1] = 
Rune[2] =
Rune[3] =
Rune[4] =
Rune[5] =
Rune[6] =
Rune[7] =
Rune[8] =
Rune[9] =
Rune[10] =
Rune[11] =
Rune[12] =
Rune[13] =
Rune[14] =
Rune[15] =
Rune[16] =
Rune[17] =

  For a = 1 to 17
    If UO.Mana < UO.Int Then
       Repeat
         UO.UseSkill( 'Meditation' )
         Wait(1000)
       Until UO.Mana == UO.Int
    EndIf
    Cast:
        MyX = UO.GetX()
        MyY = UO.GetY()
        UO.Cast( 'Recall', Rune[a] )
        UO.DeleteJournal()  
          Repeat
            Wait(500)
              If UO.InJournal( 'izzle' ) Then
                GoTo Cast
              EndIf
          Until MyX <> UO.GetX() AND MyY <> UO.GetY()
    Mark:
        MyMana = UO.Mana
        UO.Cast( 'Mark', Rune[a] )
        UO.DeleteJournal()  
          Repeat
            Wait(500)
              If UO.InJournal( 'izzle' ) Then
                GoTo Mark
              EndIf
          Until MyMana <> UO.Mana
  Next
end sub