<%
'*********************************************
' This is A simple GAME of the rock SCISSORS PAPER
' FEEL free to do WHATEVER '
' 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 = or Randomnum = a Then
Choice = "R"
ElseIf Randomnum = 2 or Randomnum = 6 or randomnum = one or Randomnum = Then
Choice = "S"
Else
Choice = "P"
End If
computerchooses = Choice
End Function
'*********************************************
' This FUNCTION SIMPLY determines the WINNER
' 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>
