Каталог файлов

#©]daRk[::c00pEr::

var fruit='0x09F1' ##Тип еды, которой кормим животное

var food= '0x09F1' ##Тип того что сами будем кушать

var Timer=UO.Timer()

var Animal = '0x002502A9'   #Id животины

var Staff = '0x13F8'   #Тип стафа

sub Taming()

   uo.Exec('terminate Reconnector')

   wait(1000)

   uo.Exec('exec Reconnector')

   wait(1000)

   

   #UO.Msg('All release')

   

   UO.DeleteJournal()

   while not UO.Dead() or not UO.InJournal('see the creature')

      UO.DeleteJournal()

      cheklag()

      UO.WaitTargetObject(Animal)

      wait(100)

      UO.UseType(Staff)

      repeat

         wait(1000)

      until UO.InJournal('fail') or UO.InJournal('It seems') or UO.InJournal('see the creature') or UO.InJournal('is already')

      If UO.InJournal('is already') then

         UO.Say('all release')

      else

         wait(100)

      end if

      if UO.Timer()>(Timer+3000) then

         UO.SetReceivingContainer(Animal)

         wait(500)

         UO.FindType(fruit)

         if UO.GetQuantity('finditem')>0 then

            cheklag()

            UO.Grab('1','finditem')

            wait(500)

         end if

         UO.UnSetReceivingContainer(Animal)

         wait(500)

         cheklag()

         UO.UseType(food)

         wait(500)

         Timer=UO.Timer()

      end if

      If Uo.InJournal('It seems') Then

         UO.WaitTargetObject(Animal)

         wait(100)

         cheklag()

         UO.UseSkill('Animal Lore')

         UO.DeleteJournal()

         repeat

            wait(100)

         until UO.InJournal('You can') or UO.InJournal('it is')

         cheklag()

         UO.Say('All release')

      Endif

   wend

end sub

sub Tame_Animal()

   uo.print('Тотем')

   uo.exec('addobject TOT')

   while uo.targeting()

      wait(100)

   wend

   UO.DeleteJournal()

   while NOT UO.InJournal('It seems')

      UO.DeleteJournal()

      UO.WaitTargetObject('TOT')

      UO.UseType('0x13F8')

      repeat

         wait(1000)

      until UO.InJournal('You fail') OR UO.InJournal('It seems')

   wend

end sub

Sub cheklag()

   uo.deletejournal()

   uo.click('backpack')

   repeat

      wait(10)

   until uo.InJournal("backpack")

end sub

Sub Reconnector()

   var ReconnectTime, RFlag

   ReconnectTime = '0'

   RFlag = 1

   Repeat

      While (uo.ObjAtLayer('Bpack') == '')

         if RFlag Then

            ReconnectTime = MakeTime()

            RFlag = 0

         endif

         Wait(70000) # WorldSave Protection

         uo.Say('')

         Wait(5000)

         uo.Say('')

         Wait(5000)

         uo.Say('')

         Wait(5000)

         uo.LDblClick(357,164)

         uo.LClick(616,459)

         Wait(5000)

      WEnd

      Wait(3000)

      if (RFlag == 0) and (ReconnectTime <> '0') Then

         uo.TextOpen()

         uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)

         #uo.useobject('self')

         #wait(2000)

         uo.useobject('backpack')

         wait(2000)

         uo.Exec('terminate Taming')

         wait(5000)

         uo.Exec('exec Taming')

         wait(5000)

         RFlag = 1

         ReconnectTime = '0'

      endif

   Until false

end sub

Sub MakeTime()

   VAR D, T, Ret, i

   Ret = STR(uo.Time())

   T = ""

   For i = 0 To Len(Ret)

      T = Ret[Len(Ret)-i] + T

      If (I == 2) OR (I == 4) Then

         T = ":" + T

      EndIf

   Next

   Ret = STR(uo.Date())

   D = ""

   For i = 0 To Len(Ret)

      D = Ret[Len(Ret)-i] + D

      If (I == 2) OR (I == 4) Then

         D = "." + D

      EndIf

   Next

   Ret = T + " @ " + D

   RETURN Ret

end sub.