-\begin{list}{}{%
-\leftmargin \rightmargin
-\setlength{\parsep}{2mm}
-\setlength{\topsep}{2mm}}
-\item[] \ignorespaces}
-{\unskip \end{list}}
-
-\newenvironment{speaker}%
+\par
+\uppercase{#1}
+}%
+\newlength{\dialogLength}
+\setlength{\dialogLength}{4in minus 1in}
+\newlength{\parenLength}
+\setlength{\parenLength}{2.2in plus .5in minus .7in}
+\newlength{\dialogindent}
+\setlength{\dialogindent}{1in plus .5in}
+
+\newcommand{\dialogue}[1]%
+{\raggedright
+\hspace{\dialogindent}
+\parbox{\dialogLength}{#1}
+\vspace{4bp}
+}
+
+\newcommand{\narrative}[1]%
+{\filbreak
+\vspace{4bp}
+\raggedright{#1}
+\vspace{4bp}
+}
+\newcommand{\description}[1]%
+{
+\vspace{\lnspace}
+\raggedright{#1}
+\vspace{\lnspace}
+}
+
+\newsavebox{\currentspeaker}
+\newlength{\speakeroffset}
+\setlength{\speakeroffset}{1in plus .25in}
+\newlength{\speakerindent}
+\setlength{\speakerindent}{\dialogindent +\speakeroffset}
+
+\newcommand{\speaker}[1]%