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

mining
http://forum.yoko.com.ua/viewtopic.php?f=17&t=16767
Page 1 of 1

Author:  kapatuct [ 2011-09-17 14:30:17 ]
Post subject:  mining

sub mining()
var mx, my, mz, i, j
var ismining, ixx, isheavy
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")

uo.setcatchbag('0x400BF4EF')

While not uo.life < uo.str
while uo.life >= uo.str
UO.DeleteJournal()
for i = mx-2 to mx+2
for j = my -2 to my+2

UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
ismining = 1
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("Try mining elsewhere") and not UO.InJournal("far away") and not UO.InJournal("There is nothing here to mine for") and not UO.InJournal("in rock") and ismining

UO.DeleteJournal()
hide()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype('0x0E85')
ixx = 0
ismining=1
while not UO.InJournal("You put") and not UO.InJournal("location")and not UO.InJournal("but fail") and not UO.InJournal("There is nothing here to mine for") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ixx <= 100
wait (100)
ixx = ixx + 1
wend
while UO.InJournal("but fail") and not UO.InJournal("There is nothing here to mine for")
Wait (3000)
UO.DeleteJournal()
wend




if uo.injournal("Dull Copper") then
ismining = 0
endif

if not ismining then
uo.print("Not mining here")
endif
wend
UO.DeleteJournal()
next
next
wend
end sub

sub hide()
while not UO.Hidden()
UO.Warmode("0")
UO.UseSkill("Hiding")
wait(4000)
wend
end sub


sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')

repeat
wait(500)
until UO.InJournal('backpack')
end sub




sub AutoHeal()
while uo.life>0
if uo.life<=uo.str-5 then
UO.SetArm('0x13B9')
UO.Exec("bandageself")
wait(2000)
mining()
endif
wend
end sub



u menia est takoi script tolko problema v tom cto on rabotaet ne tak kak ja planiraval. vo vremia kopanija rudy poevlaetsa Element, ja odevaju viking i heal. posle tago kak ja ego ubil. nachinaju opiat kopat. gde moi oshibki? :)

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/