Stuff

alias nk dialog -m nick nick
dialog nick {
  title "Russell's Friendslist"
  size -1 -1 127 200 
  option dbu 
  text "Nickname To Add",1, 30 7 94 10, left
  edit "", 2, 2 15 94 13, right 
  Button "Submit", 3, 96 15 30 13, Right
  list 4, 2 30 123 150, left
  button "Remove", 5, 14 180 100 20, left
}
on *:dialog:nick:init:0:{
  var %f = 0
  while (%f < $lines(friends.txt)) {
    inc %f 1
    did -a nick 4 $read(friends.txt, %f)
  }
}
on *:dialog:nick:sclick:*:{
  if ($did == 3) { set %friend $did(nick,2).text | did -a nick 4 %friend | write friends.txt %friend | unset  %friend } 
  if ($did == 5) {
    write -ds $+ $did(nick,4).seltext friends.txt
    did -d nick 4 $did(nick,4).sel
  } 
}