Moderators: Murderator+, Murderator
reTry wrote:Destruction wrote:О чем речь? - Что вы хотите сделать?
скрипт запоминает вырубленные деревья, он у меня за 2-3 часа обходит местность и больше не рубает, пишет, что не находит деревья, если пере зайти в уо, все в порядке...Как сделать так, что бы он после 100 деревьев обнулял координаты вырубленных деревьев?
только лагает жутко,зато сброс легко сделать,если массив заполнен то циколм обнуляешь оба массива просто и все)
GMX wrote:Кстати, чтобы ходилка нормально работала, при помощи Tiledata patcher'а следует отредактировать свойства всяких кустов, камней, колючек, ну и (конечно) деревьев.
В частности поставить в свойствах тайлов "unpassable". Тогда будет их нормально обходить, а не застревать...
Mirage wrote:GMX wrote:Кстати, чтобы ходилка нормально работала, при помощи Tiledata patcher'а следует отредактировать свойства всяких кустов, камней, колючек, ну и (конечно) деревьев.
В частности поставить в свойствах тайлов "unpassable". Тогда будет их нормально обходить, а не застревать...
если со стороны сервера стоит что их проходить нельзя значит проходить не получится хоть как ломай вердату. Если проходить получается значит на сервере админы несколько криворуки. И таким макаром можно замутить всякие выбегалки из крестов и прохождении сквозь заборы.
Code: Select all
Sub SearchTree()
var i, x, y, t, stp, max_search = 24, RespawnTime = 9000
var MaxX = 755, MinX = 200, MaxY = 1030, MinY = 867
var cx = UO.GetX()
var cy = UO.GetY()
For i = 1 to max_search
For x = -i to i
stp = 1
If not i == Abs(x) then
stp = Abs(i) * 2
Endif
For y = -i to i step stp
If (x + cx) < MaxX and (x + cx) > MinX and (y + cy) < MaxY and (y + cy) > MinY then
If val(UO.GetEasyUO(val(str(x + cx) + str(y + cy)))) + RespawnTime > UO.Timer() and not UO.GetEasyUO(val(str(x + cx) + str(y + cy))) == 'empty' then
t = IsTreeTile(x + cx, y + cy)
If not t == false then
UO.SetEasyUO(1, str(x + cx))
UO.SetEasyUO(2, str(y + cy))
UO.SetEasyUO(3, str(t))
Return false
else
UO.SetEasyUO(val(str(x + cx) + str(y + cy)), 'empty')
Endif
Endif
else
Wait(100)
Endif
Next
Next
Next
Endsub
Sub DoMineTree()
var x, y, t, Time, k
var end = 'appears immune|nothing here|reach this'
var try = 'I put|fail'
Repeat
x = val(UO.GetEasyUO(1))
y = val(UO.GetEasyUO(2))
t = val(UO.GetEasyUO(3))
UO.SetEasyUO(val(str(x) + str(y)), str(UO.Timer()))
If Walker(x, y, 1) > 0 then
UO.Exec('exec SearchTree')
k = 0
Repeat
k = k + 1
If UO.Waiting() then
UO.CancelTarget()
Endif
DelJournal(try + '|' + end)
UO.WaitTargetTile(str(t), str(x), str(y), str(UO.GetZ()))
UO.UseType(Hatchet)
Time = UO.Timer()
Repeat
Wait(100)
Until UO.InJournal(try + '|' + end) or Time + 100 < UO.Timer()
Until UO.InJournal(end) or k > 7
Endif
While val(UO.GetEasyUO(1)) == x && val(UO.GetEasyUO(2)) == y
Wait(100)
Wend
Until false
EndsubCode: Select all
If val(UO.GetEasyUO(val(str(x + cx) + str(y + cy)))) + RespawnTime > UO.Timer() and not UO.GetEasyUO(val(str(x + cx) + str(y + cy))) == 'empty' then
Сделал в одном потоке и все проблеммы исчезли Хочется сделать так, чтобы он хотя бы перед каждой рубкой дерева делал чекхайд и, если персонаж не в инвизе, хайдился. Постоянно быть в хайде нет нужды, поэтому хайд пытался прикрутить больше не к бродилке (её вообще трогать страшно - до такого кода по-моему, не будучи профессиональным разработчиком ПО, не дорасти), а именно к данному ламбер-скрипту.Code: Select all
Sub doMineTree()
var x, y, t
var end = "appears immune|to chop|reach this|destroer|in work!"
var try = "You put|fail"
repeat
x = val( uo.getGlobal( "tree_x" ) )
y = val( uo.getGlobal( "tree_y" ) )
t = val( uo.getGlobal( "tree_t" ) )
uo.setGlobal( 't:' + str( x ) + "," + str( y ), "empty" )
Walker( x, y, 1 )
uo.exec( "exec searchTree" )
repeat
if uo.waiting() then
uo.canceltarget()
endif
deljournal( try + "|" + end )
uo.waittargettile( str( t ), str( x ), str( y ), str( uo.getZ() ) )
uo.usetype( hatchet )
repeat
wait( 100 )
until uo.injournal( try + "|" + end )
until uo.injournal( end )
while uo.getGlobal( "tree_x" ) == str( x ) && uo.getGlobal( "tree_y" ) == str( y )
wait( 100 )
wend
until false
endsubCode: Select all
Sub doMineTree()
var x, y, t
var end = "appears immune|to chop|reach this|destroer|in work!"
var try = "You put|fail"
repeat
x = val( uo.getGlobal( "tree_x" ) )
y = val( uo.getGlobal( "tree_y" ) )
t = val( uo.getGlobal( "tree_t" ) )
uo.setGlobal( 't:' + str( x ) + "," + str( y ), "empty" )
Walker( x, y, 1 )
uo.exec( "exec searchTree" )
repeat
Hide() ; <-------------------
if uo.waiting() then
uo.canceltarget()
endif
deljournal( try + "|" + end )
uo.waittargettile( str( t ), str( x ), str( y ), str( uo.getZ() ) )
uo.usetype( hatchet )
repeat
wait( 100 )
until uo.injournal( try + "|" + end )
until uo.injournal( end )
while uo.getGlobal( "tree_x" ) == str( x ) && uo.getGlobal( "tree_y" ) == str( y )
wait( 100 )
wend
until false
endsub
sub Hide()
If Not UO.Hidden() Then
if Uo.WarMode()==1 then
Uo.WarMode('0')
endif
UO.UseSkill("Hiding")
Wait( 2000 ) ; пауза на использование скилла (изменить или удалить)
endif
end sub
Mirage wrote:Переписать сообщения в журнале, добавить таймеры.
И почему из за того что неправильное сообщение, чар может неделать ничего вообще, не идти к дереву, даже топор не юзать? Ведь сообщения он получает уже после рубки.Incorrect User wrote:Вот оно че Михалыч. Только я не понял в каком журнале сообщения переписывать. Из журнала инжекта после того как он получит нужные с сервера, копировать в скрипт? Не совсем понятно