Unnamed

alias add { 
  /write friends.txt $1-
}
alias friends {
  /window -lsek0 @Friends -1 -1 350 450
  var %i = 0
  while (%i < $lines(friends.txt)) {
    inc %i 1
    /aline 1 @friends $remove($mask($read(friends.txt,%i),9),$chr(33) $+ $gettok($mask($address($me,9),9),2,33))
  }
  echo -a $line(@friends,0)
}
on *:INPUT:@friends:{
  /write -s $+ $1 friends.txt $1-
  /aline -n @friends $1-
}