on *:LOAD:{
  echo -a 4>>> 10Successfully loaded $remove($script,$scriptdir) - 04Def's Links 3.2 by Def669
  load -rs abd.mrc
}
menu * { 
  .Def's Links
  ..Defs Links:/dialog -md Defs Defs
  ..Updater (/adlinks): /adlinks
  ..Irc Bots (/ircbots): /ircbots
  ..Dln (/dln): /dln
}
dialog Defs {
  title "Def's Links V 3.2"
  size -1 -1 201 250
  option dbu
  text "Welcome to Def's Link Dialog. A List of useful links are displayed below.", 2, 4 6 193 10, center
  button "Close", 4, 26 16 37 12, cancel
  link "Home (New)", 5, 65 41 33 8
  box "Links", 1, 55 48 135 84, group
  link "Runescape.com", 3, 59 57 52 8, group
  link "Photobucket.com", 546, 59 67 44 8, group
  link "Runehq.com", 578, 59 77 31 8, group
  link "Runehq.net", 577, 59 87 29 8, group
  link "Zybez.com", 547, 59 97 28 8, group
  link "Runescapecommunity.com", 464, 59 107 65 8, group
  link Rsbandb.com, 55, 59 117 34 8, group
  link "Tip.it", 554, 148 57 13 8, group
  link "Runecrypt.com", 474, 148 67 37 8, group
  link "Swiftswitch.net", 454, 148 77 38 8, group
  link "Swiftirc.net", 455, 148 87 29 8, group
  link "MIRC.com", 465, 148 97 28 8, group
  link "Imageshack.us", 445, 148 107 38 8, group
  link "Pastebin.ca", 654, 148 117 32 8, group
  text "Created With Dialog Studio, By Def669", 456, 52 241 95 8, disable
  button "Site", 65, 63 16 37 12
  button "Updater", 11, 100 16 37 12
  button "IRC Bots", 14, 137 16 37 12
  button "Forum", 18, 26 28 37 12
  button "Help", 32, 63 28 37 12
  button "Dln", 69, 100 28 37 12
  button "Help on IRC", 42, 137 28 37 12
  link "Home (Old)", 1205, 102 41 33 8
  box "Highlight Alerter Lite", 6, 10 139 184 92
  button "Main", 7, 11 52 41 12, default
  button "Utilities", 8, 11 65 41 12
  button "More Links", 9, 11 79 41 12, disable
  button "Control Pannel", 10, 11 92 41 12
  text "Highlight 1:", 2005, 40 156 28 8
  edit "", 2004, 69 155 53 10
  button "Save", 2003, 124 153 37 12
  text "Highlight 2:", 2002, 40 171 28 8
  edit "", 2001, 69 170 53 10
  button "Save", 2000, 124 168 37 12
  button "Load Current", 12, 55 200 37 12, disable
  button "Clear All", 13, 109 200 37 12
  button "Download Full Version", 15, 68 186 64 12, disable
  text "Tool Tip:", 1210, 10 231 23 8
  text "Useful text will be show here when you hover over something.", 1211, 33 231 161 8
}
dialog util {
  title "DL Utilities"
  size -1 -1 192 138
  option dbu
  text "RuneScape Players", 112, 35 5 49 8
  text "---", 111, 100 5 59 8, result
  text "RuneScape Forum Users", 35, 33 37 60 8
  text "---", 36, 101 36 57 8, result
  button "Refresh Forum Users", 40, 66 51 56 12
  button "Refresh Players", 41, 66 15 56 12
  button "Close", 1, 77 122 37 12, cancel
  box "Version Info", 1108, 4 72 184 47
  text "Known Bug (Top result):", 1109, 10 84 60 8
  edit "", 1110, 9 95 171 19, read multi autovs vsbar
  button "Check", 1111, 75 82 37 12
  button "Clear", 1112, 113 82 37 12
}
dialog cont {
  title "DL Control Pannel"
  size -1 -1 195 172
  option dbu
  box "Control Pannel", 1000, 29 5 137 80
  text "Part/Quit", 1001, 34 12 35 8
  button "OK", 1002, 123 23 37 12
  text "Quit:", 1003, 35 25 13 8
  edit "", 1004, 50 24 68 10
  text "Part:", 1005, 35 53 13 8
  edit "", 1006, 50 52 68 10
  button "OK", 1007, 123 51 37 12
  text "Allows you to quit IRC through the dialog", 1008, 43 37 102 8
  text "This will enable you to part the active channel", 1009, 37 67 114 8
  box "Joins/Servers", 1010, 6 90 184 59
  edit "", 1011, 41 124 102 10
  button "Connect", 1012, 146 123 37 12
  text "Server:", 1013, 15 124 19 8
  text "Channel:", 1014, 15 103 24 8
  edit "", 1015, 41 103 102 10
  button "Join", 1016, 146 102 37 12
  text "This enables you to join a specific channel", 1017, 44 115 104 8
  text "This enables you to connecto to a specific server", 1018, 38 137 117 8
  button "Close", 1, 76 155 37 12, cancel
}
on *:dialog:Def:sclick:1210:{
  if ($sock(updatefinder)) { .sockclose updatefinder }
  did -r Def 8 
  did -a Def 8 XXXXX
  did -a Def 10 Canceled
}
on *:dialog:Defs:sclick:10:{
  dialog -md cont cont
}
on *:dialog:Defs:mouse:*:{
  if ($did == 8) did -a Defs 1211 Opens the Def's Links Utilities Pannel.
  if ($did == 10) did -a Defs 1211 Opens the Def's Links Control Pannel.
  if ($did == 65) did -a Defs 1211 Opens the Def's Links Web Site.
  if ($did == 11) did -a Defs 1211 Opens the Def's Links Updater.
  if ($did == 4) did -a Defs 1211 Closes the Dialog.
  if ($did == 14) did -a Defs 1211 Opens the IRCBots Dialog (If Installed).
  if ($did == 32) did -a Defs 1211 Opens the Readme file.
  if ($did == 18) did -a Defs 1211 Opens the Def's Links forum.
  if ($did == 69) did -a Defs 1211 Opens the Def's Links News Dialog (if Installed).
  if ($did == 69) did -a Defs 1211 Get help on the home IRC Server/channel.
}
on *:dialog:Defs:sclick:2003:{ 
  /set %dlhl1 $did(2004)
  /did -a Defs 2003 SAVED!
}
on *:dialog:Defs:sclick:2000:{ 
  /set %dlhl2 $did(2001)
  /did -a Defs 2000 SAVED!
}
on *:dialog:Defs:sclick:13:{ 
  /unset %dlhl1
  /unset %dlhl2
  /did -r Defs 2001,2004
}
on *:dialog:Defs:sclick:1204:{
  /run irc://hyperion.fl.us.SwiftIRC.net/HD
}
on *:dialog:Defs:sclick:1205:{
  /run www.freewebs.com/defslinks
}
on *:dialog:Defs:sclick:8:{
  dialog -md util util
}
on *:dialog:Defs:sclick:5:{
  /run www.defslinks.filetap.com
}
on *:dialog:Defs:sclick:1203:{
  /run irc://talon.nl.eu.SwiftIRC.net/HD
}
on *:dialog:Defs:sclick:1202:{
  /run irc://illusion.de.eu.SwiftIRC.net/HD
}
on *:dialog:Defs:sclick:1201:{
  /run irc://manticore.uk.eu.SwiftIRC.net/HD
}
on *:dialog:Defs:sclick:42:{
  /run http://www.freewebs.com/defslinks/irchelp.htm
}
on *:dialog:Defs:sclick:1106:{
  /run http://www.swiftswitch.net/swiftswitch/runescape.php
}
on *:dialog:Defs:sclick:1107:{
  run http://news.runescape.com/lang/en/aff/runescape/list.ws
}
on *:dialog:Defs:sclick:1101:{
  run http://www.google.co.uk
}
on *:dialog:Defs:sclick:1102:{
  run http://www.ask.com
}
on *:dialog:Defs:sclick:1103:{
  run http://www.alltheweb.com
}
on *:dialog:Defs:sclick:1104:{
  run http://www.lycos.com
}
on *:dialog:control:sclick:1016:{
  If ($did(1015) == $null) //echo -a You must enter a channel to join.
  else /join $did(1015)
}
on *:dialog:control:sclick:1012:{
  If ($did(1011) == $null) //echo -a You must enter a server to join. EG: $server
  if (. isin $did(1011)) /server $did(1011)
  else //echo -a Please enter a valid server address. EG $server
}
on *:dialog:control:sclick:1002:{ 
  If ($did(1004) == $null) //echo -a You must enter a quit message first.
  else /quit $did(1004)
} 
on *:dialog:control:sclick:1007:{ 
  If ($did(1006) == $null) //echo -a You must enter a part message first.
  If ($active == Status Window) //echo -s You can't part the status window! | halt
  else /part $active $did(1006)
} 
on *:dialog:Defs:sclick:3:{ 
  run http://www.runescape.com
} 
on *:dialog:Defs:sclick:44:{ 
  run http://www.runehq.com/RHQCalcView.php?id=00674
} 
on *:dialog:Defs:sclick:69:{
  /dln
}
on *:dialog:util:sclick:1112:{
  /did -r util 1110
}
on *:dialog:util:sclick:1111:{
  sockopen Versionbugs www.freewebs.com 80
}
on *:SOCKOPEN:Versionbugs: {
  sockwrite -nt $sockname GET /defslinks/versionnews.htm HTTP/1.1
  sockwrite -nt $sockname Host: www.freewebs.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:Versionbugs: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*Bug:* iswm %sockreader ) {
      var %tempvar $nohtml(%sockreader)
      /did -a util 1110 %tempvar

      sockclose Versionbugs
    }
  }
}
on *:dialog:Defs:sclick:32:{ 
  run http://www.freewebs.com/defslinks/readme.txt
} 
on *:dialog:Defs:sclick:65:{ 
  run http://www.freewebs.com/defslinks
} 
on *:dialog:Defs:sclick:546:{ 
  run http://www.photobucket.com
} 
on *:dialog:Defs:sclick:578:{ 
  run http://www.runehq.com
} 
on *:dialog:Defs:sclick:577:{ 
  run http://www.runehq.net
} 
on *:dialog:Defs:sclick:547:{ 
  run http://www.zybez.com
} 
on *:dialog:Defs:sclick:464:{ 
  run http://www.runescapecommunity.com
} 
on *:dialog:Defs:sclick:55:{ 
  run http://www.rsbandb.com
} 
on *:dialog:Defs:sclick:554:{ 
  run http://www.tip.it
} 
on *:dialog:Defs:sclick:474:{ 
  run http://www.runecrypt.com
} 
on *:dialog:Defs:sclick:454:{ 
  run http://www.swiftswitch.com
} 
on *:dialog:Defs:sclick:465:{ 
  run http://www.mirc.com
} 
on *:dialog:Defs:sclick:445:{ 
  run http://www.imageshack.us
} 
on *:dialog:Defs:sclick:654:{ 
  run http://www.pastebin.ca
} 
on *:dialog:Defs:sclick:11:{ 
  /adlinks
} 
on *:dialog:Defs:sclick:14:{ 
  /ircbots
} 
on *:dialog:Defs:sclick:18:{ 
  run http://bdefslinksforum.runboard.com
} 
on *:dialog:Defs:sclick:34:{ 
  run www.freewebs.com/defslinks/defslinks.exe
}
alias deflinks { 
  dialog -ma Defs Defs
}
on *:dialog:util:sclick:41:{ 
  sockopen RSplayers www.runescape.com 80
}
on *:SOCKOPEN:RSplayers: {
  sockwrite -nt $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1
  sockwrite -nt $sockname Host: www.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:RSplayers: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*There are currently* iswm %sockreader ) {
      noop $regex(%sockreader,/There are currently(.*?)people playing!/Si)
      var %tempvar $remove($regml(1),There are currently,people playing!)
      /did -a util 111 %tempvar
      sockclose RSplayers
    }
  }
}
on *:dialog:util:sclick:40:{ 
  sockopen RSforumusers forum.runescape.com 80
}
on *:SOCKOPEN:RSforumusers: {
  sockwrite -nt $sockname GET /lang/en/aff/runescape/forums.ws HTTP/1.1
  sockwrite -nt $sockname Host: forum.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:RSforumusers: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (** active users* iswm %sockreader ) {
      var %tempvar $remove($nohtml(%sockreader),active users)
      /did -a util 36 %tempvar
      sockclose RSforumusers
    }
  }
}