Code: Select all
sub mine_always()
Uo.Disarm()
UO.set("finddistance","2")
while 1
hungry()
go_mining("8ol8ki")
UO.Print("Again")
wend
end sub
############################################################
# Main Mining Function! Conf. Needed (look above)
############################################################
sub go_mining(path)
var cycle=1
# var path="8ol8ki"
var test=0
var i=0
var j
UO.DeleteJournal()
While i<LEN(path)
if VAL(path[i]) then
j=VAL(path[i])
i=i+1
else
j=1
endif
Repeat
if test<>1 then
UO.DeleteJournal()
mine_spot()
gogo()
end if
UO.Print("New Location!")
if not make_step(path[i]) then
UO.Print("Probably Stuck!")
UO.Print("Hope it is a Worldsave")
endif
j=j-1
Until j==0
i = i + 1
if cycle && i==LEN(path) then
i=0
endif
Wend
end sub
sub Mine_Spot()
var mineTime=0
hungry()
if UO.Count("0x0e85") then
UO.DeleteJournal()
UO.waittargettile(1339,UO.GetX(),UO.GetY(),0)
UO.usetype("0x0e85")
repeat
mineTime = mineTime + 1
wait(1000)
until UO.injournal('there is no more') or UO.injournal('You cannot') or UO.injournal('tool broke') or UO.injournal('stop mining') or UO.injournal('must wait') or UO.injournal('already doing') or UO.injournal('no sand') or UO.journal('fail') or (mineTime>120)
UO.DeleteJournal()
end if
UO.Print("Finished")
ore()
endif
return 0
end sub
############################################################
# Main Path-Recording function!
############################################################
sub record_path()
var x
var y
var path=""
UO.DeleteJournal()
Repeat
x=UO.GetX()
y=UO.GetY()
if waitNewPos(x,y) then
path=path+extract_dir(x,y,UO.GetX(),UO.GetY())
endif
Until UO.InJournal("stop")
path = compressPath(path)
UO.TextClear()
UO.TextOpen()
UO.TextPrint("Your path is:")
UO.TextPrint(path)
end sub
############################################################
# Auxilliar sub.
############################################################
sub send_step(keycode,dir)
var x = UO.GetX()
var y = UO.GetY()
while (UO.Stamina<7) AND (x==UO.GetX()) AND (y==UO.GetY())
UO.useobject("Music")
wait(2100)
wend
var timeout = 0
while (UO.GetDir()<>dir) AND (x==UO.GetX() ) AND (y==UO.GetY() )
timeout = 0
UO.Press(keycode)
Repeat
timeout=timeout+50
wait(50)
Until (UO.GetDir()==dir) || (timeout>10000)
wend
while (x==UO.GetX() ) AND (y==UO.GetY() )
timeout = 0
UO.Press(keycode)
Repeat
timeout=timeout+50
wait(50)
Until x<>UO.GetX() || y<>UO.GetY() || (timeout>10000)
wend
return 1
end sub
############################################################
# Bunch of auxilliar subs. No need to change anything!
############################################################
sub waitNewPos(x,y)
while x==UO.GetX() && y==UO.GetY()
if UO.InJournal("stop") then
return 0
endif
wend
return 1
end sub
sub compressPath(path)
Var i=0
Var j=0
Var newPath=""
while i<LEN(path)
j=1
while path[i]==path[i+1] AND j<9
i=i+1
j=j+1
wend
if j==1 then
newPath=newPath+path[i]
else
newPath=newPath+STR(j)+path[i]
endif
i=i+1
wend
return newPath
end sub
sub extract_dir(x,y,a,b)
if x>a then
if y==b then
return "i"
else
if y>b then
return "n"
else
return "w"
endif
endif
else
if x<a then
if y==b then
return "l"
else
if y>b then
return "e"
else
return "s"
endif
endif
else
if y>b then
return "o"
else
return "k"
endif
endif
endif
end sub
sub make_step(dir)
if dir=="e" then
send_step(39,1)
return 1
gogo()
endif
if dir=="l" then
send_step(34,2)
return 1
gogo()
endif
if dir=="s" then
send_step(40,3)
return 1
gogo()
endif
if dir=="k" then
send_step(35,4)
return 1
gogo()
endif
if dir=="w" then
send_step(37,5)
return 1
gogo()
endif
if dir=="i" then
send_step(36,6)
return 1
gogo()
endif
if dir=="n" then
send_step(38,7)
return 1
gogo()
endif
if dir=="o" then
send_step(33,0)
return 1
gogo()
endif
if dir=="d" then
While UO.Count("0x0eed")
UO.Drop("0x0eed")
wait(1000)
Wend
wait(200)
return 1
endif
UO.Print("Recall Time!")
return 0
end sub
sub ore()
if (UO.Weight>0) then
uo.ignorereset()
uo.findtype("0x0eed",-1,"ground") #ore
while (Uo.FindCount()>0)
if (uo.GetX("finditem")<>uo.GetX()) OR (uo.GetY("finditem")<>uo.GetY()) then
Uo.Grab(0,"finditem")
endif
uo.ignore("finditem","on")
wait(300)
uo.findtype("0x0eed",-1,"ground") #ore
wend
uo.ignorereset()
endif
end sub
sub hungry()
var hungry=1
while hungry==1
UO.DeleteJournal()
UO.ServerPrint(".hungry")
while not UO.InJournal("You")
wait(50)
wend
if not UO.InJournal("stuffed") then
if UO.Count(0x097B)>0 then
UO.UseType(0x097B)
wait(2000)
else
UO.Exec("findtype 0x097B -1 ground")
Wait(500)
if UO.FindCount()>0 then
UO.Grab("20","finditem")
Wait(500)
else
hungry=0
endif
hungry=0
endif
else
hungry=0
endif
wend
endsub
sub gogo()
if UO.Weight >400 then
UO.Exec("waittargettype 0x0eed")
UO.Exec("drophere")
wait (500)
endif
if UO.Weight >400 then
UO.Exec("waittargettype 0x19b8")
UO.Exec("drophere")
wait (500)
endif
endsub