Yoko

У меня есть такой скрипт:

# Количество разрешенных физлов на каждый тайл. Если 0 - не учитывается.
#
var fizzle = 0
#
# Ключи. В зависимости от нужной руды поставить 1 (копать) или 0 (не копать)
#
var proto = 0
var common = 0
var luxor = 1
var element = 1
var arch = 1
#######################
# После это строчки ничего НЕ трогать!
#######################
var d
var k
var i
var try = 0

sub success()
if UO.InJournal("You put the Proto Ore") and proto == 1 then
try = 0
return 1
end if
if UO.InJournal("You put the Common Ore") and common == 1 then
try = 0
return 1
end if
if UO.InJournal("You put the Luxury Ore") and luxor == 1 then
try = 0
return 1
end if
if UO.InJournal("You put the Elemental Ore") and element == 1 then
try = 0
return 1
end if
if UO.InJournal("You put the Arch Ore") and arch == 1 then
try = 0
return 1
end if
if UO.InJournal("You loosen") then
if fizzle == 0 then
return 1
else
if try < fizzle then
try = try + 1
return 1
else
try = 0
return 0
end if
end if
end if
return 0
end if

sub checkaction()
if UO.InJournal("You loosen") then
return 1
end if
if UO.InJournal("You put") then
return 1
end if
if UO.InJournal("There is nothing") then
return 1
end if
if UO.InJournal("no line") then
return 1
end if
return 0
end sub

sub definedir( d )
if d == 0 then
k = 33
return k
end if
if d == 2 then
k = 34
return k
end if
if d == 4 then
k = 35
return k
end if
if d == 6 then
k = 36
return k
end if
return 0
end sub

sub main()
UO.DeleteJournal()
k = definedir(UO.GetDir("self"))
if k == 0 then
UO.Print("You are at wrong direction...")
UO.Exec("terminate all")
end if
while 1
if k == 34 OR k == 36 then
for i = UO.GetY("self") - 2 to UO.GetY("self") + 2
start1:
UO.Exec("waittargettile * "+STR(UO.GetX("self"))+" "+STR(i)+" "+STR(UO.GetZ("self")))
Wait(200)
UO.usetype("NPF")

UO.DeleteJournal()

while NOT checkaction()
Wait(1000)
wend

if success() then
goto start1
else
Wait(1000)
end if
next
UO.Press(k,2,500)
end if
if k == 33 OR k == 35 then
for i = UO.GetX("self") - 2 to UO.GetX("self") + 2
start2:
UO.Exec("waittargettile * "+STR(i)+" "+STR(UO.GetY("self"))+" "+STR(UO.GetZ("self")))
Wait(200)
UO.usetype("NPF")

UO.DeleteJournal()

while NOT checkaction()
Wait(1000)
wend

if success() then
goto start2
else
Wait(1000)
end if
next
UO.Press(k,2,500)
end if
wend







Вобщем он на ЕП берет кирку один раз копает и всё, дальше ничего не делает. Также не понимаю я как там рунбуки юзать, наверно на ЕП они не такие как на ДРВ. С рудой в паке у нас нельзя реколиться
Пожалуйста помогите!