*Criado por Henrique Balboua e Fabiano Ferreira.

randomiza
escreve mudo "Bemvindo ao penautvox!"
toca "c:\winvox\som\penalty\abertura.wav"
escreve "Versão 1.0"

@inicia
seja s 0
seja v 0

@escolha
toca "c:\winvox\som\penalty\torcida01.mp3"&
espera 1
escreve mudo  "escolha a direção que vai chutar o seu penaut:"
toca "c:\winvox\som\penalty\escolha.wav"
escreve mudo "d, direita do gol."
toca "c:\winvox\som\penalty\direita.wav"
escreve mudo "m, meio do gol."
toca "c:\winvox\som\penalty\meio.wav"
escreve mudo "e, esquerda do gol."
toca "c:\winvox\som\penalty\esquerda.wav"

@chutabola
toca "c:\winvox\som\penalty\torcida01.mp3"&
se s=0 escreve mudo "Primeiro penaut..."
se s=0 toca "c:\winvox\som\penalty\primeirop.wav"
se s=1 escreve mudo "Segundo penaut..."
se s=1 toca "c:\winvox\som\penalty\segundop.wav"
se s=2 escreve mudo "Terceiro penaut..."
se s=2 toca "c:\winvox\som\penalty\terceirop.wav"
se s=3 escreve mudo "Quarto penaut..."
se s=3 toca "c:\winvox\som\penalty\quartop.wav"
se s=4 escreve mudo "Quinto penaut..."
se s=4 toca "c:\winvox\som\penalty\quintop.wav"
se s=5 escreve mudo "última cobrança! Capricha meu garoto!!!"
se s=5 toca "c:\winvox\som\penalty\ultcobr.wav"
se s=6 desvia @resultado
toca "c:\winvox\som\penalty\apito.wav"&
toca "c:\winvox\som\penalty\torcida01.mp3"&
le mudo r &
se r = "d" desvia @direcao
se r = "e" desvia @direcao
se r = "m" desvia @direcao
se r = "#27" desvia @desiste
escreve mudo "Direção inválida."
toca "c:\winvox\som\penalty\direcaoinvalida.wav"
desvia @escolha

@direcao
seja x rand 3
se x=0 seja y "d"
se x=1 seja y "m"
se x=2 seja y "e"
se r = y
escreve mudo "goooooooooooooooool!!!"
toca "c:\winvox\som\penalty\gol1.wav"
soma s 1
soma v 1
desvia @msgacerto
fim se
desvia @erro

@msgacerto
seja w rand 11
se w=0 escreve mudo "você é fera!!!"
se w=0 toca "c:\winvox\som\penalty\vcfera.wav"
se w=1 escreve mudo "Boa meu garoto!!!"
se w=1 toca "c:\winvox\som\penalty\boa.wav"
se w=2 escreve mudo "Boa jogada!!!"
se w=2 toca "c:\winvox\som\penalty\bjogada.wav"
se w=3 escreve mudo "Que golaço!!!"
se w=3 toca "c:\winvox\som\penalty\qgol.wav"
se w=4 escreve mudo "É isso aí, meu garoto! Afunda essa rede!!!"
se w=4 toca "c:\winvox\som\penalty\afrede.wav"
se w=5 escreve mudo "Era um filho desse que eu queria ter!!!"
se w=5 toca "c:\winvox\som\penalty\era1filho.wav"
se w=6 escreve mudo "E o goleiro nem se mexeu!!!"
se w=6 toca "c:\winvox\som\penalty\goleironemmexeu.wav"
se w=7 escreve mudo "Você tem futuro, cara! Vai fundo!"
se w=7 toca "c:\winvox\som\penalty\vocetemfuturo.wav"
se w=8 escreve mudo "Ta lá! No fundo da rede!!!"
se w=8 toca "c:\winvox\som\penalty\talanofundo.wav"
se w=9 escreve mudo "Que balaço!!! esse é bom demais!!!"
se w=9 toca "c:\winvox\som\penalty\quebalaço.wav"
se w=10 escreve mudo "Vamo lá, rapaz! Você é o cara!!!"
se w=10 toca "c:\winvox\som\penalty\vceocara.wav"
desvia @chutabola

@erro
seja z rand 3
se z=0 escreve mudo "Na trave!!!"
se z = 0 toca "c:\winvox\som\penalty\natrave.wav"
se z=1 escreve mudo "Pra fora!!!"
se z = 1 toca "c:\winvox\som\penalty\prafora.wav"
se z = 2 escreve mudo "Defendeu!!!"
se z = 2 toca "c:\winvox\som\penalty\defendeu.wav"
seja u rand 11
se u=0 escreve mudo "Mas que mole é esse, meu garoto!?"
se u=0 toca "c:\winvox\som\penalty\quemole.wav"
se u=1 escreve mudo "Perdeu de bobeira!!!"
se u=1 toca "c:\winvox\som\penalty\perdeudebob.wav"
se u=2 escreve mudo "Como que perde uma bola dessa!?"
se u=2 toca "c:\winvox\som\penalty\comoqperdebola.wav"
se u=3 escreve mudo "Calma rapaz. Estamos torsendo por você!"
se u=3 toca "c:\winvox\som\penalty\calmarapaz.wav"
se u=4 escreve mudo "Você já foi melhor nisso, meu garoto. que que ta havendo com você?"
se u=4 toca "c:\winvox\som\penalty\vcjafoimelhor.wav"
se u=5 escreve mudo "Mais concentração, garoto!"
se u=5 toca "c:\winvox\som\penalty\maisconcentra.wav"
se u=6 escreve mudo "E a torcida fica inconformada com seu desempenho."
se u=6 toca "c:\winvox\som\penalty\atorcidaficainconf.wav"
se u=7 escreve mudo "Desse jeito você não vai acertar nada. Vai com calma!!!"
se u=7 toca "c:\winvox\som\penalty\dessejeito.wav"
se u=8 escreve mudo "Não desanima, cara. O próximo você acerta!!!"
se u=8 toca "c:\winvox\som\penalty\naodesanima.wav"
se u=9 escreve mudo "Quase foi!!!"
se u=9 toca "c:\winvox\som\penalty\quasefoi.wav"
se u=10 escreve mudo "Que pena."
se u=10 toca "c:\winvox\som\penalty\quepena.wav"
soma s 1
desvia @chutabola

@resultado
escreve mudo "Fim das cobranças."
toca "c:\winvox\som\penalty\fimcobra.wav"
se v=0 escreve mudo "Que papelão, heim! Não acertou nenhum!!!"
se v=0 toca "c:\winvox\som\penalty\masquepapelao.wav"
se v=1 escreve mudo "só um!?!? Volta pra escolinha cara!"
se v=1 toca "c:\winvox\som\penalty\soum.wav"
se v=2 escreve mudo "Só acertou 2. Que que é isso, cara!"
se v=2 toca "c:\winvox\som\penalty\pedeprasair.wav"
se v=3 escreve mudo "Acerta esse pé garoto! Acertou só 3."
se v=3 toca "c:\winvox\som\penalty\so3.wav"
se v=4 escreve mudo "Foi bem. Acertou 4."
se v=4 toca "c:\winvox\som\penalty\foibem.wav"
se v=5 escreve mudo "Muito bom, cara! Acertou 5. Errou só uma!!!"
se v=5 toca "c:\winvox\som\penalty\muitobom.wav"
se v=6 escreve "Bom demais, meu garoto!!! Vivaaaaaaa!!! Acertou todas.!"
desvia @fim

@desiste
escreve mudo "Quer mesmo desistir?"
toca "c:\winvox\som\penalty\quermesmodesistir.wav"
le j &
se j = "s" escreve mudo "Foi legal jogar com você. Até a próxima."
se j = "s" toca "c:\winvox\som\penalty\ateaproxima.wav"
se j = "s" termina mudo
se j = "n" desvia @chutabola
desvia @desiste

@fim
escreve mudo "Quer jogar denovo?"
toca "c:\winvox\som\penalty\denovo.wav"
le p &
se p = "s" desvia @inicia
se p = "n" escreve mudo "Foi legal jogar com você. Até a próxima."
se p = "n" toca "c:\winvox\som\penalty\ateaproxima.wav"
se p = "n" toca "c:\winvox\som\penalty\fluminense.wav"
se p = "n" termina mudo
desvia @fim
