Mine

on *:TEXT:!av*:#FastPCW: {
  if ($nick isop $chan || $nick ishop $chan) {
    writeini autovoices.ini $2 autovoice on
    /msg $chan 7 $2 14has been added to 7AutoVoice list14 by7 $nick $+ 14.
    mode $chan +v $2
  } 
}

on *:TEXT:!delav*:#FastPCW: {
  if ($nick isop $chan || $nick ishop $chan) {
    remini autovoices.ini $2
    /msg $chan 7 $2 14has been deleted from 7AutoVoice list14 by7 $nick $+ 14.
    mode $chan -v $2
  } 
}

on *:JOIN:#FastPCW:{ 
  if ($readini(autovoices.ini,$nick,autovoice == on)) mode $chan +v $nick
}







-----------------





on *:JOIN:#:{   
  set %checking $addtok(%checking,$nick,$asc(:))
  set $+(%,voice,.,$nick) mode $chan +v $nick
  set $+(%,damsg,.,$nick) msg $chan     
  whois $nick
}
raw 307:*: {
  if ($istok(%checking,$2,$asc(:))) {
    $($+(%,voice,.,$2),2)
    $($+(%,damsg,.,$2),2) $2 is identified
    set %checking $deltok(%checking,$findtok(%checking,$2,$asc(:)),$asc(:))
  }  
}