forked from BecoSystems/poli-prog1-advtxt-exn-adventuretxt
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathex11.gpt
98 lines (74 loc) · 3.76 KB
/
ex11.gpt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
/***************************************************************************
* exN.gpt Version 20240425.130227 *
* *
* Adventure Text *
* Copyright (C) 2024 by Ruben Carlo Benante *
***************************************************************************
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; version 2 of the License. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
* GNU General Public License for more details. *
* *
* You should have received a copy of the GNU General Public License *
* along with this program; if not, write to the *
* Free Software Foundation, Inc., *
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
***************************************************************************
* To contact the author, please write to: *
* Ruben Carlo Benante *
* Email: [email protected] *
* Webpage: http://www.beco.cc *
* Phone: +55 (81) 3184-7555 *
***************************************************************************/
/*
* Instrucoes para compilar:
* $gpt exN.gpt -o exN.gpt.x
*/
/* ---------------------------------------------------------------------- */
/* algoritmo */
algoritmo shrek;
variáveis
select : literal;
select2 : literal;
fim-variáveis
início
imprima ("Você,Shrek,foi traído e teve que voltar para o pântano");
imprima ("De sua casa você ouve um barulho estranho e decide entrar");
imprima ("Em frente a sua casa há uma lanterna(1) e uma faca(2)");
imprima ("Decida qual dos dois tomar");
select :=leia();
enquanto (select<>"1" e select<>"2") faça
imprima("Digite 1 ou 2: ");
select :=leia();
fim-enquanto
se (select="1") então
imprima("A casa está escura, você prontamente liga sua lanterna e encontra seu querido amigo,burro.");
imprima("Você vai em direção ao burro, ele lhe sugere sair para passear, você começa a pensar se vai(1) ou não(2).");
select2 :=leia();
enquanto (select2<>"1" e select2<>"2") faça
imprima("Digite 1 ou 2: ");
select2 :=leia();
fim-enquanto
se (select2="1") então
imprima("No meio do seu lindo passeio, um grupo de caçadores os veem");
imprima("Vocêse prepara, mas leva uma bofetada da Fiona que estava entre eles, irritada com o divórcio");
imprima("Você é morto. | DERROTA |");
fim-se
se (select2="2") então
imprima("Você diz não, então os dois decidem relaxar e conversar em casa");
imprima("Derrepente uma ogra encantada chamada Lorena bate na porta");
imprima("Encontra você e voce se apaixona");
imprima("Vocês se casam | VITÓRIA |");
imprima("Parabens, você ganhou!!");
fim-se
fim-se
se (select="2") então
imprima("A casa está escura, você ouve um barulho de algo se aproximando e ataca com sua faca.");
imprima("Descobrindo tarde demais que era seu amigo, burro!");
imprima("Você entra em desespero e infarta ali mesmo. | DERROTA |");
fim-se
fim