Incorrect User wrote:И саму задержку в принципе межно перенести сразу за строку
.
Хаха! Вот финальная версия
Code: Select all
sub mineAroundSelf()
VAR x,y,z='0',TileNum , iTileNum
VAR Counter, PickAxeType
VAR MaxCount=10 , startTime
uo.concolor('0x1234')
UO.FindType('0x0E86',-1,'my')
If Uo.FindCount() Then
PickAxetype='0x0E86'
Else
PickAxetype='0x0F39'
Endif
## cliloc# 0x7AD03 You loosen some rocks
## cliloc# 0x7A2DE Too far away
## cliloc# 0x7AD00 There is no metal to mine
## cliloc# 0x7A867 Can't mine that
For x=-2 to 2
For y=-2 to 2
iTileNum = uo.Hex2Int( uo.IsMineTile(UO.GetX()+x, UO.GetY()+Y) )
TileNum = str(iTileNum)
#uo.print('x=' + str(x) + ', y=' + str(y) + ', tileType=' + tileNum)
if iTileNum > 1338 AND iTileNum < 1360 then
Counter=0
uo.deletejournal()
Repeat
startTime = now()
UO.WaitTargetTile(TileNum, UO.GetX() + x, UO.GetY() + Y, z)
UO.UseType(PickAxeType)
uo.WaitingForJournalText(startTime,3000,"You put some|There is no metal|0x7AD03|0x7A2DE|0x7A867|0x7AD00|0x7A197")
wait(500)
Counter=Counter+1
Until UO.InJournal("7AD00|You can't mine") > 0 OR Counter > MaxCount
endif
Next
Next
end sub
Вообще ни разу не было, чтобы не получил ответ.
Уменьшаю задержку до 300, и получаю периодичекое "You must wait to perfom another action"
Уменьшаю до 100, и эта массгага валиться постоянно.
Уменьшаю до 0, и начинается ад
