echo [Start Dump] echo @create Notepad=10=notepad @set $notepad=/_/de:{box:{if:{prop:notes/{name:me}#,this},{subst:{numlist:notes/{name:me}},\r,@@@},Nothing found for {name:me}},1,Notes for {name:me}}{sleep-notify:Notepad} echo @action addnote;delnote;readnote=$notepad=makenote echo @link $makenote=$nothing @set $makenote=/_/sc:{exec:{&cmd}/sc} @set $makenote=/addnote/sc:{if:{instr:{&arg},=},-=> Note added for {&arg:1,1,=}: {store:{&arg:2,-1,=} [{date}],notes/{&arg:1,1,=}#/{store:{add:1,{prop:notes/{&arg:1,1,=}#,$notepad}},notes/{&arg:1,1,=}#,$notepad},$notepad},<=> Usage: makenote =}} @set $makenote=/delnote/sc:{if:{prop:notes/{&arg:1,1,=}#/{&arg:2,-1,=},$notepad},<=> Note {&arg:2,-1,=} for {&arg:1,1,=} deleted: {prop:notes/{&arg:1,1,=}#/{&arg:2,-1,=},$notepad}{null:{for:i,{&arg:2,-1,=},{prop:notes/{&arg:1,1,=}#,$notepad},1,{store:{prop:notes/{&arg:1,1,=}#/{add:{&i},1},$notepad},notes/{&arg:1,1,=}#/{&i},$notepad}}{store:{subt:{prop:notes/{&arg:1,1,=}#,$notepad},1},/notes/{&arg:1,1,=}#,$notepad}},[*] Note '{&arg:2,-1,=}' for '{&arg:1,1,=}' does not exist.} @set $makenote=/readnote/sc:{if:{prop:notes/{&arg}#,$notepad},{box:{subst:{numlist:notes/{&arg},$notepad},\r,@@@},1,Notes about {&arg}},{if:{&arg},<=> Invalid Name: {&arg}\r}<=> Usage: readnote \r<-> Available notes: {commas:{parse:names,{listprops:/notes/,$notepad},{subst:{subst:{&names},/notes/,},#,} ({prop:{&names},$notepad})}}} echo [End Dump]