\documentclass{article}

\usepackage{xparse}

\usepackage{tikz}

\usetikzlibrary{calc}

\tikzstyle{hollow node}=[circle,draw,fill=white,inner sep=.85,outer sep=0pt]

\tikzstyle{solid node}=[circle,draw,inner sep=.75,fill=black]

\newcommand\move[3]{edge from parent [#1] node [#2] {$#3$}}

\newcommand\payoff[2]{node[inner sep=0pt, outer sep=0pt, label={#1:{$#2$}}]{}}

\newcommand\xxxdistance[3][1]

    {\tikzstyle{level #1}=[level distance=#2,sibling distance=#3]}

\NewDocumentCommand\xxxRoot{O{down}mO{}D<>{}G{}}

    {\node #2 [solid node,#3,{label={#4:{#5}}}] {} [grow=#1]}

\NewDocumentCommand\xInfoset{O{}r()r()O{}G{}}

    {\draw [-,thick,dotted,#1] (#2) to (#3) node at ($(#2)!.5!(#3)$) [yshift=5pt,#4] {#5};}

\begin{document}

%% tikz (dalek) - new

\begin{tikzpicture}[->,>=stealth,shorten >=1pt,font=\scriptsize]

\xxxdistance{10mm}{20mm}

\xxxRoot[-135]{(0)}[hollow node]<right>{1}

   child{\payoff{left}{(2,2)}\move{densely dashed}{above}{A}}

   child{\move{}{right}{D}};

\xxxdistance{15mm}{30mm}

\xxxRoot{(1) at (0-2)}<135>{1}

   child{\move{}{left}{L}}

   child{\move{}{right}{R}};

\xxxdistance{10mm}{20mm}

\xxxRoot{(2) at (1-1)}

   child{\payoff{below}{(4,2)}\move{very thick,blue}{left,black}{\ell}}

   child{\payoff{below}{(1,1)}\move{}{right}{r}};

\xxxRoot{(3) at (1-2)}

   child{\payoff{below}{(3,2)}\move{very thick,blue}{left,black}{\ell}}

   child{\payoff{below}{(0,3)}\move{}{right}{r}};

\xInfoset(1-1)(1-2){2}

\end{tikzpicture}

\end{document}