on *:TEXT:!mod add*:#: {
  if ($read(modlist.txt,nw,$nick)) {
    write modlist.txt $$3
    msg $chan $$3 has been added to the mod list.
  }
}
on *:TEXT:!mod del*:#: {
  if ($read(modlist.txt,nw,$nick)) {
    if ($read(modlist.txt,nw,$3)) write -dl $+ $readn modlist.txt
    msg # $$3 has been removed from the mod list.
  }
}