Stuff

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
}

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 , 2, 5 16 240 10, center
  text "Identified?", 3, 100 31 50 10, center
  edit , 4, 5 42 240 10, center
  text "Channels", 5, 100 56 50 10, center
  edit , 6, 5 67 240 10, center
  text "Server", 7, 100 82 50 10, center
  edit , 8, 5 93 240 10, center
  text "Idle Time", 9, 100 108 50 10, center
  edit , 10, 5 119 240 10, center
}
on *:dialog:whois:init:0:{
  did -a whois 2 %311
  did -a whois 4 %307
  did -a whois 6 %319
  did -a whois 8 %312
  did -a whois 10 %317
  unset %317
  unset %312
  unset %319
  unset %307
  unset %311
  unset %whois
  disable #whois
}
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, 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
      unset  %friend
    }
    else { halt }
  } 
  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) {
    if ($did(nick,4).seltext != $null) {
      set %Whois $did(nick,4).seltext
      whois $did(nick,4).seltext
      enable #whois
    }
    else { halt }
  }
  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 off
raw 311:* { set %311 $3- }
raw 307:* { set %307 $3- }
raw 312:* { set %312 $3 }
raw 313:* { set %313 $3- }
raw 317:* { set %317 $duration($3) | whoisd }
raw 319:* { set %319 $3-  }
#whois end