-- Another crazy player.
-- Also trys to mess upp patternmatching.'
function CrazyPlayer2 return Move is
Choice : Integer;
PD: Integer; -- Player Dependant
begin
for I in ON'Range loop
PD:=PD+Integer(Character'Pos((ON(I))));
end loop;
PD:=(abs(PD)mod 10 )-5;
Choice:=PD+MN/20;
if OL = Cooperate then
Choice := Choice - 5;
end if;
if OS > MS then
CHoice := Choice+2;
end if;
if (Choice < 1) then
return Cooperate;
else
return Defect;
end if;
end CrazyPlayer2;