Задержка на каст

[Thundestorm]

Code: Select all

sub ct()
VAR MyMana = UO.Mana
VAR k = 0

UO.Cast( 'Bless', 'self')
  While UO.Mana == MyMana
    Wait(100)
    k = k + 1
  Wend

UO.Print( 'Casting time :  '+ STR(k)+ ' ms' )
end sub

У нас на сервер при касте спелов, один за другим мана регениться, не всегда точное время каста.Как это исправить?
И еще, как сделать что бы этот макрос пахал на любой каст который я кастую и зациклить его.

[Makarov]

А время зачем засекать?

Если я тебя правильно понял:
перед запуском кастуй нужное заклинание, и скрипт будет его повторять (сам не проверял , должно пахать).

Code: Select all

sub CastLastSpell()
var ManaForSpell=10 ; выставь сколько должно быть минимум маны для заклинания

   repeat
      If UO.mana>=ManaForSpell Then
         sendex @R ; Alt+R это в клиенте клавиши повторить последнее заклинание, проверь у себя Options - вкладка Macro Options
         sendex @T ; из клавиш клиента - Last Target
         wait(3500) ; или сколько нужно
      Else
         while uo.mana<(ManaForSpell) ; если маны меньше чем надо - медитируешь
            UO.useskill('Meditation')
            wait(3000)
         wend
      EndIf
   until false ; повторяет бесконечно
end sub