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

mining. Не переходит копать на след. таил.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13268		 Page 1 of 1
Author:  gmur [ 2008-02-19 09:51:17 ]
Post subject:  mining. Не переходит копать на след. таил.
Доброго времени суток.
Скрипт:
Code:
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
Author:  Destruction [ 2008-02-19 10:23:27 ]
Post subject: 
Попробуй вместо типа тайла указывать "0" - если прокатит, то можно не париться.

Если не прокатит - продолжаешь парится.
Author:  gmur [ 2008-02-19 10:39:39 ]
Post subject: 
0 не катит, буду парится с массивом.
А почему не переходит с следующему тайлу?
Author:  GambiT [ 2008-02-19 11:14:58 ]
Post subject:  разработка дизайна сайта артнива
Ms.Evil просто мы уже не умеем принимать такие подарки, как цветы - разучились или не учились вовсе нам так редко делают эти знаки внимания розы - это красиво и дорого, но гвоздики ведь не такие уж
Author:  AGRS [ 2008-02-19 12:08:38 ]
Post subject: 
uo.WaitTargetTile(Tile[b],Str(uo.GetX(a)+x), Str(uo.GetY(a)+y),a)

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

http://yoko.netroof.net/help/index.php? ... targettile
Author:  gmur [ 2008-02-19 13:16:58 ]
Post subject: 
Сделал так:
Code:
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" присутствует когда закончилась руда в первом тайле.
Author:  Grin [ 2008-02-19 13:19:41 ]
Post subject: 
ты журнал посмотри через showjournal когда твой но метал появляется... (лутше в ручну. капнуть что ыбы журнал не затереть) и посмотри что это за ноу метал;) может клилок...
Author:  gmur [ 2008-02-19 13:29:28 ]
Post subject: 
Grin wrote:
ты журнал посмотри через showjournal когда твой но метал появляется... (лутше в ручну. капнуть что ыбы журнал не затереть) и посмотри что это за ноу метал;) может клилок...

Похоже что да, как с этим работать?:
Code:
------Journal [10]------
cliloc# 0xACF9
cliloc# 0xAD00
Author:  Grin [ 2008-02-19 13:31:18 ]
Post subject: 
Все тоже самое ;) находишь какая циферка относится к твоему сообщению;) и ищешь в журнале не сообщение а эту чифру;)
Author:  gmur [ 2008-02-19 13:35:05 ]
Post subject: 
Grin wrote:
Все тоже самое ;) находишь какая циферка относится к твоему сообщению;) и ищешь в журнале не сообщение а эту чифру;)

Спасибо огромное тебе добрый человек ;)
Author:  Grin [ 2008-02-19 13:35:30 ]
Post subject: 
да не за что
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/