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
}
}
}