This is an @decompile of the Test object for the example functions in
Faraday's Coding Guide -- http://www.martiandreams.com/faraday/mushcode.shtml

Permission is given to use these items on your own MUSH.


@create Faraday's Test Object
@set Faraday's Test Object = WIZARD

&CMD-+CHECK Faraday's Test Object=$+check *:think
switch(0,t(match(xget(#1857,skills_list),%0)),pemit(%#,ansi(hr,That is not
a valid skill!)),t(match(xget(%#,skills),%0:*)),pemit(%#,ansi(hr,You do
not know that skill!)),remit(%l,ansi(hg,%N checks %0 and
[switch(lt(rand(101),iter(xget(%#,skills),switch(t(match(##,%0:*)),1,
after(##,:)))),1,is successful.,fails.)]))) 

&SKILLS_LIST Faraday's Test Object=BRAWLING SWIMMING MEDICINE ART MUSIC

&CMD-+MP-SUB Faraday's Test Object=$+mp *:@switch
t(match(%0,*=*))=1,,{@switch words(xget(%#,last-mp))=0,think pemit(%#,You
have not multi-paged anyone before!),@fo %#={page/list
[xget(%#,last-mp)]={%0}}}

&CMD-+MP-INITIAL Faraday's Test Object=$+mp *=*:@fo %#={page/list
%0={%1}};think set(%#,last-mp:%0) 

&CMD-+WHO Faraday's Test Object=$+who:think
pemit(%#,[xget(#1857,line)]%rSet%b%bName[space(21)]
Alias[space(5)]Idle[space(4)]Location%r
[iter(switch(orflags(%#,Wr),1,lwho(),mwho()),%r[ljust(xget(##,status),5)]
[ljust(mid(name(##),0,24),25)][ljust(mid(xget(##,alias),0,9),10)]
[ljust(first(timestring(idle(##))),8)][ljust(mid(name(loc(##)),0,29),30)])]
%r[xget(#1857,line)])

&LINE Faraday's Test
Object=====----====----====----====----====----====----=====----====----====----====-

&CMD-+FINGER Faraday's Test Object=$+finger *:think
[setq(0,pmatch(%0))]switch(t(%q0),0,pemit(%#,ansi(hr,There is no such
player!)),pemit(%#,[xget(#1857,line)]%r%r[ansi(h,Name:)][space(5)][name(%q0)]
%r[ansi(h,Alias:)][space(4)][xget(%q0,alias)]
%r[ansi(h,Race:)][space(5)][xget(%q0,race)]
%r[ansi(h,Status:)][space(3)][switch(hasflag(%q0,connected),1,CONNECTED
and set [xget(%q0,status)],OFFLINE and last connected at
[xget(%#,last)])]
%r[ansi(h,Location:)]%b[switch(hasflag(%q0,unfindable),1,UNFINDABLE,
name(loc(%q0)))]
%r[ansi(h,Notes:)]%r[u(%q0/notes)]%r%r[xget(#1857,line)])