Someone

on *:text:!setpm*:#: {
  if ($nick !isop $chan) { notice $nick Sorry you have to be operator to do that. | halt }
  msg $chan PM for $chan set to: $2-
  set %pm [ $+ [ $chan ] ] $2-
}
on *:text:!pm on:#: {
  if (%pm1 [ $+ [ $chan ] ] == on) { notice $nick The pm script is already on. | halt }
  if ($nick !isop $chan) { notice $nick Sorry you have to be OP to do that. | halt }
  if (%pm [ $+ [ $chan ] ] == $null) { notice $nick Please set the person to pm first, type !setpm (nick). | halt }
  notice $nick The pm script for $chan is now on.
  set %pm1 [ $+ [ $chan ] ] on
}
on *:text:!pm off:#: {
  if (%pm1 [ $+ [ $chan ] ] == $null) { notice $nick The pm script is already off. | halt }
  if ($nick !isop $chan) { notice $nick Sorry you have to be OP to do that. | halt }
  notice $nick The pm script for $chan is now off.
  unset %pm1 [ $+ [ $chan ] ] 
}
on *:join:#: {
  if (%pm1 [ $+ [ $chan ] ] == on) {
    if ($readini(autovoice.ini,n,$chan,$address($nick,2))) { 
      mode $chan +v $nick  
      halt  
    } 
    else timer 1 2 notice $nick Please PM %pm [ $+ [ $chan ] ] for voice in $chan $+ .
  }
}
on *:text:!autovoice*:#: {
  if ($2- == $null) { notice $nick Wrong command, to autovoice a nick please type !av (nick) to autovoice every one please use !autuvoice (on/off). | halt }
  if ($2- == on) {
    if (%autovoice [ $+ [ $chan ] ] == on) { notice $nick The autovoice for [ $+ $chan $+ ] is already on. | halt }
    set %autovoice [ $+ [ $chan ] ] on
    msg $chan The autovoice for [ $+ $chan $+ ] is now on.
  }
  if ($2- == off) {
    if (%autovoice [ $+ [ $chan ] ] == $null) { notice $nick The autovoice for [ $+ $chan $+ ] is already off. | halt }
    unset %autovoice [ $+ [ $chan ] ]
    msg $chan The autovoice for [ $+ $chan $+ ] is now off.
  }
}
on *:join:#: {
  if (%autovoice [ $+ [ $chan ] ] == on) {
    mode $chan +v $nick
  }
} 
on *:text:!av*:#: {
  if ($nick isop $chan || $nick ishop $chan) {
    if ($readini(autovoice.ini,$chan,n,$address($2,2))) { notice $nick  $+ $2 is already on the autovoice list. | halt }
    mode $chan +v $2 
    writeini -n autovoice.ini $chan $address($2,2) autovoice
    msg $chan  $+ $2 added to the auto voice list.
  }
}

on *:text:!deav*:#: {
  if ($nick isop $chan) {
    mode $chan -v $2
    writeini autovoice.ini -ds $chan $address($2,2) autovoice
    msg $chan  $+ $2 deleted from the auto voice list.
  }
}
on *:text:!pm:#: {
  notice $nick The pm is set to %pm [ $+ [ $chan ] ]
}

on *:text:!pm*:#: {
  if ($2 == $null) { halt }
  notice $2 Please pm %pm [ $+ [ $chan ] ] in game for auto voice in $chan $+ .
}
on *:text:@pm:#: {
  msg $chan Please pm %pm [ $+ [ $chan ] ] in game for auto voice in $chan $+ .
}