Unnamed

on $*:TEXT:/^[!@]dmadmin(add|del)?/Si:#:{
  if ($right($1,3) != add) && ($right($1,3) != del) {
    .notice $nick 2The dm admins are %dmadmin $+ .
  }
  if ($address($nick,4) == $address($me,4)) {
    if ($right($1,3) == add) {
      if ($2 isin %dmadmin) {
        .notice $nick 2 $+ $2 is already a dm admin.
        halt
      }
      set %dmadmin $iif(%dmadmin,%dmadmin $2,$2)
      .notice $nick 2 $+ $2 has been added as a dm admin.
    }
    elseif ($right($1,3) == del) {
      if ($2 !isin %dmadmin) {
        .notice $nick 2 $+ $2 is not a dm admin.
      }
      set %dmadmin $remove(%dmadmin,$2)
      .notice $nick 2 $+ $2 has been deleted as a dm admin.
    }
  }
}