Блин, ну что за лажа? И это не работает!

[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 

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

[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 

[grundick]

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

[Question_GimFlex]

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

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

[grundick]

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