*Jogo da ferrovia
*Idealizado por Luís Campos
*Baseado em jogo criado por Carlos Oliveira
*Agora com contador de tempo
*Salvador, Fevereiro de 2013

Seja k 0
Seja $km "Agora seu trem está no quilometro "
Seja $s "Seu trem andará conforme os pontos obtidos nos dados."
Seja $d "Você avança ou recua 7 casas de acordo com a sorte ou azar de seu oponente. Boa sorte!"
Seja c 0
toca "abertura.mp3"
cor 15
*Escreve "Esse é o jogo da Ferrovia "
cor 4
*Escreve "É um jogo de tabuleiro, no qual você percorrerá uma ferrovia"&
*Escreve "conduzindo seu trem, casa a casa, enfrentando obstáculos,"&
*Escreve "e vencendo desafios."
cor 15
*Escreve "Seu objetivo é levar sua carga em segurança da cidade de"&
*Escreve " Vox City para Voxlandia."
@nomemaquinista
Repete z 5
*Bipa 1
Fim repete
Escreve "Digite o nome do maquinista ou o nome da maquinista."
le $nome
@inicio
cor 4
Escreve ""$nome". Ponha lenha na fornalha que o trem vai partir."
*Bipa
Toca "inicio.mp3"
cor 15
Escreve "Você está na estação de Vox City para a viagem de hoje."
toca "estacao.mp3"
*Bipa 1
*Bipa 1
Seja t tempo
Escreve "Sua viagem começou, "$nome". Bota a Maria-Fumaça pra andar."
toca "saindo.mp3"
*Bipa 1
*Bipa 1
@inicio
Enquanto c<100
Repete z 5
**Bipa 1
Fim repete
Escreve ""$km" "c"
Escreve "Tecle enter para ver quantos quilómetros seu trem vai andar."
le
toca "dados2.wav"
Repete z 4
*Bipa 1
Fim repete
Randomiza
Seja a rand 7
se a = 0 soma a 1
Seja b rand 7
se b = 0 soma b 1
Soma a b
*se a <> 2 escreve "Você fez "a" pontos. Vai andar "a" quilómetros."
se a <> 2 escreve "Você andou "a" quilómetros."
*Se a = 2 Escreve "Você fez "a" pontos. Vai andar 2 quilómetros."
Se a = 2 Escreve "Você andou 2 quilómetros."
Se a = 2 toca "t02.wav"
*Bipa
*Bipa
Soma c a
*Escreve "Sua localização, quilómetro "
cor 4
*Escreve ""c"."
*Bipa
*Bipa
Escreve ""
Se c = 3 escreve "Toda força no vapor. Vá ao quilómetro 7."
Se c = 3 toca "t03.wav"
Se c = 3 Soma c 4
Se c = 4 toca "t04.wav"
Se c = 5 toca "t05.wav"
Se c = 6 toca "t06.mp3"
Se c = 7 toca "t07.mp3"
Se c = 8 toca "t08.mp3"
Se c = 9 Escreve "A Maria-Fumaça tá sem força. Volte ao quilómetro 1."
Se c = 9 toca "t09.mp3"
Se c = 9 Subtrai c 8
Se c = 10 toca "t10.mp3"
Se c = 11 toca "t11.mp3"
Se c = 12 toca "t12.mp3"
Se c = 13 toca "t03.wav"
Se c = 14 escreve "A caldeira tá com todo vapor. Vá pro quilómetro 22."
Se c = 14 toca "t04.wav"
Se c = 14 Soma c 8
Se C = 15 toca "t05.wav"
Se C = 16 toca "t06.mp3"
Se C = 17 toca "t07.mp3"
Se C = 18 toca "t08.mp3"
Se C = 19 toca "t09.mp3"
Se C = 20 toca "t10.mp3"
Se c = 21 toca "t01.wav"
Se c = 22 toca "t02.wav"
Se c = 23 toca "t03.wav"
Se c = 24 Escreve "A caldeira precisa de água. Volte ao quilómetro 13."
Se c = 24 toca "t04.wav"
Se c = 24 Subtrai c 11
Se c = 25 toca "t05.wav"
Se c = 26 toca "t06.mp3"
Se c = 27 toca "t07.mp3"
Se c = 28 toca "t08.mp3"
Se c = 29 toca "t09.mp3"
Se c = 30 Escreve "A caldeira tá sem vapor. Volte pro quilómetro 27."
Se c = 30 toca "t10.mp3"
Se c = 30 Subtrai c 3
Se c = 31 toca "t01.wav"
Se c = 32 toca "t02.wav"
Se c = 33 escreve "Descendo a colina é mole. Avance 5 quilómetros."
se c = 33 toca "t03.wav"
Se c = 33 Soma c 5
se c = 34 toca "t04.wav"
se c = 35 toca "t05.wav"
se c = 36 toca "t06.mp3"
Se c = 37 escreve "Vc pôs lenha na fornalha. Avance 3 quilómetros."
Se c = 37 toca "t07.mp3"
Se c = 37 Soma c 3
Se c = 38 toca "t08.mp3"
Se c = 39 escreve "A caldeira tá perdendo vapor. Volte 4 quilómetros. "
Se c = 39 toca "t09.mp3"
Se c = 39 Subtrai c 4
Se c = 40 toca "t10.mp3"
Se c = 41 toca "t01.wav"
Se c = 42 toca "t02.wav"
Se c = 43 toca "t03.wav"
Se c = 44 escreve "Tem mais vapor na caldeira. Avance 4 quilómetros."
Se c = 44 toca "t04.wav"
Se c = 44 Soma c 4
Se c = 45 escreve "Você é excelente maquinista. Avance 16 quilómetros."
Se c = 45 toca "t05.wav"
Se c = 45 Soma c 16
Se c = 46 escreve "A terra  cobriu os trilhos. Volte 10 quilómetros."
Se c = 46 toca "avalanche.wav"
Se c = 46 Subtrai c 10
Se c = 47 toca "t07.mp3"
Se c = 48 escreve "Você tá indo bem. Avance 4 quilómetros."
Se c = 48 toca "t08.mp3"
Se c = 48 Soma c 4
Se c = 49 toca "t09.mp3"
Se c = 50 escreve "A ponte foi explodida. Volte 30 quilómetros."
Se c = 50 Toca "explode.mp3"
Se c = 50 subtrai c 30
Se c = 51 escreve "Vc conseguiu fugir dos índios. Avance 8 quilómetros."
Se c = 51 toca "apa.wav"
Se c = 51 Soma c 8
Se c = 52 toca "t02.wav"
Se c = 53 toca "t03.wav"
Se c = 54 toca "t04.wav"
Se c = 55 toca "t05.wav"
Se c = 56 escreve "Os Apa Axés atacam seu trem. Volte 7 quilómetros."
Se c = 56 toca "indios.wav"
Se c = 56 Subtrai c 7
Se c = 57 escreve "Trilhos livres à frente. Avance 6 quilómetros."
Se c = 57 toca "t07.mp3"
Se c = 57 Soma c 6
Se c = 58 toca "t08.mp3"
Se c = 59 toca "t09.mp3"
Se c = 60 escreve "Um dos vagões soltou-se. Volte 6 quilómetros."
Se c = 60 toca "t10.mp3"
Se c = 60 Subtrai c 6
Se c = 61 toca "t01.wav"
Se c = 62 toca "t02.wav"
Se c = 63 escreve "Você escapou dos bandidos. Avance 7 quilómetros."
Se c = 63 Toca "tiros.mp3"
Se c = 63 Soma c 7
Se c = 64 toca "t04.wav"
Se c = 65 toca "t05.wav"
Se c = 66 toca "t06.mp3"
Se c = 67 toca "t07.mp3"
Se c = 68 escreve "Um vagão descarrilou. Volte 14 quilómetros."
Se c = 68 toca "t08.mp3"
Se c = 68 Subtrai c 14
Se c = 69 toca "t09.mp3"
Se c = 60 toca "t10.mp3"
Se c = 71 toca "t01.wav"
Se c = 72 escreve "Toda força para frente. Avance 6 quilómetros."
Se c = 72 toca "t02.wav"
Se c = 72 Soma c 6
Se c = 73 toca "t03.wav"
Se c = 74 toca "t04.wav"
Se c = 75 toca "t05.wav"
Se c = 76 toca "t06.mp3"
Se c = 77 escreve "A caldeira tem muita pressão. Volte 13 quilómetros."
Se c = 77 toca "t07.mp3"
Se c = 77 Subtrai c 13
Se c = 78 toca "t08.mp3"
Se c = 79 toca "t09.mp3"
Se c = 80 escreve "Espere a fornalha aquecer mais. Volte 15 quilómetros."
Se c = 80 toca "t10.mp3"
Se c = 80 Subtrai c 15
Se c = 81 escreve "A viagem está ótima. Avance 6 quilómetros."
Se c = 81 toca "t01.wav"
Se c = 81 Soma c 6
Se c = 82 toca "t02.wav"
Se c = 83 toca "t03.wav"
Se c = 84 toca "t04.wav"
Se c = 85 toca "t05.wav"
Se c = 86 toca "t06.mp3"
Se c = 87 toca "t07.mp3"
Se c = 88 escreve "Trilho solto à frente. Volte 5 quilómetros."
Se c = 88 toca "t08.mp3"
Se c = 88 Subtrai c 5
Se c = 89 toca "t09.mp3"
Se c = 90 escreve "Sua Maria-Fumaça tá voando. Avance 7 quilómetros."
Se c = 90 toca "t10.mp3"
Se c = 90 Soma c 7
Se c = 91 toca "t01.wav"
Se c = 92 toca "t02.wav"
Se c = 93 toca "t03.wav"
Se c = 94 toca "t04.wav"
Se c = 95 escreve "Cinco vagões descarrilaram. Volte 13 quilómetros."
Se c = 95 toca "t05.wav"
Se c = 95 Subtrai c 13
Se c = 96 escreve "Você já avistou Voxlandia. Avance 2 quilómetros."
Se c = 96 toca "t06.mp3"
Se c = 96 Soma c 2
Se c = 97 toca "t07.mp3"
Se c = 98 toca "t08.mp3"
Se c = 99 escreve "A ponte tá ruindo. Cuidado. Volte 16 quilómetros."
Se c = 99 Toca "ruindo.wav"
Se c = 99 Subtrai c 16
*Fim da viagem
Escreve ""
Fim enquanto
Se c >= 100 escreve ""$nome" chegou em Voxlandia. Já pode descansar."
Se c >= 100 toca "chegada.mp3"
seja w tempo
subtrai w k
Divide w 100
escreve "Seu tempo de viagem: "w" Segundos."
seja k tempo
Repete z 5
*Bipa
Fim repete
@opçao
Escreve "Você deseja jogar novamente? Sim ou não?"
Le y&
Se y = "s"
Escreve "Zerando o tabuleiro."
Seja c "0"
*Bipa
*Bipa
Escreve "Zerando o tempo."
*Bipa
*Bipa
Desvia @mesmomaquinista
Senão
Se y = "n"
Desvia @saida
Senão
Escreve "Opção inválida. Tecle S ou N."
Desvia @opçao
Fim se
Escreve ""
@mesmomaquinista
Escreve "O maquinista será o mesmo? Sim ou não?"
Le y&
Se y = "s" Desvia @inicio
Se y = "n" Desvia @nomemaquinista
Escreve "Opção inválida. Tecle S ou N."
Desvia @mesmomaquinista
@saida
Escreve "Foi um prazer curtir esta viagem contigo."
toca "fim.mp3
Termina mudo
