rock = ;
paper = ;
scissors = ;

rockpaperscissors[]:=Module[{},
name=InputString["What is your name?"];
Print["Hello ",name,"."];
numgames = Input["How many times would you like to play?"];
Print["Okay, we'll play ", numgames, " games."];
totalwins = 0;
ywin = 0;
xwin = 0;
For[n=1,n≤numgames,n++,
{
Print[" "];
Print["It is time for game ", n, "."];
choice=InputString["You must choose rock, paper or scissors.\n Press R or r for rock, P or p for paper, S or s for scissors.\n If you hit anything else I will choose scissors for you."];
If[choice=="R"||choice=="r",y=1,If[choice=="P"||choice=="p",y=2,y=3]];
x=Random[];
If[x<1/3,comp=rock,If[x<2/3,comp=paper,comp=scissors]];
x=Floor[3 x]+1;
win=0;
If[name=="Mommy",If[y==1,x=2,If[y==2,x=3,x=1]]];
If[name=="Cameron",If[y==1,x=3,If[y==2,x=1,x=2]]];
If[y==1&&x==2,win=-1];
If[y==1&&x==3,win=1];
If[y==2&&x==1,win=1];
If[y==2&&x==3,win=-1];
If[y==3&&x==1,win=-1];
If[y==3&&x==2,win=1];
If[y==1,ypic=rock,If[y==2,ypic=paper,ypic=scissors]];If[x==1,xpic=rock,If[x==2,xpic=paper,xpic=scissors]];Print[name," chose ",ypic," and I chose ",xpic,"."];
If[win==1,Print[name," wins!"],If[win==-1,Print[name," loses!"],Print[name,", it is a tie!"]]];
totalwins = totalwins + win;
If[win > 0, ywin = ywin+1, If[win < 0, xwin = xwin+1]];
}];(*end of n loop*)
If[numgames > 1,Print["We have played ", numgames, " games."], Print["We have played ", numgames, " game."];];
If[ywin > 1 || ywin == 0,
If[ xwin > 1 || xwin == 0, Print[name, " won ", ywin, " games and I won ", xwin, " games."]]];
If[ywin == 1 && xwin == 1, Print[name, " won ", ywin, " game and I won ", xwin, " game."]];
If[ywin == 1 && xwin ≠  1, Print[name, " won ", ywin, " game and I won ", xwin, " games."]];
If[ywin ≠  1 && xwin ==  1, Print[name, " won ", ywin, " games and I won ", xwin, " game."]];
If[totalwins > 0, Print[name, " wins with a net score of ", totalwins, "."]];
If[totalwins < 0, Print[name, " loses with a net score of ", totalwins, "."]];
If[totalwins == 0, Print["It's a tie!"]];

];

rockpaperscissors[]

d
r

k