On $*:text:/^[!@.`~]addvoiced/Si:#d.i.w:{
  if ($nick isop $chan) {
    var %x = 1
    while (%x <= $nick($chan,0)) { 
      if ($nick($chan,%x) !isvoice $chan) { inc %x }
      if ($nick($chan,%x) isvoice $chan) { 
        write member.txt $nick($chan,%x) $address($nick($chan,%x),2)
        msg $chan $nick($chan,%x) (host: $address($nick($chan,%x),2) $+ ) added
        mode $chan +v $nick($chan,%x)
        inc %x
      }
    }
  }
}