Poker

Installation Instructions:

1: Copy and paste the following style declaration in the HEAD section of your page:
Select all...

2: Copy and paste the following script in the HEAD section of your page:
Select all...

var w3c=(document.getElementById)?true:false;
var ns4=(document.layers)?true:false;
var ie4=(document.all && !w3c)?true:false;
var ie5=(document.all && w3c)?true:false;
var ns6=(w3c && navigator.appName.indexOf("Netscape")>=0)?true:false;
var oktobet=true, oktoreplace=false, havebet=false; 
var dollars=0, money=100;
var txtarea;
var deckcntr=0, fontcolor='black';
var handsuit=new Array();
var handnumb=new Array();
var tmpn;

function getid(id){
if(ns4) return document.layers[id];
else if(ie4)return document.all[id];
else return document.getElementById(id);
}

function writelayer(id,text){
if(ns4){
id.document.open();
id.document.write('<div style="position:absolute; left:0px; top:0px;">'+text+'</div>');
id.document.close();
}
else id.innerHTML=text;
}

//PRECACHE ALL IMAGES
var imagz=new Array();
for(i=1;i<=4;i++){
imagz[i]=new Image();
imagz[i].src='s'+i+'.gif';
}
for(i=1;i<=13;i++){
imagz[i+4]=new Image();
imagz[i+4].src='n'+i+'.gif';
}

//BUILDS A DECK OF CARDS
var deck=new Array();
for(s=1;s<=4;s++){
for(num=1;num<=13;num++)deck[s*13-13+num]=''+s+num;
}

//SHUFFLES THE DECK
function shuffle(){
var x,y,xd,yd;
for(i=0;i<=300;i++){
x=Math.floor(Math.random()*52+1);
xd=deck[x];
y=Math.floor(Math.random()*52+1);
yd=deck[y];
deck[y]=xd;
deck[x]=yd;
}}

//WHEN PAGE LOADS
function init(){
shuffle();
d=document.images;
txtarea=getid('txtarea');
alert('INSTRUCTIONS\n\n- This is a 1 player poker game.\n- Follow prompts in upper corner.\n- Amount you gain or lose depends on your hand and your bet.\n\nPress "Ok" to continue...');
writelayer(txtarea,'<b>Money: $'+money+'<br><br>Place bet...</b>');
document.f.betamnt.selectedIndex=0;
}

//NEW HAND
function startover(){
document.f.ok.value=" Replace Selected Cards... ";
handsuit=new Array();
handnumb=new Array();
deckcntr=0;
dollars=0;
document.f.betamnt.selectedIndex=0;
fontcolor=(money<0)?'red': 'black';
writelayer(txtarea,'<b>Money: $<font color="'+fontcolor+'">'+money+'</font><br><br>Place bet...</b>');
oktoreplace=false;
oktobet=true;
havebet=false;
for(i=1;i<=5;i++){
document.images['s'+i].src='faceupbot.gif';
document.images['n'+i].src='faceuptop.gif';
document.f['c'+i+'b'].checked=false;
}
shuffle();
}

//REPLACES X CARDS FROM ONES REMAINING IN DECK
function replace(){
if(havebet&&oktoreplace){
var repl='';
for(i=1;i<=5;i++){
if(document.f[('c'+i+'b')].checked==true){
repl+=i+',';
}}
repl=repl.substring(0,repl.length-1);
eval('deal('+repl+')');
testcards();
}else alert('You must place a bet first...');
}

//NEXT FEW FUNCTIONS TEST REPETITIOUS CARD POSSIBILITIES
function testflush(){
return ( (handsuit[1]==handsuit[2])&&(handsuit[1]==handsuit[3])&&(handsuit[1]==handsuit[4])&&(handsuit[1]==handsuit[5]) ); 
}

function testface(){
return ( ((handnumb[1]>=10)||(handnumb[1]==1))&&((handnumb[2]>=10)||(handnumb[2]==1))&&((handnumb[3]>=10)||(handnumb[3]==1))&&((handnumb[4]>=10)||(handnumb[4]==1))&&((handnumb[5]>=10)||(handnumb[5]==1)) )
}

function teststraight(){
var x=( (tmpn[1]+4==tmpn[5]) && (tmpn[2]+3==tmpn[5]) && (tmpn[3]+2==tmpn[5]) && (tmpn[4]+1==tmpn[5]) );
for(i=1;i<=5;i++){
if(tmpn[i]==1)tmpn[i]=14;
}
tmpn=new Array();
tmpn[0]=0;
for(i=1;i<=5;i++)tmpn[i]=handnumb[i];
tmpn.sort(sortnumbs);
var y=( (tmpn[1]+4==tmpn[5]) && (tmpn[2]+3==tmpn[5]) && (tmpn[3]+2==tmpn[5]) && (tmpn[4]+1==tmpn[5]) );
return x||y;
}

//SUB-FUNCTION FOR THE "SORT()" METHOD
function sortnumbs(a,b){
return a-b;
}

//FUNCTION TO TEST ALL CARD POSSIBILITIES
function testcards(){
tmpn=new Array();
tmpn[0]=0;
for(i=1;i<=5;i++)tmpn[i]=handnumb[i];
tmpn.sort(sortnumbs);
var wtype='Nothing.';
var wamount=0;
// 2 OF A KIND
if( (tmpn[1]==tmpn[2])||(tmpn[2]==tmpn[3])||(tmpn[3]==tmpn[4])||(tmpn[4]==tmpn[5]) ){
wtype='a Pair';
wamount=dollars*1;
}
// 2 PAIR
if( ((tmpn[1]==tmpn[2])&&(tmpn[3]==tmpn[4]))||((tmpn[1]==tmpn[2])&&(tmpn[4]==tmpn[5]))||((tmpn[2]==tmpn[3])&&(tmpn[4]==tmpn[5])) ){
wtype='Two Pair.';
wamount=dollars*2;
}
// 3 OF A KIND
if( ((tmpn[1]==tmpn[2])&&(tmpn[1]==tmpn[3]))||((tmpn[2]==tmpn[3])&&(tmpn[2]==tmpn[4]))||((tmpn[3]==tmpn[4])&&(tmpn[3]==tmpn[5])) ){
wtype='3 of a Kind.';
wamount=dollars*3;
}
// STRAIGHT 
if( teststraight() ){
wtype='a Straight.';
wamount=dollars*7;
}
// FLUSH
if( testflush() ){
wtype='a Flush.';
wamount=dollars*10;
}
// FULL HOUSE
if( ((tmpn[1]==tmpn[2])&&(tmpn[3]==tmpn[4])&&(tmpn[3]==tmpn[5])&&(tmpn[1]!=tmpn[3]))||((tmpn[4]==tmpn[5])&&(tmpn[1]==tmpn[2])&&(tmpn[1]==tmpn[3])&&(tmpn[4]!=tmpn[1])) ){
wtype='a Full House.';
wamount=dollars*15;
}
// 4 OF A KIND
if( ((tmpn[1]==tmpn[2])&&(tmpn[1]==tmpn[3])&&(tmpn[1]==tmpn[4]))||((tmpn[2]==tmpn[3])&&(tmpn[2]==tmpn[4])&&(tmpn[2]==tmpn[5])) ){
wtype='4 of a Kind.';
wamount=dollars*20;
}
// STRAIGHT FLUSH
if(testflush() && teststraight()){
wtype='a Straight Flush.';
wamount=dollars*30;
}
// ROYAL STRAIGHT FLUSH
if(teststraight() && testface() && testflush()){
wtype='a Royal Straight Flush.';
wamount=dollars*60;
}
money+=wamount;
oktobet=false;
oktoreplace=false;
document.f.ok.value=" Ok ";
writelayer(txtarea, '<font color="white">You got '+wtype+'</font><br><br>Press "Ok" to continue');
}

//DEALS THE CARDS
function deal(){
for(i=0;i<arguments.length;i++){
deckcntr++;
handsuit[arguments[i]]=parseInt(deck[deckcntr].substr(0,1));
handnumb[arguments[i]]=parseInt(deck[deckcntr].substr(1,2));
document.images['s'+arguments[i]].src='s'+deck[deckcntr].substr(0,1)+'.gif';
document.images['n'+arguments[i]].src='n'+deck[deckcntr].substr(1,2)+'.gif';
}}

//SETS A BET AMOUNT AND UPDATES THE DISPLAY
function bet(){
if(oktobet&&!havebet){
havebet=true;
dollars=document.f.betamnt.selectedIndex*10;
money-=dollars;
fontcolor=(money<0)?'red': 'black';
writelayer(txtarea,'<b>Money: $<font color="'+fontcolor+'">'+money+'</font> / Current bet: $'+dollars+'<br><br>Select cards to replace...</b>');
oktoreplace=true;
havebet=true;
deal(1,2,3,4,5);
}}

window.onload=init;
window.onunload=function(){
   if(money<0)alert('Hey, don\'t leave until you pay up!');
}

</script>

3: Copy and paste the following HTML in the BODY section of your page:
Select all...

<form name="f">
<table border="1"  bgcolor="#006900"><tr><td>
<table cellspacing="0" cellpadding="5"  border="0" >
<tr>
<td align="left" colspan="4" height="80" valign="top">
<div id="txtarea" style="position:relative; font-size:18px; color:#000000; z-index:1"><b>Money: $100</b></div>
</td>
<td colspan="1" align="right">
<b>Bet $</b> 
<select name="betamnt" onChange="bet();">
<option value="0">?</option>
<option value="10">10</option>
<option value="20">20</option>
<option value="30">30</option>
<option value="40">40</option>
<option value="50">50</option>
</select></td>
</tr><tr>
<td align="center"><img src="faceuptop.gif" name="n1"><br><img src="faceupbot.gif" name="s1"></td>
<td align="center"><img src="faceuptop.gif" name="n2"><br><img src="faceupbot.gif" name="s2"></td>
<td align="center"><img src="faceuptop.gif" name="n3"><br><img src="faceupbot.gif" name="s3"></td>
<td align="center"><img src="faceuptop.gif" name="n4"><br><img src="faceupbot.gif" name="s4"></td>
<td align="center"><img src="faceuptop.gif" name="n5"><br><img src="faceupbot.gif" name="s5"></td>
</tr><tr>
<td align="center" width="20%"><input type="checkbox" name="c1b" onclick="if(!oktoreplace)document.f.c1b.checked=false;"><br>Replace</td>
<td align="center" width="20%"><input type="checkbox" name="c2b" onclick="if(!oktoreplace)document.f.c2b.checked=false;"><br>Replace</td>
<td align="center" width="20%"><input type="checkbox" name="c3b" onclick="if(!oktoreplace)document.f.c3b.checked=false;"><br>Replace</td>
<td align="center" width="20%"><input type="checkbox" name="c4b" onclick="if(!oktoreplace)document.f.c4b.checked=false;"><br>Replace</td>
<td align="center" width="20%"><input type="checkbox" name="c5b" onclick="if(!oktoreplace)document.f.c5b.checked=false;"><br>Replace</td>
</tr><tr>
<td colspan="5" align="center" height="60" valign="middle"><input type="button"  style="width:250px" name="ok" value=" Replace selected cards... "  onclick="(this.value==' Ok ')? startover() : replace();"></td>
</tr>
</table></td></tr></table>
</form>

<table border="2" bgcolor="#006900"><tr><td>
<table width="300" cellpadding="3" cellspacing="0" border="0">
<tr><td align="left" width="200"><b>Hand Type</b></td><td align="right" width="100"><b>Bet Multiplier</b></td></tr>
<tr><td align="left">Royal Straight Flush</td><td align="right">x 60</td></tr>
<tr><td align="left">Straight Flush</td><td align="right">x 30</td></tr>
<tr><td align="left">Four of a Kind</td><td align="right">x 20</td></tr>
<tr><td align="left">Full House</td><td align="right">x 15</td></tr>
<tr><td align="left">Flush</td><td align="right">x 10</td></tr>
<tr><td align="left">Straight</td><td align="right">x 7</td></tr>
<tr><td align="left">Three of a Kind</td><td align="right">x 3</td></tr>
<tr><td align="left">Two Pair</td><td align="right">x 2</td></tr>
<tr><td align="left">One Pair</td><td align="right">x 1</td></tr>
</table></td></tr></table>