\documentclass[titlepage,12pt,a4paper]{article}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{courier}
\renewcommand{\rmdefault}{\ttdefault}
\usepackage{xparse, expl3}
\newcommand{\filmtitle}[1]{\begin{center}\centering "\underline{#1}"\end{center}}
\newcommand{\stagedirection}[1]{\MakeUppercase{#1}\par\vspace{0.5cm}}
\newcommand{\sd}[1]{\stagedirection{#1}}
\NewDocumentCommand{\scenedescription}{ >{\SplitList{.}} m }{%
  \ProcessList{#1}{\addnewline}%
}
\newcommand{\addnewline}[1]{%
  #1.\par
}
\newcounter{scenenumber}
\newcounter{shotnumber}
\setcounter{scenenumber}{0}
\setcounter{shotnumber}{0}
\NewDocumentCommand{\getscenenumber}{}{
  \ifnum\value{shotnumber}=0
    \thescenenumber
  \else
    \thescenenumber-\Alph{shotnumber}
  \fi
}
\newcommand{\barescene}[1]{
    \stepcounter{scenenumber}%
    \setcounter{shotnumber}{0}%
    \textbf{\MakeUppercase{#1}\hfill\getscenenumber}%
    \par%
}
\newcommand{\scene}[2]{\barescene{#1}\scenedescription{#2}}
\newcommand{\bareshot}[1]{
    \stepcounter{shotnumber}%
    \textbf{\MakeUppercase{#1}\hfill\getscenenumber}\par%
}
\newcommand{\shot}[2]{\bareshot{#1}\scenedescription{#2}}
\newcommand{\dialogue}[2]{
    \vspace{-0.25cm}%
    \begin{center}%
        \MakeUppercase{\textbf{#1}}\\
        \scenedescription{#2}%
    \end{center}%
    \vspace{-0.25cm}%
}
\begin{document}
\begin{titlepage}
	\centering
    \filmtitle{ALIEN}
    \vspace{1cm}
    by\\
    \vspace{1cm}
    Walter Hill\\
    \vspace{0.5cm}
    and\\
    \vspace{0.5cm}
    David Giler\\
    \vspace{3cm}
    Based on screenplay\\
    \vspace{0.5cm}
    by\\
    \vspace{0.5cm}
    Dan O\textquotesingle Bannon\\
    \vspace{1cm}
    Story by\\
    \vspace{0.5cm}
    Dan O\textquotesingle Bannon and Ronald Shusett
	\vfill
% Bottom of the page
	{\large \today\par}
\end{titlepage}
\filmtitle{ALIEN}
\stagedirection{fade in}
\sd{sometime in the future:}
\scene{int. engine room}{Empty, cavernous}
\scene{int. engine cubicle}{Circular, jammed with instruments.
All of them idle. Console chairs for two. Empty}
\shot{int. oily corridor - "C" level}{
    Long, dark. Empty. Turbos throbbing. No other movement
}
\shot{int. corridor - "A" level}{Long, empty}
\shot{INT. INFIRMARY - "A" LEVEL}{
Distressed ivory walls.
All instrumentation at rest}
\scene{INT. CORRIDOR TO BRIDGE - "A" LEVEL}{Black, empty}
\scene{INT. BRIDGE}{
    Vacant.
    Two space helmets resting on chairs.
    Electrical hum.
    Lights on the helmets begin to signal one another.
    Moments of silence.
    A yellow light goes on.
    Data mind bank in bg.
    Electronic hum.
    A green light goes on in front of one helmet.
    Electronic pulsing sounds.
    A red light goes on in front of other helmet.
    An electronic conversation ensues.
    Reaches a crescendo.  
    Then silence.
    The lights go off, save the yellow
}
\shot{INT. CORRIDOR TO HYPERSLEEP VAULT}{
    Lights come on.
    Seven gowns hang from the curved wall.
    Vault door opens
}
\scene{INT. HYPERSLEEP VAULT}{
    Explosion of escaping gas.
    The lid on a freezer pops open.
    Slowly, groggily, KANE sits up.
    Pale.
    Kane rubs the sleep from his eyes.
    Stands.
    Looks around.
    Stretches.
    Looks at the other freezer compartments.
    Scratches.
    Moves off
}
\scene{INT. GALLEY}{
    Kane plugs in a Silex.
    Lights a cigarette.
    Coughs.
    Grinds some coffee beans.
    Runs some water through
}
\dialogue{KANE}{Rise and shine, Lambert}
\scene{INT. HYPERSLEEP VAULT}{
    Another lid pops open. A young woman sits up
}
\dialogue{LAMBERT}{What time is it}
\dialogue{KANE}{
    (voice over)\\
    What do you care
}
\end{document}