menu channel {
Friends List:{
dialog -m nick nick
}
}
menu NickList {
Add {
write friends.txt $1
notify $1
//echo -a You Have Added $1 To Your Friends List.
}
}
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 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 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
}
on *:dialog:nick:init:0:{
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
}
}
#whois on
raw 311:* { set %311 $3- | did -r whois 2 | did -a whois 2 %311 }
raw 307:* { set %307 $3- | did -r whois 4 | did -a whois 4 %307 }
raw 313:* { set %313 $3- }
raw 312:* { set %312 $3 | did -r whois 8 | did -a whois 8 %312 }
raw 317:* { set %317 $duration($3) | did -r whois 10 | did -a whois 10 %317 }
raw 319:* { set %319 $3- | did -r whois 6 | did -a whois 6 %319 }
#whois end
on *:NOTIFY:{
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:{
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
}
}
}