@create Desc-Tracker=10
&ADDDESC Desc-Tracker=$adddesc *:&DESCS.[words(lattr(me/descs.*))] me=[name(%#)] - Desced [name(%0)] (%0) at [time()].; @pemit %#=[name(%0)] added to the list!
&LISTDESC Desc-Tracker=$listdesc:@switch hasflag(%#,wizard)=1,{@pemit %#=[ansi(bh,repeat(-,72))]%t%t%t%t%t[ansi(rh,All Reported Room Descriptions)]%r[ansi(bh,repeat(-,72))]; @dolist lattr(me/descs.*)={@pemit %#=[ansi(b,#@)]: [v(##)]}},{@pemit %#=You are not authorized to use that command.}
&WIPEDESC Desc-Tracker=$wipedesc:@switch hasflag(%#,wizard)=1,{@wipe me/descs.*; @pemit %#=Description list erased!},{@pemit %#=You are not authorized to use that command.}
&WIZLOCK Desc-Tracker=[hasflag(%#,wizard)]
@Desc Desc-Tracker=This is a little device for tracking who desced what as well as who added @succ's to specific exits on the MUX. Here are the commands:%radddesc <dbref> - Adds a described room to the list.%rlistdesc - Lists all reported rooms.%rwipedesc - Erases the list of reported rooms.%raddsucc <dbref> - Adds a succ'd room to the list%rlistsucc - Lists all reported rooms%rwipesucc - Erases the list of succ'd rooms.%r(Coded by Yohshee)
&ADDSUCC Desc-Tracker=$addsucc *:&succ.[words(lattr(me/succ.*))] me=[name(%#)] - Succ'd [name(%0)] (%0) at [time()].; @pemit %#=[name(%0)] added to the list!
&WIPESUCC Desc-Tracker=$wipesucc:@switch hasflag(%#,wizard)=1,{@wipe me/succ.*; @pemit %#=Success list erased!},{@pemit %#=You are not authorized to use that command.}
&LISTSUCC Desc-Tracker=$listsucc:@switch hasflag(%#,wizard)=1,{@pemit %#=[ansi(bh,repeat(-,72))]%t%t%t%t%t[ansi(rh,All Reported Room Exit Successes)]%r[ansi(bh,repeat(-,72))]; @dolist lattr(me/succ.*)={@pemit %#=[ansi(b,#@)]: [v(##)]}},{@pemit %#=You are not authorized to use that command.}
@set Desc-Tracker=INHERIT