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
%>













<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' JOGO CRIADO 13/02/2004
' AUTOR: FRANCKE PEIXOTO
' EMAIL/MSN: [email protected]
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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 "
 Você jogou Pedra, o Computador jogou Tesoura!
"
	response.write "Você Ganhou!
"	
	session("jogador") = session("jogador") + 1
	jogo = "0"
     end if
     if jogocp = 3 Then
	response.write "
 Você jogou Pedra, o Computador jogou Pedra!
"
	response.write "Ninguem Ganhou!
"	
	jogo = "0"
     end if
     if jogocp = 1 Then
	response.write "
 Você jogou Pedra, o Computador jogou Papel!
"
	response.write "Computador Ganhou!
"
	session("cp") = session("cp") + 1		
	jogo = "0"	
     end if
  end if	
  
  if CStr(jogo) = "1" Then
     if jogocp = 2 Then
	response.write "
 Você jogou Papel, o Computador jogou Tesoura!
"
	response.write "Computador Ganhou!
"	
	session("cp") = session("cp") + 1
     end if
     if jogocp = 3 Then
	response.write "
 Você jogou Papel, o Computador jogou Pedra!
"
	response.write "Você Ganhou!
"	
	session("jogador") = session("jogador") + 1
     end if
     if jogocp = 1 Then
	response.write "
 Você jogou Papel, o Computador jogou Papel!
"
	response.write "Ninguem Ganhou!
"		
     end if
  end if	

  if CStr(jogo) = "2" Then
     if jogocp = 1 Then
	response.write "
 Você jogou Tesoura, o Computador jogou Papel!
"
	response.write "Você Ganhou!
"	
	session("jogador") = session("jogador") + 1
     end if
     if jogocp = 3 Then
	response.write "
 Você jogou Tesoura, o Computador jogou Pedra!
"
	response.write "Computador Ganhou!
"	
	session("cp") = session("cp") + 1
     end if
     if jogocp = 2 Then
	response.write "
 Você jogou Tesoura, o Computador jogou Tesoura!
"
	response.write "Ninguem Ganhou!
"		
     end if
  end if	
end Function
if request("jogo")="" Then
    response.write "
 Escolha uma opção!
"		
else
   Call jogar(request("jogo"))
end if
%>












Pedra






Papel





Tesoura























 Placar



Você 
 
<%=session("jogador")%>


Computador 

<%=session("cp")%>