Yoko

Вот нашел скриптик но не получается переделать можете переделать на ид а не потипу Мне над чтоб за чарами следил и хили

##################################################
###################
; Veterinar2. v.1.03 (c) Edred ñ íåáîëüøîé ðåäàêöèåé îò Unf è ïèêà÷óøêè.
;
; Ñòàâèì äâå ëîøàäè íàïðîòèâ äðóã äðóãà, êëàäåì â ñóíäóê ðÿäîì ñ ÷àðîì
; ÷èñòûå áèíòû.Ñêðèïò êîíòðîëèðóåò çäîðîâüå îáåèõ ëîøàäåé
; è, åñëè íåîáõîäèìî, ïîäëå÷èâàåò èõ ñ áèíòîâ. Áèíòû îí áåðåò èç ñóíäóêà
; è òóäà æå ñêèäûâàåò ãðÿçíûå.Ñêðèïò ñàì îïðåäåëÿåò ñåðèàëû ëîøàäåé.
; Ëîøàäè äîëæíû ñòîÿòü ðàäîì ñ ÷àðîì, èíà÷å îí èõ íå íàéäåò. Çàïóñêàåì ñêðèïò
; ãîâîðèì All kill, íàòðàâëÿåì îäíó ëîøàäü íà äðóãóþ è âñå ñêðèïò çàïóùåí.
sub veterinar2()
   VAR Sunduk = '0x4022BFCE'; Ñåðèàë ñóíäóêà ñ áèíòàìè è ìåäîì
   VAR Bandag = '0x0E21'    ; Òèï áèíòîâ
   VAR BlBandag = '0x0E20'  ; Òèï ãðÿçíûõ áèíòîâ
   VAR Horse1, Horse2, k
   VAR HorTyp1 = '0x0190', HorTyp2 = '0x0190'
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
    
   UO.UseObject( Sunduk )
   wait(1000)
   ### Áëîê îïðåäåëåíèÿ ñåðèàëîâ ëîøàäåé
   UO.Set( 'finddistance', '4' )
   UO.FindType( HorTyp1, '-1', '1' )
   If UO.FindCount() == 0 Then
      UO.FindType( HorTyp2, '-1', '1' )
      If UO.FindCount() == 0 Then
         UO.Print( 'Horse 1 not found!' )
         return
      Endif
   Endif
   Horse1 = UO.GetSerial( 'finditem' )
   UO.Print( Horse1 )
   UO.Ignore( 'finditem' )
   UO.FindType( HorTyp1, '-1', '1' )
   If UO.FindCount() == 0 Then
      UO.FindType( HorTyp2, '-1', '1' )
      If UO.FindCount() == 0 Then
         UO.Print( 'Horse 2 not found!' )
         UO.IgnoreReset()
         return
      Endif
   Endif
   Horse2 = UO.GetSerial( 'finditem' )
   UO.Print( Horse2 )
   UO.IgnoreReset()
  
   ### Áëîê ïðîêà÷êè
   While UO.SkillVal( 'Veterinary' ) < 1000
      If UO.Count( Bandag ) < 10 Then
         UO.FindType( Bandag, '-1', Sunduk )
         If UO.FindCount() > 0 Then
            UO.MoveItem( 'finditem', '200' )
            wait(500)
         Else
            UO.Print( 'Bandage not found! Script terminated!' )
            return
         Endif
         UO.FindType( BlBandag )
         If UO.FindCount() > 0 Then
            UO.MoveItem( 'finditem', '0', sunduk )
            wait(500)
         Endif
      Endif
      
      If ( UO.GetHP( Horse1 ) < UO.GetMaxHP( Horse1 ) ) OR ( UO.GetHP( Horse2 ) < UO.GetMaxHP( Horse2 ) ) Then
         # Çäåñü ÿ ðåøèë îðãàíèçîâàòü òàê: ÷àð ëå÷èò ñíà÷àëà òó ëîøàäü, çäîðîâüÿ ó êîòîðîé ìåíüøå. Åñòåñòâåííî,
         # åñëè îäíà èç ëîøàäåé çäîðîâà - òî ó âòîðîé ìåíüøå çäîðîâüÿ, èíà÷å áû ìû â If íå âîøëè.
         If UO.GetHP( Horse1 ) < UO.GetHP( Horse2 ) Then
      ; ëå÷èì ïåðâóþ ëîøàäü
            UO.Print( 'Veterinary!' )
            UO.WaitTargetObject( Horse1 )
            UO.UseType( Bandag )
            wait(3500)
         Endif
         If UO.GetHP( Horse1 ) > = UO.GetHP( Horse2 ) Then
      ; ëå÷èì âòîðóþ ëîøàäü
            UO.Print( 'Veterinary!' )
            UO.WaitTargetObject( Horse2 )
            UO.UseType( Bandag )
            wait(3500)
         Endif

          Else
         wait(300)
      Endif      
   Wend
   end sub

Ваще тема такая стоит 2 чара бьют друг друга а 3 стоит хилит того у которого меньше !
Я типы чаров кинул сначало все норм работало а потом я перезашел перестал одного чара хилить тупо игнорирует:(
За ранее спс

sub veterinar2()
   VAR Sunduk = '0x4022BFCE'; Ñåðèàë ñóíäóêà ñ áèíòàìè è ìåäîì
   VAR Bandag = '0x0E21'    ; Òèï áèíòîâ
   VAR BlBandag = '0x0E20'  ; Òèï ãðÿçíûõ áèíòîâ
   VAR k
   VAR Horse1 = 'айди', Horse2 = 'айди'
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
    
   UO.UseObject( Sunduk )
   wait(1000)
   ### Áëîê îïðåäåëåíèÿ ñåðèàëîâ ëîøàäåé
   #UO.Set( 'finddistance', '4' )
   #UO.FindType( HorTyp1, '-1', '1' )
   #If UO.FindCount() == 0 Then
      #UO.FindType( HorTyp2, '-1', '1' )
      #If UO.FindCount() == 0 Then
         #UO.Print( 'Horse 1 not found!' )
         #return
      #Endif
   #Endif
   #Horse1 = UO.GetSerial( 'finditem' )
   #UO.Print( Horse1 )
   #UO.Ignore( 'finditem' )
   #UO.FindType( HorTyp1, '-1', '1' )
   #If UO.FindCount() == 0 Then
      #UO.FindType( HorTyp2, '-1', '1' )
      #If UO.FindCount() == 0 Then
         #UO.Print( 'Horse 2 not found!' )
         #UO.IgnoreReset()
         #return
      #Endif
   #Endif
   #Horse2 = UO.GetSerial( 'finditem' )
   #UO.Print( Horse2 )
   #UO.IgnoreReset()
  
   ### Áëîê ïðîêà÷êè
   While UO.SkillVal( 'Veterinary' ) < 1000
      If UO.Count( Bandag ) < 10 Then
         UO.FindType( Bandag, '-1', Sunduk )
         If UO.FindCount() > 0 Then
            UO.MoveItem( 'finditem', '200' )
            wait(500)
         Else
            UO.Print( 'Bandage not found! Script terminated!' )
            return
         Endif
         UO.FindType( BlBandag )
         If UO.FindCount() > 0 Then
            UO.MoveItem( 'finditem', '0', sunduk )
            wait(500)
         Endif
      Endif
      
      If ( UO.GetHP( Horse1 ) < UO.GetMaxHP( Horse1 ) ) OR ( UO.GetHP( Horse2 ) < UO.GetMaxHP( Horse2 ) ) Then
         # Çäåñü ÿ ðåøèë îðãàíèçîâàòü òàê: ÷àð ëå÷èò ñíà÷àëà òó ëîøàäü, çäîðîâüÿ ó êîòîðîé ìåíüøå. Åñòåñòâåííî,
         # åñëè îäíà èç ëîøàäåé çäîðîâà - òî ó âòîðîé ìåíüøå çäîðîâüÿ, èíà÷å áû ìû â If íå âîøëè.
         If UO.GetHP( Horse1 ) < UO.GetHP( Horse2 ) Then
      ; ëå÷èì ïåðâóþ ëîøàäü
            UO.Print( 'Veterinary!' )
            UO.WaitTargetObject( Horse1 )
            UO.UseType( Bandag )
            wait(3500)
         Endif
         If UO.GetHP( Horse1 ) > = UO.GetHP( Horse2 ) Then
      ; ëå÷èì âòîðóþ ëîøàäü
            UO.Print( 'Veterinary!' )
            UO.WaitTargetObject( Horse2 )
            UO.UseType( Bandag )
            wait(3500)
         Endif

          Else
         wait(300)
      Endif      
   Wend
   end sub

там просто первую половину скрипта удалить )