А вот так?
Posted: 2006-12-24 12:26:05
Нижу указан скрипт найденый у вас.
Всё бы здорово но при перекладовании, он часто кидает вещи не туда. даже на пол, да бог с ним, важно сделатьч то бы проверялость как на тип так и на цвет, как это сдлеать?
Спасибо
sub pereklad()
#****ДРВ*****#
# (C) Cooper
#****v1.0****#
VAR Ttov
UO.Print('vibirite istochnik')
UO.Exec('addobject istok')
while UO.Targeting()
wait(100)
wend
UO.UseObject('istok')
UO.Print('vibirite priemnik')
UO.Exec('addobject priem')
while UO.Targeting()
wait(100)
wend
UO.Print('vibirite tovar')
UO.Exec('addobject tovar')
while UO.Targeting()
wait(1000)
wend
TTov = UO.GetGraphic('tovar')
UO.FindType(Ttov,'-1','istok')
If UO.FindCount() > 0 then
repeat
UO.MoveItem('finditem', '0', 'priem')
wait(2000)
UO.FindType(Ttov,'-1','istok')
until not UO.FindCount()
UO.Print('Закончили...')
else
UO.Print('А кидать то нечего...')
endif
end sub
Всё бы здорово но при перекладовании, он часто кидает вещи не туда. даже на пол, да бог с ним, важно сделатьч то бы проверялость как на тип так и на цвет, как это сдлеать?
Спасибо