var Doll = '0x00283701' ##ID чара в которого стреляем
var Cont = '0x40070C35' ##ID контейнера где лежат стрелы
var Arrow = '0x0F3F' ##тип стрел
var Bow = '0x13B2' ##тип лука
sub Archery()
#¤Leo¤#
while 1
UO.UseType(Bow)
UO.Attack(Doll)
Repeat
wait (500)
if UO.InJournal('destroyed') then
UO.UseType(Bow)
UO.DeleteJournal()
endif
Until UO.GetHP(Doll)<100
repeat
wait (500)
UO.WarMode(0)
if UO.FindCount('0x0E21')<30 then
UO.WaitTargetType('0x1008')
UO.UseType('0x0E20')
CheckLag()
endif
UO.Usetype('0x0E21')
UO.WaitTargetObject(Doll)
wait(3500)
Until UO.InJournal('need you')
If UO.Count(Arrow) < 100 Then
UO.Findtype(Arrow, '-1',Cont)
If UO.FindCount() > 0 Then
UO.Grab('500','finditem')
wait(1000)
CheckLag()
Endif
Endif
UO.DeleteJournal()
wend
end sub sub Start()
repeat
UO.Findtype(Arrow)
If UO.FindCount() > 0 Then
UO.MoveItem('finditem','0',Cont)
wait(1000)
Endif
UO.Findtype(Arrow, '-1', '1' )
If UO.FindCount() > 0 Then
UO.MoveItem('finditem','0',Cont)
wait(1000)
Endif
wait(10000)
until UO.Dead()
endsub Sub CheckLag()
UO.DeleteJournal( 'backpack' )
UO.Click( 'backpack' )
repeat
wait(100)
until UO.InJournal( 'backpack' )
endsub
| 
