*Jogo em buusca do tesouro.

*Por: Carlos Oliveira.
*Em: Setembro de 2011.
*E-mail: carlos.oliveira.rj@hotmail.com

Seja $casa "Agora voce está na casa número: "
Seja $s "Você sobe ou desce de casas de acordo como for no resultado. Boa Sorte "
Seja $d "Você ganha ou perde 7 casas de acordo com a sorte ou azar de seu oponente. Boa sorte"
Seja c 0
Toca "sons\entrada.mp3"
cor 4
Escreve "ATENÇÃO!!!"
cor 15
Escreve "Esse é o jogo "&
cor 4
escreve "EM BUSCA DO TESOURO."
cor 15
Escreve "É um jogo de tabuleiro, em que você percorre um caminho com seu pino colorido, casa a casa, respondendo perguntas, "
Escreve "vencendo desafios. e se divertindo bastante,  até o objetivo final que é chegar no tesouro e ficar bilionário."
bipa 1
bipa 1
bipa 1
bipa 1
Escreve "Digite seu nome."
le $nome
cor 4
Escreve "ATENÇÃO, "$nome". PREPARE-SE. "&
cor 15
Escreve "Você está na largada para busca do tesouro."
Bipa 1
Bipa 1
Bipa 1
Bipa 1
@inicio
Enquanto c<100
bipa 1
bipa 1
bipa 1
bipa 1
Escreve ""$casa" "c"
Escreve "Tecle enter para jogar os dados."
le
Toca "sons\dados.mp3"
Bipa 1
Bipa 1
Bipa 1
Bipa 1
Randomiza
Seja a rand 6
Seja b rand 6
Soma a b
Se a = 0 Soma a 2
Se a = 1 Soma a 1
se a >= 2 escreve "Você fez "a" pontos."
se a < 2 escreve "Você fez "a" ponto."
Se a = 2 Escreve "Vai andar duas casas."
Se a > 2 Escreve "Vai andar "a" casas."
bipa
bipa
Escreve "Sua localização. Você está na casa: "
Soma c a
cor 4
Escreve ""c"."
bipa
bipa
bipa
*ônus e bônus
Se c = 2 Escreve "Jogo começando e já vamos querer a senha da sorte ou do azar. Cuidado para não errar. "$s""
Se c = 2 Desvia @senha
Se c = 3 escreve "Que bom está com sorte. Salte para casa 7."
Se c = 3 Soma c 4
Se c = 4 Escreve "Grandes vendavais, você precisa acertar a senha da Deusa do vento para sair dai. "$s""
Se c = "4" Desvia @senha
Se c = 6 Escreve "Muito bem achou uma moeda da sorte. Salte para casa 11."
Se c = 6 Soma c 5
Se c = 8 Escreve "Um grande pântano cheio de jacarés azuis. Perigo. Responda a pergunta e fuja. Casa 1 se errar. Casa 15 se acertar. "p""
Se c = 8 Desvia @perguntas
Se c = 9 Escreve "Que azar ! É areia movediça. Volte correndo pra casa 1."
Se c = 9 Subtrai c 8
Se c = 10 Escreve "Moedas de ouro branco, estão protegidas por leões. Para pegá-las acerte a senha. "$s"
Se c = 10 Desvia @senha
Se c = 12 Escreve "Grande morcego vampiro desafia você para o jogo dos 7 dados. Tentte vencê-lo."
Se c = 12 desvia @joguedados
Se c = 14 Escreve "Nova senha. Digite uma dezena. "$s"
Se c = 14 Desvia @senha
Se c = 15 Escreve "Não acredito você dormiu. Perdeu o caminho. Volte para casa 5."
Se c = 15 Subtrai c 10
Se c = 16 Escreve "Tentando a sorte ou o azar. Jogue os dados. Tente vencer o Duende azul."
Se c = 16 Desvia @joguedados
Se c = 18 Escreve "Você está com sorte, achou a pena mágica. Salte para casa 25."
Se c = 18 Soma c 7
Se c = 20 Escreve "Você está num labirinto. Para sair responda a pergunta. Acertando vá para casa 27, errando volte para casa 13. "p""
Se c = 20 Desvia @perguntas
Se c = 21 Escreve "Uau! Uma flauta mágica, toque ela e salte para casa 29."
Se c = 21 Soma c 8
Se c = 22 Escreve "Tente a sorte jogando dados com o monstro da caverna. "$d""
Se c = 22 Desvia @joguedados
Se c = 24 Escreve "Nossa 24 é uma casa estranha. Saia dai correndo. Volte para casa 17."
Se c = 24 Subtrai c 7
Se c = 26 Escreve "Passagem secreta. Digite a senha para encontrá-la. "$s""
Se c = 26 Desvia @senha
Se c = 27 Escreve "Parada para o lanche. Mas restaurante bom só na casa 19. Volte lá."
Se c = 27 Subtrai c 8
Se c = 28 Escreve "Nova senha para seguir em frente. "$s""
Se c = 28 Desvia @senha
Se c = 30 Escreve "Cuidado. Dragão de 3 cabeças aqui. Não faça barulho e vá de mansinho a casa 35."
Se c = 30 Soma c 5
Se c = 32 Escreve "Um jacaré de duas cabeças lhe cerca. Jogue os dados e vença para passar. "$d""
Se c = 32 Desvia @joguedados
Se c = 33 Escreve "Poxa deu vontade ir ao banheiro? Volte a casa 31 e se alivie."
Se c = 33 Subtrai c 2
Se c = 34 Escreve "Hora da sorte ou do azar. Digite uma dezena. Se for a senha correta você pode se dar bem. "$s""
Se c = 34 Desvia @senha
Se c = 36 Escreve "Momento de glória, você ajudou uma velhinha atravessar a rua. Vá para casa 39 como prémio."
Se c = 36 Soma c 3
Se c =38 Escreve "Um caranguejo prateado gigante fecha seu caminho. Responda a pergunta para sair dai. Se acertar ganha 7 casas. Se errar perde 7. "p""
Se c = 38 Desvia @perguntas
Se c = 39 Escreve "Perigo a vista. Área com radiação. Saia dai correndo para casa 31. Vai vai!"
Se c = 39 Subtrai c 8
Se c = 40 Escreve "Você está com fome e sede. Para sanar isso responda a pergunta. Se acertar Vá comer na casa 47, se errar coma na casa 33. "p""
Se c = 40 Desvia @perguntas
Se c = 42 Escreve "Vocêfica cara a ccara com a múmia de duas cabeças. Ganhe dela nos 7 dados e à destrua. "$d""
Se c = 42 desvia @joguedados
Se c = 44 Escreve "Você está no meio de uma ponte que balança. Vento muito forte. Acerte a senha para o vento cessar. "$s""
Se c = 44 Desvia @senha
Se c = 45 Escreve "Moeda de ouro. Ganhou 10 casas. Você vai pra casa 55."
Se c = 45 Soma c 10
Se c = 46 Escreve "Um duende amarelo de chifres vermelhos está aqui. Fuja dele. Responda a pergunta. Erro: Casa 39. Acerto: Casa 53. "p""
Se c = 46 Desvia @perguntas
Se c = 48 Escreve "O que é isso no chão? Pegue. Eca! É caca de cachorro. Vá lavar a mão. Vá para casa 43."
Se c = 48 Subtrai c 5
Se c = 50 Escreve "Um lindo rubi está aqui, Para consegui-lo jogue os dados contra o monstro vermelho. "$d""
Se c = 50 Desvia @joguedados
Se c = 51 Escreve "Você se encontra com a terrivel Medusa. Ela o desafia para o jogo dos 7 dados. "$d""
Se c = 51 desvia @joguedados
Se c = 52 Escreve "Um grande monstro dourado lhe cercou. Responda a pergunta e tente fugir. Acertando vá a casa 59, errando volte a casa 45. "p""
Se c = 52 Desvia @perguntas
Se c = 54 Escreve "Odeio dizer mas você se perdeu. Volte a casa 47 e tente se achar."
Se c = 54 Subtrai c 7
Se c = 56 Escreve "Você caiu num poço profundo, para receber ajuda acerte a senha. "$s""
Se c = 56 Desvia @senha
Se c = 57 Escreve "Horrível sensação de fraqueza. Precisa de um médico, e só tem lá na casa 41. Pois volte lá e se trate."
Se c = 57 Subtrai c 16
Se c = 58 Escreve "Você caiu numa redoma de vidro. Para sair responda a pergunta. Acerto: casa 65. Erro: casa 51. "p""
Se c = 58 Desvia @perguntas
Se c = 60 Escreve "Sensacional. Uma barra de ouro. Salte para casa 67 e seja feliz."
Se c = 60 Soma c 7
Se c = 62 Escreve "Uma lâmpada mágica. Responda a pergunta e o Gênio aparece. Vale 7 casas acima ou abaixo. "p""
Se c = 62 Desvia @perguntas
Se c = 63 Escreve "Uma ponte quebrada. Impossível passar aqui. Volte na casa 61."
Se c = 63 Subtrai c 2
Se c = 64 Escreve "Um grande dinossauro carnívoro. Responda rápido a pergunta que ele se transformará em uma lagartixa. Vale 7 casas acima ou abaixo. "p""
Se c = 64 Desvia @perguntas
Se c = 66 Escreve "Caminho fechado, por uma manada de elefantes cor de rosa. Isso dá medo. Volte a casa 55 para evitá-los."
Se c = 66 Subtrai c 11
Se c = 68 Escreve "Um Ciclope listrado quer lhe vencer. Jogue os dados e o extermine. "$d""
Se c = 68 Desvia @joguedados
Se c = 69 Escreve "Aqui você fez uma fezinha na loteria e ganhou. Troque seu prêmio pela casa 77"
Se c = 69 Soma c 8
Se c = 70 Escreve "Um minotauro fecha sua passagem. Só  acertando a senha para passar. "$s""
Se c = 70 Desvia @senha
Se c = 72 Escreve "Corrida do ouro. Você ficou garimpando, nada achou e perdeu tempo. Volte a casa 65.
Se c = 72 Subtrai c 7
Se c = 74 Escreve "Um biscoito da sorte. E tem uma pergunta dentro. Será que é sorte? Responda. Acerto mais 7 casas, erro menos 7. "p""
Se c = 74 Desvia @perguntas
Se c = 75 Escreve "Você conseguiu chegar na rosa azul. Uma raridade. Ganhou 10 casas. Vá pra casa 85.
Se c = 75 Soma c 10
Se c = 76 Escreve "Um pequeno baú. Deve ter ouro dentro. Está trancado. Acerte a senha para abrir "$s""
Se c = 76 Desvia @senha
Se c = 78 Escreve "Um monstro amarelo com um olho só e de grandes chifres fechou a passagem. Fuja dele. Vá pra casa 73.
Se c = 78 Subtrai c 5
Se c = 80 Escreve "Você está na câmara da sorte ou do azar. Jogue os dados com o pequeno demônio. "$d""
Se c = 80 Desvia @joguedados
Se c = 81 Escreve "Hora do lanche. Vamos parar na lanchonete do Senhor Asdrovaldo, casa 75. Não coma muito."
Se c = 81 Subtrai c 6
Se c = 82 Escreve "Nuvens escuras no céu. Nelas se formam uma pergunta. Errando volte a casa 75, acertando salte para casa 89. "p""
Se c = 82 Desvia @perguntas
Se c = 84 Escreve "Aqui está muito escuro. Dá até medo. Vamos buscar uma lanterna. Volte a casa 79."
Se c = 84 Subtrai c 5
Se c = 86 Escreve "Cheiro de morte no ar. E a própria morte lhe faz uma pergunta. Casas em jogo são 7 para cima ou para baixo. "p""
Se c = 86 Desvia @perguntas
Se c = 87 Escreve "Muita muita chuva. Corra e busque sua capa de chuva. Você deixou na casa 71, volte lá."
Se c = 87 Subtrai c 16
Se c = 88 Escreve "Um Duende lhe desafia para os dados. Tente vencer para seguir. "$d""
Se c = 88 Desvia @joguedados
Se c = 90 Escreve "Milhões de cobras venenosas. Não vai dar para passar ai. Volte a casa 77."
Se c = 90 Subtrai c 13
Se c = 92 Escreve "Adrenalina em alta. Nova senha. "$s""
Se c = 92 Desvia @senha
Se c = 93 Escreve "Pavoroso. Uma mula sem cabeça verde, e uma cuca rosa. Essas são das piores espécies. Fuja para casa 79.
Se c = 93 Subtrai c 14
Se c = 94 Escreve "Momento de emoção. Jogo de dados contra o monstro do poço. "$d""
Se c = 94 Desvia @joguedados
Se c = 96 Escreve "Estou cansado de acompanhar você. Deu sede. Quero uma água bem gelada. Busque na casa 67. Lá que tem a melhor."
Se c = 96 Subtrai c 29
Se c = 98 Escreve "Senha para salvação da casa. Acertando é caminho da vitória. "$s""
Se c = 98 Desvia @senha
Se c = 99 Escreve "Que azar! Faltava só um passinho para conseguir o tesouro. Mas como nada é fácil. Volte a casa 53. E chore."
Se c = 99 Subtrai c 46
Fim enquanto
Se c >= 100 Toca "sons\ganhou.mp3"

Se c >= 100 Desvia @saida
Bipa
Bipa
Bipa
Bipa
*perguntas
@perguntas
Seja p "Sorteando sua pergunta."
Seja $r "Se desejar ouvir a pergunta de novo tecle, letra R."
Seja o "Opções. "
seja f 7
Bipa 1
Bipa 1
Bipa 1
Escreve ""p" "$r""
seja b rand 30
seja d rand 31
Soma b d
espera 1
Escreve "Sua pergunta é:"
espera 1
Se d = 0 Escreve "Que sorte foi liberado da pergunta e ainda ganhou 3 casas."
Se d = 0 Soma c 3
Se d = 1
@1
Escreve "Que metal, é o único elemento líquido no estado natural?"
Escreve ""o" A:ouro. B: mercúrio. C: alumínio. D: urânio.
le r&
Se r = "r" Desvia @1
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa1.mp3"
Se r <> "b" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 2
@2
Escreve "Em 1945, a Coréia estava ocupada por quem?"
Escreve ""o" A: Alemães. B: Francêses. C: Japonêses. D: Índios."
le r&
Se r = "r" Desvia @2
se r = "c" Soma c f
se r <> "c" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="c" Toca "sons\Resposta certa1.mp3"
Se r <> "c" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 3
@3
Escreve "Qual destes países não faz fronteira com a França?"
Escreve ""o" A: Andorra. B: Mônaco. C: Luxemburgo. D: Países Baixos.
le r&
Se r = "r" Desvia @3
se r = "d" Soma c f
se r <> "d" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa1.mp3"
Se r <> "d" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 4
@4
Escreve "Quando os olhos dos gatinhos abrem?"
Escreve ""o" A: 1º dia. B: 2 meses. C: 4 a 6 semanas. D: 1 a 3 semanas.
le r&
Se r = "r" Desvia @4
se r = "d" Soma c f
se r <> "d" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa1.mp3"
Se r <> "d" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 5
@5
Escreve "Em que reino se passa o jogo de videogame super mário?"
Escreve ""o" A: reino do cogumelo. B: reino de salada. C: reino trágico. D: reino selvagem.
le r&
Se r = "r" Desvia @5
se r = "a" Soma c f
se r <> "a" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="a" Toca "sons\Resposta certa1.mp3"
Se r <> "a" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 6
@6
Escreve "Na série popular Harry Potter, qual foi o feitiço que matou os pais de Harry?"
Escreve ""o" A: Crucio. B: Serpensortia. C: Expecto Patronus. D: Avada Kedavra.
le r&
Se r = "r" Desvia @6
se r = "d" Soma c f
se r <> "d" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa2.mp3"
Se r <> "d" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 7
@7
Escreve "No Mágico de oz, Quem canta Ding Dong a Bruxa está morta?"
Escreve ""o" A: munchkins. B: Glinda. C: O Mago. D:O espantalho.
le r&
Se r = "r" Desvia @7
se r = "a" Soma c f
se r <> "a" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="a" Toca "sons\Resposta certa2.mp3"
Se r <> "a" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 8
@8
Escreve "Os cavalos têm quatro passos principais. Qual são estes em ordem de velocidade?"
Escreve ""o" A: marcha, passo lento, trote, galope. B: marcha, trote, meio galope, galope. C: marcha, passo, galope, trote. D: passo, trote, marcha, meio galope.
le r&
Se r = "r" Desvia @8
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa2.mp3"
Se r <> "b" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 9
@9
Escreve "Quais eram os primeiros nomes dos Irmãos Grimm?"
Escreve ""o" A: tefan e Andreas. B: Frank e Josef. C: Wilhelm e Jacob. D: Hanz e Fritz.
le r&
Se r = "r" Desvia @9
se r = "c" Soma c f
se r <> "c" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="c" Toca "sons\Resposta certa2.mp3"
Se r <> "c" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 10
@10
Escreve "Qual destes nomes tem relação com a palavra ceticismo?"
Escreve ""o" A: Tina. B: Tyler. C: Thomas. D: Tooties.
le r&
Se r = "r" Desvia @10
se r = "c" Soma c f
se r <> "c" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="c" Toca "sons\Resposta certa2.mp3"
Se r <> "c" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 11
@11
Escreve "Na série de tv Alf, de que planeta veio Alf?"
Escreve ""o" A: arruina. B: Vênus. C: Melmac. D: Terra.
le r&
Se r = "r" Desvia @11
se r = "c" Soma c f
se r <> "c" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="c" Toca "sons\Resposta certa3.mp3"
Se r <> "c" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 12
@12
Escreve "Qual não é uma raça reconhecida de gato?"
Escreve ""o" A: Burmese. B:  Siamese. C: Tortoiseshell. D: Res.
le r&
Se r = "r" Desvia @12
se r = "c" Soma c f
se r <> "c" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="c" Toca "sons\Resposta certa3.mp3"
Se r <> "c" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 13
@13
Escreve "Qual destas aranhas não é um tipo de viúva?"
Escreve ""o" A: Negra. B: Verde. C: Marrom. D: Do norte.
le r&
Se r = "r" Desvia @13
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa3.mp3"
Se r <> "b" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 14
@14
Escreve "Qual era o primeiro nome da chapeuzinho vermelho?"
Escreve ""o" A: Pettifour. B: Biddy. C: Doce Mel. D: Lucille.
le r&
Se r = "r" Desvia @14
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa3.mp3"
Se r <> "b" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 15
@15
Escreve "No Mágico de oz, qual era o outro nome que Munchkins foi referido?"
Escreve ""o" A: O cantor anão. B: camarada do circo. C: Tiny Folks. D: Guys Gals.
le r&
Se r = "r" Desvia @15
se r = "a" Soma c f
se r <> "a" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="a" Toca "sons\Resposta certa3.mp3"
Se r <> "a" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 16
@16
Escreve "Nas tartarugas ninja, que tipo de animal é Rocksteady?"
Escreve ""o" A: javalí. B: rinoceronte. C: tartaruga. D: coelho.
le r&
se r = "b" Soma c f
Se r = "r" Desvia @16
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa1.mp3"
Se r <> "b" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 17
@17
Escreve "Nas tartarugas ninja, que tipo de animal é Bebop?"
Escreve ""o" A: rinoceronte. B: Javalí. C: cobra. D: rato.
le r&
Se r = "r" Desvia @17
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa1.mp3"
Se r <> "b" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 18
@18
Escreve "Essa personagem usa um vestido azul e tem cabelo longo e escuro."
Escreve ""o" A: Branca de Neve. B: Cinderela. C: Chapeuzinho vermelho. D: Bela.
le r&
Se r = "r" Desvia @18
se r = "d" Soma c f
se r <> "d" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa1.mp3"
Se r <> "d" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 19
@19
Escreve "rNo filme A Bela Adormecida, Qual é o nome do príncipe que a resgata?"
Escreve ""o" A: Príncipe Encantado. B: Nicolau. C: Adam. D: Filipe.
le r&
Se r = "r" Desvia @19
se r = "d" Soma c f
se r <> "d" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa1.mp3"
Se r <> "d" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 20
@20
Escreve "Como conseqüência da poliomielite, o presidente dos EUA, Franklin Roosevelt usava:"
Escreve ""o" A: uma bengala. B: uma cadeira de rodas. C: muletas. D: próteses auditivas.
le r&
Se r = "r" Desvia @20
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa1.mp3"
Se r <> "b" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 21
@21
Escreve "Qual o livro de Lucy Greeley, no qual uma mulher tem um defeito físico?"
Escreve ""o" A: Pernas inanimadas. B: não vejo nenhum mal. C: insondável ruído. D: biografia de uma face.
le r&
Se r = "r" Desvia @21
se r = "d" Soma c f
se r <> "d" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa2.mp3"
Se r <> "d" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 22
@22
Escreve "Que ano foi registrada a primeira canção de jazz?"
Escreve ""o" A: 1920. B: 1923. C: 1917 . D: 1925.
le r&
Se r = "r" Desvia @22
se r = "c" Soma c f
se r <> "c" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="c" Toca "sons\Resposta certa2.mp3"
Se r <> "c" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 23
@23
Escreve "Onde fica o Parque Natural Krüger?"
Escreve ""o" A: Africa. B: América. C: Europa. D: Ásia.
le r&
Se r = "r" Desvia @23
se r = "a" Soma c f
se r <> "a" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="a" Toca "sons\Resposta certa2.mp3"
Se r <> "a" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 24
@24
Escreve "Qual a profissão do pai de Benito Mussolini?"
Escreve ""o" A:Padeiro. B: açougueiro. C: ferreiro. D: Borracheiro.
le r&
Se r = "r" Desvia @24
se r = "c" Soma c f
se r <> "c" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="c" Toca "sons\Resposta certa2.mp3"
Se r <> "c" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 25
@25
Escreve "Qual o nome do quadro de Edvard Munch roubado da Galeria Nacional de Oslo?"
Escreve ""o" A: Vento. B: Grito. C: Súplica. D: Tempestade.
le r&
Se r = "r" Desvia @25
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa2.mp3"
Se r <> "d" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 26
@26
Escreve "Qual o nome da mãe da atriz Chiara Mastroianni?"
Escreve ""o" A: Sophia Loren. B: Fanny Ardant. C: Debora phillips. D: Catherine Deneuve.
le r&
Se r = "r" Desvia @26
se r = "d" Soma c f
se r <> "d" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa3.mp3"
Se r <> "d" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 27
@27
Escreve "Quem inventou a minissaia?"
Escreve ""o" A: Coco Chanel. B: Mary Quant. C: Sonia Rykiel. D: Diane ackerman.
le r&
Se r = "r" Desvia @27
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa3.mp3"
Se r <> "b" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 28
@28
Escreve "Onde nasceu o escritor Elias Canetti?"
Escreve ""o" A: Itália. B: Bulgária. C: Alemanha. D: Austrália.
le r&
Se r = "r" Desvia @28
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa3.mp3"
Se r <> "b" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 29
@29
Escreve "Como morreu Ataualpa o último inca?"
Escreve ""o" A: Queimado. B: Esquartejado. C: Enforcado. D: Envenenado.
le r&
Se r = "r" Desvia @29
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa3.mp3"
Se r <> "b" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 30
@30
Escreve "Dr. James Naismith, o criador do basquetebol, morava em qual país?"
Escreve ""o" A: Canadá. B: Estados Unidos. C: Inglaterra. D: México.
le r&
Se r = "r" Desvia @30
se r = "a" Soma c f
se r <> "a" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="a" Toca "sons\Resposta certa3.mp3"
Se r <> "a" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 31
@31
Escreve "Em que ano foi inventado o basquetebol?"
Escreve ""o" A: 1896. B: 1900. C: 1891. D: 1907.
le r&
Se r = "r" Desvia @31
se r = "c" Soma c f
se r <> "c" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="c" Toca "sons\Resposta certa1.mp3"
Se r <> "c" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 32
@32
Escreve "Em que século foi desenvolvida a primeira forma de futebol americano?"
Escreve ""o" A: 20. B: 19. C: 16. D: 12.
le r&
Se r = "r" Desvia @32
se r = "d" Soma c f
se r <> "d" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa1.mp3"
Se r <> "d" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 33
@33
Escreve "Qual destas canções foi processada?"
Escreve ""o" A: Espírito No Céu . B: Não me Deixe deste modo . C: Barbie Girl . D: Estoure um Movimento.
le r&
Se r = "r" Desvia @33
se r = "c" Soma c f
se r <> "c" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="c" Toca "sons\Resposta certa1.mp3"
Se r <> "c" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 34
@34
Escreve "De que foram feitas as teclas de um piano originalmente?"
Escreve ""o" A: plástico e osso. B: ébano e marfim. C: açúcar e tempero. D: pedra e osso.
le r&
Se r = "r" Desvia @34
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa1.mp3"
Se r <> "b" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 35
@35
Escreve "Quantas juntas tem um flautim?"
Escreve ""o" A: 3. B: 2. C: 1. D: 4.
le r&
Se r = "r" Desvia @35
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa1.mp3"
Se r <> "b" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 36
@36
Escreve "Que instrumento de corda é muito grande para ser seguro, assim é tocado com o instrumento entre as pernas do tocador"
Escreve ""o" A: Viola. B: Violão. C: Violino. D: Violoncelo.
le r&
Se r = "r" Desvia @36
se r = "d" Soma c f
se r <> "d" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa2.mp3"
Se r <> "d" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 37
@37
Escreve "No filme do  Mágico de oz, quem foi a atriz que jogou Dóroti na ventania,?"
Escreve ""o" A: Shirley Temple. B: Cloris Leachman. C: Joan Crawford. D: Judy Garland.
le r&
Se r = "r" Desvia @37
se r = "d" Soma c f
se r <> "d" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa2.mp3"
Se r <> "d" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 38
@38
Escreve "Em qual dos anos abaixo foi registrada a menor inflação anual (2,74%) no Brasil antes do plano real?"
Escreve "A: 1995. B: 1947. C: 1964. D: 1988.
le r&
Se r = "r" Desvia @38
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa2.mp3"
Se r <> "d" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 39
@39
Escreve "No filme da Disney 101 dáumatas quantos filhotes de cachorro Pongo e Perdita tiveram?"
Escreve ""o" A: 101. B: 99. C: 15. D: 10.
le r&
Se r = "r" Desvia @39
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa2.mp3"
Se r <> "b" Toca "sons\Resposta errada2.mp3"
senão
Se d = 40
@40
Escreve "Quantos jogadores têm no jogo de Baseball?"
Escreve ""o" A: 5. B: 8. C: 9. D: 7.
le r&
Se r = "r" Desvia @40
se r = "c" Soma c f
se r <> "c" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="c" Toca "sons\Resposta certa2.mp3"
Se r <> "c" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 41
@41
Escreve "Quando foi inventado o lápis?"
Escreve ""o" A: 1792. B: 1692. C: 1783. D: 1683.
le r&
Se r = "r" Desvia @41
se r = "a" Soma c f
se r <> "a" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="a" Toca "sons\Resposta certa3.mp3"
Se r <> "a" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 42
@42
Escreve "Quem esculpiu o célebre O Pensador?"
Escreve ""o" A: Michelangelo. B: Aleijadinho. C: Rodin. D: Leonardo Davince.
le r&
Se r = "r" Desvia @42
se r = "c" Soma c f
se r <> "c" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="c" Toca "sons\Resposta certa3.mp3"
Se r <> "c" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 43
@43
Escreve "Qual é a atriz casada com o músico Jean-Michel Jarre?"
Escreve ""o" A: Michelle Pfeiffer. B: Cher. C: barbara bowers. D: Charlotte Rampling.
le r&
Se r = "r" Desvia @43
se r = "d" Soma c f
se r <> "d" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa3.mp3"
Se r <> "d" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 44
@44
Escreve "Quem Pintou o quadro Abaporu leiloado por 1 milhão e 300 mil dólares?
Escreve ""o" A: Portinari. B: Leonardo Davince. C: Tarsila do Amaral. D: Volpi.
le r&
Se r = "r" Desvia @44
se r = "c" Soma c f
se r <> "c" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="c" Toca "sons\Resposta certa3.mp3"
Se r <> "c" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 45
@45
Escreve "Com quantos anos escolares é concluído o colégio ginásio na Alemanha?"
Escreve ""o" A: 10. B: 11. C: 12. D: 13.
le r&
Se r = "r" Desvia @45
se r = "d" Soma c f
se r <> "d" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa3.mp3"
Se r <> "d" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 46
@46
Escreve "Qual destes personagens de desenho animado é amarelo?"
Escreve ""o" A: Homer Simpson. B: Mickey Mouse. C: Tio Patinhas. Yosemite Sam
le r&
Se r = "r" Desvia @46
se r = "a" Soma c f
se r <> "a" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="a" Toca "sons\Resposta certa1.mp3"
Se r <> "a" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 47
@47
Escreve "Quanto tempo dura a memória de um peixinho dourado?"
Escreve ""o" A: 5 segundos. B: 3 segundos. C: 24 horas. D: eles nunca esquecem.
le r&
Se r = "r" Desvia @47
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa1.mp3"
Se r <> "b" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 48
@48
Escreve "Essa personagem tem cabelo preto, veste uma saia amarela e adora flores."
Escreve ""o" A: Bela. B: Branca de Neve. C: Gata Borralheira. D: Cinderela.
le r&
Se r = "r" Desvia @48
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa1.mp3"
Se r <> "b" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 49
@49
Escreve "A que banda Barbara Ann pertencia?"
Escreve ""o" A: Rolling Stones. B: Beach Boys. C: Os Regentes. D: Beatles.
le r&
Se r = "r" Desvia @49
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa1.mp3"
Se r <> "b" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 50
@50
Escreve "qual o grupo canta California Girls?"
Escreve ""o" A: The Four Seasons. B: The Four Tops. C: The Beach Boys. D: The Temptations.
le r&
Se r = "r" Desvia @50
se r = "c" Soma c f
se r <> "c" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="c" Toca "sons\Resposta certa1.mp3"
Se r <> "c" Toca "sons\Resposta errada1.mp3"
Senão
Se d = 51
@51
Escreve "Qual personagem do guerra nas estrelas falava palavras erradas?"
Escreve ""o" A:Jedi. B: Darth Weider. C: Anakin Skywalker. D: Yoda.
le r&
Se r = "r" Desvia @51
se r = "d" Soma c f
se r <> "d" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa2.mp3"
Se r <> "d" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 52
@52
Escreve "Em que ano Alexander Graham Bell inventou o telefone?"
Escreve ""o" A: 1876. B: 1900. C: 1905. D: 1890.
le r&
Se r = "r" Desvia @52
se r = "a" Soma c f
se r <> "a" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="a" Toca "sons\Resposta certa2.mp3"
Se r <> "a" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 53
@53
Escreve "Qual planeta é conhecido como o Planeta Vermelho?"
Escreve ""o" A: Marte. B: Mercúrio. C: Vênus. D: Plutão.
le r&
Se r = "r" Desvia @53
se r = "a" Soma c f
se r <> "a" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="a" Toca "sons\Resposta certa2.mp3"
Se r <> "a" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 54
@54
Escreve "ao partir um imã em dois pedaços eles se tornam:"
Escreve ""o" A: Pedaços de metal que se atraem. B: Sem magnetismo. C: dois pedaços de metal, que repelem um ao outro. D: dois imãs menores com polos sul e norte.
le r&
Se r = "r" Desvia @54
se r = "d" Soma c f
se r <> "d" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="d" Toca "sons\Resposta certa2.mp3"
Se r <> "d" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 55
@55
Escreve "O que é uma Tsunami?"
Escreve ""o" A: onda. B: oceano. C: um abacaxi. D: Redemoinho.
le r&
Se r = "r" Desvia @55
se r = "a" Soma c f
se r <> "a" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="a" Toca "sons\Resposta certa2.mp3"
Se r <> "a" Toca "sons\Resposta errada2.mp3"
Senão
Se d = 56
@56
Escreve "A base do rítimo Jazz é composto de piano, bateria e:"
Escreve ""o" A: violão. B: baixo. C: tuba. D: saxofone.
le r&
Se r = "r" Desvia @56
se r = "b" Soma c f
se r <> "b" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="b" Toca "sons\Resposta certa3.mp3"
Se r <> "b" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 57
@57
Escreve "Qual a parte da orelha conhecida como tambor?"
Escreve ""o" A: Martelo. B: Bigorna. C: Tímpano. D: Estribo.
le r&
Se r = "r" Desvia @57
se r = "c" Soma c f
se r <> "c" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="c" Toca "sons\Resposta certa3.mp3"
Se r <> "c" Toca "sons\Resposta errada3.mp3"
Senão
Se d = 58
@58
Escreve "O que significa o símbolo C O 2 na tabela periódica?"
Escreve ""o" A: gás carbônico. B: monóxido de carbono. C: Di-cloreto. D: Ácido clórico.
le r&
Se r = "r" Desvia @58
se r = "a" Soma c f
se r <> "a" Subtrai c f
Toca "sons\Resposta suspense1.mp3"
Se r ="a" Toca "sons\Resposta certa3.mp3"
Se r <> "a" Toca "sons\Resposta errada3.mp3"
Fim se
escreve ""$nome". Você irá para casa "c"."
desvia @inicio
*senhas
@senha
Seja l 5
seja q 6
Seja t 7
Seja $e "Você errou. A senha era: "
bipa 1
bipa 1
bipa 1
Escreve "ATENÇÃO!!
bipa
bipa
Escreve "O computador vai sortear sua senha.
bipa 1
bipa 1
bipa 1
bipa 1
Seja m rand 11
Seja n rand 11
Seja u rand 15
Soma m n
soma m u
Se m <= 15
Escreve ""$nome", Muita sorte sua. Ganhou uma senha da série fácil."
bipa
bipa
bipa
Seja g rand 6
Escreve "Tecle sua tentativa. Dica: Um número de 0 a 5."
le h
Toca "sons\Senha suspense.mp3"
Se h = g Toca "C:\winvox\Som\Contavox\Cvtana3.wav"
Se h = g Escreve "Parabéns "$nome", você acertou. Mas essa estava fácil demais."
Se h = g soma c l
Se h <> g Toca "C:\winvox\Som\agenda\agapidec.wav"
Se h <> g Toca "C:\winvox\Som\Suecavox\Erro.wav"
Se h <> g Escreve ""$nome", "$e" "g". Mesmo fácil assim você conseguiu errar? Assim não chega no tesouro."
Se h <> g Toca "sons\mais sorte.mp3"
Se h <> g Subtrai c l
Senão
Se m < 26
Escreve ""$nome", Você não está com sorte nem azar. Essa senha secreta é série média.
bipa
bipa
bipa
Seja g rand 11
Escreve "Tecle sua tentativa. Dica: Um número de 0 a 10."
le h
Toca "c:\arquivos de programas\kako\Sons tesouro\Senha suspense.mp3"
Se h = g Toca "C:\winvox\Som\Contavox\Cvtana3.wav"
Se h = g Escreve "Parabéns você acertou. Que sorte você tem.
Se h = g soma c q
Toca "C:\winvox\Som\agenda\agapidec.wav"
Se h <> g Toca "C:\winvox\Som\Suecavox\Erro.wav"
Se h <> g Escreve ""$nome", "$e" "g". Achei que acertaria. Mas deixa pra próxima."
Se h <> g Toca "sons\mais sorte.mp3"
Se h <> g Subtrai c q
Senão
Se m > 25
Escreve "Muito muito muito azar. Senha de série difícil. Melhor esquecer.
bipa
bipa
bipa
Seja g rand 16
Escreve "Tecle sua tentativa. Dica: Um número de 0 a 15."
le h
Toca "c:\arquivos de programas\kako\Sons tesouro\Senha suspense.mp3"
Se h = g Toca "C:\winvox\Som\Contavox\Cvtana3.wav"
Se h = g Escreve "Incrível!! Por essa eu não esperava. Você acertou. Parabéns!"
Se h = g soma c t
Se h <> g Toca "C:\winvox\Som\agenda\agapidec.wav"
Se h <> g Toca "C:\winvox\Som\Suecavox\Erro.wav"
Se h <> g Escreve ""$nome", "$e" "g". Você caiu do cavalo. Mas é claro que erraria. Essa é muito difícil. Vamos ao jogo."
Se h <> g Toca "sons\mais sorte.mp3"
Se h <> g Subtrai c t
fim se
escreve ""$nome". Você irá para casa "c"."
Desvia @inicio
*dados
@joguedados
Seja y 7
Escreve "Jogo dos 7 dados."
Bipa
Bipa
Bipa
Escreve ""$nome", Vamos ver se você tem sorte ou azar."
Bipa 1
Bipa 1
Bipa 1
Bipa 1
Escreve "Você vai jogar contra seu oponente. Se fizer um número maior você é o vencedor.
bipa
bipa
bipa
@jogadenovo
Escreve "Seu oponente joga primeiro."
Toca "sons\dados7.mp3"
Seja v rand 21
Seja x rand 21
soma v x
Se v < 7 Soma v 7
Escreve " ATENÇÃO!!!"
Escreve "Seu oponente jogou. Será que ele fez uma boa pontuação? Vamos aguardar."
bipa
bipa
bipa
Escreve ""$nome". Agora é a sua vez. Boa sorte!"
bipa 1
bipa 1
bipa 1
Escreve "Tecle enter para jogar os 7  dados."
le
Toca "sons\dados7.mp3"
Seja w rand 21
Seja z rand 21
Soma w z
Se w < 7 soma w 7
escreve " Você jogou. Momento de tensão. Quem será o vencedor."
bipa
bipa
bipa
bipa
Toca "c:\arquivos de programas\kako\Sons tesouro\dados resultados.mp3"
Se v = w
Escreve "Impossível. Deu empate. Você fez "w" pontos, e seu oponente também."
Escreve "Vamos tentar de novo."
Desvia @jogadenovo
senão
Se v < w
Escreve "Parabéns! Você venceu seu oponente. Você fez "w" pontos, e seu oponente "v" pontos."
soma c y
senão
Se v > w
Toca "sons\dados perde.mp3"
Escreve "Que azar. Você perdeu. Seu oponente fez "v" pontos, e você "w" pontos."
Toca "sons\mais sorte.mp3"
Subtrai c y
Senão
fim se
escreve ""$nome". Você irá para casa "c"."
Desvia @inicio
Fim enquanto
@saida
Toca "c:\arquivos de programas\kako\Sons tesouro\tchau3.mp3"
Termina mudo
