Stuff

alias nk dialog -m nick nick
dialog nick {
  title "Russell's Friendslist"
  size -1 -1 127 200 
  option dbu 
  text "Friends List, Created by RussellReal.", 10, 3 1 94 10, left
  text "Nickname To Add", 1, 3 7 94 10, left
  edit "", 2, 2 15 60 13, right 
  Button "Submit", 3, 63 15 30 13, Right
  list 4, 2 30 123 150, left
  button "Remove", 5, 22 177 83 21, left
  button "Query", 6, 1 177 20 10, left
  button "Notice", 7, 1 188 20 10, left
  button "Whois", 8, 106 177 20 10, left
  button "Invite", 9, 106 188 20 10, left
  button "My Site", 11, 100 1 23 9, right
  button "Clear All", 12, 94 15 30 13, Right 
}
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 }
  if ($did == 6) { query $did(nick,4).seltext }
  if ($did == 7) { notice $did(nick,4).seltext $?="Enter The Message You Wish To Send To $did(nick,4).seltext $+ " }
  if ($did == 8) { //echo -a whois $did(nick,4).seltext }
  if ($did == 9) { invite $did(nick,4).seltext $?="Enter The Channel You Wish To Invite $did(nick,4).seltext Into" }
}