Code: Select all
sub fishing()
var mx, my, mz, i, j
uo.print('À ãäå âåäðî?')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+4
if UO.dead() then
return
endif
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("There are no fish here.") and not UO.InJournal("Try fishing elsewhere") and not UO.InJournal("far away") and not UO.InJournal("in water")
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF") ;FishingPole
if UO.dead() then
return
endif
if UO.Weight>1000 then
return
endif
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("You fail to catch anything.") and not UO.InJournal("There are no fish here.") and not UO.InJournal("Try fishing elsewhere") and not UO.InJournal("in water")
wait (100)
if UO.InJournal("You pull") then
UO.SetReceivingContainer('Bag')
UO.findtype('0x0E2D','0x07A0','ground') ;Status Ball
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x09CC','0x0000','ground') ;fish
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x09CD','0x0000','ground') ;fish
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x09CE','0x0000','ground') ;fish
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x09CF','0x0000','ground') ;fish
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x14EB','0x0000','ground') ;tattered map
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x09CC','0x0029','ground') ;FISH
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish
UO.grab ('1','finditem')
wait (200)
UO.UnSetReceivingContainer()
end if
wend
wend
UO.DeleteJournal()
next
next
end sub
Можно ли в него добавить чтобы он через 5 секунд после забрасывания , если ничего не напишется, проверял тоже место на наличие рыбы...
П.С. Если ктото может сделать чтобы он лутил всё под собой, кроме обычных 3 видов рыбы
Заранее спасибо!!!!