Código Fonte - O melhor conteúdo para programadores

Autor

Francke Peixoto

membro deste setembro de 2007

Compartilhe e guarde

Enquete

Qual é o melhor site de buscas da internet?

Home Código Fonte ASP Aplicações Completas

Jogo Pedra Papel e Tesoura em ASP

O código recria o jogo "Pedra, Papel e Tesoura" através da linguagem ASP. Ele permite jogar contra o computador, além de marcar o placar do jogo.

Simples e pronto para utilização.

<%
Response.Buffer = True
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = #January 1, 2004 00:00:01#
Response.Expires=0
%>
<head>

<style>
<!--
.butao {
       font-family:verdana, arial; color:#000000; font-size:12px; font-weight:bold; background-color : #D7FFEB; border: 1px solid #666666;cursor:pointer;
      } 
.fonte {
       font-family:verdana, arial; color:#000000; font-size:11px; font-weight:none; text-decoration : none; border: 0px solid  #ffffff
       }   
.fonte li{ font-size:12px; font-weight:bold; }	   
-->
</style>
</head>
<title>
Pedra,Papel,Tesoura!!  
<%
response.write day(date())&"/"&month(date())&"/"&year(date())
%>
</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">


<body style="background-color:#ddd; text-align:center; padding-top:40px;" >
<center>
<div style="width:500px;background-color:#fff;border:1px solid #999; padding-top:10px;">
<font class="fonte">
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' JOGO CRIADO 13/02/2004
' AUTOR: FRANCKE PEIXOTO
' EMAIL/MSN: FRANCKE@XMASTERS.COM.BR
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if request("zerar") = "zerar" then
	session("cp") = 0
	session("jogador") = 0
end if
if session("cp") < 1 then 
   session("cp") = 0
end if
if session("jogador") < 1 Then
   session("jogador") = 0
end if
Function jogar(jogo)
    Dim jogocp	
    Randomize()
    jogocp = cInt(rnd()*2)+1
	if CStr(jogo) = "3" Then
     if jogocp = 2 Then
	response.write "<LI> Você jogou <b>Pedra</b>, o Computador jogou <b>Tesoura</b>!<br>"
	response.write "Você Ganhou!<br><img src='vitoria.gif'>"	
	session("jogador") = session("jogador") + 1
	jogo = "0"
     end if
     if jogocp = 3 Then
	response.write "<LI> Você jogou <b>Pedra</b>, o Computador jogou <b>Pedra</b>!<br>"
	response.write "Ninguem Ganhou!<br><img src='empate.gif'>"	
	jogo = "0"
     end if
     if jogocp = 1 Then
	response.write "<LI> Você jogou <b>Pedra</b>, o Computador jogou <b>Papel</b>!<br>"
	response.write "Computador Ganhou!<br><img src='vitoria.gif'>"
	session("cp") = session("cp") + 1		
	jogo = "0"	
     end if
  end if	
  
  if CStr(jogo) = "1" Then
     if jogocp = 2 Then
	response.write "<LI> Você jogou <b>Papel</b>, o Computador jogou <b>Tesoura</b>!<br>"
	response.write "Computador Ganhou!<br><img src='vitoria.gif'>"	
	session("cp") = session("cp") + 1
     end if
     if jogocp = 3 Then
	response.write "<LI> Você jogou <b>Papel</b>, o Computador jogou <b>Pedra</b>!<br>"
	response.write "Você Ganhou!<br><img src='vitoria.gif'>"	
	session("jogador") = session("jogador") + 1
     end if
     if jogocp = 1 Then
	response.write "<LI> Você jogou <b>Papel</b>, o Computador jogou <b>Papel</b>!<br>"
	response.write "Ninguem Ganhou!<br><img src='empate.gif'>"		
     end if
  end if	

  if CStr(jogo) = "2" Then
     if jogocp = 1 Then
	response.write "<LI> Você jogou <b>Tesoura</b>, o Computador jogou <b>Papel</b>!<br>"
	response.write "Você Ganhou!<br><img src='vitoria.gif'>"	
	session("jogador") = session("jogador") + 1
     end if
     if jogocp = 3 Then
	response.write "<LI> Você jogou <b>Tesoura</b>, o Computador jogou <b>Pedra</b>!<br>"
	response.write "Computador Ganhou!<br><img src='vitoria.gif'>"	
	session("cp") = session("cp") + 1
     end if
     if jogocp = 2 Then
	response.write "<LI> Você jogou <b>Tesoura</b>, o Computador jogou <b>Tesoura</b>!<br>"
	response.write "Ninguem Ganhou!<br><img src='empate.gif'>"		
     end if
  end if	
end Function
if request("jogo")="" Then
    response.write "<lI> Escolha uma opção!<br><img src='perder.gif'>"		
else
   Call jogar(request("jogo"))
end if
%>
</div>
<br />

<div style="width:500px;background-color:#fff;border:1px solid #999;">

<table border="0">
<form method="post" action="index.asp">

<td>
<input type="radio" name="jogo" value="3"  Class="fonte">
<img src="pedra.gif"  ><br><font class="fonte">Pedra</font>
</td>


<td>
<input type="radio" name="jogo" value="1" Class="fonte">
<img src="papel.gif" ><br><font class="fonte">Papel</font>
</td>

<td>
<input type="radio" name="jogo" value="2"  Class="fonte">
<img src="tesoura.gif" ><br><font class="fonte">Tesoura</font>
</td>


</tr>
</table>
<div style="width:500px;">

<div style="width:103px;float:right; text-align:left; padding-top:10px;">
<input type="submit" value="Jogar"  Class="butao" style="padding-left:26px; padding-right:25px;">
</form>
<form method="post" action="index.asp"><br / ><input type="hidden" name="zerar" value="zerar">
<input type="submit" value="Zerar Jogo!" class="butao">
</form>
</div>
</div>

</div>

<div style="width:500px;border:1px solid #999;">
<div style="width:210px;float:left; padding-top:10px;">
<TABLE border=0 width="200" cellspacing="0" cellpadding="0"  height=0 style="background-color:#fff;border:1px solid #999;">
<tr><td colspan="2" style="background-color:#FFF1E3; padding-left:5px; padding-bottom:4px; padding-top:4px;"><font class="fonte">
<LI> Placar</font></td><tr>
<td  width="130" >
<img src="vc.gif" width="30" height="20">
<font class="fonte">Você 
</font></td><td  align="center" style="background-color:#FFF1E3;"> 
<font class="fonte"><%=session("jogador")%></font>
</td></tr><tr><td  width="130" >
<img src="pc.gif" width="30" height="20">
<font class="fonte">Computador </font></td><td align="center" style="background-color:#FFF1E3;">
<font class="fonte"><%=session("cp")%></font>
</td></tr>
</table>
</div>
<div style="width:103px;float:right; text-align:left; padding-top:10px;">

</div>
</div>
</body>

<%
Response.Buffer = True
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = #January 1, 2004 00:00:01#
Response.Expires=0
%>
<head>

<body style="background-color:#ddd; text-align:center; padding-top:40px;" >
<center>
<div style="width:500px;background-color:#fff;border:1px solid #999; padding-top:10px;">
<font class="fonte">
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' JOGO CRIADO 13/02/2004
' AUTOR: FRANCKE PEIXOTO
' EMAIL/MSN: FRANCKE@XMASTERS.COM.BR
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if request("zerar") = "zerar" then
	session("cp") = 0
	session("jogador") = 0
end if
if session("cp") < 1 then 
   session("cp") = 0
end if
if session("jogador") < 1 Then
   session("jogador") = 0
end if
Function jogar(jogo)
    Dim jogocp	
    Randomize()
    jogocp = cInt(rnd()*2)+1
	if CStr(jogo) = "3" Then
     if jogocp = 2 Then
	response.write "<LI> Você jogou <b>Pedra</b>, o Computador jogou <b>Tesoura</b>!<br>"
	response.write "Você Ganhou!<br><img src='vitoria.gif'>"	
	session("jogador") = session("jogador") + 1
	jogo = "0"
     end if
     if jogocp = 3 Then
	response.write "<LI> Você jogou <b>Pedra</b>, o Computador jogou <b>Pedra</b>!<br>"
	response.write "Ninguem Ganhou!<br><img src='empate.gif'>"	
	jogo = "0"
     end if
     if jogocp = 1 Then
	response.write "<LI> Você jogou <b>Pedra</b>, o Computador jogou <b>Papel</b>!<br>"
	response.write "Computador Ganhou!<br><img src='vitoria.gif'>"
	session("cp") = session("cp") + 1		
	jogo = "0"	
     end if
  end if	
  
  if CStr(jogo) = "1" Then
     if jogocp = 2 Then
	response.write "<LI> Você jogou <b>Papel</b>, o Computador jogou <b>Tesoura</b>!<br>"
	response.write "Computador Ganhou!<br><img src='vitoria.gif'>"	
	session("cp") = session("cp") + 1
     end if
     if jogocp = 3 Then
	response.write "<LI> Você jogou <b>Papel</b>, o Computador jogou <b>Pedra</b>!<br>"
	response.write "Você Ganhou!<br><img src='vitoria.gif'>"	
	session("jogador") = session("jogador") + 1
     end if
     if jogocp = 1 Then
	response.write "<LI> Você jogou <b>Papel</b>, o Computador jogou <b>Papel</b>!<br>"
	response.write "Ninguem Ganhou!<br><img src='empate.gif'>"		
     end if
  end if

if CStr(jogo) = "2" Then
     if jogocp = 1 Then
	response.write "<LI> Você jogou <b>Tesoura</b>, o Computador jogou <b>Papel</b>!<br>"
	response.write "Você Ganhou!<br><img src='vitoria.gif'>"	
	session("jogador") = session("jogador") + 1
     end if
     if jogocp = 3 Then
	response.write "<LI> Você jogou <b>Tesoura</b>, o Computador jogou <b>Pedra</b>!<br>"
	response.write "Computador Ganhou!<br><img src='vitoria.gif'>"	
	session("cp") = session("cp") + 1
     end if
     if jogocp = 2 Then
	response.write "<LI> Você jogou <b>Tesoura</b>, o Computador jogou <b>Tesoura</b>!<br>"
	response.write "Ninguem Ganhou!<br><img src='empate.gif'>"		
     end if
  end if	
end Function
if request("jogo")="" Then
    response.write "<lI> Escolha uma opção!<br><img src='perder.gif'>"		
else
   Call jogar(request("jogo"))
end if
%>
</div>
<br />

<td>
<input type="radio" name="jogo" value="3"  Class="fonte">
<img src="pedra.gif"  ><br><font class="fonte">Pedra</font>
</td>

<td>
<input type="radio" name="jogo" value="1" Class="fonte">
<img src="papel.gif" ><br><font class="fonte">Papel</font>
</td>

<td>
<input type="radio" name="jogo" value="2"  Class="fonte">
<img src="tesoura.gif" ><br><font class="fonte">Tesoura</font>
</td>

</tr>
</table>
<div style="width:500px;">

</div>

<div style="width:500px;border:1px solid #999;">
<div style="width:210px;float:left; padding-top:10px;">
<TABLE border=0 width="200" cellspacing="0" cellpadding="0"  height=0 style="background-color:#fff;border:1px solid #999;">
<tr><td colspan="2" style="background-color:#FFF1E3; padding-left:5px; padding-bottom:4px; padding-top:4px;"><font class="fonte">
<LI> Placar</font></td><tr>
<td  width="130" >
<img src="vc.gif" width="30" height="20">
<font class="fonte">Você 
</font></td><td  align="center" style="background-color:#FFF1E3;"> 
<font class="fonte"><%=session("jogador")%></font>
</td></tr><tr><td  width="130" >
<img src="pc.gif" width="30" height="20">
<font class="fonte">Computador </font></td><td align="center" style="background-color:#FFF1E3;">
<font class="fonte"><%=session("cp")%></font>
</td></tr>
</table>
</div>
<div style="width:103px;float:right; text-align:left; padding-top:10px;">

</div>
</div>
</body>

Arquivo	Tipo	Tamanho	Hits
JogoPedraPapelTesoura.zip	Arquivo ZIP	3,6 Kb	347

Este código foi útil para você?

Nota	Comentário
Ainda não foi enviado nenhum comentário.

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
A pontuação de comentários de conteúdo do próprio membro não serão computados.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Há um limite de 10 comentários por dia para cada membro.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação:

Equipe | Tabela de Pontos e Estrelas | Política de Privacidade | Mapa do Site | Fale Conosco