Code:
ctcp *:*:*: {
  if (!$window(@av)) window -lh @AV
  if ([color:red]([/color]$nick isop #) || ($nick == $me[color:red])[/color]) return
  if ([color:red]([/color]SLOTS isin $1) || (SOUND isin $1) || (Mp3 isin $1[color:red])[/color]) {
    var %nick = $nick,%fline = $fline(@AV,%nick,1,0)
    if (%fline) .timer $+ %nick off
    else {
      iline @AV 1 %nick
      .cnick $nick 4
      ; Timer Triggers the devoice
      ; .timer $+ %nick 1 330 mode # -v $nick
      ; I use this to color the nick instead of -v the nick
      .timer $+ %nick 1 330 .cnick $nick 6
    }
  }
}
on *:PART:#: {
  var %nick = $nick,%fline = $fline(@AV,%nick,1,0)
  if (%fline) {
    dline @AV %fline
    .timer $+ %nick off
    .cnick -r %nick
 }
}
on *:QUIT: {
  var %nick = $nick,%fline = $fline(@AV,%nick,1,0)
  if (%fline) {
    dline @AV %fline
    .timer $+ %nick off
    .cnick -r %nick
 }
}
on *:DEVOICE:#:.cnick -r [color:red]$vnick[/color]
on *:OP:#: {
  var %nick = [color:red]$opnick[/color],%fline = $fline(@AV,%nick,1,0)
  if (%fline) {
    dline @AV %fline
    .timer $+ %nick off
    .cnick -r %nick
 }
}