BARRE DE VOLUME EN PICWIN

Une petit barre qui permet de regler le volume du son; ceci peut etre mis a votre lecteur mp3 en changant les dimensions

menu channel,status,query,menubar {
    Volume: son
}
alias son {
    set %long $calc($vol(master) / 1000)
    window -Cpdk +Let @volume 100 100 95 65
    if (%mute == on) { drawtext @volume 1 31 23 x }
    drawrect -f @volume 1 1 12 11 %long 8
    drawrect @volume 4 1 10 9 69 12
    drawrect @volume 4 1 29 25 10 10
    drawtext @volume 1 43 22 Mute
}
menu @volume {
    sclick {
    if ($mouse.x >= 13) && ($mouse.x <= 77) && ($mouse.y >= 10) && ($mouse.y <= 25) {
        drawrect -f @volume 0 1 1 1 95 22
        drawrect @volume 4 1 10 9 69 12
        set %long $calc($mouse.x - 12)
        set %vol $calc(($mouse.x - 12) * 1000)
        vol -vp %vol
        drawrect -f @volume 1 1 12 11 %long 8

    }
    if ($mouse.x >= 29) && ($mouse.x <= 39) && ($mouse.y >= 25) && ($mouse.y <= 35) {
        if (!%mute) || (%mute == off) {
        drawtext @volume 1 30 21 x
        set %mute on
        vol -vu1
        }
        elseif (%mute == on) {
        drawrect -f @volume 0 1 28 24 12 12
        drawrect @volume 4 1 29 25 10 10
        set %mute off
        vol -vu2 $vol(master)
        }
    }
    }
}