% The following is the rock, paper, and scissor game
% Progammed by: Hassan Zaidi
% Date march 29 / 2010

include "ics2o.t"

% Declare the variables and set their initail
var name : string
var choice : char
var computerChoice : char
var noOfWins : int := 0
var topScore : int := 0
var topScoreName : string
var lowestScore : int := 0
var score : int := 0
var noOfLoss : int := 0


%Display the title
put "Welcome to rock, paper, and scissor game"
put ""

% The Following loop will be the game of
% rock, paper and scissor also claculate wins and loss.
put "Please enter your frist and last name:" ..
get name : *

loop
    computerChoice := "RPS" (Rand.Int (1, 3))
    put "Please enter your choice (R, P or S): " ..
    loop
        choice := Str.Upper (getchar)
        exit when choice = 'R' or choice = 'P' or choice = 'S'
    end loop
    put RPSFullName (choice)

    put "Computer choice is: ",
        RPSFullName (computerChoice)
    if computerChoice = choice then
        put "You tied"
    elsif choice = 'R' and computerChoice = 'S' or
            choice = 'P' and computerChoice = 'R' or
            choice = 'S' and computerChoice = 'P' then
        put "You win"
        noOfWins := noOfWins + 1
    else
     put "You loss"
      noOfLoss := noOfLoss +1 
    end if
 % Exist the loop when wins is are 5
    exit when noOfLoss = 5
   
    %Update the highest and lowest score
    if  noOfWins< lowestScore then
        lowestScore := noOfWins
    end if
    if noOfWins > topScore then
        topScore := noOfWins
    end if
    % Update the highestscore

    end loop

% display the lowest, highest, number of wins
put "The number fo wins is: ", noOfWins
put "the number of loss is: ", noOfLoss