Yoko

Code: Select all

####################################
#####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

Code: Select all

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

Code: Select all

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 

Code: Select all

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

Code: Select all

lasthorse