&CMD-CHANGETDESC me=$+desc *:@switch [strmatch([lattr(me/desc-%0)],*desc-%0)]=1,{&desc me=[u(descstart)]%r[u(me/desc-%0)]%r[u(descend)];@pemit %#=Successfully changed description to '%0.'},0,{@pemit %#=This description doesn't seem to exist.}
&CMD-ADDTDESC me=$+descadd *:&desc-%0 me=[u(desc)];@pemit %#=Successfully added '%0' to descriptions.
&CMD-REMTDESC me=$+descrem *:&desc-%0 me= ;@pemit %#=Successfully removed '%0' to descriptions.
&CMD-NEWTDESC me=$+descnew *=*:&desc-%0 me=%1;@pemit %#=Successfully added '%0' to descriptions.
&CMD-LISTTDESC me=$+desclist:@pemit %#=[center(List of Descriptions,78,-)]%r%r[iter([lattr(me/desc-*)],[mid(##,5,70)], ,%r)]%r%r[center(,78,-)]%r
&CMD-STARTDESC me=$+desctop *:&descstart me=%0;@pemit %#=Successfully added information. This will now appear at the top of all of your descs.%r%rPlease recycle your current desc with +desc <keyword>.
&CMD-ENDTDESC me=$+descend *:&descend me=%0;@pemit %#=Successfully added information. This will now appear at the bottom of all of your descs.%r%rPlease recycle your current desc with +desc <keyword>.
&CMD-VIEWTDESC me=$+descview *:@switch [strmatch([lattr(me/desc-%0)],desc-%0*)]=1,@pemit %#=[center(Description - %0,78,-)]%r[u(desc-%0)]%r[center(,78,-)]%r,0,@pemit %#=This description doesn't seem to exist.
@set me/CMD-VIEWTDESC = visual
&CMD-TDESCUNINSTALL me=$+tduninstall:@wipe me/CMD*TDESC*;@pemit %#=%rSuccessfully uninstalled Yet Another Multidescer. All of your descs%rare still stored on you, and can be retrieved with:%r%r%t%tex me/desc-*%r%rIf you would like to remove them, please type:%r%r%t%t@wipe me/desc-*%r
&CMD-TDESCHELP me=$+deschelp:@pemit %#=[center(Yet Another Multidescer Help,78,-)]%r%r+desc <word>:%t%tChange description to the one stored with <word>.%r+descust <word>:%tUse a description without top or bottom.%r+descnew <word>=<desc>:%tCreate a new description.%r+descadd <word>:%tSave current desc under <word>.'%r+descrename <old>=<new>%tRename desc to new name.%r+descrem <word>:%tRemoves the desc stored under <word>%r+desclist:%t%tReturns a list of your stored descriptions.%r+desctop:%tAdds text that will appear at the top of ALL descs.%r+descend:%tAdds text that will appear at the bottom of ALL descs.%r+descview <word>:%tViews the desc saved under <word>.%r+deschelp:%t%tView this help file.%r+tduninstall:%t%tUninstalls Yet Another Multidescer%r%t%t%tDescriptions are NOT removed (ex me/desc-*).%r%r[center(Please @mail Tsura with any questions/comments/issues,78)]%r[center(,78,-)]%r
&CMD-CHANGECTDESC me=$+descust *:@switch [strmatch([lattr(me/desc-*)],*desc-%0*)]=1,{&desc me=%r[u(me/desc-%0)]%r;@pemit %#=Successfully changed custom description to '%0.'},0,{@pemit %#=This description doesn't seem to exist.}
&CMD-RENAMETDESC me=$+descrename *=*:@set/q %#=desc-%1:[get(%#/desc-%0)];@set/q %#=desc-%0:;@pemit %#=Successfully renamed '%0' to '%1'.