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.

 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ê 
 



Computador 

Arquivos para Download:

JogoPedraPapelTesoura.zip