<% 
'********************************************* 
' THIS IS A SIMPLE GAME OF ROCK SCISSORS PAPER 
' FEEL FREE TO DO WHATEVER YOU LIKE WITH THIS 
' SCRIPT! -IAN S. CARROLL 
'********************************************* 



'********************************************* 
' THIS FUNCTION GENERATES A RANDOM NUMBER 
'********************************************* 
Function computerChooses() 
Dim randomNum 
Dim choice 
randomize 
randomNum = int(rnd*15)+1 

If randomNum = 1 OR randomNum = 3 OR randomNum = 7 OR randomNum = 8 OR randomNum = 15 OR randomNum = 12 Then 
choice = "R" 
ElseIf randomNum = 2 OR randomNum = 6 OR randomNum = 11 OR randomNum = 13 Then 
choice = "S" 
Else 
choice = "P" 
End If 

computerChooses = choice 
End Function 



'********************************************* 
' THIS FUNCTION SIMPLY DETERMINES THE WINNER 
' OF THE GAME 
'********************************************* 
Sub determineWinner(playerChoice, computerChoice) 
Const Rock = "R" 
Const Scissor = "S" 
Const Paper = "P" 
Dim tempPlayer, tempComputer 

If playerChoice = Rock Then 

If computerChoice = Scissor Then 
%> 
            <P><CENTER> 
            <IMG SRC="images/rock_beats_scissors.gif">

            Your ROCK crushed the computer's SCISSORS!"</CENTER> 
            <% 
End If 

ElseIf playerChoice = Scissor Then 

If computerChoice = Paper Then 
%> 
            <P><CENTER> 
            <IMG SRC="images/scissors_beats_paper.gif">

            Your SCISSORS cut up the computer's PAPER!</CENTER> 
            <% 
End If 

ElseIf playerChoice = Paper Then 

If computerChoice = Rock Then 
%> 
            <P><CENTER> 
            <IMG SRC="images/paper_beats_rock.gif">

            Your PAPER stumped the computer's ROCK!</CENTER> 
            <% 
End If 

ElseIf playerChoice = computerChoice Then 
%> 
        <p><CENTER> 
        <IMG SRC="images/tie.gif">

        We seem to have a tie!</CENTER> 
        <% 
End If 


If computerChoice = Rock Then 

If playerChoice = Scissor Then 
%> 
            <P><CENTER> 
            <IMG SRC="images/rock_beats_scissors.gif">

            The computer's ROCK crushed your SCISSORS!</CENTER> 
            <% 
ElseIf playerChoice = computerChoice Then 
%> 
            <P><CENTER> 
            <IMG SRC="images/tie.gif">

            We seem to have a tie!</CENTER> 
            <% 
End If 

ElseIf computerChoice = Scissor Then 

If playerChoice = Paper Then 
%> 
            <P><CENTER> 
            <IMG SRC="IMAGES/scissors_beats_paper.gif">

            The computer's SCISSOR cut up your PAPER!</CENTER> 
            <% 
ElseIf playerChoice = computerChoice Then 
%> 
            <P><CENTER> 
            <IMG SRC="images/tie.gif">

            We seem to have a tie!</CENTER> 
            <% 
End If 

ElseIf computerChoice = Paper Then 

If playerChoice = Rock Then 
%> 
            <P><CENTER> 
            <IMG SRC="images/paper_beats_rock.gif">

            The computer's PAPER stumped your ROCK!</CENTER> 
            <% 

ElseIf playerChoice = computerChoice Then 
%> 
            <P><CENTER> 
            <IMG SRC="images/tie.gif">

            We seem to have a tie!</CENTER> 
            <% 
End If 
ElseIf computerChoice = playerChoice Then 
%> 
        <P><CENTER> 
        <IMG SRC="images/tie.gif">

        We seem to have a tie!</CENTER> 
        <% 
End If 


End Sub 


'********************************************* 
' THIS FUNCTION WILL CAUSE THE GAME TO 
' EXECUTE UNLESS A DIFFERENT ACTION WAS CHOSEN 
'********************************************* 
Sub playGame() 
%> 
    <CENTER><H1>Welcome to the famous game: ROCK, SCISSORS, PAPER!

    Good Luck!</H1>


    <H3>Please choose your weapon:</H3>

    <FORM ACTION="index.asp?action=winner" METHOD="post"> 
    <TABLE> 
        <TR VALIGN=top> 
            <TD>ROCK</TD> 
            <TD><INPUT TYPE="radio" NAME="playerSelect" VALUE="R"></TD> 
        </TR> 
        <TR VALIGN=top> 
            <TD>SCISSOR</TD> 
            <TD><INPUT TYPE="radio" NAME="playerSelect" VALUE="S"></td> 
        </TR> 
        <TR VALIGNn=top> 
            <TD>PAPER</TD> 
            <TD><INPUT TYPE="radio" NAME="playerSelect" VALUE="P"></TD> 
        </TR> 
    </TABLE> 
        <INPUT TYPE="submit" VALUE="Play Game"> 
    </CENTER> 
<% 
End Sub 



'******************************************** 
' THIS FUNCTION WILL BE RUN IF THE GAME IS 
' PLAYED 
'******************************************** 
Sub playAgain() 
%> 
<CENTER>Would you like to play this game again?</CENTER> 


<CENTER><A HREF="index.asp">YES
<A HREF="index.asp?action=gameover">NO
</CENTER><% 
End Sub 



'********************************************* 
' THIS FUNCTION WILL BE DISPLAYED WILL THE 
' PERSON CHOOSES TO END THE GAME 
'********************************************* 
Sub endGame() 
Response.Buffer = true 

Response.Redirect "http://www.getasite.net" 


End Sub 


'********************************************* 
' THE BASIC RUN-TIME SCRIPT 
'********************************************* 
Dim player, computer 
Dim gameAction 
gameAction = Request.QueryString("action") 

Select Case gameAction 
Case "winner" 
player = Request.Form("playerSelect") 
computer = computerChooses 

determineWinner player, computer 
Response.Write "

" 
playAgain 

Case "again" 
playAgain 

Case "gameover" 
endGame 

Case Else 
playGame