<% '********************************************* ' 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="http://www.111cn.net/asp/3/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="http://www.111cn.net/asp/3/images/scissors_beats_paper.gif"> Your SCISSORS cut up the computer's PAPER!</CENTER> <%
|