Begin9.m

function Begin9(Board,who_to_play,x)
% This is the function that starts the Pentago XL game from the start menu.
% Just in case the loaded game already is in a winning state, it checks the
% board for any win conditions by calling victory test. 
% Format Of Call: Begin9(Board,who_to_play,x) 
% where x is 2 Player, 3 Player or 4 Player Modes
% who_to_play is whose turn to play
% Board is the 9x9 Board Matrix
% It also takes in the global variable c where c is the user input from
% settings GUI. (whether the game is played by keyboard or mouse clicking)
% MH1401 ALGORITHMS & COMPUTING I Project

global m % Uses the global variable c from Settings GUI

win=victorytest(Board); % Calls the subfunction to check winning state

if sum(win)>1 % If 2 or more players achieved 5 in a row simultaneously.
    disp('Draw')
    sg=struct('a',Board,'b',who_to_play,'c',x);
    save('pentago.mat','sg','-mat')
    ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
    switch ww
        case 'Yes'
            PENTAGO()
        case 'No'
            return
    end
    return
elseif sum(win)==0 && sum(any(Board==0))==0 % If Board is full and no winning state
    disp('Draw')
    sg=struct('a',Board,'b',who_to_play,'c',x);
    save('pentago.mat','sg','-mat')
    ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
    switch ww
        case 'Yes'
            PENTAGO()
        case 'No'
            return
    end
    return
elseif win(1)==1 % If Player 1 has 5 in a row
    disp('Player 1 wins')
    sg=struct('a',Board,'b',who_to_play,'c',x);
    save('pentago.mat','sg','-mat')
    ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
    switch ww
        case 'Yes'
            PENTAGO()
        case 'No'
            return
    end
    return
elseif win(2)==1 % If Player 2 has 5 in a row
    disp('Player 2 wins')
    sg=struct('a',Board,'b',who_to_play,'c',x);
    save('pentago.mat','sg','-mat')
    ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
    switch ww
        case 'Yes'
            PENTAGO()
        case 'No'
            return
    end
    return
elseif win(3)==1 % If Player 3 has 5 in a row
    disp('Player 3 wins')
    sg=struct('a',Board,'b',who_to_play,'c',x);
    save('pentago.mat','sg','-mat')
    ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
    switch ww
        case 'Yes'
            PENTAGO()
        case 'No'
            return
    end
    return
elseif win(4)==1 % If Player 4 has 5 in a row
    disp('Player 4 wins')
    sg=struct('a',Board,'b',who_to_play,'c',x);
    save('pentago.mat','sg','-mat')
    ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
    switch ww
        case 'Yes'
            PENTAGO()
        case 'No'
            return
    end
    return
end

if win==0 % If there is no winning state, game starts.
    if who_to_play==1 % Player 1's turn 
        disp('Player 1''s turn')
        if m==0 % Mouse Clicking
            try 
                [i,j]=ginput(1);  % Uses ginput built in function to get coordinates
            catch 
                return;
            end
            s=floor(i/504); % s is the columns of the Board 
            t=floor(j/504); % t is the rows of the Board 
            while s<=0 || s>=10 || t<=0 || t>=10 % No output if user clicks anywhere else 
                try
                    [i,j]=ginput(1);  % Uses ginput built in function to get coordinates
                catch
                    return;
                end
                s=floor(i/504);
                t=floor(j/504);
            end
            while Board(t,s)~=0 % If Board entry is filled, Invalid Move.
                disp('Invalid Move!')
                try
                    [i,j]=ginput(1);  % Uses ginput built in function to get coordinates
                catch
                    return;
                end
                s=floor(i/504);
                t=floor(j/504);
            end
            Board(t,s)=1; % Changes Board entry with clicked move.
        elseif m==1 % KeyBoard Input Control 
            SpaceID=input('Please enter your next move: '); % Prompts for input
            while SpaceID<1 || SpaceID>81 % Error checks if user input is out of range
                disp('Invalid Move!')
                SpaceID=input('Please enter your next move: '); 
            end
            while Board(SpaceID)~=0 % Error checks if user entered an invalid entry 
                disp('Invalid Move!')
                SpaceID=input('Please enter your next move: ');
            end
            Board(SpaceID)=1; % Changes Board entry with desired move 
        end
        graphicsnine(Board); % Updates the graphical interface
        win=victorytest(Board); % Checks winning state again. 
        if sum(win)>1 % If 2 or more players achieved 5 in a row simultaneously.
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif sum(win)==0 && sum(any(Board==0))==0 % If Board is full and no winning state
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(1)==1 % If Player 1 has 5 in a row
            disp('Player 1 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(2)==1 % If Player 2 has 5 in a row
            disp('Player 2 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(3)==1 % If Player 3 has 5 in a row
            disp('Player 3 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(4)==1 % If Player 4 has 5 in a row
            disp('Player 4 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        end
        if m==0 % Mouse Clicking for Rotation input 
            try 
                r=rotationmouseclick(Board); % Calls Rotation subfunction
            catch
                return;
            end
            Board=ID(r,Board); % Updates Rotated Board with matrix subfunction 
        elseif c==1 % Keyboard Control for Rotation input
            r=input('Please enter your rotation move: '); % Prompts for input
            while r<1 || r>18 || int32(r)~=r % Checks if input is integer or out of range
                disp('Invalid Rotation Entered') 
                r=input('Please enter your rotation move: '); % Re-prompts for input 
            end
            Board=ID(r,Board); % Updates Board with rotated matrix 
        end
        graphicsnine(Board); % Updates graphical interface again.
        win=victorytest(Board); % It then checks for winning states again. 
        if sum(win)>1 % If 2 or more players achieved 5 in a row simultaneously.
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif sum(win)==0 && sum(any(Board==0))==0 % If Board is full and no winning state
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(1)==1 % If Player 1 has 5 in a row
            disp('Player 1 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(2)==1 % If Player 2 has 5 in a row
            disp('Player 2 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(3)==1 % If Player 3 has 5 in a row
            disp('Player 3 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(4)==1 % If Player 4 has 5 in a row
            disp('Player 4 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        end
        who_to_play=2; % Transfers turn to Player 2 
        sg=struct('a',Board,'b',who_to_play,'c',x);
        save('pentago9.mat','sg','-mat')
        Begin9(Board,who_to_play,x) % Recursives function 
    elseif who_to_play==2 % Player 2's turn 
        disp('Player 2''s turn')
        if m==0 % Mouse Clicking
            try 
                [i,j]=ginput(1);  % Uses ginput built in function to get coordinates 
            catch
                return;
            end
            s=floor(i/504); % s is the columns of the Board 
            t=floor(j/504); % t is the rows of the Board 
            while s<=0 || s>=10 || t<=0 || t>=10 % No output if user clicks anywhere else 
                try
                    [i,j]=ginput(1);  % Uses ginput built in function to get coordinates
                catch
                    return;
                end
                s=floor(i/504);
                t=floor(j/504);
            end
            while Board(t,s)~=0 % If Board entry is filled, Invalid Move.
                disp('Invalid Move!')
                try
                    [i,j]=ginput(1);  % Uses ginput built in function to get coordinates
                catch
                    return;
                end
                s=floor(i/504);
                t=floor(j/504);
            end
            Board(t,s)=2; % Changes Board entry with clicked move.
        elseif m==1 % KeyBoard Input Control 
            SpaceID=input('Please enter your next move: '); % Prompts for input
            while SpaceID<1 || SpaceID>81 % Error checks if user input is out of range
                disp('Invalid Move!')
                SpaceID=input('Please enter your next move: '); 
            end
            while Board(SpaceID)~=0 % Error checks if user entered an invalid entry 
                disp('Invalid Move!')
                SpaceID=input('Please enter your next move: ');
            end
            Board(SpaceID)=2; % Changes Board entry with desired move 
        end
        graphicsnine(Board); % Updates the graphical interface
        win=victorytest(Board); % Checks winning state again. 
        if sum(win)>1 % If 2 or more players achieved 5 in a row simultaneously.
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif sum(win)==0 && sum(any(Board==0))==0 % If Board is full and no winning state
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(1)==1 % If Player 1 has 5 in a row
            disp('Player 1 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(2)==1 % If Player 2 has 5 in a row
            disp('Player 2 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(3)==1 % If Player 3 has 5 in a row
            disp('Player 3 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(4)==1 % If Player 4 has 5 in a row
            disp('Player 4 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        end
        if m==0 % Mouse Clicking for Rotation input 
            try 
                r=rotationmouseclick(Board); % Calls Rotation subfunction
            catch
                return;
            end
            Board=ID(r,Board); % Updates Rotated Board with matrix subfunction 
        elseif m==1 % Keyboard Control for Rotation input
            r=input('Please enter your rotation move: '); % Prompts for input
            while r<1 || r>18 || int32(r)~=r % Checks if input is integer or out of range
                disp('Invalid Rotation Entered') 
                r=input('Please enter your rotation move: '); % Re-prompts for input 
            end
            Board=ID(r,Board); % Updates Board with rotated matrix 
        end
        graphicsnine(Board); % Updates graphical interface again.
        win=victorytest(Board); % It then checks for winning states again. 
        if sum(win)>1 % If 2 or more players achieved 5 in a row simultaneously.
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif sum(win)==0 && sum(any(Board==0))==0 % If Board is full and no winning state
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(1)==1 % If Player 1 has 5 in a row
            disp('Player 1 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(2)==1 % If Player 2 has 5 in a row
            disp('Player 2 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(3)==1 % If Player 3 has 5 in a row
            disp('Player 3 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(4)==1 % If Player 4 has 5 in a row
            disp('Player 4 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        end
        if x==2
            who_to_play=1; % Transfers turn to Player 1 for 2 Player Mode
        else
            who_to_play=3; % Transfers turn to Player 3 for 3 and 4 Player Mode
        end
        sg=struct('a',Board,'b',who_to_play,'c',x);
        save('pentago9.mat','sg','-mat')
        Begin9(Board,who_to_play,x) % Recursives function 
    elseif who_to_play==3
        disp('Player 3''s turn')
        if m==0 % Mouse Clicking
            try 
                [i,j]=ginput(1);  % Uses ginput built in function to get coordinates 
            catch
                return;
            end
            s=floor(i/504); % s is the columns of the Board 
            t=floor(j/504); % t is the rows of the Board 
            while s<=0 || s>=10 || t<=0 || t>=10 % No output if user clicks anywhere else 
                try 
                    [i,j]=ginput(1);
                catch 
                    return;
                end
                s=floor(i/504);
                t=floor(j/504);
            end
            while Board(t,s)~=0 % If Board entry is filled, Invalid Move.
                disp('Invalid Move!')
                try 
                    [i,j]=ginput(1);
                catch
                    return;
                end
                s=floor(i/504);
                t=floor(j/504);
            end
            Board(t,s)=3; % Changes Board entry with clicked move.
        elseif m==1 % KeyBoard Input Control 
            SpaceID=input('Please enter your next move: '); % Prompts for input
            while SpaceID<1 || SpaceID>81 % Error checks if user input is out of range
                disp('Invalid Move!')
                SpaceID=input('Please enter your next move: '); 
            end
            while Board(SpaceID)~=0 % Error checks if user entered an invalid entry 
                disp('Invalid Move!')
                SpaceID=input('Please enter your next move: ');
            end
            Board(SpaceID)=3; % Changes Board entry with desired move 
        end
        graphicsnine(Board); % Updates the graphical interface
        win=victorytest(Board); % Checks winning state again. 
        if sum(win)>1 % If 2 or more players achieved 5 in a row simultaneously.
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif sum(win)==0 && sum(any(Board==0))==0 % If Board is full and no winning state
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(1)==1 % If Player 1 has 5 in a row
            disp('Player 1 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(2)==1 % If Player 2 has 5 in a row
            disp('Player 2 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(3)==1 % If Player 3 has 5 in a row
            disp('Player 3 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(4)==1 % If Player 4 has 5 in a row
            disp('Player 4 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        end
        if m==0 % Mouse Clicking for Rotation input 
            try 
                r=rotationmouseclick(Board); % Calls Rotation subfunction
            catch
                return;
            end
            Board=ID(r,Board); % Updates Rotated Board with matrix subfunction 
        elseif m==1 % Keyboard Control for Rotation input
            r=input('Please enter your rotation move: '); % Prompts for input
            while r<1 || r>18 || int32(r)~=r % Checks if input is integer or out of range
                disp('Invalid Rotation Entered') 
                r=input('Please enter your rotation move: '); % Re-prompts for input 
            end
            Board=ID(r,Board); % Updates Board with rotated matrix 
        end
        graphicsnine(Board); % Updates graphical interface again.
        win=victorytest(Board); % It then checks for winning states again. 
        if sum(win)>1 % If 2 or more players achieved 5 in a row simultaneously.
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif sum(win)==0 && sum(any(Board==0))==0 % If Board is full and no winning state
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(1)==1 % If Player 1 has 5 in a row
            disp('Player 1 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(2)==1 % If Player 2 has 5 in a row
            disp('Player 2 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(3)==1 % If Player 3 has 5 in a row
            disp('Player 3 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(4)==1 % If Player 4 has 5 in a row
            disp('Player 4 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        end
        if x==3
            who_to_play=1; % Transfers turn to Player 1 for 3 Player Mode
        else
            who_to_play=4; % Transfers turn to Player 4 for 4 Player Mode
        end
        sg=struct('a',Board,'b',who_to_play,'c',x);
        save('pentago9.mat','sg','-mat')
        Begin9(Board,who_to_play,x) % Recursives function
    elseif who_to_play==4
        disp('Player 4''s turn')
        if m==0 % Mouse Clicking
            try
                [i,j]=ginput(1);  % Uses ginput built in function to get coordinates 
            catch
                return;
            end
            s=floor(i/504); % s is the columns of the Board 
            t=floor(j/504); % t is the rows of the Board 
            while s<=0 || s>=10 || t<=0 || t>=10 % No output if user clicks anywhere else 
                try 
                    [i,j]=ginput(1);
                catch
                    return;
                end
                s=floor(i/504);
                t=floor(j/504);
            end
            while Board(t,s)~=0 % If Board entry is filled, Invalid Move.
                disp('Invalid Move!')
                try 
                    [i,j]=ginput(1);
                catch
                    return;
                end
                s=floor(i/504);
                t=floor(j/504);
            end
            Board(t,s)=4; % Changes Board entry with clicked move.
        elseif m==1 % KeyBoard Input Control 
            SpaceID=input('Please enter your next move: '); % Prompts for input
            while SpaceID<1 || SpaceID>81 % Error checks if user input is out of range
                disp('Invalid Move!')
                SpaceID=input('Please enter your next move: '); 
            end
            while Board(SpaceID)~=0 % Error checks if user entered an invalid entry 
                disp('Invalid Move!')
                SpaceID=input('Please enter your next move: ');
            end
            Board(SpaceID)=4; % Changes Board entry with desired move 
        end
        graphicsnine(Board); % Updates the graphical interface
        win=victorytest(Board); % Checks winning state again. 
        if sum(win)>1 % If 2 or more players achieved 5 in a row simultaneously.
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif sum(win)==0 && sum(any(Board==0))==0 % If Board is full and no winning state
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(1)==1 % If Player 1 has 5 in a row
            disp('Player 1 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(2)==1 % If Player 2 has 5 in a row
            disp('Player 2 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(3)==1 % If Player 3 has 5 in a row
            disp('Player 3 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(4)==1 % If Player 4 has 5 in a row
            disp('Player 4 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        end
        if m==0 % Mouse Clicking for Rotation input 
            try
                r=rotationmouseclick(Board); % Calls Rotation subfunction
            catch
                return;
            end
            Board=ID(r,Board); % Updates Rotated Board with matrix subfunction 
        elseif c==1 % Keyboard Control for Rotation input
            r=input('Please enter your rotation move: '); % Prompts for input
            while r<1 || r>18 || int32(r)~=r % Checks if input is integer or out of range
                disp('Invalid Rotation Entered') 
                r=input('Please enter your rotation move: '); % Re-prompts for input 
            end
            Board=ID(r,Board); % Updates Board with rotated matrix 
        end
        graphicsnine(Board); % Updates graphical interface again.
        win=victorytest(Board); % It then checks for winning states again. 
        if sum(win)>1 % If 2 or more players achieved 5 in a row simultaneously.
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif sum(win)==0 && sum(any(Board==0))==0 % If Board is full and no winning state
            disp('Draw')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(1)==1 % If Player 1 has 5 in a row
            disp('Player 1 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(2)==1 % If Player 2 has 5 in a row
            disp('Player 2 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(3)==1 % If Player 3 has 5 in a row
            disp('Player 3 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        elseif win(4)==1 % If Player 4 has 5 in a row
            disp('Player 4 wins')
            sg=struct('a',Board,'b',who_to_play,'c',x);
            save('pentago.mat','sg','-mat')
            ww=questdlg('Would you like to play again?','Pentago','Yes','No','No');
            switch ww
                case 'Yes'
                    PENTAGO()
                case 'No'
                    return
            end
            return
        end
        who_to_play=1; % Transfers turn to Player 1 for 4 Player Mode
        sg=struct('a',Board,'b',who_to_play,'c',x);
        save('pentago9.mat','sg','-mat')
        Begin9(Board,who_to_play,x) % Recursives function
    end
end
end