Stuff

on *:LOAD:{
  echo -a 4>>> 10Successfully loaded $remove($script,$scriptdir) - 04Def's Links 3.2 by Def669
  load -rs abd.mrc
}
menu status,query,nicklist,channel { 
  .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
  ;-- Links --
  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
  box "Search", 1100, 59 48 135 31, hide
  link "Google", 1101, 66 58 18 8, hide
  link "Ask", 1102, 66 68 13 8, hide
  link "Alltheweb", 1103, 158 58 26 8, hide
  link "Lycos", 1104, 168 67 15 8, hide
  box "News Items", 1105, 59 81 135 21, hide
  link "SwiftSwitch", 1106, 63 90 30 8, hide
  link "RuneScape", 1107, 155 90 29 8, hide
  box "Version Info", 1108, 10 134 184 47, hide
  text "Known Bug (Top result):", 1109, 16 146 60 8, hide
  edit "", 1110, 15 157 171 19, hide read multi autovs vsbar
  button "Check", 1111, 81 144 37 12, hide
  button "Clear", 1112, 119 144 37 12, hide
  button "Dln", 69, 100 28 37 12
  button "Help on IRC", 42, 137 28 37 12
  box "IRC Help", 1200, 59 105 135 26, hide
  link "Server 1", 1201, 62 113 22 8, hide
  link "Server 3", 1202, 62 121 22 8, hide
  link "Server 2", 1203, 168 112 22 8, hide
  link "Server 4", 1204, 168 120 22 8, hide
  link "Home (Old)", 1205, 102 41 33 8
  box "Highlight Alerter Lite", 6, 10 139 184 92
  button "Main", 7, 11 52 41 12, disable
  button "Utilities", 8, 11 65 41 12
  button "More Links", 9, 11 79 41 12
  button "Control Pannel", 10, 11 92 41 12
}
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
}
controlp {
  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:Defs:sclick:10:{
  dialog -ma controlp controlp
}
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
    }
  }
}