on @*:text:!autoplay:#:{
.avoice $iif($avoice($address($nick,3)),-r ) $nick $chan 3 $network
describe # $iif($avoice($address($nick,3)),smiles as $nick decides to be,sighs as $nick decides to stop being) a permanent player
if ($nick !isvoice $chan) && $avoice($address($nick,3)) { .mode $chan +v $nick }
elseif ($nick isvoice $chan) && !$avoice($address($nick,3)) { .mode $chan -v $nick }
}