Паринг

[some]

Доброго времени суток .
Помогите пожалуйста сделать такой скрипт на паринг :
чар стоит со щитом , если сломался - одевает новый и тупо хилится если стр меньше указанной отметки , при этом чар НЕ должен атачить в ответ того, кто его бьет - тупо хил .
заранее спасибо

[Mirage]

смысл в апе через минуту? Афигенно опустили?
3 действия в операторах условий в цикл забить - делов то.

Code: Select all

sub Healing1()
   var x = uo.GetGraphic(uo.ObjAtLayer('Lhand')) ; не помню щит в левой или правой руке - если что на Rhand исправь
   var k
   While not UO.Dead()
      if uo.warmode() == 1 then
         uo.warmode(0)
         wait(100)
      endif
      If UO.Life < uo.str Then
         uo.bandageself()
         Wait(3000)
      Endif
      If x <> uo.GetGraphic(uo.ObjAtLayer('Lhand')) Then
         uo.Equipt('Lhand',x)
      Endif
      Wait(100)
   Wend
End Sub
sub Healing2() ; более понтовый но дольше настраивать.
   var x = uo.GetGraphic(uo.ObjAtLayer('Lhand')) ; не помню щит в левой или правой руке - если что на Rhand исправь
   var k
   While not UO.Dead()
      if uo.warmode() == 1 then
         uo.warmode(0)
         wait(100)
      endif
      If UO.Life < uo.str Then
         if uo.warmode() == 1 then
            uo.warmode(0)
            wait(100)
         endif
         UO.DeleteJournal()
         uo.bandageself()
         k=0
         repeat
            Wait(100)
            k=k+1
         until UO.InJournal('You put|You failed|but they barely') or k>300
      Endif
      If x <> uo.GetGraphic(uo.ObjAtLayer('Lhand')) Then
         uo.Equipt('Lhand',x)
      Endif
      Wait(100)
   Wend
End Sub

[some]

fast question-fast answer
Спасибо