Stuff

On $*:text:/^[!@.`~]add/Si:#d.i.w:{
  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
        /notice $nick $2 (Host: $address($2,2) $+ ) has been added to access 3, and to the member list
        mode $chan +v $nick
      }
    }
  }
}
On $*:text:/^[!@.`~]del/Si:#d.i.w:{
  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
      }
    }
  }
}
on *:JOIN:#d.i.w:{
  if ($read(member.txt, w, $nick $address($nick,2))) {
    notice $nick Welcome back $nick $+ ! $iif(($hget(part, $nick) != $null),You were last seen here at $hget(part, $nick),$null)
    mode $chan +v $nick
  }
  else {
    halt
  }
}
on *:PART:#d.i.w:{
  if ($read(member.txt, w, $nick $address($nick,2))) {
    /hadd -m part $nick $time on $date
  }
}