<%
'*************************************** ******
'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>
<BR>
Your ROCK crushed the computer's SCISSORS! "</CENTER>
<%
End If
ElseIf playerChoice = Scissor Then
If computerChoice = Paper Then
%>
<P> <CENTER>
<BR>
Your SCISSORS cut up the computer's PAPER! </CENTER>
<%
End If
ElseIf playerChoice = Paper Then
If computerChoice = Rock Then
%>
<P> <CENTER>
<BR>
Your PAPER stumped the computer's ROCK! </CENTER>
