<![CDATA[
<head><title>Rock, Paper, Scisors</title>]]>
<![CDATA[
<script language="JavaScript">]]>
<![CDATA[
<!-- Hide]]>
<![CDATA[
/*]]>
<![CDATA[
Rock,Paper,Siscors
Script Written by
freabeer@webtv.net
ŽJuly 11, 1998
members.tripod.com/~grizzlyA/index.html
Permission to use if
comments left intact.
*/]]>
<![CDATA[
var pselect = new Array;]]>
<![CDATA[
pselect[1]="Rock";]]>
<![CDATA[
pselect[2]="Paper";]]>
<![CDATA[
pselect[3]="Scisors";]]>
<![CDATA[
var total = 1;]]>
<![CDATA[
var compick = 1;]]>
<![CDATA[
var win = 0;]]>
<![CDATA[
var lose = 0;]]>
<![CDATA[
var tie = 0;]]>
<![CDATA[
var result = "";]]>
<![CDATA[
var view_pick="";]]>
<![CDATA[
var view_score="";]]>
<![CDATA[
function Win(name){
if (name == "Rock"){ total = 1;}
if (name == "Paper"){ total = 2;}
if (name == "Scisors"){ total = 3;}
compick=(Math.random(1));
compick=compick*3;
compick=Math.round(compick);
if( compick >3){compick--;}
if( compick <1){compick++;}
if( compick == total ) { result="Tie"; tie++;}
if(( compick == 1 ) && ( total == 2 )){ result="You Win";win++;}
if(( compick == 1 ) && ( total == 3 )){ result="You Lose";lose++;}
if(( compick == 2 ) && ( total == 1 )){ result="You Lose";lose++;}
if(( compick == 2 ) && ( total == 3 )){ result="You Win";win++;}
if(( compick == 3 ) && ( total == 1 )){ result="You Win";win++;}
if(( compick == 3 ) && ( total == 2 )){
result="You Lose";lose++;}
view_pick=("Computer picks "+pselect[compick]+"\nYou picked "+pselect[total]+"\n"+result);
view_score=("Wins "+win+"\nLosses "+lose+"\nties "+tie)
window.document.the_form.the_box.value=view_pick;
window.document.the_form.the_score.value=view_score;
}]]>
<![CDATA[
// End Hide -->]]>
<![CDATA[
</script>]]>
<![CDATA[
<body bgcolor="#FFFFFF" text="#000000" link="#0000CC" vlink="#000066">]]>
<![CDATA[
<center>]]>
<![CDATA[
<form name=the_form>]]>
<![CDATA[
<textarea name=the_box rows=4 cols=25></textarea>
<br>]]>
<![CDATA[
<input type="button" value="Rock" onClick=Win(this.value)>]]>
<![CDATA[
<input type="button" value="Paper" onClick=Win(this.value)>]]>
<![CDATA[
<input type="button" value="Scisors" onClick=Win(this.value)><br>]]>
<![CDATA[
<textarea name=the_score rows=3 cols=15></textarea>]]>
<![CDATA[
</form>]]>
<![CDATA[
</center>]]>