Page 1 of 1
Блин, ну что за лажа? И это не работает!
Posted: 2007-04-03 20:20:59
by grundick
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
Парсе эррор опять...на последней строке, мать её.
Posted: 2007-04-03 20:38:48
by Question_GimFlex
ващето это я когда то лиону на дрв писал тока вместо русских коментов по латински было
ну лана пох попробуй так
Code: Select all
sub pereklad()
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
Posted: 2007-04-03 21:31:17
by grundick
Во, мля, хоть ошибку не выдает.Завтра попробую на работоспособность
Posted: 2007-04-03 22:10:56
by Question_GimFlex
grundick wrote:Во, мля, хоть ошибку не выдает.Завтра попробую на работоспособность
просто в переменных у тебя было обьявлено TTov а надо было Ttov
Posted: 2007-04-11 19:48:48
by grundick
Точно.Какой же я всё таки не внимательгый