Так как неумею пока пользоватся динамическими паузами, то соответственно использую пока фиксированые. Вот пример глупого скрипта на мининг. Еще не тестил. Этот скрипт просто гоняет чара по координатам и в каждой координате врубает мининг вокруг чара.
Code:
VAR Picsar = '0x0000' ; кирка
VAR SteikFat = '0x0000' ; рыбные стейки
VAR Sunduk = '0x00000000' ; ИД сундука с инструментом (кирка)
VAR Sunduk2 = '0x00000000' ; ИД сундука для ресурсов
sub main()
;идем к банку
GoToTile( 5975, 1492, 1, False )
wait( 5000 ) ; пауза
UO.Say( 'Bank' ) ; открываем банк
wait( 5000 ) ; пауза
; ищем что поесть
If UO.Count( SteikFat ) < 10 Then ; проверяем наличие стейков в паке
UO.FindType( SteikFat,'-1',Sunduk) ; ищем стейки в сундуке
If UO.FindCount () > 0 Then ; проверяем нашли или нет
UO.MoveItem( 'finditem','10' ) ; берем 10 стейков в пак
wait (1000) ;пауза
Else ; иначе
UO.Print( 'Нет стейков' ) ; ругаемся
Endif
Endif
; ищем кирку
If UO.Count( Picsar ) < 2 Then ; проверяем наличие кирки в паке
UO.FindType( Picsar,'-1',Sunduk) ; ищем кирку в сундуке
If UO.FindCount () > 0 Then ; проверяем нашли или нет
UO.MoveItem( 'finditem','2' ) ; берем 2 кирки в пак
wait (1000) ;пауза
Else ; иначе
UO.Print( 'Нет кирки' ) ; ругаемся
Endif
Endif
; начинаем копать
; идем к точке копания №1
GoToTile( 5974, 1504, 1, False )
wait(10000) ; пауза
;запускаем скрипт на мининг вокруг чара
Mining()
wait(10000) ; пауза
; идем к точке копания №2
GoToTile( 6005, 1497, 1, False )
wait(10000) ; пауза
;запускаем скрипт на мининг вокруг чара
Mining()
wait(10000) ; пауза
; идем к точке копания №3
GoToTile( 6010, 1496, 1, False )
wait(10000) ; пауза
;запускаем скрипт на мининг вокруг чара
Mining()
wait(10000) ; пауза
; идем к точке копания №4
GoToTile( 6013, 1495, 1, False )
wait(10000) ; пауза
;запускаем скрипт на мининг вокруг чара
Mining()
wait(10000) ; пауза
; идем к точке копания №5
GoToTile( 6012, 1499, 1, False )
wait(10000) ; пауза
;запускаем скрипт на мининг вокруг чара
Mining()
wait(10000) ; пауза
; идем к точке копания №6
GoToTile( 6013, 1504, 1, False )
wait(10000) ; пауза
;запускаем скрипт на мининг вокруг чара
Mining()
wait(10000) ; пауза
; идем к точке копания №7
GoToTile( 6007, 1504, 1, False )
wait(10000) ; пауза
;запускаем скрипт на мининг вокруг чара
Mining()
wait(10000) ; пауза
; идем к точке копания №8
GoToTile( 6006, 1510, 1, False )
wait(10000) ; пауза
;запускаем скрипт на мининг вокруг чара
Mining()
wait(10000) ; пауза
; идем к точке копания №9
GoToTile( 6006, 1516, 1, False )
wait(10000) ; пауза
;запускаем скрипт на мининг вокруг чара
Mining()
wait(10000) ; пауза
; идем к точке копания №10
GoToTile( 6004, 1519, 1, False )
wait(10000) ; пауза
;запускаем скрипт на мининг вокруг чара
Mining()
wait(10000) ; пауза
; идем к банку
GoToTile( 6002, 1500, 1, False )
wait(5000) ; пауза
GoToTile( 5977, 1501, 1, False )
wait(5000) ; пауза
GoToTile( 5975, 1492, 1, False )
wait(10000) ; пауза
UO.Say( 'Bank' ) ; открываем банк
wait( 5000 ) ; пауза
UO.MoveItem( '0x19B9','-1','Sunduk2' )
wait( 1000 ) ; пауза
UO.Print( 'Закончили' )
end sub