@fo me=&DBREF_HELP_OBJECT [v(dbref_global_object)]=[v(dbref_help_object)]
@fo me=&DBREF_GLOBAL_OBJECT [v(dbref_wizzed_object_parent)]=[v(dbref_global_object)]
@fo me=&DBREF_FUNCTIONS_OBJECT [v(dbref_global_object)]=[v(dbref_functions_object)]
&U_HUH [v(dbref_functions_object)]=Huh?%b%b(Type "help" for help.)
&DO_HELP_COMMAND2 [v(dbref_global_object)]=$+help:@pemit %# =[setq(0,iter(edit(sort(lattr(v(dbref_help_object)/HELP_*)),HELP_,),switch(1,strmatch(##,*_*),,isnum(right(##,1)),,##)))]{[repeat(=,78)]%rThe following global topics are available:%r[repeat(-,78)]%r[iter(%q0,switch(mod(match(%q0,##),4),1,%r)%b%b[ljust(lcstr(edit(##,_,%B)),15)])][switch(hasflag(owner(%#),W),1,%r%r{Wizards have an equivalent +wizhelp command, also.})]%r%r[repeat(=,78)]}
&DO_HELP_COMMAND [v(dbref_global_object)]=$+help *:@pemit %# =[setq(0, sort(iter(lattr(v(dbref_help_object)/HELP_*), rest(##, _)), a))][setq(1, matchall(%q0, [edit(secure(%0), %b, _)]))][switch(words(%q1),0, No such global help topic '[secure(%0)]'.,1,{[repeat(=,78)]%rHelp text for topic or global command [lcstr(edit(extract(%q0, %q1, 1), _, %b))]:%r[repeat(-,78)]%r%r[u(v(dbref_help_object)/HELP_[extract(%q0, %q1, 1)], %#)]%r%r[repeat(=,78)]},{[repeat(=,78)]%rHere are the entries which match [secure(%0)]:%r[iter(%q1,switch(mod(match(%q1,##),3),1,%r%b%b)[ljust(lcstr(edit(extract(%q0,##,1),_,%b)),24)])]%r%r[repeat(=,78)]})]
&HELP_HELP [v(dbref_help_object)]=The syntax of the command is:%r%b%b+help%r%b%b+help <topic>%r%b%b+help <pattern>%r%rExamples:%r%b%b+help, +help mail, +help *send*, +help learn *%r%rThe +help command provides information about softcoded commands not covered%rin the Tinymush HELP command.%r%r'+help' provides a list of main topics.%b%b'+help <topic>' provides a list of%rsubjects under a topic.%b%b'+help <pattern>' allows you to specify part of a%rkeyword and find all matching subjects.%r%rInspiration for this command came from CrystalMush.
&DO_WIZHELP_COMMAND2 [v(dbref_global_object)]=$+wizhelp:@pemit %# =switch(hasflag(owner(%#),W),1,[setq(0,iter(edit(sort(lattr(v(dbref_help_object)/WIZHELP_*)),WIZHELP_,),switch(1,strmatch(##,*_*),,isnum(right(##,1)),,##)))]{[repeat(=,78)]%rThe following global topics are available:%r[repeat(-,78)]%r[iter(%q0,switch(mod(match(%q0,##),4),1,%r)%b%b[ljust(lcstr(edit(##,_,%B)),15)])]%r%r[repeat(=,78)]},{[u(v(dbref_functions_object)/u_huh)]})
&DO_WIZHELP_COMMAND [v(dbref_global_object)]=$+wizhelp *:@pemit %# =switch(hasflag(owner(%#),W),1,[setq(0, sort(iter(lattr(v(dbref_help_object)/WIZHELP_*), rest(##, _)), a))][setq(1, matchall(%q0, [edit(secure(%0), %b, _)]))][switch(words(%q1),0, No such global help topic '[secure(%0)]'.,1,{[repeat(=,78)]%rHelp text for topic or global command [lcstr(edit(extract(%q0, %q1, 1), _, %b))]:%r[repeat(-,78)]%r%r[u(v(dbref_help_object)/WIZHELP_[extract(%q0, %q1, 1)], %#)]%r%r[repeat(=,78)]},{[repeat(=,78)]%rHere are the entries which match [secure(%0)]:%r[iter(%q1,switch(mod(match(%q1,##),3),1,%r%b%b)[ljust(lcstr(edit(extract(%q0,##,1),_,%b)),24)])]%r%r[repeat(=,78)]})],[u(v(dbref_functions_object)/u_huh)]);
&U_LHELP_ITEMS [v(dbref_functions_object)]=iter(lattr(%0/HELP_*),%0/##)
&DO_LHELP_COMMAND2 [v(dbref_wizzed_object)]=$+lhelp:@pemit %# =setq(2,iter(lcon(%l) %l,switch(elock(##/uselock,%#),1,lparent(##) ##)))[setq(1,setunion(iter(lattr(%l/help_*),%l/##),iter(%q2,u(v(dbref_functions_object)/u_lhelp_items,##))))][setq(0,iter(edit(sort(%q1),HELP_,),switch(1,strmatch(##,*_*),,isnum(right(##,1)),,##)))][switch(words(%q0),0,No local help is available.,{[setq(3,sort(iter(%q0,after(##,/))))][repeat(=,78)]%r[default(%l/HELPTITLE,The following local topics are available:)]%r[repeat(-,78)]%r[iter(%q3,switch(mod(match(%q3,##),3),1,%r)%b%b[ljust(lcstr(edit(##,_,%B)),20)])]%r%r[repeat(=,78)]})]
&DO_LHELP_COMMAND [v(dbref_wizzed_object)]=$+lhelp *:@pemit %# =setq(3,iter(lcon(%l) %l,switch(elock(##/uselock,%#),1,lparent(##) ##)))[setq(2,setunion(iter(lattr(%l/help_*),%l/##),iter(%q3,u(v(dbref_functions_object)/u_lhelp_items,##))))][setq(0, sort(iter(%q2, rest(##, _)), a))][setq(1, matchall(%q2, */HELP_[edit(secure(%0), %b, _)]))][switch(words(%q1),0, No such local help topic '[secure(%0)]'.,1,{[repeat(=,78)][setq(4,extract(%q2,%q1,1))]%r%r[default(before(%q4,/)/HELPTITLE,Help text for topic or local command)]: [lcstr(edit(rest(%q4,_),_,%b))]%r[repeat(-,78)]%r%r[u(%q4)]%r%r[repeat(=,78)]},{[repeat(=,78)]%rHere are the entries which match [secure(%0)]:%r[iter(%q1,switch(mod(match(%q1,##),3),1,%r%b%b)[ljust(lcstr(edit(rest(extract(%q2,##,1),_),_,%b)),24)])]%r%r[repeat(=,78)]})]
&HELP_LHELP [v(dbref_help_object)]=The syntax of the command is:%r%b%b+lhelp%r%b%b+lhelp <topic>%r%b%b+lhelp <pattern>%r%rThe +lhelp command provides information about softcoded commands not covered%rin the Tinymush HELP command or in the global +help system.%b%bGenerally%rthis is limited to commands available in your present location.%r%r'+lhelp' provides a list of main topics.%b%b'+lhelp <topic>' provides a list of%rsubjects under a topic.%b%b'+lhelp <pattern>' allows you to specify part of a%rkeyword and find all matching subjects.%r%rHelp topics are stored on rooms or objects in attributes of the form:%r&HELP_TOPIC_\[SUBTOPIC\].%b%b&HELPTITLE will be used at the top of each page%rif it is present, otherwise the default title is used.%r%rInspiration for this command came from CrystalMush.
&U_VIEW_ITEMS [v(dbref_functions_object)]=iter(lattr(%0/VIEW_*),%0/##)
&DO_VIEW_COMMAND2 [v(dbref_wizzed_object)]=$+view:@pemit %# =setq(2,iter(lcon(%l) %l,switch(elock(##/uselock,%#),1,lparent(##) ##)))[setq(1,setunion(iter(lattr(%l/view_*),%l/##),iter(%q2,u(v(dbref_functions_object)/u_view_items,##))))][setq(0,iter(edit(sort(%q1),VIEW_,),switch(1,strmatch(##,*_*),,isnum(right(##,1)),,##)))][switch(words(%q0),0,There are no viewable objects here.,{[setq(3,sort(iter(%q0,after(##,/))))][repeat(=,78)]%r[default(%l/VIEWTITLE,The following viewable objects are available:)]%r[repeat(-,78)]%r[iter(%q3,switch(mod(match(%q3,##),3),1,%r)%b%b[ljust(lcstr(edit(##,_,%B)),20)])]%r%r[repeat(=,78)]})]
&DO_VIEW_COMMAND [v(dbref_wizzed_object)]=$+view *:@pemit %# =setq(3,iter(lcon(%l) %l,switch(elock(##/uselock,%#),1,lparent(##) ##)))[setq(2,setunion(iter(lattr(%l/view_*),%l/##),iter(%q3,u(v(dbref_functions_object)/u_view_items,##))))][setq(0, sort(iter(%q2, rest(##, _)), a))][setq(1, matchall(%q2, */VIEW_[edit(secure(%0), %b, _)]))][switch(words(%q1),0, No such local viewable object '[secure(%0)]'.,1,{[repeat(=,78)][setq(4,extract(%q2,%q1,1))]%r%r[default(before(%q4,/)/VIEWTITLE,Description of viewable object)]: [lcstr(edit(rest(%q4,_),_,%b))]%r[repeat(-,78)]%r%r[u(%q4)]%r%r[repeat(=,78)]},{[repeat(=,78)]%rHere are the entries which match [secure(%0)]:%r[iter(%q1,switch(mod(match(%q1,##),3),1,%r%b%b)[ljust(lcstr(edit(rest(extract(%q2,##,1),_),_,%b)),24)])]%r%r[repeat(=,78)]})]
&HELP_VIEW [v(dbref_help_object)]=The syntax of the command is:%r%b%b+view%r%b%b+view <object>>%r%b%b+view <pattern>%r%rThe +view command allows you to view the descriptions of nearby virtual%robjects.%r%rThis is limited to commands available in your present location.%r%r'+view' provides a list of objects.%b%b'+view <object>' provides a list of%rsubjects under an object.%b%b'+view <pattern>' allows you to specify part of a%rkeyword and find all matching objects.%r%rViewable objects are stored on rooms or objects in attributes of the form:%r&VIEW_TOPIC_\[SUBTOPIC\].%b%b&VIEWTITLE will be used at the top of each page%rif it is present, otherwise the default title is used.%r%rInspiration for this command came from CrystalMush.

@pemit me=Done Quoting!