on *:TEXT:!reg add*:#: {
  if ($read(modlist.txt,nw,$nick)) {
    write reglist.txt $$3
    msg $chan $$3 is now a regular.
  }
}
on *:TEXT:!reg del*:#: {
  if ($read(modlist.txt,nw,$nick)) {
    if ($read(reglist.txt,nw,$3)) write -dl $+ $readn reglist.txt
    msg # $$3 has been removed from the regular list. GET REKT KID Kappa
  }
}