Yoko

Доброго времени суток.
Скрипт:

sub main()
Dim Tile[6]
Tile[1] = 1339
Tile[2] = 1341
Tile[3] = 1353
Tile[4] = 1340
Tile[5] = 1358
Tile[6] = 1344
Var x,y,z,a,b, LastTimer
a = uo.GetSerial('self')
For x = -2 To 2
   For y = -2 To 2
      For b = 1 To 6
         repeat
         uo.DeleteJournal()
         uo.warmode(0)
         uo.Print('Now mine in: ' + Str(uo.GetX(a)+x) +" "+ Str(uo.GetY(a)+y))
         uo.WaitTargetTile(Tile[b],Str(uo.GetX(a)+x), Str(uo.GetY(a)+y),a)
         uo.usetype('0x0E86')
         LastTimer=UO.Timer()
            Repeat 
                 wait(500) 
             Until uo.InJournal("Вы выкопали") Or uo.InJournal("You loosen some") Or uo.Timer()> LastTimer + 50
         Until uo.InJournal("no metal")
      Next
   Next
Next
End Sub

Первый таил выкапывает нормально, а вот на след. почему то переходить не хочет.
Так же возможно ли в uo.WaitTargetTile указать не явный тип тайла, что бы не мучатся с массивом тайлов, в хелпе такого не нашел. Если это важно шард: NewUO

Попробуй вместо типа тайла указывать "0" - если прокатит, то можно не париться.

Если не прокатит - продолжаешь парится.

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060

0 не катит, буду парится с массивом.
А почему не переходит с следующему тайлу?

Ms.Evil просто мы уже не умеем принимать такие подарки, как цветы - разучились или не учились вовсе нам так редко делают эти знаки внимания розы - это красиво и дорого, но гвоздики ведь не такие уж

uo.WaitTargetTile(Tile[b],Str(uo.GetX(a)+x), Str(uo.GetY(a)+y),a)

Последний параметр требует координату Z, но никак не серийник твоего персонажа.

http://yoko.netroof.net/help/index.php? ... targettile

Сделал так:

sub main() 
Var x,y,z,a,LastTimer 
a = uo.GetSerial('self') 
For x = -2 To 2 
   For y = -2 To 2 
         repeat 
         uo.DeleteJournal() 
         uo.warmode(0) 
         uo.Print('Now mine in: ' + Str(uo.GetX(a)+x) +" "+ Str(uo.GetY(a)+y)) 
         uo.WaitTargetTile("1339",Str(uo.GetX(a)+x), Str(uo.GetY(a)+y),Str(uo.GetZ(a))) 
         uo.usetype('0x0E86') 
         LastTimer=UO.Timer() 
            Repeat 
                 wait(500) 
             Until uo.InJournal("Вы выкопали") Or uo.InJournal("You loosen some") Or uo.Timer()> LastTimer + 50 
         Until uo.InJournal("no metal") 
   Next 
Next 
End Sub

Для простоты пока копает 1 тип таила, все равно перехода с следующиму нету, хотя сообщение "no metal" присутствует когда закончилась руда в первом тайле.

ты журнал посмотри через showjournal когда твой но метал появляется... (лутше в ручну. капнуть что ыбы журнал не затереть) и посмотри что это за ноу метал;) может клилок...

Похоже что да, как с этим работать?:

------Journal [10]------
cliloc# 0xACF9
cliloc# 0xAD00

Все тоже самое находишь какая циферка относится к твоему сообщению;) и ищешь в журнале не сообщение а эту чифру;)

Спасибо огромное тебе добрый человек

да не за что