From Russ Smith::

Only try this on a 1.12.  It's based on a sorryass camera Systeme-D wrote,
I think, but I dig this one.  Note that it's only meant for the owner to
use, really, although I guess it doesn't matter.

--
object 2606@DreamScape
lst own=3@DreamScape;2619@DreamScape;
obj loc=3@DreamScape
obj home=3@DreamScape
str nam=Polaroid camera
str desc=Random's cooler camera.
boo lok=3@DreamScape
cmd photo=@build obj "photo of ${!1.nam}" "${!1.desc}";@do takes a photograph
of ${!1.nam}.
endobj

object 2619@DreamScape
lst own=3@DreamScape;2619@DreamScape;
obj loc=3@DreamScape
obj home=3@DreamScape
str nam=photo album
boo lok=3@DreamScape
cmd store=set 2619@DreamScape cmd Xstore "set 2619@DreamScape str ${1}desc
\$\{@photo of ${1}.desc\};set 2619@DreamScape lst photos +$1;set
2619@DreamScape desc \"This contains photos of:
\$\{@2619@DreamScape.photos\}\";destroy object \"photo of $1\";@do stores the
photo of ${1}.";Xstore
cmd view=_echo You look at ${1}:;set 2619@DreamScape cmd Xview "_echo
\$\{@2619@DreamScape.${1}desc\}";Xview
endobj