Defining the caption of newtheorem with a command

Question

In the example below you can see that both environments get the same caption.

How to prevent this? You will get the same result if you use an other package like amsthm, theorem or thmtools.

\setcounter{errorcontextlines}{999}
\documentclass{scrartcl}
\usepackage{ntheorem,xcolor}
\def\tempA{Game}
\newtheorem{game}{\color{red}\bfseries\tempA}
\def\tempA{Example}
\newtheorem{example}{\color{blue}\bfseries\tempA}
\begin{document}

\begin{example}
Test
\end{example}

\vspace*{2em}

\begin{game}
Test
\end{game}
\end{document}

Answer 1

Of course: the second \def overrides the meaning of the first one: \tempA is expanded only when \begin{game} and \begin{example} are used, not when defined. At that time, \tempA expands to Example.

\def\tempA{Game}
\begingroup
\edef\x{\endgroup
  \noexpand\newtheorem{game}{\noexpand\color{red}\noexpand\bfseries\tempA}}
\x
\def\tempA{Example}
\begingroup
\edef\x{\endgroup
  \noexpand\newtheorem{example}{\noexpand\color{red}\noexpand\bfseries\tempA}}
\x

will do, but it's rather cumbersome