Yoko

Sub mine()

var x, y, i, t, tmp, inside, goto_x, st, first

VAR ms1 = "There is nothing here to mine for"

VAR ms2 = "You can't use"

VAR ms3 = "You put "

VAR ms4 = "You loosen some rocks"

VAR ms5 = "location"

VAR ms6 = "Try mining"

VAR ms7 = "You can't see that"

VAR ms8 = "You stop"

VAR ms9 = "That is too"

first=UO.GetX()

start:

inside=0

for y=-1 to 1

for x=-1 to 1

repeat

uo.deletejournal()

t = UO.Timer()

UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")

UO.exec ("usetype 0x0E85")

repeat

wait(300)

until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR UO.InJournal(ms9) OR ((t + 100) < UO.Timer())

until not UO.InJournal(ms8)

next

next

end sub


sub main()

var i

While UO.Life>0

for i=1 to 7

mine()

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)

mine()

for i=1 to 7

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

Через некотрое время слетает. Замучался уже.

Расставил пробелы всё равно слетает

Что значит слетает?

Скрипт афигительный. Скопировал себе на память структуру...

Дык почему он слетает?

слетает = выключается после нескольких минут работы.

тесть

Работает. Спасибо тебе.