Page 1 of 1
mining. Не переходит копать на след. таил.
Posted: 2008-02-19 09:51:17
by gmur
Доброго времени суток.
Скрипт:
Code: Select all
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
Posted: 2008-02-19 10:23:27
by Destruction
Попробуй вместо типа тайла указывать "0" - если прокатит, то можно не париться.
Если не прокатит - продолжаешь парится.
Posted: 2008-02-19 10:39:39
by gmur
0 не катит, буду парится с массивом.
А почему не переходит с следующему тайлу?
разработка дизайна сайта артнива
Posted: 2008-02-19 11:14:58
by GambiT
Ms.Evil просто мы уже не умеем принимать такие подарки, как цветы - разучились или не учились вовсе нам так редко делают эти знаки внимания розы - это красиво и дорого, но гвоздики ведь не такие уж
Posted: 2008-02-19 12:08:38
by AGRS
uo.WaitTargetTile(Tile[b],Str(uo.GetX(a)+x), Str(uo.GetY(a)+y),a)
Последний параметр требует координату Z, но никак не серийник твоего персонажа.
http://yoko.netroof.net/help/index.php? ... targettile
Posted: 2008-02-19 13:16:58
by gmur
Сделал так:
Code: Select all
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" присутствует когда закончилась руда в первом тайле.
Posted: 2008-02-19 13:19:41
by Grin
ты журнал посмотри через showjournal когда твой но метал появляется... (лутше в ручну. капнуть что ыбы журнал не затереть) и посмотри что это за ноу метал;) может клилок...
Posted: 2008-02-19 13:29:28
by gmur
Grin wrote:ты журнал посмотри через showjournal когда твой но метал появляется... (лутше в ручну. капнуть что ыбы журнал не затереть) и посмотри что это за ноу метал;) может клилок...
Похоже что да, как с этим работать?:
Code: Select all
------Journal [10]------
cliloc# 0xACF9
cliloc# 0xAD00
Posted: 2008-02-19 13:31:18
by Grin
Все тоже самое
находишь какая циферка относится к твоему сообщению;) и ищешь в журнале не сообщение а эту чифру;)
Posted: 2008-02-19 13:35:05
by gmur
Grin wrote:Все тоже самое
находишь какая циферка относится к твоему сообщению;) и ищешь в журнале не сообщение а эту чифру;)
Спасибо огромное тебе добрый человек
Posted: 2008-02-19 13:35:30
by Grin
да не за что