#==============================================================
# Скриптец на Алхимию для шарда СанДай
#
# Требуеться для скрипта много бочек, реагентов и пестиков
#
#--------------------------------------------------------------


sub main()
VAR ser
var pestik='0x0E9B'
var keg='0x1940'
var regcost=15; можно неменять - это минимум количество рега который лежит в паке

uo.say('VKLUCHI RUSSKIY YAZIK')
wait(2000)

uo.say('Покажи суНДук с ПЕСТИКАМИ')
uo.addobject('sum1')
while uo.targeting()
wait(100)
wend
uo.say('Покажи суНДук с РЕГАМИ')
uo.addobject('sum2')
while uo.targeting()
wait(100)
wend
uo.say('Покажи суНДук с ПУСТЫМИ КЕГАМИ')
uo.addobject('sum3')
while uo.targeting()
wait(100)
wend
uo.say('Покажи суНДук да складывать ПОЛНЫЕ КЕГИ')
uo.addobject('sum4')
while uo.targeting()
wait(100)
wend
uo.say('Покажи БУТЫЛКУ с зельем')
uo.addtype('bottle')
while uo.targeting()
wait(100)
wend
uo.say('Покажи как выглядит РЕАГЕНТ')
uo.addtype('reg')
while uo.targeting()
wait(100)
wend



start:

UO.usetype(pestik)
wait(200)

if uo.count(pestik)<1 then
UO.findtype(pestik,'-1','sum1')
UO.moveitem('finditem')
uo.say('Пестик еще')
wait(1000)
UO.usetype(pestik)
wait(100)
endif
if uo.count('reg')<regcost then
wait(300)
goto rrg
endif

if uo.count('bottle')>0 then
wait(300)
goto bbs
end if

UO.lclick(321,453)
wait(1000)
goto start

bbs:
CheckLag()
uo.findtype(keg ,'-1','backpack')
if uo.findcount() then
uo.moveitem('finditem','0','sum4')
uo.say('Еще БОЧЕНОК')
wait(1000)
end if


uo.findtype(keg,'-1','sum3')
if uo.findcount() then
uo.moveitem('finditem')
uo.say('И пустой')
wait(2000)

goto jjk

jjk:
uo.say('ПАААЕХАЛИ')
uo.findtype(keg ,-1,'backpack')
ser = UO.GetSerial('finditem')
uo.findtype('bottle','-1','backpack')
wait(100)
uo.setreceivingcontainer(ser)
wait(100)
uo.grab('0','finditem')
wait(100)
uo.unsetreceivingcontainer(ser)

goto start


rrg:

UO.findtype('reg','-1','sum2')
uo.moveitem('finditem','1000')
#UO.Grab('1000', 'finditem')
uo.say('Еще РЕГОВ')
wait(2000)
goto start
end sub

#==============================================================
# CheckLag() - Кликает на "backpack"
# И проверяет словов в журнале.
#
# Журнал удаляется!!!
#--------------------------------------------------------------

Sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(200)
until uo.InJournal('cliloc# 0x9A12');backpack
end sub