Code:
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
Нету проверок на наличие найденного предмета на земле.
И куда делся endif от if UO.InJournal("You pull") then ?
Так проще и актуальнее вроди)
Code:
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