@create Music Box=me=musicbox

@action play=$musicbox=$musicbox:play=$nothing

@succ $musicbox:play={if:{&arg},{null:{set:arg,{midstr:{&arg},1,14}},{with:o,O,{for:line,1,9,1,{with:full,,{for:cur,1,{strlen:{&arg}},1,{set:full,{&full}{with:bool,{eq:{midstr:{&arg},{&cur}},{midstr:FEDCBAGFE,{&line}}},{if:{mod:{&line},2},{if:{&bool},--{&o}--,-----},{if:{&bool},  {&o}  ,     }}}}}{tell:{store:{&full},line/{&line},this}}}}},{otell:{name:me} plays a song on the music box.}},{&cmd} - Syntax: {&cmd} [notes] (e.g.\, play ABCD)}

@desc $musicbox:play=Type '{name:this} [notes]' to play a tune.

@desc $musicbox=An ornate music box, carved with utmost care and inlaid with gold.  The song currently playing sounds like this:\r\r{parse:line,{listprops:line/,$play},{prop:{&line},$play}}\r\rThis music box allows you to change the tune yourself: 'play [notes]'.