sub mining()
var i,x
UO.Exec("disarm")
UO.Exec("usetype '0x0EFA'")
wait(1000)
UO.LClick(242,24) #координата Recharge в буке(заряжает рунбуку)
uo.waittargetground('0x1F4C','0x0000')
wait(10000)
UO.Exec("usetype '0x0EFA'")
Wait(500)
UO.LClick(213,67) #координата руны в буке(определяеться в окне редактирование скрипта в инже-кнопкой сверху)
wait(6000)
UO.Exec("disarm")
wait(1000)
# Шаги которые должен сделать чар чтоб дойти до шахты #
for i=1 to 12
uo.press(35)
wait(300)
next
for i=1 to 20
uo.press(36)
wait(300)
next
for i=1 to 4
uo.press(35)
wait(300)
next
for i=1 to 12
uo.press(36)
next
wait(2000)
main()
find()
end sub Sub main()
var i
While UO.Life>0
for i=1 to 10
kopat()
uo.press(34)
next
uo.print("GO ????? =)")
kopat()
for i=1 to 11
wait(500)
uo.press(36)
next
uo.press(34)
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("???? "+str(i+3)+"/5")
coords="waittargettile "+" 1339 "+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("far") or UO.InJournal("no ore") or UO.InJournal("cannot")))
wait(1000)
wend
next
end sub
sub find()
var i, t_len = 2 ;
DIM t [ val( str( t_len ) ) ]
t[0] = "0x0191"
t[1] = "0x0190"
uo.ignore( "self" )
uo.set('finddistance',12)
repeat
for i = 0 to t_len -1
uo.findtype( t[i], "-1", "ground" )
If uo.FindCount() Then
If uo.getNotoriety( "finditem" ) == 1 or uo.getNotoriety( "finditem" ) == 3 Then ; если синий или серый, игнор
uo.Ignore( "finditem" )
Else
uo.say('.recall') ; функция телепорта
wait(3000)
End If
End If
next
wait( 300 )
until false
End Sub
sub heal()
uo.print('AUTOHEAL LOAD...')
while not uo.dead()
wait(100)
if uo.life<uo.str then
UO.msg('.bandage self')
wait(2000)
end if
wend
end sub
