Yoko

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 

Парсе эррор опять...на последней строке, мать её.

ващето это я когда то лиону на дрв писал тока вместо русских коментов по латински было ну лана пох попробуй так

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 

Во, мля, хоть ошибку не выдает.Завтра попробую на работоспособность

просто в переменных у тебя было обьявлено TTov а надо было Ttov

Точно.Какой же я всё таки не внимательгый