JAVASCRIPT - JavaScript Poker

JavaScript Poker

Compatibilidad: Ms Internet Explorer, Netscape
El célebre juego de azar.

[ Muestra el ejemplo práctico ]

el código para insertar en tu página

<HTML>
<HEAD>
<TITLE>Póker</TITLE>
<BODY BGCOLOR="#FFFFFF">

<hr>

function moveover(txt){
	window.status = txt;
	window.setTimeout("window.status='Hey! Welcome to my JavaScript Poker'",3000);
}

//Variablesvar Score=0;
var GameStatus=0;
var Deals=0;

function MakeCard(){
	this.Suit=0;
	this.Value=0;
	this.IsDealt=false;
}

function MakeCards(){
	this[1]=new MakeCard();
	this[2]=new MakeCard();
	this[3]=new MakeCard();
	this[4]=new MakeCard();
	this[5]=new MakeCard();
	this[6]=new MakeCard();
	this[7]=new MakeCard();
}

Cards=new MakeCards();

function AreCardsEqual(v, s){
	if(
		(Cards[1].Value==v && Cards[1].Suit==s) || 
		(Cards[2].Value==v && Cards[2].Suit==s) || 
		(Cards[3].Value==v && Cards[3].Suit==s) || 
		(Cards[4].Value==v && Cards[4].Suit==s) || 
		(Cards[5].Value==v && Cards[5].Suit==s) || 
		(Cards[6].Value==v && Cards[6].Suit==s) || 
		(Cards[7].Value==v && Cards[7].Suit==s))
		return true;
	else	
		return false;
	}
	//This is where it all happens!!!!!!!

}	
	}

form.LastHand.value=txt+".";
	form.LastHandPoints.value=s;
	Score+=s;
	form.Score.value=Score;
	form.Rating.value=(Score/Deals);
	//finished scoring
	ResetCards();
	DisplayCards(-1,form);
}
//if GameStatus
}

function DisplayCards(action,form){
	if(action==-1 || action==1)	
	form.C1.value=CardText(Cards[1].Value,Cards[1].Suit);
	if(action==-1 || action==2)	
	form.C2.value=CardText(Cards[2].Value,Cards[2].Suit);
	if(action==-1 || action==3)	
	form.C3.value=CardText(Cards[3].Value,Cards[3].Suit);
	if(action==-1 || action==4)	
	form.C4.value=CardText(Cards[4].Value,Cards[4].Suit);
	if(action==-1 || action==5)	
	form.C5.value=CardText(Cards[5].Value,Cards[5].Suit);
}

function CardText(Value, Suit){
	var ret="-Tim";
	if(Value==1) ret="Ace";
	if(Value>1 && Value<11) ret=Value;
	if(Value==11) ret="Jack";
	if(Value==12) ret="Queen";
	if(Value==13) ret="King";
	if(Suit==1) ret+=" of Diamonds";
	if(Suit==2) ret+=" of Hearts";
	if(Suit==3) ret+=" of Spades";
	if(Suit==4) ret+=" of Clubs";
	return ret;
}

function ResetCards(){
	window.status="Click on each Get Card button to deal the cards.";
	for(var i=1;i<8;i++){	
		Cards[i].Value=0;	
		Cards[i].IsDealt=false;	
		Cards[i].Suit=0;	
	}
	GameStatus=0;
}

function ResetGame(form){
	Score=0;
	Deals=0;
	ResetCards();
	form.LastHand.value="-Tim";
	form.LastHandPoints.value="0";
	form.Score.value="0";
	form.Rating.value="0";
	DisplayCards(-1,form);
}

</script>
</HEAD>
<h1>JavaScript Poker</h1>

<FORM ACTION=""><table cellpadding=0 border=8 cellspacing=2><tr><td><input type="text" value="-Tim" name="C1" size=18><input type="button" value="Get Card" onClick="GetCard(this.form,1);"><td>Score:<input type="text" value="0" name="Score" size=5><tr><td><input type="text" value="-Tim" name="C2" size=18><input type="button" value="Get Card" onClick="GetCard(this.form,2);"><td rowspan=2>Last Hand:<input type="text" value="-Tim" name="LastHand" size=15><br><input type="text" value="0" name="LastHandPoints" size=3>Points<tr><td><input type="text" value="-Tim" name="C3" size=18><input type="button" value="Get Card" onClick="GetCard(this.form,3);"><td><tr><td><input type="text" value="-Tim" name="C4" size=18><input type="button" value="Get Card" onClick="GetCard(this.form,4);"><tr><td><input type="text" value="-Tim" name="C5" size=18><input type="button" value="Get Card" onClick="GetCard(this.form,5);"><td>Rating:<input type="text" value="" name="Rating" size=4><tr><td><input type="button" value="Lay Cards" onClick="LayCards(this.form);"><td><input type="button" value="Reset Game" onClick="ResetGame(this.form);"></table><input type="button" value="About" onClick="alert('This JavaScript Copyright (C) Tim Helvey')"></FORM>
<p>Copyright © <A HREF=mailto:tdhelvey@netusa1.net>Tim Helvey</a>

[Baja en un único archivo .zip, las imágenes y demás archivos necesarios
para el funcionamiento de los script de esta sección]