напишите простенький скрипт

[BoBBaH]

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

[Kynep]

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

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

Code: Select all

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

[DerMeister =)]

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

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

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 [задержка] [кол-во]
Например:

Code: Select all

,massmove 100 100

[BoBBaH]

купер можешь еще в этом скрипте поставить вместо указания типа объекта его цвет ну не иди так как он у всех собственный а вот я хз подойдет ли цвет, чтобы мне рыбок можно было переклаывать а то по типу трули от рар не отличаются почему-то