Yoko

sub UO() 
UO.Chto-To("S Chem-To") 
end sub

sub UO() 
UO.Chto-To("S Chem-To") 
end sub

sub takenum() 
var ns, j, i, n 
var str, num 
num='' 
ns=0 
n=uo.InJournal('jumps left')-1 
str=uo.Journal(n) 
UO.Print(str) 
j = len( str ) - 1 
for i = 0 to j 

if ns==1 and str[i]<>' ' then 
num=num+str[i] 
else 
ns=0 
endif 
if str[i] =='(' then 
ns=1 
endif 
next 
res = val(num) ;То самое слово
UO.Print(str(res)) ;То самое слово
end sub 

sub UO() 
UO.Chto-To("S Chem-To") 
end sub

Edred wrote: 
Расставь по скрипту команды UO.Print( '1' ) - цифру меняй, расставь через каждые 2-3 строки, потом запусти. Следи на какой цифре остановится. Потом уже в нужном месте натыркай команд после каждой строки, опять запусти. Когда определишься на каком месте скрипт встает - пости сюда. 


Вот что я нашёл 
Code: 
UO.Click(rune[i]) 
UO.Print( '1' ) 
repeat 
UO.Print( '2' ) 
wait(500) 
UO.Print( '3' ) 
until UO.InJournal('jumps left') 
UO.Print( '4' ) 
takenum() 
UO.Print( '5' ) 
if res < 10 then ; ??????? ??????? ?? ???? 
UO.Print( '6' ) 

После того как он прилетает, подходит к вендору и стоит, зацикливается повторение 3, 2, 3, 2, 3, 2 и тд...

sub UO() 
UO.Chto-To("S Chem-To") 
end sub

sub UO() 
UO.Chto-To("S Chem-To") 
end sub

sub UO() 
UO.Chto-To("S Chem-To") 
end sub

sub UO() 
UO.Chto-To("S Chem-To") 
end sub