@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@
@@    Project Status Tracker
@@    Coded by BEM@Granite
@@    Platform:  TinyMUSH 2.2.3
@@    Purpose:  To help staff and builders track the progress of various
@@                      projects on a busy MUSH.
@@
@@    Features: The ability to view, set, edit and remove project information.
@@    
@@              CMD-TRACKER-HELP is the help file and may be adapted to your
@@    your game's +help or +staffhelp system.
@@
@@
@@    Notes:        &CANUSE uses a special softcoded function FN_ISSTAFF.  
@@    Our Current version is:          
@@
@@                  &FN_ISSTAFF Global Functions=orflags(%0,Wi)
@@
@@             
@@    This code may be redistributed freely, so long as the &credits 
@@    @comment remain in tact
@@


@create Project Status Tracker=10
@lock Project Status Tracker=CANUSE/1
&CANUSE Project Status Tracker=[or(isstaff(%#),hasflag(%#/BUILDER))] 
&CMD-SETPROJECT Project Status Tracker=$+setproject */*/*:@switch hasattr(me,setq(0,list-[edit(secure(%0),%B,_)])%q0)=1, @pemit %#=Project '%0' already exists., {&%q0 [parent(me)]=secure(%0)|%1|%2; @pemit %#=Entry for '%0' created.}
&CMD-VIEWPROJECTS Project Status Tracker=$+viewprojects: @pemit %#=repeat(=,78)%R[ljust(Project,25)] [ljust(Coder,20)] [ljust(STATUS,26)]%R[repeat(=,78)]; @dolist lattr(parent(me)/list-*)=@pemit %#=ljust(extract(v(##),1,1,|),26) [ljust(extract(v(##),2,1,|),20)] [ljust(extract(v(##),3,1,|),26)];@wait 1=@pemit %#=repeat(=,78)%r
&CMD-EDITPROJECT Project Status Tracker=$+editproject */*=*: @switch hasattr(me,setq(0,list-[edit(%0,%B,_)])%q0)=0, @pemit %#=No project '%0' listed., {@switch %1=who, {&%q0 [parent(me)]=replace(v(%q0),2,%2,|); @pemit %#=Who set to '%2'.},status, {&%q0 [parent(me)]=replace(v(%q0),3,%2,|); @pemit %#=Status set to '%2'.},@pemit %#=Field should be /who or /status.}
&CMD-DELETEPROJECT Project Status Tracker=$+deleteproject *: @switch hasattr(me,setq(0,list-[edit(%0,%B,_)])%q0)=0, @pemit %#=No project '%0' listed., {&%q0 [parent(me)]; @pemit %#=Project '%0' deleted.}
&CMD-TRACKER_HELP Project Status Tracker=$+trackerhelp:@pemit %#=[repeat(=,78)]%R[center(Project Tracker Help,78, )]%R%T+setproject <project name>/<coder name>/<status>%R%T+viewprojects%R%T+editproject <project name>/who=<coder name>%R%T+editproject <project name>/status=<status>%R%T+deleteproject <project name>%R%T+trackerhelp -- Gets this screen.%R%RThe project name, and the other fields, can have spaces in them.%R%Rby BEM@Granite%R[repeat(=,78)]
@comment Project Status Tracker=This code may be redistributed freely, so long as the &credits and @comment remain in tact.%RPurpose:  To help staff and builders track the progress of various projects on a busy MUSH.
&CREDITS Project Status Tracker=%R%TProject Status Tracker by BEM@Granite July 1997%RPlatform:  TinyMUSH 2.2.3
@set Project Status Tracker=INHERIT
@set Project Status Tracker=COMMANDS

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@
@@      Create the parent object and @parent 

@create PARENT: Project Status Tracker=10

@parent Project Status Tracker=PARENT: Project Status Tracker