Нид хелп в правке мининга
Posted: 2010-12-01 02:40:47
Ребят,если не в лом,помогите подправить данный скрипт(конкретно его ходилку),что бы,допустим,после 6-7 прохождений низ,верх,право,он 1 раз шёл лево (допустим на 15 тайлов),и вверх (на 14-к примеру):
Заранее пасиб
Code: Select all
sub main()
var i
uo.print("Poneslas`!!!")
While UO.Life>0
for i=1 to 10
kopat()
uo.press(34)
wait(500)
uo.press(34)
wait(500)
uo.press(34)
next
uo.press(33)
wait(500)
uo.press(33)
wait(500)
uo.press(33)
uo.print("Idem nazad!!!")
kopat()
for i=1 to 10
uo.press(36)
wait(500)
uo.press(36)
wait(500)
uo.press(36)
next
uo.press(33)
wait(500)
uo.press(33)
wait(500)
uo.press(33)
wend
end sub
sub kopat()
var where_x,where_y,coords,i
UO.DeleteJournal()
where_x=uo.getx()
where_y=uo.gety()
for i=-2 to 2
uo.print("Kopaem "+str(i+3)+"/5")
coords="waittargettile "+" 0 "+str(where_x)+" "+str(where_y+i)+" 0"
uo.exec(coords)
uo.exec("usetype '0x0E85'")
UO.DeleteJournal()
while (not (UO.InJournal("stop mining") or UO.InJournal("dig anything there") or UO.InJournal("too far away") or UO.InJournal("world saved")))
wait(1000)
wend
next
end sub
Заранее пасиб
