Ultima Online Antares

;Herding (пастушество). Всё как обычно, незатамленная живность, посох пастуха, еда.
;Чар пытается отогнать животное к сундуку какому-нить в зоне видимости.

Var Animal='0x00AD5B6E';--в инжекте, меню objects выбираем From target и кликаем на животном
Var Crook='0x40AD51C5';--в инжекте, меню objects выбираем From target и кликаем на палке для хердинга
Var Sunduk='0x40D37B3C';--в инжекте, меню objects выбираем From target и кликаем на сундуке

sub Herding()
   var i=0,LastTimer=0
   UO.Exec('terminate Reconnector')
   wait(100)
   UO.Exec('exec Reconnector')
   uo.useobject('backpack')
   wait(1000)
   while 1==1
      i=i+1
      if i==50 then
         i=1
         uo.usetype('0x097B')
         wait(1000)
      endif
      uo.DeleteJournal()
      LastTimer=UO.Timer()
      uo.waittargetobject(Animal,Sunduk)
      wait(10)
      uo.useobject(Crook)
      wait(10)
      repeat
         wait(10)
      until UO.InJournal('The animal goes') or UO.InJournal('You don') or (UO.Timer()>LastTimer+200)
   wend
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(20000) # WorldSave Protection
         UO.Say('')
         Wait(3000)
         UO.Say('')
         Wait(3000)
         UO.Say('')
         Wait(3000)
         UO.LDblClick(357,164)
         UO.LClick(616,459)
         Wait(3000)
      WEnd
      Wait(3000)
      if (RFlag == 0) and (ReconnectTime <> '0') Then
         UO.Exec('terminate Herding')
         wait(1000)
         UO.Exec('exec Herding')
         UO.TextOpen()
         UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
         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