menu channel {
Friends List:{
dialog -m nick nick
}
}
menu NickList {
Add {
write friends.txt $1
//echo -a You Have Added $1 To Your Friends List.
}
}
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 , 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