ДАвайте подумаем...

[CErebrus]

Помогитте реализовать циклический скрипт на рекол по рунбуку по всем руна начиная с 1 заканчивая 9
Типо такого

Code: Select all

   recallNumber=recallNumber+2 <++++здесь мы пишем такую формулу чтобы употребляять значения смотри ниже

UO.Recall('РУНБУК',recallNumber)

Значения которые должны получаться ихз формулы
UO.Recall(RuneBook, 21) ; - 1
UO.Recall(RuneBook, 33) ; - 2
UO.Recall(RuneBook, 46) ; - 3
UO.Recall(RuneBook, 58) ; - 4
UO.Recall(RuneBook, 64) ; - 5
UO.Recall(RuneBook, 73) ; - 6
UO.Recall(RuneBook, 88) ; - 7
UO.Recall(RuneBook, 94) ; - 8
UO.Recall(RuneBook, 1025) ; - 9
Голову ломаю уже давно но вот решил написать!
НЕ ПРЕДЛАГАТЬ ВОТ ЕТОТ ВАРИАНТ

Code: Select all

sub RunebookRecall(n) 
oldX=uo.getX() 
oldY=uo.getY() 
repeat 
uo.Exec('warmode 0') 
uo.UseObject('magery') 
wait(1000) 
uo.LClick(135, n*15+55) 
wait(500) 
uo.LClick(135, n*15+55) 
time=uo.Timer() 
repeat 
wait(500) 
until oldX<>uo.getX() or oldY<>uo.getY() or uo.Life==0 or uo.InJournal('needs') or time+200<uo.Timer() 
uo.DeleteJournal() 
until oldX<>uo.getX() or oldY<>uo.getY() 
end sub 

[666Man666]

Как вариант...

Code: Select all

sub test()
var n
Dim Test[3]
Test[1] = '21'
Test[2] = '41'
Test[3] = '59'
   For n = 1 TO 3
      UO.Recall(RuneBook,Test[n])
   Next
end sub

[CErebrus]

Нада чтобы с задержкой было ! Ето все нада для скрипта скупки товаров у вендора чтобы он по рунбуку к оодному пришел потом к другому и т д