Untitled

menu @friends {
  lbclick:{ echo -s :: $1 :: $active }
}
alias friends {
  /window -lsek0 @Friends -1 -1 350 450 pop.txt
  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))
  }
}
on *:INPUT:@friends:{
  /write -s $+ $1 friends.txt $1-
  /aline -n @friends $1-
}