****** Rank 1 ******

s=-10;
p=-1;
r=9;
t=10;
title=Text[FontForm["Game \!\(\*
StyleBox[\(I\),
FontColor->RGBColor[1, 0, 0]]\)",{"Helvetica", 12}],{5, 12},{1, 0}];
poly = Polygon[{{p, p}, {t, s}, {r, r}, {s, t}, {p, p}}];
line1 = Line[{{p, p}, {t, s}}];
line2 = Line[{{t, s}, {r, r}}];
line3 = Line[{{r, r}, {s, t}}];
line4 = Line[{{s, t}, {p, p}}];
point1 = {PointSize[ .02], Point[{p, p}]};
point2 = {PointSize[ .02], Point[{t, s}]};
point3 = {PointSize[ .02], Point[{r, r}]};
point4 = {PointSize[ .02], Point[{s, t}]};
text11 = Text["DD", {p - 2, p - 0.5}];
txt12=Text["(\!\(\*
StyleBox[\(P\),
FontColor->RGBColor[1, 0, 0]]\),\!\(\*
StyleBox[\(P\),
FontColor->RGBColor[1, 0, 0]]\))",{p - 2, p - 1.5}];
text21 = Text["DC", {t - 2, s - 0.5}];
txt22=Text["(\!\(\*
StyleBox[\(T\),
FontColor->RGBColor[1, 0, 0]]\),\!\(\*
StyleBox[\(S\),
FontColor->RGBColor[1, 0, 0]]\))",{t - 2, s - 1.5}];
text31 = Text["CC", {r + 2, r + 1.5}];
txt32=Text["(\!\(\*
StyleBox[\(R\),
FontColor->RGBColor[1, 0, 0]]\),\!\(\*
StyleBox[\(R\),
FontColor->RGBColor[1, 0, 0]]\))",{r + 2, r + 0.5}];
text41 = Text["CD", {s + 2, t + 1.5}];
txt42=Text["(\!\(\*
StyleBox[\(S\),
FontColor->RGBColor[1, 0, 0]]\),\!\(\*
StyleBox[\(T\),
FontColor->RGBColor[1, 0, 0]]\))",{s + 2, t + 0.5}];
Show[Graphics[{line1,line2,line3,line4,point1,point2,point3,point4,text11,txt12,text21,txt22,text31,txt32,text41,txt42,title,Hue[0],poly},Axes -> True,AxesLabel -> {I, II},PlotRange -> {{-12, 12}, {-12, 12}},AspectRatio -> Automatic]]