rendered paste bodyon *:LOAD:{ /echo -a Friendslist By AlternativeNick
echo -a You can type /friends, right click > friendslist, F8, or use the 'Commands' Menu to open the friendslist }
menu status,channel,menubar {
Friends List
.Open:/friends
.Edit Profile:/dialog -md cpro cpro
}
menu query,nicklist {
Friends List
.Add to Friends:{ if ($read(friends.txt,s, $1) == $null) {
if ($notify($1) == $null) {
/write friends.txt $1 $1
/notify on
/notify $1
}
else {
if ($notify($1).ison == $true) {
/write friends.txt $1 $1
/notify on
}
else {
/write friends.txt $1 $1
/notify on
}
}
}
}
.Open FriendsList:/friends
.Edit Profile:/dialog -md cpro cpro
.View Profile:/getpro $1
}
alias F8 {
/friends
}
alias noton {
dialog -mo noton noton
/.timer 1 2 dialog -x noton
halt
}
dialog noton {
title "User Not Online"
size -1 -1 75 25
option type dbu
text "This user is not online" 1, 14 2 60 10
button "OK" 2, 20 10 37 12
}
on *:DIALOG:noton:sclick:2:{
dialog -x noton
}
alias friends {
if ($dialog(list) == $null) {
dialog -md list list
}
else { dialog -iev list list }
}
dialog list {
title $me
size -1 -1 86 144
option dbu
text "ONLINE USERS",6, 2 1 50 10
list 1, 2 8 80 50, size
list 7, 2 64 80 47, size
text "OFFLINE USERS",8, 2 58 50 6
button "Add", 2, 2 114 37 12
button "Remove", 3, 44 114 37 12
button "Info", 5, 2 128 37 12
button "Close", 4, 44 128 37 12
}
on *:DIALOG:list:sclick:2:{
/dialog -am adn adn
}
on *:dialog:list:sclick:5:{ if (%nick != $null) {
info }
}
on *:DIALOG:list:sclick:4:{
if ($?!="Are you sure you want to exit friendslist?" == $true) { dialog -x list }
else { dialog -v list }
}
on *:DIALOG:list:sclick:1:{
set %nick $did(list,1).seltext
did -e $dname 5
set %did $did
/.enable #silenceraws
whois %nick
/.timer -h 1 500 /.disable #silenceraws
/unset %wchans
}
#silenceraws off
raw 318:*:halt
raw 301:*:halt
raw 310:*:halt
raw 311:*:halt
raw 312:*:halt
raw 313:*:halt
raw 317:*:halt
raw 319:*:{ set %wchans $remove($3-,+,%,@) | halt }
raw 431:*:halt
raw 378:*:halt
raw 307:*:halt
raw 401:*:noton
#silenceraws end
on *:DIALOG:list:dclick:1:{
set %nick $did(list,1).seltext
/.query %nick $$?="What would you like to say?"
dialog -v list
did -e $dname 5
}
on *:DIALOG:list:sclick:7:{
set %nick $did(list,7).seltext
did -b $dname 5
set %did $did
}
on *:DIALOG:list:sclick:3:{
/set %nick# $didwm(list,%did,%nick)
/did -d $dname %did %nick#
/write -ds $+ %nick friends.txt
/notify -r %nick
}
on *:DIALOG:list:init:*:{
var %i = 0
while (%i < $lines(friends.txt)) {
inc %i 1
if ($notify($gettok($read(friends.txt,%i),2,32)).ison == $true) {
/did -a $dname 1 $gettok($read(friends.txt,%i),2,32)
}
elseif ($notify($gettok($read(friends.txt,%i),2,32)).ison == $false) {
/did -a $dname 7 $gettok($read(friends.txt,%i),2,32)
}
}
}
on ^*:NOTIFY:{
var %i = 0
while (%i < $lines(friends.txt)) {
inc %i 1
if ($nick isin $gettok($read(friends.txt,%i),2,32)) {
set %snick $gettok($read(friends.txt,%i),2,32))
if ($dialog(list) != $null) {
/set %snick# $didwm(list,7,%snick)
/.did -d list 7 %snick#
/.did -a list 1 %snick
}
/unset %snick#
/dialog -ma son son
halt
}
}
}
on ^*:UNOTIFY:{
var %i = 0
while (%i < $lines(friends.txt)) {
inc %i 1
if ($nick isin $gettok($read(friends.txt,%i),2,32)) {
set %snick $gettok($read(friends.txt,%i),2,32))
if ($dialog(list) != $null) {
/set %snick# $didwm(list,1,%snick)
/did -d list 1 %snick#
/did -a list 7 %snick
}
/unset %snick#
/dialog -ma soff soff
halt
}
}
}
dialog soff {
title "Sign Off"
size -1 -1 74 29
option dbu
text %snick Has Signed Off, 1, 5 4 58 24
button "CLOSE", 2, 27 18 24 10
}
on *:DIALOG:soff:init:*:{
unset %snick
}
on *:DIALOG:soff:sclick:2:{
dialog -x soff
}
dialog son {
title "Sign On"
size -1 -1 74 29
option dbu
text %snick Has Signed On, 1, 5 4 58 24
button "CLOSE", 2, 27 18 24 10
}
on *:DIALOG:son:init:*:{
unset %snick
}
on *:DIALOG:son:sclick:2:{
dialog -x son
}
;Add A Nick to FriendsList
dialog adn {
title ""
size -1 -1 57 36
option dbu
text "Add Nickname", 1, 10 3 38 8
edit "", 2, 4 12 50 10
button "OK", 3, 4 24 20 9
button "Cancel", 4, 28 24 25 9, cancel
}
on *:DIALOG:adn:sclick:3:{
if ($did(adn,2).edited == $true) && ($read(friends.txt,s, $did(adn,2).text) == $null) {
if ($notify($did(adn,2).text) == $null) {
/did -a list 7 $did(adn,2).text
/write friends.txt $did(adn,2).text $did(adn,2).text
/notify on
/notify $did(adn,2).text
}
else {
if ($notify($did(adn,2).text).ison == $true) {
/did -a list 1 $did(adn,2).text
/write friends.txt $did(adn,2).text $did(adn,2).text
/notify on
}
else {
/did -a list 1 $did(adn,2).text
/write friends.txt $did(adn,2).text $did(adn,2).text
/notify on
}
}
dialog -x adn
}
}
;Info section
alias info {
dialog -am inf inf
}
dialog inf {
title %nick Info
size -1 -1 95 51
option dbu
list 1, 1 1 50 48, size
button "Join Channel", 2, 55 1 37 8
button "PM", 3, 55 11 37 8
button "Notice", 4, 55 21 37 8
button "Whois", 5, 55 31 37 8
button "Close", 6, 55 41 37 8, cancel
}
on *:DIALOG:inf:init:*:{
var %i = 0
while ( $numtok(%wchans,32) > %i) {
inc %i 1
/did -a $dname 1 $gettok(%wchans,%i,32)
}
unset %wchans
}
on *:DIALOG:inf:sclick:1:{
set %tempchan $did(inf,1).seltext
}
on *:DIALOG:inf:sclick:2:{ /join %tempchan
unset %tempchan
}
on *:DIALOG:inf:sclick:3:{ /.query %nick $??="What would you like to say?" }
on *:DIALOG:inf:sclick:4:{ /.notice %nick $??="What would you like to say?" }
on *:DIALOG:inf:sclick:5:{ /whois %nick }
on *:DIALOG:list:close:*:{ unset %nick }
alias getpro {
.enable #getpro
.notice $1 PROFILE
.timer 1 5 .disable #getpro
}
#getpro off
on ^*:NOTICE:Yes:*:{
/dialog -ma pro pro
halt
}
on ^*:NOTICE:Nick*:*:{
/did -r pro 2
/did -a pro 2 $2-
halt
}
on ^*:NOTICE:Age*:*:{
/did -r pro 10
/did -a pro 10 $2-
halt
}
on ^*:NOTICE:Name*:*:{
/did -r pro 13
/did -a pro 13 $2-
halt
}
on ^*:NOTICE:Chan*:*:{
/did -r pro 14
/did -a pro 14 $2-
halt
}
on ^*:NOTICE:url*:*:{
/did -r pro 12
/did -a pro 12 $2-
halt
}
on ^*:NOTICE:Email*:*:{
/did -r pro 11
/did -a pro 11 $2-
halt
}
on ^*:NOTICE:quote*:*:{
/did -r pro 17
/did -a pro 17 $2-
halt
}
on ^*:NOTICE:end*:*:{
.disable #getpro
halt
}
#getpro end
dialog pro {
title "View Profile"
size -1 -1 159 145
option dbu
text "Nick-", 1, 7 5 30 8
edit "", 2, 69 5 85 10
text "Age-", 3, 7 17 22 8
text "Name-", 4, 7 29 25 8
text "Favorite Channel-", 5, 7 41 50 8
text "Website-", 6, 7 53 25 8
text "Email-", 7, 7 65 25 8
edit "", 10, 69 17 85 10a
edit "", 11, 69 65 85 10
edit "", 12, 69 53 85 10
edit "", 13, 69 29 85 10
edit "", 14, 69 41 85 10
text "---------------------------------------------------------------------------------------", 15, 0 79 159 8
text "Quote-", 16, 3 91 25 8
edit "", 17, 69 91 85 49, multi return autovs
button "Close", 18, 11 127 37 12, cancel
}
dialog Cpro {
title "Create Profile"
size -1 -1 159 157
option dbu
text "Create your profile for AlternativeNick's Friends System.", 8, 9 6 135 8
text "---------------------------------------------------------------------------------------", 15, 2 102 159 8
text "Quote-", 16, 5 114 25 8
text "Nick-", 1, 9 28 30 8
text "Age-", 3, 9 40 22 8
text "Name-", 4, 9 52 25 8
text "Favorite Channel-", 5, 9 64 50 8
text "Website-", 6, 9 76 25 8
text "Email-", 7, 9 88 25 8
edit "", 17, 71 113 85 40
edit "", 2, 70 28 85 10
text "WARNING: Other users can see this profile", 9, 9 14 103 8
edit "", 10, 70 40 85 10
edit "", 13, 70 52 85 10
edit "", 14, 70 64 85 10
edit "", 11, 70 88 85 10
edit "", 12, 70 76 85 10
button "SAVE",18, 8 140 25 12
button "CANCEL",19, 34 140 25 12
}
on *:DIALOG:cpro:init:*:{
/did -ra $dname 2 $read(pro.txt,s,nick)
/did -ra $dname 10 $read(pro.txt,s,age)
/did -ra $dname 11 $read(pro.txt,s,email)
/did -ra $dname 12 $read(pro.txt,s,url)
/did -ra $dname 13 $read(pro.txt,s,name)
/did -ra $dname 14 $read(pro.txt,s,chan)
/did -ra $dname 17 $read(pro.txt,s,quote)
}
on *:DIALOG:cpro:sclick:19:{
/dialog -x cpro
}
on *:DIALOG:cpro:sclick:18:{
/write -dsnick pro.txt
/write pro.txt nick $did($dname,2)
/write -dsage pro.txt
/write pro.txt age $did($dname,10)
/write -dsemail pro.txt
/write pro.txt email $did($dname,11)
/write -dsurl pro.txt
/write pro.txt url $did($dname,12)
/write -dsname pro.txt
/write pro.txt name $did($dname,13)
/write -dschan pro.txt
/write pro.txt chan $did($dname,14)
/write -dsquote pro.txt
/write pro.txt quote $did($dname,17)
/write -asquote pro.txt $chr(32)
var %i = 0
while (%i < $did($dname,17).lines) {
inc %i 1
/write -asquote pro.txt $did($dname,17,$calc(%i + 1))
/write -asquote pro.txt $chr(32)
}
dialog -x cpro
}
on ^*:notice:Profile:*:{
.set %pnick $nick
.notice $nick YES
.timer -h 1 500 sendpro
halt
}
alias sendpro {
.notice %pnick NICK $read(pro.txt,s,nick)
.notice %pnick Age $read(pro.txt,s,age)
.notice %pnick name $read(pro.txt,s,name)
.notice %pnick chan $read(pro.txt,s,chan)
.notice %pnick url $read(pro.txt,s,url)
.notice %pnick email $read(pro.txt,s,email)
.notice %pnick quote $read(pro.txt,s,quote)
.notice %pnick end
.unset %pnick
halt
}