####################################
#####Mana Vampire на животное#######
####################################
#####Скрипт настроен на сервер######
####################################
####Old Oskom Free(free.uoo.ru)#####
####################################
#####Автор: 3Jlо6Hblu' u0ry®T#######
####################################
#####Благодарности в дополнии : #######
###########Sanch,Mr Nmy.#############
###########Настройки :##############
####uo.Count('0x1F61','0x0000')#####
###Указываем тип и цвет скролов#####
##uo.waittargetobject('0x012D0CA7')#
#######Указываем ID Животного#######
#Запускаем скрипт addon_uorypt_sanc и тыкаем на животное#
#######Указываем ID Животного#######

sub uorypt_mana_give()
var m = UO.Mana

If UO.Dead() Then
UO.Print("You are dead")
return
endif

if UO.Mana>=35 then
UO.UseObject('self')
checklag()
if uo.Count('0x1F61') then
UO.WaitTargetObject('Animal')
UO.UseObject('0x1F61')
Else
UO.Cast('Mana Vampire','Animal')
end if
Repeat
wait(100)
Until uo.injournal('The spell fizzles.') or m < uo.mana
UO.warmode(0)
If UO.GetDistance('lasthorse')<4 Then
UO.UseObject('Animal')
else
UO.Print("Please approach closer to an animal!")
Endif
else
UO.Print("Low mana!")
end sub
sub checklag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
end sub

sub addon_uorypt_sanc() 
uo.print('Please specify an animal') 
uo.exec('addobject Animal') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
end sub

sub uorypt_mana_give() 
var m = UO.Mana
If UO.Dead() Then 
  UO.Print("If you dead what for to you script?!") 
else 
  if UO.Mana>=35 then 
    UO.DeleteJournal('The spell fizzles.')
    UO.UseObject('self') 
    UO.FindType('0x1F61')
    if uo.FindCount() > 0 then 
      UO.WaitTargetObject('0x012D0CA7') 
      UO.UseObject('finditem') 
    Else 
      UO.Cast('Mana Vampire','0x012D0CA7') 
    end if 
    Repeat
       wait(100)
    Until uo.injournal('The spell fizzles.') or m < uo.mana
    UO.Exec('warmode 0') 
    If UO.GetDistance('0x012D0CA7')<4 Then 
      UO.UseObject('0x012D0CA7') 
    else 
      UO.Print("Please approach closer to an animal!") 
    Endif 
  else 
  UO.Print("Low mana!") 
endif 
end sub

sub uorypt_mana_give()
var m = UO.Mana

If UO.Dead() Then
  UO.Print("You are dead")
  return
endif

  if UO.Mana>=35 then
    UO.UseObject('self')
    checklag()
    if uo.Count('0x1F61') then
      UO.WaitTargetObject('lasthorse')
      UO.UseObject('_0x1F61')
    Else
      UO.Cast('Mana Vampire','lasthorse')
    end if
    Repeat
       wait(100)
    Until uo.injournal('The spell fizzles.') or m < uo.mana
    UO.warmode(0)
    If UO.GetDistance('lasthorse')<4 Then
      UO.UseObject('lasthorse')
    else
      UO.Print("Please approach closer to an animal!")
    Endif
  else
  UO.Print("Low mana!")
end sub
sub checklag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
   wait(50) 
until UO.InJournal('backpack') 
end sub 

Последний обьект, использовав который вы оказались верхом. Может быть это не лошадь но всё же скорее всего это так :)
Если вы собрались использовать этот указатель, то не забудьте включить Permit vars loopback на закладке Main иначе долго указатель на лошади не продержится.

lasthorse