#ALIAS addfriend {#file 1 "friend.txt";#write 1 %proper(%1);#close 1}
#ALIAS update_friends {#var friend_mylist {};#var friend_offlist {};#var friend_onlist {};#var friend_current {};#var friend_count 0;#file 1 "friend.txt";friend_current=%read( 1);#while (@friend_current != "") {friend_mylist=%additem( @friend_mylist, %proper( @friend_current));friend_current=%read( 1)};#close 1;friend_mylist=%replace( @friend_mylist, ~");friend_mylist=%sort( @friend_mylist);#t+ friend_list;friend}
#ALIAS update_friends_2 {friend_mylist=%replace( %sort( @friend_mylist), ~");friend_offlist=%replace( %sort( @friend_offlist), ~");friend_onlist=%replace( %sort( @friend_onlist), ~");#t+ friend_pcheck;#t- friend_addsyou;pcheck %item( @friend_mylist, 1)}
#VAR friend_mylist {}
#VAR friend_offlist {}
#VAR friend_off {}
#VAR friend_onlist {}
#VAR friend_maxslots {40}
#VAR friend_count {}
#VAR friend_current {}
#VAR friend_norotate {}
#TRIGGER {The following people want to be your friend:} {update_friends} "friend_wannabe"
#TRIGGER {%s%d~) - (%w)%s~(Offline~)} {friend_mylist=%replace( %delitem( %proper( %1), @friend_mylist), ~");friend_offlist=%replace( %additem( @friend_offlist, %proper( %1)), ~");#add friend_count 1;#tab %proper( %1)} "friend_list" {"prompt"}
#TRIGGER {%s%d~) - (%w)%s~(Linkdead~)} {friend_mylist=%replace( %delitem( %proper( %1), @friend_mylist), ~");friend_offlist=%replace( %additem( @friend_offlist, %proper( %1)), ~");#add friend_count 1;#tab %proper( %1)} "friend_list" {"prompt"}
#TRIGGER {%s%d~) - (%w)%s~(Online~)} {friend_mylist=%replace( @friend_mylist, ~");friend_mylist=%delitem( %proper( %1), @friend_mylist);friend_onlist=%replace( %additem( @friend_onlist, %proper( %1)), ~");#add friend_count 1;#tab %proper( %1)} "friend_list" {"prompt"}
#TRIGGER {%s%d~) - (%w)%s~(Note~)} {friend_mylist=%replace( %delitem( %proper( %1), @friend_mylist), ~");friend_onlist=%replace( %additem( @friend_onlist, %proper( %1)), ~");#add friend_count 1;#tab %proper( %1)} "friend_list" {"prompt"}
#TRIGGER {~'Friend wannabe~' will show people who want to be your friend.} {#t- friend_list;update_friends_2} "friend_list"
#TRIGGER {(%w) is Offline.} {friend_mylist=%replace( %delitem( %proper( %1), @friend_mylist), ~");#if (@friend_mylist != "") {pcheck %item( @friend_mylist, 1)} {#t- friend_pcheck;#t+ friend_addsyou}} "friend_pcheck"
#TRIGGER {(%w) is Online.} {friend_mylist=%replace( %delitem( %proper( %1), @friend_mylist), ~");#if (@friend_count = @friend_maxslots) {friend_off=%item( @friend_offlist, 1);#while (%ismember( @friend_off, @friend_norotate)) {friend_offlist=%replace( %delitem( @friend_off, @friend_offlist), ~");#file 1 flog.txt;#write 1 {%time( ) ~: Norotate activated for @friend_off};#close 1;friend_off=%item( @friend_offlist, 1)};friend @friend_off;friend_offlist=%replace( %delitem( @friend_off, @friend_offlist), ~")};friend %1;friend_onlist=%replace( %additem( @friend_onlist, %proper( %1)), ~");#if (@friend_mylist != "") {pcheck %item( @friend_mylist, 1)} {#t- friend_pcheck;#t+ friend_addsyou};#tab %proper( %1)} "friend_pcheck"
#TRIGGER {You are already far too popular! ~:~)} {#t- friend_finger;#echo Ran out of friend slots.. you have MORE than 20 friends ONLINE!!! yes you ARE THE MOST POPULAR PERSON IN THE UNIVERSE!!} {friend_finger}
#TRIGGER {You have been added to (%w)~'s friend list.} {#file 1 "friend.txt";#if (%grep(1,%concat("^",%proper(%1))) != "") {#close 1;#if (!%ismember(%proper(%1),@friend_onlist)) {update_friends}} {#echo %1 isn't in your friend list.};#close 1} {friend_addsyou}
#T- friend
#T- friend_finger