Yoko
http://forum.yoko.com.ua/

Помогите пожалуйста со скриптом на мининг под ЕП!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3329		 Page 1 of 1
Author:  enjoy [ 2005-03-08 13:32:53 ]
Post subject:  Помогите пожалуйста со скриптом на мининг под ЕП!
У меня есть такой скрипт:

# Количество разрешенных физлов на каждый тайл. Если 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







Вобщем он на ЕП берет кирку один раз копает и всё, дальше ничего не делает. Также не понимаю я как там рунбуки юзать, наверно на ЕП они не такие как на ДРВ. С рудой в паке у нас нельзя реколиться
Пожалуйста помогите!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/