почему то не перекладывает в мешки обычную рыбу StoreFish
Code: sub Drop()
if uo.Waiting() then
uo.CancelTarget()
end if
var Exit
var f
;var a=0
dim Fish[7]
Fish[0]=0x09CC
Fish[1]=0x09CD
Fish[2]=0x09CE
Fish[3]=0x09CF
Fish[4]=0x14EB ; maps
Fish[5]=0x0DD6 ; truly rare fish
Fish[6]=0x0DD6 ; prize fish
UO.UseObject('Sunduk')
wait(1000)
UO.UseObject('SundukBag')
wait(1000)
UO.UseObject('StoreFish')
wait(1000)
UO.UseObject('StoreMAP')
wait(1000)
UO.UseObject('StorePRFish')
wait(1000)
UO.UseObject('StoreTRFish')
wait(500)
exit=0
repeat
for f=0 to 3
uo.FindType(Fish[f],"-1","backpack")
uo.SetReceivingContainer('StoreFish')
if uo.GetQuantity('finditem')>0 then
repeat
uo.FindType(Fish[f],"-1","backpack")
uo.Grab('0','finditem')
wait(1000)
until uo.FindCount()==0
else
exit=1
next
uo.UnSetReceivingContainer()
end if
until Exit==1
exit=0
repeat
for f=4 to 4
uo.FindType(Fish[f],"-1","backpack")
uo.SetReceivingContainer('StoreMAP')
if uo.GetQuantity('finditem')>0 then
repeat
uo.FindType(Fish[f],"-1","backpack")
uo.Grab('0','finditem')
wait(1000)
until uo.FindCount()==0
else
exit=1
next
uo.UnSetReceivingContainer()
end if
until Exit==1
exit=0
repeat
for f=5 to 5
uo.FindType(Fish[f],"0x01BB","backpack")
uo.SetReceivingContainer('StorePRFish')
if uo.GetQuantity('finditem')>0 then
repeat
uo.FindType(Fish[f],"0x01BB","backpack")
uo.Grab('0','finditem')
wait(1000)
until uo.FindCount()==0
else
exit=1
next
uo.UnSetReceivingContainer()
end if
until Exit==1
repeat
for f=6 to 6
uo.FindType(Fish[f],"backpack")
uo.SetReceivingContainer('StoreTRFish') ;rar
if uo.GetQuantity('finditem')>0 then
repeat
uo.FindType(Fish[f],"-1","backpack")
uo.Grab('0','finditem')
wait(1000)
until uo.FindCount()==0
else
exit=1
next
uo.UnSetReceivingContainer()
end if
until Exit==1
uo.Print("Улов выложен")
end sub
П.С.: скрипт ветерана на фишинг
|