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

Помогите c минингом
http://forum.yoko.com.ua/viewtopic.php?f=20&t=110		 Page 1 of 1
Author:  Kifirkin [ 2004-04-17 13:04:56 ]
Post subject:  Помогите c минингом
вот скриптик,токо почемуто делает большие паузы перед тем как пойти в следующую клетку,подскажите плыз как испрвить


sub main1()
var path1 = "eeeeeenwwwwwwneeeeeenwwwwwwneeenwwwneeeeeeeeeeenwwwwwwwwwwwwneeeeeeeeeeeeeenwwwwwwwwwwwwwwwwwneeeeeeeeeeeeeeeeeeenwwwwwwwwwwwwwwwwneeeeeeeeeeeeeeeenwwwwwwwneeeeenwwwwwneeenwwwwwwwwwwwwwwwwneeeeeeeeeeeeeeeenwwwwwwwwwwwwwwneeeeeeeeeeeeenwwwwwwneeeenwww"
var loc
var i
UO.Exec("exec pk1")
UO.Exec("terminate pk3")
i = 0
recall1()
UO.DeleteJournal()
While i < LEN(path1)
loc = path1[i]
i = i + 1
if UO.Weight > 600 then
mark()
grab()
return()
endif
UO.Print("GoTo "+str(i))
gotomine(loc)
hide()
mine()
wend
grab()
UO.Exec("exec main2")
UO.Exec("terminate main1")
end sub

sub main2()
var path2 = " eeeeeenwwwwwwneeeenwwwwneeeeeeeeeeeeeeeenwwwwwwwwwwwwwwwwwwneeeeeeeeeeeeeeeeeeenwwwwneeeenwwneenwwwwwwwwwwwwwwwwwwwwwwneeeeeeeeeeeeeeeeeeeeenwwwwwwwwwwwwwwwwwwwwneeeeeeeeeeeeeeeeenwwwwwwwwwwwwwwwwneeeeeenwwwwwneeeeenwwwneeeeeeeenwwwwwwwwwwneeeeeeeenwwwwwwneeeenwww"
var loc
var i
UO.Exec("exec pk2")
UO.Exec("terminate pk1")
i = 0
recall2()
UO.DeleteJournal()
While i < LEN(path2)
loc = path2[i]
i = i + 1
if UO.Weight > 500 then
mark()
grab()
return()
endif
UO.Print("GoTo "+str(i))
gotomine(loc)
hide()
mine()
wend
grab()
UO.Exec("exec main3")
UO.Exec("terminate main2")
end sub

sub main3()
var path3 = "nnnnnwssswnnnwssswnnnwsssssswnnnnnnnnwsssssswnnnnnnnnnnwsswnwwsswsssssssssssswnnnnnnnnnnnwsssssssssssssswnnnswwssswnnnnnnnnnnwsssssssswnnnnnnwssssswnnnnwswse"
var loc
var i
UO.Exec("exec pk3")
UO.Exec("terminate pk2")
i = 0
recall3()
UO.DeleteJournal()
While i < LEN(path3)
loc = path3[i]
i = i + 1
if UO.Weight > 500 then
mark()
grab()
return()
endif
UO.Print("GoTo "+str(i))
gotomine(loc)
hide()
mine()
wend
grab()
UO.Exec("exec main1")
UO.Exec("terminate main3")
end sub

sub mark()
while true
UO.DeleteJournal()
UO.WaittargetObject('0x40004640')
UO.Cast('Mark')
wait(10000)
if not UO.InJournal("fizzles") then
Return
endif
wend
end sub

sub return()
while true
UO.DeleteJournal()
UO.WaittargetObject('0x40004640')
UO.Cast('Recall')
wait(10000)
if not UO.InJournal("fizzles") then
Return
endif
wend
end sub

sub recall1()
UO.DeleteJournal()
UO.WaittargetObject('0x40013C0F')
UO.Cast('Recall')
wait(10000)
If Uo.InJournal("fizzles") then
recall1()
endif
end sub

sub recall2()
UO.DeleteJournal()
UO.WaittargetObject('0x40018EB1')
UO.Cast('Recall')
wait(10000)
If Uo.InJournal("fizzles") then
recall2()
endif
end sub

sub recall3()
UO.DeleteJournal()
UO.WaittargetObject('0x40006189')
UO.Cast('Recall')
wait(10000)
If Uo.InJournal("fizzles") then
recall2()
endif
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(100)
until UO.InJournal('backpack')
UO.DeleteJournal()
end sub

sub mine()
UO.DeleteJournal()
var maxtime = 10000
var time
time = 0
CheckLag()
UO.LClick(406,308)
UO.UseType('0x0e85')
wait(500)
Repeat
time=time+200
wait(200)
Until (Uo.InJournal("pack")or UO.InJournal ("away") or UO.InJournal ("location") or Uo.InJournal("loosen") or Uo.InJournal("OOPS") or Uo.InJournal("Stop") or Uo.InJournal("World") or time>maxtime)
check()
end sub

sub check()
if Uo.InJournal("World") then
wait(15000)
endif
if UO.InJournal ("to find") then
UO.DeleteJournal()
UO.Print("Repeat Tile")
mine()
endif
if UO.InJournal ("stop") then
While not UO.Injournal ('go')
wait (10000)
wend
endif
if UO.InJournal ("pack") then
UO.DeleteJournal()
UO.Print("Repeat Tile")
mine()
end if
end sub


sub gotomine(loc)
var x, y
var oldx,oldy
var w
oldx=UO.GetX()
oldy=UO.GetY()
w=0
Repeat
w=w+1
CheckLag()
if loc == "n" then
UO.Press(33)
endif
if loc == "s" then
UO.Press(35)
endif
if loc == "w" then
UO.Press(36)
endif
if loc == "e" then
UO.Press(34)
endif
if Uo.InJournal("World") then
wait(15000)
endif
wait(1000)
CheckLag()
x=UO.GetX()
y=UO.GetY()
if w == 10 then
Return
endif
Until (x <> oldx or y <> oldy)
end sub

sub record()
var x, y
var oldx, oldy
var path = " "
UO.DeleteJournal()
Repeat
oldx = UO.getx()
oldy = uo.gety()
UO.Print("Old_X="+str(oldx)+" Old_Y="+str(oldy))
if waitnewpos(oldx,oldy) then
path=path+count(oldx,oldy)
UO.Print("path="+path)
endif
Until (UO.InJournal("stop"))
UO.TextClear()
UO.TextOpen()
UO.TextPrint("Your path is:")
UO.TextPrint(path)
end sub

sub waitnewpos(oldx,oldy)
while (oldx == UO.GetX() and oldy == UO.GetY())
if UO.InJournal("stop") then
return 0
endif
wait(100)
wend
return 1
end sub

sub count(oldx,oldy)
var x, y
x = UO.getx()
y = uo.gety()

if y < oldy then
Return "n"
endif
if y > oldy then
Return "s"
endif
if x < oldx then
Return "w"
endif
if x > oldx then
Return "e"
endif
end sub

sub grab()
UO.Print("Grabbing")
UO.WaittargetObject('0x4001c26d')
UO.Cast('Recall')
wait (10000)
UO.Exec("setreceivingcontainer 0x4000E6A8")
Repeat
UO.Exec("findtype 0x19B9")
UO.Exec("waittargettype 0x19B9")
UO.Exec("grab all")
wait (1000)
Until (UO.FindCount() == 0)
Repeat
UO.Exec("findtype 0x19B8")
UO.Exec("waittargettype 0x19B8")
UO.Exec("grab all")
wait (1000)
Until (UO.FindCount() == 0)
Repeat
UO.Exec("findtype 0x19BA")
UO.Exec("waittargettype 0x19BA")
UO.Exec("grab all")
wait (1000)
Until (UO.FindCount() == 0)
Repeat
UO.Exec("findtype 0x19B7")
UO.Exec("waittargettype 0x19B7")
UO.Exec("grab all")
wait (1000)
Until (UO.FindCount() == 0)
end sub

sub hide()
while NOT UO.Hidden()
UO.DeleteJournal()
UO.UseSkill('Hiding')
repeat
wait(100)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide')
wend
wait(100)
end sub

sub pk1()
UO.DeleteJournal()
while True
if UO.InJournal(":") and not UO.InJournal("Kifirkin:") and not UO.InJournal("Elemental:") and not UO.InJournal("Orn:") and not UO.InJournal("Zostrich:") and not UO.InJournal("Horse:") and not UO.InJournal("Llama:") and not UO.InJournal("Ostard:") and not UO.InJournal("Mustang:") then
UO.Exec("terminate main1")
UO.Warmode("0")
wait(100)
UO.WaitTargetObject('0x4001c26d')
UO.UseType('0x1F4C')
wait(5000)
UO.Exec("exec main2")
Return
endif
wait(500)
wend
end sub

sub pk2()
UO.DeleteJournal()
while True
if UO.InJournal(":") and not UO.InJournal("Kifirkin:") and not UO.InJournal("Elemental:") and not UO.InJournal("Orn:") and not UO.InJournal("Zostrich:") and not UO.InJournal("Horse:") and not UO.InJournal("Llama:") and not UO.InJournal("Ostard:") and not UO.InJournal("Mustang:") then
UO.Exec("terminate main2")
UO.Warmode("0")
wait(100)
UO.WaitTargetObject('0x4001c26d')
UO.UseType('0x1F4C')
wait(5000)
UO.Exec("exec main3")
Return
endif
wait(500)
wend
end sub

sub pk3()
UO.DeleteJournal()
while True
if UO.InJournal(":") and not UO.InJournal("Kifirkin:") and not UO.InJournal("Elemental:") and not UO.InJournal("Orn:") and not UO.InJournal("Zostrich:") and not UO.InJournal("Horse:") and not UO.InJournal("Llama:") and not UO.InJournal("Ostard:") and not UO.InJournal("Mustang:") then
UO.Exec("terminate main3")
UO.Warmode("0")
wait(100)
UO.WaitTargetObject('0x4001c26d')
UO.UseType('0x1F4C')
wait(5000)
UO.Exec("exec main1")
Return
endif
wait(500)
wend
end sub
Author:  Ghostface Killah [ 2004-04-18 07:44:58 ]
Post subject: 
Вах!
Author:  Kifirkin [ 2004-04-18 11:20:17 ]
Post subject: 
мне тоже нравится =)))))
вот тока как поправить ето дело не знаю =(
он за ночь выкапывает всего 10к айрона,а при нормальном передвижении выкаповал бы гдето 50-60к
Author:  Beastik [ 2004-06-19 02:23:20 ]
Post subject:  Скрипт
Kifirkin мог бы ты мне помочь настроить твой скрипт нп майнинг ? +)
Author:  Yoko [ 2004-06-19 09:52:24 ]
Post subject: 
используй GotoXY скрипт из FAQ вместо столь ненадёжных "рельс" либо вставляй дополнительные проверки при движении
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/