@create Watcher
@parent Watcher=Function Parent
@aconnect Watcher=@trigger me/axconnect[u(fn_darkwiz,%#)]=%#
@adisconnect Watcher=@trigger me/axconnect[u(fn_darkwiz,%#)]=%#,dis
&axconnect1 Watcher=@pemit %0=You have %1connected dark.
&axconnect0 Watcher=@dolist [u(fn_interested,%0)]=@pemit ##=<Watcher> [name(%0)] has %1connected.
&fn_darkwiz Watcher=[and(hasflag(%0,WIZARD),hasflag(%0,DARK))]
&fn_interested Watcher=[iter(lwho(),u(fn_interested_[not(member(u(##/friends),%0))],##))]
&fn_interested_0 Watcher=%0
&cmd_+watchfor Watcher=$+watchfor *:&friends %#=u(fn_tidy,setunion(u(%#/friends),setq(0,u(fn_player_dbref,%0,me))%q0)); @pemit %#=u(str_added[not(strlen(%q0))],%q0,%0)
&str_added0 Watcher=[name(%0)] is now on your watchlist.
&str_added1 Watcher=Player '%1' not recognised.
&fn_filter Watcher=[strmatch(type(%0),PLAYER)]
&fn_tidy Watcher=[filter(me/fn_filter,%0)]
&cmd_+watchnot Watcher=$+watchnot *:&friends %#=u(fn_tidy,setdiff(u(%#/friends),setq(0,u(fn_dbref,%0,me))%q0)); @pemit %#=u(str_removed[not(strlen(%0))],%q0,%0)
&str_removed0 Watcher=[name(%0)] is off your watchlist.
&str_removed1 Watcher=Player '%1' not recognised.
&cmd_+watchlist Watcher=$+watchlist*:&friends %#=u(fn_tidy,u(%#/friends)); @pemit %#=u(str_friendlist[strmatch(%0,/on)],u(%#/friends))
&str_friendlist0 Watcher=-----Watchlist-----[iter(%0,%r[name(##)] (##) [u(str_on[hasflag(##,CONNECTED)])])]%r-------------------
&str_friendlist1 Watcher=-----Watchlist-----[iter(setinter(%0,lwho()),%r[name(##)] (##))]%r-------------------
&str_on1 Watcher=(on)

&CMD_+3WHO Watcher=$+3who:@pemit %#=[u(str_+3who_prefix)][iter(lnum(words(setq(0,lwho())%q0)),[u(str_+3who_column_[sub(div(##,3),div(add(##,2),3))])]|[ljust(mid([u(str_+3who_star_[not(member(u(%#/friends),setq(1,extract(%q0,add(##,1),1))%q1))])][name(%q1)],0,13),13)][rjust(u(fn_shorttime,idle(%q1)),4)] %b [u(str_+3who_gender_[poss(%q1)])]%b)] |
&STR_+3WHO_PREFIX Watcher=| Name %b %b %b %b Idle Sex | Name %b %b %b %b Idle Sex | Name %b %b %b %b Idle Sex%b
&STR_+3WHO_COLUMN_0 Watcher=|%r
&STR_+3WHO_STAR_1 Watcher=%b
&STR_+3WHO_STAR_0 Watcher=*
&STR_+3WHO_GENDER_HIS Watcher=M
&STR_+3WHO_GENDER_HER Watcher=F
&STR_+3WHO_GENDER_ITS Watcher=?
&STR_+3WHO_GENDER_THEIR Watcher=?