запускаем функцию Start, появляется прицел, указываем контейнер куда скидывать, ждем ...
Code:
sub Start()
uo.Print('************************')
uo.Print('Переброс буков UoRpg.net by reTry')
uo.Print('************************')
uo.Print(' ')
uo.Print(' ')
uo.Print('Куда?')
uo.Exec('addobject kuda')
while uo.Targeting()
wait(100)
wend
uo.SetReceivingContainer('backpack')
var i
DIM Move[9]
Move[0]=0x3BE1 # U
Move[1]=0x3BE2 # O
Move[2]=0x3BE3 # R
Move[3]=0x3BE4 # P
Move[4]=0x3BE5 # G
Move[5]=0x3BE6 # .
Move[6]=0x3BE7 # N
Move[7]=0x3BE8 # E
Move[8]=0x3BE9 # T
for i=0 to 8
CheckLag()
UO.FindType(Move[i], '-1','backpack')
while UO.GetQuantity('finditem')>=1
UO.MoveItem('finditem','-1','kuda')
Wait(150)
UO.FindType(Move[i],'-1','backpack')
wend
next
uo.print('Переброс Буков Закончен!')
uo.UnSetReceivingContainer('backpack')
end sub
sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub