Yoko

Code: Select all

sub mine()
UO.DeleteJournal()
var x, y, i, tmp, inside, goto_x, st, first
st=0
first=UO.GetX()
start:
inside=0
y=-3
for y=-1 to 1
x=-3
for x=-1 to 1
try:
if UO.Hidden()==0 then
UO.Exec ("useskill Hiding")
i=0
while UO.Hidden()<> 1 and i<10
i=i+1
wait (500)
wend 
endif
UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
UO.exec ("usetype 0x0F39")
#UO.Print (""+STR(x))
#UO.Print (""+STR(y))
i=0
while i< 100
if UO.InJournal("Вы не смогли") or UO.InJournal("You loosen") then
 wait (1000)
 i=200
 UO.DeleteJournal()
 goto try
endif
if UO.InJournal("You put") then
 i=200
 UO.DeleteJournal()
 goto try
endif
if UO.InJournal("You must wait to perform another action") then
 wait (1000)
 i=200
 UO.DeleteJournal()
 goto try
endif
if UO.InJournal("There is nothing here to mine") or UO.InJournal("Try mining") then
wait (1000)
 i=200
 UO.DeleteJournal()
endif
if UO.InJournal("You have no line of sight to that location") then
 wait (1000)
 i=200
 UO.DeleteJournal()
endif
wait (1000)
i=i+1
wend
next
next

uo.SetEasyUO(3,"1")

goto start
end sub

и второй на выкидывание.

sub drop() ####### DROP ######################

UO.Exec ("setreceivingcontainer 0x400053D3")

while UO.Count ("0x1BE9") > 0
uo.exec("findtype 0x1BE9")
UO.Exec ("grab 500 finditem")
wait (700)
wend

while UO.Count ("0x1BF5") > 0
uo.exec("findtype 0x1BF5")
UO.Exec ("grab 500 finditem")
wait (700)
wend

while UO.Count ("0x0EED") > 0
uo.exec("findtype 0x0EED")
UO.Exec ("grab 500 finditem")
wait (700)
wend

while UO.Count ("0x1BEF") > 0
uo.exec("findtype 0x1BEF")
UO.Exec ("grab 500 finditem")
wait (700)
wend

while UO.Count ("0x0f8c") > 0
uo.exec("findtype 0x0f8c")
UO.Exec ("grab 500 finditem")
wait (700)
wend

while UO.Count ("0x0F29") > 0
uo.exec("findtype 0x0F29")
UO.Exec ("grab 500 finditem")
wait (700)
wend

UO.Exec ("unsetreceivingcontainer")
uo.SetEasyUO(3,"1")

end sub ######## DROP ######################