Something

on *:text:!autovoice*:#: {
  if ($nick isop $chan) {
    if ($2 == $null) {
      msg $chan 7Av is4 %avoice [ $+ [ $chan ]  ]$+ 7.
    }
    if ($2 == on) {
      set %avoice [ $+ [ $chan ] ] ON 
      msg $chan 7Av has been turned 4ON7. 
    }
    if ($2 == off) {
      set %avoice [ $+ [ $chan ] ] OFF
      msg $chan 7Av has been turned 4OFF7.
    } 
  }
  else { halt }
}
on *:text:.av*:#: {
  write Avlist.txt $2 $address($2,4) $chan 
  msg $chan 4 $2 7has been added to Auto Voice list by4 $nick $+ 7. 
}
on *:text:.delav*:#: {
  /write -ds $+ $2 Avlist.txt 
  msg $chan 4 $+ $2 7has been deleted from the Auto Voice List by4 $nick $+ 7.  
}
on *:JOIN:#: { 
  if (($me isop $chan) || ($me ishop $chan)) {
    if ((%avoice [ $+ [ $chan ] ] == ON) && ($read(avlist.txt, s, $nick $address($nick,4)) == $chan)) mode $chan +v $nick
    else msg $chan 7 Please pm4 %pmnick 7ingame for voice!   
  }
}