Yoko

Code: Select all

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