@@ Some general rules:
@@
@@ Any line which, like this, begins with @@, is a comment and should NOT 
@@ be pasted into your MUSH
@@
@@ If you already have a global object like a WHO Machine, then you can 
@@ just stick this code onto it instead of making up a whole new object
@@
@@ Commands:
@@ +who: Shows a list of players, their alias, and their &doing (set 
@@ with &doing me=<stuff>)
@@
@@ +where: Shows a list of players and their location (checks for 
@@ UNFINDABLE)
@@
@@ who: Shows a list of players, their alias, and their location (checks 
@@ for UNFINDABLE)
@@ +finger: Shows 'finger' details for a given player
@@
@@ Code details: 
@@ The who machine itself stores an attrib called @vz. 
@@ This keeps track of the record number of players connected. It 
@@ should also correct for people with multiple idle
@@ reconnects (using setunion) and does NOT count dark wizards (mwho() 
@@ doesn't show dark folks)
@@
@@ You must be a WIZARD to set this up (only wizards can give @powers to 
@@ objects)
@@
@@ This will create 2 objects, the Who Machine Parent, and the Who 
@@ Machine. The Parent should be left in some other place besides 
@@ the Master room. If your master room is not #2, you should
@@ change the @link of the who machine from #2 to the appropriate db#
@@
@@ +finger allows players to set the following attributes, view-able 
@@ with +finger: &note, &quote  @sex, and &elsemush (for else-mush 
@@ character lists). Other fields may be added by doing:
@@  &FFIND_<fieldname> who machine parent=<stuff to evaluate>.
@@
@@ Disclaimer: I don't really support this code in any way. It's not 
@@ really coded like this at all on Champions MUSH... I had to simplify 
@@ it to make it standardized to work anywhere. Because these commands 
@@ already exist as globals on CM, I can't test them on a global object
@@ the way I probably should. All I can say is, use at your own risk. If 
@@ you have problems you can email me, but I will not make any guarantees
@@  that I'll have time to help. I will if I can; if not... you're on 
@@ your own.
@@
@@ Coded by Steven @ Champions MUSH
@@

@create Who Machine parent

@lock/Basic Who Machine parent==me

@set Who Machine parent = SAFE

@set Who Machine parent = NO_COMMAND

@power Who Machine parent = See_All


&WHERE_TITLES Who Machine parent=[center(\[ [mudname()]: Current Player Locations \],75,-)]%r[ljust(Name,16)]Location%r[repeat(-,15)]%b[repeat(-,59)]

&WHERE_FUNCTION Who Machine parent=[iter(squish(mwho()),[ljust(mid(name(##),0,15),16)][switch(hasflag(##,unfindable),1,UNFINDABLE,mid(name(loc(##)),0,55))], ,%r)]

&FINGER_ALL_FUN Who Machine parent=[ansi(hm,center(\[ [name(%0)][switch(hasattr(%0,alias),1,%b\( Alias: [get(%0/alias)] \))] \],75,-))]%r[u(finger_fun,%0)]%r[ansi(hm,repeat(-,75))]

&FINGER_FUN who machine parent=[iter(lattr([parent(me)]/ffind_*),[edit(rest(##,_),_,%b)]: [ulocal(##,%0)], ,%r)]

&FFIND_LOCATION who machine parent=[ifelse(and(not(hasflag(%0,dark)),not(hasflag(%0,unfindable))),name(loc(%0)),UNKNOWN)]

&FFIND_IDLE who machine parent=[timestring(idle(%0))]

&FFIND_CONNECTION who machine parent=[ifelse(eq(match(mwho(),%0),0),get(%0/last),timestring(conn(%0)))] 

&FFIND_ELSEMUSH who machine parent=[get(%0/elsemush)]

&FFIND_NOTE who machine parent=[get(%0/note)]

&FFIND_QUOTE who machine parent=[get(%0/quote)]

&FFIND_GENDER who machine parent=[get(%0/sex)]

@DESCRIBE Who Machine parent=[table(sort(lattr(me)),25,78)]


&WHO_TITLE_FUN Who Machine parent=[ljust(Name,17)][ljust(Alias,12)][ansi(hc,ljust(What are you DOING today?,42))][rjust(Idle,5)]%r[repeat(-,16)]%b[repeat(-,11)]%b[repeat(-,42)]%b[repeat(-,4)]

&WHO_LIST_FUN Who Machine parent=[setq(0,squish(mwho()))][iter(%q0,[ljust(mid(name(##),0,15),16)]%b[ljust(mid(get(##/alias),0,11),12)][ljust(mid(get(##/doing),0,40),41)]%b[rjust(extract(timestring(idle(##)),1,1),5)], ,%r)]

&OLDWHO_LIST_FUN Who Machine parent=[setq(0,squish(mwho()))][iter(%q0,[ljust(mid(name(##),0,15),16)]%b[ljust(mid(get(##/alias),0,11),12)][ljust(mid(switch(hasflag(##,unfindable),1,UNFINDABLE,name(loc(##))),0,40),41)]%b[rjust(extract(timestring(idle(##)),1,1),5)], ,%r)]


@create Who Machine

@link Who Machine = #2

@parent Who Machine=who machine parent

@lock/Basic Who Machine==me

@set Who Machine = SAFE

@power Who Machine = See_All

@power Who Machine = pemit_all

&CMD_+WHERE Who Machine=$+where: @pemit %#=[tagwrap(pre,[u(where_titles)]%r[u(where_function)]%r[repeat(-,75)])]

&CMD_+FINGER Who Machine=$+finger *: @pemit %#=[tagwrap(pre,[switch(strmatch([setq(0,pmatch(%0))]%q0,#-*),1,That is not a valid player.,ulocal(finger_all_fun,%q0))])]

@ACONNECT Who Machine=@switch/first gt([setq(0,words(setunion(mwho(),%#)))]%q0,%vz)=1,{@vz me=%q0},{think nope}

@VZ Who Machine=0

@DESCRIBE Who Machine=This machine runs the +who, +where, +finger, and other such commands for the MUSH.%r[table(lattr(me),18,80)]

&CMD_WHO Who Machine=$+who: @pemit %#=[tagwrap(pre,[u(who_title_fun)]%r[u(who_list_fun)]%r[repeat(-,76)]%r[center(\[ Players connected: [words(mwho())] \(Record: %vz\) \],76,-)])]

&CMD_OLDWHO Who Machine=$who: @pemit %#=[tagwrap(pre,[u(who_title_fun)]%r[u(oldwho_list_fun)]%r[repeat(-,76)]%r[center(\[ Players connected: [words(mwho())] \(Record: %vz\) \],76,-)])]