Yoko

BoBBaH wrote:Здраствуйте игроки вот мне задолбало перекидывать итемы одинаковых типов в мешочки прощу написать не сложный скрипт:
из мешочка(его айди) перекидывать айтемы(их тип) в другой мешочек(его айди) напишите каму не трудно плиз

sub pereklad()
#****ДРВ*****# 
# (C) Cooper 
#****v1.0****#
VAR Ttov

UO.Print('Выбери ИСТОЧНИК')
UO.Exec('addobject istok')
while UO.Targeting()
wait(100)
wend
UO.UseObject('istok')

UO.Print('Выбери ПРИЕМНИК')
UO.Exec('addobject priem')
while UO.Targeting()
wait(100)
wend

UO.Print('Выбери ТОВАР')
UO.Exec('addobject tovar')
while UO.Targeting()
wait(100)
wend

TTov = UO.GetGraphic('tovar')
UO.FindType(Ttov,'-1','istok')
If UO.FindCount() > 0 then
     repeat
          UO.MoveItem('finditem', '0', 'priem')
          wait(1000)
          UO.FindType(Ttov,'-1','istok')
     until not UO.FindCount()
UO.Print('Закончили...')
else
UO.Print('А кидать то нечего...')
endif
end sub

Cooper wrote:

BoBBaH wrote:Здраствуйте игроки вот мне задолбало перекидывать итемы одинаковых типов в мешочки прощу написать не сложный скрипт:
из мешочка(его айди) перекидывать айтемы(их тип) в другой мешочек(его айди) напишите каму не трудно плиз

Прописываешь тип товара, запускаешь, указываешь прицелом мешок источник, затем мешок приемник

Code: Select all

sub pereklad()
VAR tovar=0x0E76 #Тип товара

UO.Print('Выбери ИСТОЧНИК')
UO.Exec('addobject istok')
while UO.Targeting()
wait(100)
wend

UO.Print('Выбери ПРИЕМНИК')
UO.Exec('addobject priem')
while UO.Targeting()
wait(100)
wend

UO.FindType(tovar,'-1','istok')
If UO.FindCount() > 0 then
repeat
UO.MoveItem('finditem', '0', 'priem')
wait(1000)
UO.FindType(tovar,'-1','istok')
until not UO.FindCount()
UO.Print('Закончили...')
else
UO.Print('А кидать то нечего...')
endif
end sub

,massmove 100 100