[Gang]

To turn script off type ",exec cfpicker" one more time. I myself have it on hotkey and toogle it on\off.

Code:

sub cfpicker()
    DIM cf[10]
    cf[0] = '0x0C51'
    cf[1] = '0x0C52'    
    cf[2] = '0x0C53'    
    cf[3] = '0x0C54'    
    cf[4] = '0x1A99'    
    cf[5] = '0x1A9B'    
    cf[6] = '0x1A9A'    
    cf[7] = '0x0DF9'    
    cf[8] = '0x1A9D'    
    cf[9] = '0x1A9C'    
    VAR i
    var pickuper='cfpicker' ; lowercase
    if UO.GetGlobal(pickuper)=='On' then
        UO.SetGlobal(pickuper,0)
        UO.Print('-='+pickuper+' Terminated=-')
        UO.Exec('terminate '+pickuper)
    else
        UO.SetGlobal(pickuper,'On')
        UO.Print('-='+pickuper+' Running=-')
        endif
    UO.Set('finddistance','12')
    while 1==1
        For i = 0 To 6
            If UO.CountGround(cf[i])>0 AND UO.GetDistance(cf[i])<2 then
                UO.UseFromGround(cf[i])
            EndIf
        Next
        wait(100)
        For i = 7 To 9
            UO.FindType(cf[i],-1,'ground')
            If UO.FindCount()>0 AND UO.GetDistance(cf[i])<3 then
                UO.MoveItem('finditem')
            EndIf
        Next
    wend
endsub