on *:text:!autovoice on:#: {
  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)) && $nick isreg $chan) {
    if (%avoice [ $+ [ $chan ] ] == ON) {
      if ($read(avlist.txt, s, $nick $address($nick,4)) == $chan) { /mode $chan +v $nick  } 
      Else (($read(avlist.txt, s, $nick $address($nick,4)) != $chan) {
        msg $chan 7 Please pm4 %pmnick 7ingame for voice! 
      }
    }
    if (%avoice [ $+ [ $chan ] ] == OFF) {  msg $chan 7 Please pm4 %pmnick 7ingame for voice! 
    }
  }
  Else { halt }
}