Yoko
http://forum.yoko.com.ua/

Блин, ну что за лажа? И это не работает!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=11730		 Page 1 of 1
Author:  grundick [ 2007-04-03 20:20:59 ]
Post subject:  Блин, ну что за лажа? И это не работает!
Code:
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


Парсе эррор опять...на последней строке, мать её.
Author:  Question_GimFlex [ 2007-04-03 20:38:48 ]
Post subject: 
ващето это я когда то лиону на дрв писал тока вместо русских коментов по латински было :) ну лана пох попробуй так :)

Code:
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
Author:  grundick [ 2007-04-03 21:31:17 ]
Post subject: 
Во, мля, хоть ошибку не выдает.Завтра попробую на работоспособность :)
Author:  Question_GimFlex [ 2007-04-03 22:10:56 ]
Post subject: 
grundick wrote:
Во, мля, хоть ошибку не выдает.Завтра попробую на работоспособность :)


просто в переменных у тебя было обьявлено TTov а надо было Ttov :wink:
Author:  grundick [ 2007-04-11 19:48:48 ]
Post subject: 
Точно.Какой же я всё таки не внимательгый :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/