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

Мининг немного переделать
http://forum.yoko.com.ua/viewtopic.php?f=20&t=15465		 Page 1 of 1
Author:  Valov [ 2010-01-20 16:54:08 ]
Post subject:  Мининг немного переделать
Пожалуйста переделайте мининг этот так чтоб он руду в банк клал.
Author:  Valov [ 2010-01-20 16:54:49 ]
Post subject: 
sub mining()
var mx, my, mz, i, j
var ismining, ixx, isheavy
UO.Set('finddistance', '4')

mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")


UO.UseObject(sunduk)
wait(1000)

While not UO.Dead()
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 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("far away") 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("no ore") 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")
Wait (3000)
UO.DeleteJournal()
wend

if uo.weight > 300 then
CheckLag()
UnloadOre()
end if

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 UnloadOre()
var i
DIM Ore[4]
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore

for i = 0 to 3
UO.FindType(ore[i], '-1', 'backpack')
If UO.FindCount() > 0 then
repeat
CheckLag()
UO.MoveItem('finditem', '-1', sunduk)
wait(100)
UO.FindType(ore[i], '-1', 'backpack')
until not UO.FindCount()
else
wait(100)
end if
next
end sub


Sub Grab()
var i
DIM Ore[4]
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore

for i = 0 to 3
UO.FindType(ore[i], '-1', 'ground')
If UO.FindCount() > 0 then
repeat
CheckLag()
UO.MoveItem('finditem', '-1', 'backpack')
wait(100)
UO.FindType(ore[i], '-1', 'ground')
until not UO.FindCount()
else
wait(100)
end if
next
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/