on op:TEXT:@Roster *:#:{
  if ($2 == delete) {
    if ($read(roster.txt,w,$3)) {
      write $+(-dl,$readn) roster.txt
    }
  }
  if ($2 == add) {
    if (!$read(roster.txt,w,$3)) {
      write roster.txt $3
      msg $chan 15«7Dom!15» 1 '12 $+ $3 $+ 1' added to the team roster.
    }
  }
}