menu channel {
  Friends List:{ 
    dialog -m nick nick
  }
}
menu NickList {
  Add { 
    write friends.txt $1
    //echo -a You Have Added $1 To Your Friends List.
  }
}
on *:dialog:nick:dclick:*:{
  query $did(nick,4).seltext
}
alias nonick dialog -m nnick nnick
dialog nnick {
  title "Error", center
  size -1 -1 140 25
  option dbu 
  text "Please select a nickname from your friends list before you click the Remove button", 1, 5 5 130 15, center 
}
alias notext dialog -m ntext ntext
dialog ntext {
  title "Error", center
  size -1 -1 140 25
  option dbu 
  text "Please type a nickname into the edit box, then press submit.", 1, 5 5 130 15, center 
}
alias nowhois dialog -m nwhois nwhois
dialog nwhois {
  title "Error", center
  size -1 -1 140 25
  option dbu 
  text "Please select a nickname from your friends list before you click the whois button", 1, 5 5 130 15, center 
}
alias Russl dialog -m link link
dialog link {
  title "RussellReal's Scripting Forum"
  size -1 -1 140 25
  option dbu 
  text "RussellReal's Scripting Forum:", 1, 5 5 130 10, center 
  link "http://z7.invisionfree.com/Scripting_Fun/index.php", 2, 9 15 130 10, center
}
on *:dialog:link:sclick:2:{
  //run http://z7.invisionfree.com/Scripting_fun
}
alias whoisd dialog -m whois whois
dialog whois {
  title "Whois Results"
  size -1 -1 250 140
  option dbu 
  text "Hostmask", 1, 100 5 50 10, center
  edit "User is offline", 2, 5 16 240 10, center
  text "Identified?", 3, 100 31 50 10, center
  edit "User is offline", 4, 5 42 240 10, center
  text "Channels", 5, 100 56 50 10, center
  edit "User is offline", 6, 5 67 240 10, center
  text "Server", 7, 100 82 50 10, center
  edit "User is offline", 8, 5 93 240 10, center
  text "Idle Time", 9, 100 108 50 10, center
  edit "Idle Time UnRetrievable", 10, 5 119 240 10, center
}
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 70 13, left 
  Button "Submit", 3, 74 15 25 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, 99 15 25 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) {
    if ($did(nick,2) != $null) {
      set %friend $did(nick,2).text
      did -a nick 4 %friend
      write friends.txt %friend
      did -r nick 2
      unset  %friend
    }
    else { notext }
  } 
  if ($did == 5) {
    if ($did(nick,4).seltext == $null) { nonick }
    else {
      write -ds $+ $gettok($did(nick,4).seltext,1,32) 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) {
    if ($did(nick,4).seltext == $null) { nowhois }
    else {
      set %Whois $did(nick,4).seltext
      whois $did(nick,4).seltext
      whoisd
      enable #whois
    }
  }
  if ($did == 9) { invite $did(nick,4).seltext $?="Enter The Channel You Wish To Invite $did(nick,4).seltext Into" }
  if ($did == 11) { russl }
  if ($did == 12) { did -r nick 4 | /remove friends.txt }
}
#whois on
raw 311:* { set %311 $3- | did -r whois 2 | did -a whois 2 %311 }
raw 307:* { set %307 $3- | did -r whois 4 | did -a whois 4 %307 }
raw 313:* { set %313 $3- }
raw 312:* { set %312 $3 | did -r whois 8 | did -a whois 8 %312 }
raw 317:* { set %317 $duration($3) | did -r whois 10 | did -a whois 10 %317 }
raw 319:* { set %319 $3- | did -r whois 6 | did -a whois 6 %319 }
#whois end
alias online {
  set %b 0
  ns status blahblahblahweeeeeeeeeeeeeeeeeeoooo
}
on *:NOTICE:*:*:{
  if (($nick == NickServ) && (%b <= $did(nick,4).lines)) {
    if ($2 == blahblahblahweeeeeeeeeeeeeeeeeeoooo) {
      inc %b 1
      ns status $gettok($did(nick,4,%b),1,32)
      halt
    }
    if ($2 != blahblahblahweeeeeeeeeeeeeeeeeeoooo) {
      timer 1 1 did -eo nick 4 %b $gettok($did(nick,4,%b),1,32) $iif($3 >= 1,online,offline)
      timer 1 2 inc %b 1
      timer 1 2 ns status $gettok($did(nick,4,%b),1,32)
    }
  }
}