Someone

On $*:text:/^[!@.`~]add/Si:#:{
  if ($nick !isreg $chan) {
    if (!$2) { 
      .notice $nick Please specify a member to add
    }
    if ($2) {
      if ($read(member.txt, w, $nick $address($2,2) {
        .notice $nick $2 (Host: $address($2,2) $+ ) is already on members
      }
      else {
        write member.txt $2 $address($2,2)
        cs access #d.i.w add $2 3
      }
    }
  }
}
On $*:text:/^[!@.`~]del/Si:#:{
  if ($nick isop $chan) {
    if (!$2) { 
      .notice $nick Please specify a member to delete
    }
    if ($2) {
      if (!$read(member.txt, w, $nick $address($2,2) {
        .notice $nick $2 (Host: $address($2,2) $+ ) is already NOT a member
      }
      else {
        write -ds $+ $2 $address($2,2) member.txt
        cs access #d.i.w del $2 3
      }
    }
  }
}