Yoko

sub main()
UO.DeleteJournal()
var c, z, x, y, i, tmp, inside
c=0
start:
#while uo.getx()>2232
#uo.say("left")
#wait(5000)
#wend
#uo.say("stop")
#uo.say("stop")
for y=-6 to 6
for x=-6 to 6
z=0
try:
UO.Exec ("waittargettile "+" 0000 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
UO.exec ("usetype 0x0DBF")
UO.Print ("X Coordinate: "+STR(x))
UO.Print ("Y Coordinate: "+STR(y))
i=0
while i< 10
#uo.press(121)
if UO.InJournal("You can't reach") then
i=200
UO.DeleteJournal()
endif
if z>3 then
i=200
UO.DeleteJournal()
endif
if UO.InJournal("There dosn't seem to be any fish here") then
z=z+1
i=200
UO.DeleteJournal()
goto try
endif
if UO.InJournal("You place") then
i=200
z=0
UO.Exec("setreceivingcontainer 0x50B7CAAA"); 
if uo.countground("0x1E1E")>0 then
UO.Exec("findtype 0x1E1E -1 1")
UO.Exec ("grab 1000 finditem")
wait (1500)
endif
if uo.countground("0x09CE")>0 then
UO.Exec("findtype 0x09CE -1 1")
UO.Exec ("grab 1000 finditem")
wait (1500)
endif
if uo.countground("0x09CC")>0 then
UO.Exec("findtype 0x09CC -1 1")
UO.Exec ("grab 1000 finditem")
wait (1500)
endif
if uo.countground("0x09CD")>0 then
UO.Exec("findtype 0x09CD -1 1")
UO.Exec ("grab 1000 finditem")
wait (1500)
endif
if uo.countground("0x0F7A")>0 then
UO.Exec("findtype 0x0F7A -1 1")
UO.Exec ("grab 1000 finditem")
wait (1500)
endif
UO.Exec ("unsetreceivingcontainer")
goto try
endif
if UO.InJournal("There dosn't seem to be any fish here") then
i=200
UO.DeleteJournal()
endif
wait (500)
i=i+1
wend
next
next
#while uo.getx()<2215
#uo.say("right")
#wait(5000)
#wend
#uo.say("stop")
#uo.say("stop")
for y=-6 to 6
for x=-6 to 6
z=0
try1:
UO.Exec ("waittargettile "+" 0000 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
UO.exec ("usetype 0x0DBF")
UO.Print ("X Coordinate: "+STR(x))
UO.Print ("Y Coordinate: "+STR(y))
i=0
while i< 10
uo.press(121)
if UO.InJournal("You can't reach") then
i=200
UO.DeleteJournal()
endif
if z>3 then
i=200
UO.DeleteJournal()
endif
if UO.InJournal("You fish a while, but fail to catch anything") then
z=z+1
i=200
UO.DeleteJournal()
goto try1
endif
if UO.InJournal("You pull out") then
i=200
z=0
UO.DeleteJournal()
UO.Exec("setreceivingcontainer 0x50B7CAAA"); 
if uo.countground("0x09CE")>0 then
UO.Exec("findtype 0x09CE -1 1")
UO.Exec ("grab 1000 finditem")
wait (1500)
endif
if uo.countground("0x09CF")>0 then
UO.Exec("findtype 0x09CF -1 1")
UO.Exec ("grab 1000 finditem")
wait (1500)
endif
if uo.countground("0x09CC")>0 then
UO.Exec("findtype 0x09CC -1 1")
UO.Exec ("grab 1000 finditem")
wait (1500)
endif
if uo.countground("0x09CD")>0 then
UO.Exec("findtype 0x09CD -1 1")
UO.Exec ("grab 1000 finditem")
wait (1500)
endif
if uo.countground("0x1E1E")>0 then
UO.Exec("findtype 0x1E1E -1 1")
UO.Exec ("grab 1000 finditem")
wait (1500)
endif
UO.Exec ("unsetreceivingcontainer")
goto try1
endif
if UO.InJournal("There dosn't seem to be any fish here") then
i=200
UO.DeleteJournal()
endif
wait (500)
i=i+1
wend
next
next
goto start
endsub

всё вроде бы работает как часы
нО
всегда есть это нО

не скидывает в трюм
кому не сложно помогите пожалуйста

_________________
One World One Dream

ребЯта помогите плз

_________________
One World One Dream