alias bumpremind {
  timer 0 900 bumpnotify
}
on $*:TEXT:/^[!.@]addbumpremind/i:%tbl.chans: {
  if (!$read(names.txt,w,$nick)) {
  if ($1) {
    write names.txt $1
    }
    else {
    write names.txt $nick
    }
    .notice $nick $c($nick Your name has been £added^ to the bump reminder list.  You will be notified £every 15 minutes^ to bump the thread.  Use the £.delbumpremind^ command to remove yourself from this list.)
  }
  else .notice $nick $err(Your name is already on the list.)
}
on $*:TEXT:/^[!.@]delbumpremind/i:%tbl.chans: {
  if ($read(names.txt,w,$nick)) {
  if ($1) {
    write -dw $+ $1 names.txt
    }
    else {
    write -dw $+ $nick names.txt
    }
    .notice $nick $c($nick Your name has been £removed^ from the bump reminder list.  Use the £.addbumpremind^ command to add yourself back to the list if you wish to recieve notifications asking you to bump the thread again.)
  }
  else .notice $nick $err(Your Current nick is not on the reminder list.)
}
alias bumpnotify {
  set %fileposition 1
  while (%fileposition <= $lines(names.txt)) {
    set %name $read(names.txt,%fileposition)
    if (%name ison #british_legion) {
      .notice %name $c(%name Remember to bump $+ $chr(44) %name $+ .)
    }
    inc %fileposition 1
  }
  unset %fileposition
}