Categorias

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





Pedra,Papel,Tesoura!!  
<%
response.write day(date())&"/"&month(date())&"/"&year(date())
%>






<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' 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")%>

    Arquivos para Download:

    JogoPedraPapelTesoura.zip