menu channel {
  Friends List:{ 
    dialog -m nick nick
  }
}
menu NickList {
  Add { 
    set %friend $1
    write friends.txt $1
    notify $1
    if (%dialog.nick == on) {
      did -a nick 4 %friend
      while (%1 < $did(nick,4).lines) {
        inc %1 1
        if ($gettok($did(nick,4,%1),1,32) isin %friend) {
          did -o nick 4 %1 $gettok($did(nick,4,%1),1,32) $iif($notify($did(nick,4,%1)).ison == $true,online,offline)  
        }
      }
      //echo -a You Have Added $1 To Your Friends List.
    }
  }
}
alias RSHS dialog -m stats stats
dialog stats {
  title "RS HIGH SCORE LOOK-UP"
  size -1 -1 200 200
  option dbu
  text "Combat:", 1, 82 10 20 10, left
  text "Overall:" 2, 133 10 25 10, left 
  text "Nickname:", 3, 5 10 25 10, left
  edit "", 30, 31 10 50 10, left
  edit "", 31, 104 10 28 10, left
  edit "", 32, 152 10 28 10, left
  button "Look UP!", 99, 31 20 25 10, left
  text "Attack:", 4, 5 35 25 10, left
  edit "", 33, 30 35 10 10, left
  text "Strength:", 5, 5 50 25 10, left
  edit "", 34, 30 50 10 10, left
  text "Defence:", 6, 5 65 25 10, left
  edit "", 35, 30 65 10 10, left
  text "Magic:", 7, 5 80 25 10, left
  edit "", 36, 30 80 10 10, left
  text "Range:", 8, 5 95 25 10, left
  edit "", 37, 30 95 10 10, left
  text "HitPoints:", 9, 5 110 25 10, left
  edit "", 38, 30 110 10 10, left
  text "Prayer:", 10, 5 125 25 10, left
  edit "", 39, 30 125 10 10, left
  text "Agility:", 11, 5 140 25 10, left
  edit "", 40, 30 140 10 10, left


  text "Herblore:", 12, 45 35 25 10, left
  edit "", 41, 70 35 10 10, left
}
alias google dialog -m google google
dialog google {
  title "Google - I'm Feeling Lucky Results"
  size -1 -1 200 25
  option dbu 
  edit "", 1, 5 5 190 10, center 
}
on *:dialog:google:init:*:{
  did -o google 1 1 %goog
  sockclose google
}
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 or isn't identified", 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 242
  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 
  text "Google Search - I'm Feeling Lucky", 13, 1 200 126 10, center
  edit "", 14, 1 209 126 10, left
  button "I'm Feeling Lucky!", 15, 30 220 66 10
  button "Rs High Scores!", 16, 30 231 66 10
}
on *:dialog:nick:close:*:{
  set %dialog.nick off
}
on *:dialog:nick:init:0:{
  set %dialog.nick on
  var %f = 0
  while (%f < $lines(friends.txt)) {
    inc %f 1
    did -a nick 4 $read(friends.txt, %f)
  }
  var %1 = 0
  while (%1 < $did(nick,4).lines) {
    inc %1 1
    did -o nick 4 %1 $gettok($did(nick,4,%1),1,32) $iif($notify($did(nick,4,%1)).ison == $true,online,offline)  
  }
}
on *:dialog:nick:sclick:*:{
  if ($did == 3) {
    if ($did(nick,2) != $null) {
      set %friend $did(nick,2).text
      notify %friend
      did -a nick 4 %friend
      write friends.txt %friend
      did -r nick 2
      while (%1 < $did(nick,4).lines) {
        inc %1 1
        if ($gettok($did(nick,4,%1),1,32) isin %friend) {
          did -o nick 4 %1 $gettok($did(nick,4,%1),1,32) $iif($notify($did(nick,4,%1)).ison == $true,online,offline)  
        }
      }
    }
    else { notext }
  } 
  if ($did == 5) {
    if ($did(nick,4).seltext == $null) { nonick }
    else {
      notify -r $did(nick,4).seltext 
      write -ds $+ $gettok($did(nick,4).seltext,1,32) friends.txt 
      did -d nick 4 $did(nick,4).sel
    }
  }
  if ($did == 6) { query $gettok($did(nick,4).seltext,1,32) }
  if ($did == 7) { notice $gettok($did(nick,4).seltext,1,32) $?="Enter The Message You Wish To Send To $gettok($did(nick,4).seltext,1,32) $+ " }
  if ($did == 8) {
    if ($did(nick,4).seltext == $null) { nowhois }
    else {
      set %Whois $gettok($did(nick,4).seltext,1,32)
      whois $gettok($did(nick,4).seltext,1,32)
      whoisd
      enable #whois
    }
  }
  if ($did == 9) { invite $gettok($did(nick,4).seltext,1,32) $?="Enter The Channel You Wish To Invite $did(nick,4).seltext Into" }
  if ($did == 11) { russl }
  if ($did == 12) { 
    var %a = 0
    while (%a < $did(nick,4).lines) {
      inc %a 1
      notify -r $gettok($did(nick,4,%a),1,32)
    }
    did -r nick 4
    remove friends.txt
  }
  if ($did == 15) {
    if ($did(nick,14) != $null) {
      /set %lookup $replace($did(nick,14),$chr(32),+)
      /sockopen google www.google.com 80
    }
    else { halt }
  }
  if ($did == 16) { RSHS }
}

#whois on
raw 311:* {
  if (%dialog.nick == on) {
    set %311 $3-
    did -r whois 2
    did -a whois 2 %311 
  }
}
raw 307:* {
  if (%dialog.nick == on) {
    set %307 $3-
    did -r whois 4
    did -a whois 4 %307 
  }
}
raw 313:* {
  if (%dialog.nick == on) {
    set %313 $3- 
  }
}
raw 312:* {
  if (%dialog.nick == on) {
    set %312 $3
    did -r whois 8
    did -a whois 8 %312 
  }
}
raw 317:* {
  if (%dialog.nick == on) {
    set %317 $duration($3)
    did -r whois 10
    did -a whois 10 %317 
  }
}
raw 319:* {
  if (%dialog.nick == on) {
    set %319 $3-
    did -r whois 6
    did -a whois 6 %319 
  }
}
#whois end
on *:NOTIFY:{
  if (%dialog.nick == on) {
    set %blah $nick
    var %h = 0
    while (%h < $did(nick,4).lines) {
      inc %h 1
      if ($gettok($did(nick,4,%h),1,32) isin %blah) {
        did -o nick 4 %h $gettok($did(nick,4,%h),1,32) online
      }
    }
  }
}
on *:UNOTIFY:{
  if (%dialog.nick == on) {
    set %blah1 $nick
    var %h = 0
    while (%h < $did(nick,4).lines) {
      inc %h 1
      if ($gettok($did(nick,4,%h),1,32) isin %blah1) {
        did -o nick 4 %h $gettok($did(nick,4,%h),1,32) offline
      }
    }
  }
}
on *:sockopen:google:{
  sockwrite -nt $sockname GET /search?hl=en&q= $+ %lookup $+ &btnI=I%27m+Feeling+Lucky HTTP/1.1
  sockwrite -nt $sockname Host: www.google.com $+ $crlf $+ $crlf
}
on *:sockread:google:{
  if ($sockerr) {
    echo -a Error.
    halt
  }
  else {
    sockread %temptext
    tokenize 32 $htmlfree(%temptext)
    if $1 == location: {
      set %goog $2
      google
    }
  }
}
on *:SOCKCLOSE:google:{
  unset %check
  unset %goog
  unset %temptext
}
on *:SOCKOPEN:dstat:{
  sockwrite -nt $sockname GET /statpage.php?user= [ $+ [ %lookup.d ] ]  HTTP/1.1
  sockwrite -nt $sockname Host: rscript.org $+ $crlf $+ $crlf
  if (%cmb) {
    sockrename $sockname dcmb
  }
  if (%skill) {
    sockrename $sockname dskill
  }
}
on *:SOCKREAD:dstat:{
  var %total | sockread -f %total
  tokenize 32 $remove(%total,Stat:)
  if (*does not feature* iswm $1-) { did -er stat 31-38,70-84 | sockclose $sockname }
  if (Attack == $1) { did -eo stat 31 1 $iif($3 isnum,$3,NA) }
  if (Hitpoints == $1) { did -eo stat 32 1 $iif($3 isnum,$3,NA) }
  if (Prayer == $1) { did -eo stat 33 1 $iif($3 isnum,$3,NA) }
  if (Strength == $1) { did -eo stat 34 1 $iif($3 isnum,$3,NA) }
  if (Defence == $1) { did -eo stat 37 1 $iif($3 isnum,$3,1) }
  if (Ranged == $1) { did -eo stat 38 1 $iif($3 isnum,$3,NA) }
  if (Magic == $1) { 
    did -eo stat 35 1 $iif($3 isnum,$3,NA)
    did -eo stat 36 1 $cmbcalc($did(stat,31),$iif($did(stat,37) != NA,$did(stat,37),1),$did(stat,34),$did(stat,32),$did(stat,33))
  }
  if (Herblore == $1) { did -eo stat 81 1 $iif($3 isnum,$3,NA) }
  if (Agility == $1) { did -eo stat 80 1 $iif($3 isnum,$3,NA) }
  if (Thieving == $1) { did -eo stat 79 1 $iif($3 isnum,$3,NA) }
  if (Crafting == $1) { did -eo stat 72 1 $iif($3 isnum,$3,NA) }
  if (Fletching == $1) { did -eo stat 76 1 $iif($3 isnum,$3,NA) }
  if (Slayer == $1) { did -eo stat 82 1 $iif($3 isnum,$3,NA) }
  if (Mining == $1) { did -eo stat 70 1 $iif($3 isnum,$3,NA) }
  if (Smithing == $1) { did -eo stat 71 1 $iif($3 isnum,$3,NA) }
  if (Fishing == $1) { did -eo stat 73 1 $iif($3 isnum,$3,NA) }
  if (Cooking == $1) { did -eo stat 74 1 $iif($3 isnum,$3,NA) }
  if (Runecraft == $1) { did -eo stat 78 1 $iif($3 isnum,$3,NA) }
  if (Firemaking == $1) { did -eo stat 75 1 $iif($3 isnum,$3,NA) }
  if (Woodcutting == $1) { did -eo stat 77 1 $iif($3 isnum,$3,NA) }
  if (Farming == $1) { did -eo stat 83 1 $iif($3 isnum,$3,NA) }
  if (Construction == $1) {
    did -eo stat 84 1 $iif($3 isnum,$3,NA)
    sockclose $sockname
  }
}
alias cmbcalc { 
  return $calc((0.32707*$1)+(0.249*$2)+(0.324*$3)+(0.25*$4)+(0.124*$5))
}