Yoko

Code: Select all

sub podborrubi()
if UO.InJournal("You pull") then 
UO.SetReceivingContainer('Bag') 
UO.findtype('0x09CC','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (500) 
UO.findtype('0x09CD','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (500) 
UO.findtype('0x09CE','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (500) 
UO.findtype('0x09CF','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (500) 
UO.findtype('0x1BEF','0x048E','ground') ;Water ingot 
UO.grab ('1','finditem') 
wait (500) 
UO.findtype('0x14EB','0x0000','ground') ;Map
UO.grab ('1','finditem') 
wait (500) 
UO.findtype('0x0F90','0x0000','ground') ;Dead Wood
UO.grab ('1','finditem') 
wait (500) 
UO.UnSetReceivingContainer() 
end sub

Code: Select all

sub podborrubi()
var i
dim r[7]
r[0]='0x09CC' ;fish 
r[1]='0x09CD' ;fish 
r[2]='0x09CE' ;fish 
r[3]='0x09CF' ;fish 
r[4]='0x1BEF' ;Water ingot 
r[5]='0x14EB' ;Map
r[6]='0x0F90' ;Dead Wood

if UO.InJournal("You pull") then 
for i=0 to 6
UO.findtype(r[i],-1,'ground')
if uo.findcount() then
UO.moveitem('finditem') 
wait(500)
endif
next
endif
end sub