перед запуском скрипта положите себе в пак 50 бутылок, пустые кеги и найтшейд подготовьте заранее
если дойдут руки, сделаю что бы перс сам брал ресурсы, крафтил кег после чего качал химию
Code: Select all
sub main()
uo.print('Мусорка')
uo.exec('addobject musor')
while uo.targeting()
wait(100)
wend
uo.print('Сумка')
uo.exec('addobject bag')
while uo.targeting()
wait(100)
wend
while not UO.Dead()
reload()
alchemy()
sliv()
#poison()
spik()
wend
end sub
Sub alchemy()
while uo.count('0x0F0E') > 1 and UO.Count('0x0F88') > 1
UO.DeleteJournal()
ChekLag()
UO.WaitMenu('What','(2)')
UO.UseType(0x0F88)
UO.DeleteJournal()
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(100)
wend
wend
end sub
Sub poison()
while uo.count('0x0F0A') > 0
UO.FindType('0x0F0A','-1','backpack')
UO.DeleteJournal()
UO.UseSkill("Poisoning")
UO.WaitTargetObject(0x4148BFBE,'finditem')
while NOT UO.InJournal("You fail to apply") AND NOT UO.InJournal("You apply")
wait(100)
wend
wend
end sub
Sub trash()
var keg=1-uo.count('0x1940')
UO.FindType('0x1940','-1','backpack')
UO.DeleteJournal()
UO.SetCatchbag('musor')
uo.exec("grab "+str(keg)+" finditem")
wait(3500)
UO.UnSetReceivingContainer()
UO.UnSetCatchBag()
ChekLag()
end sub
Sub sliv()
while uo.count('0x0F0A') > 0
UO.UseType(0x1940)
UO.DeleteJournal()
UO.waittargettype(0x0F0A)
wait (100)
wend
trash()
end sub
Sub reload()
UO.UnSetReceivingContainer()
UO.UnSetCatchBag()
var keg=1-uo.count('0x1940')
UO.findtype('0x1940', '-1', 'bag')
uo.exec("grab "+str(keg)+" finditem")
wait(3500)
var ns=200-uo.count('0x0F88')
if ns > 0 then
UO.findtype('0x0F88', '-1', 'bag')
uo.exec("grab "+str(ns)+" finditem")
ChekLag()
wait(3500)
end if
end sub
Sub spik()
UO.useskill("Spirit")
wait(6000)
UO.useskill("Spirit")
wait(6000)
end sub
Sub ChekLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('ackpack')
end sub
snx za script 
