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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115 | With Ada.Text_IO; Use Ada.Text_IO;
With Ada.integer_text_io;
With Ada.Characters.Handling; Use Ada.Characters.Handling;
With Ada.Strings.Unbounded; Use Ada.Strings.Unbounded;
With Ada.Strings.Maps; Use Ada.Strings.Maps;
With Ada.Text_IO.Unbounded_IO; Use Ada.Text_IO.Unbounded_IO;
With Ada.Numerics.Discrete_Random;
With ada.io_exceptions;
With hangman; Use hangman;
Procedure hangmain is
--VARIABLES--
WordList: List_Type;
response : character := 'y';
guess : character;
MAXWRONG : constant integer := 6;
MAXCOR : integer := 0;
CorCount : integer := 0;
CorPrev : integer:= 0;
Wrongcount: integer:= 0;
Wrongprev : integer := 0;
totalcount: integer:= 0;
CurrWord: Unbounded_String;
GuessStack: SType(26);
Type showWord is Array(Positive Range <>) of Character;
DispWord : showWord(1..100);
CorrectWord: showWord(1..100);
Man : ManArray;
Begin
--- INITIALIZE GUESSES ---
InitList(WordList);
--WELCOME TO HANGMAN--
Put("***** W E L C O M E T O H A N G M A N *****");
New_Line;
Put(" By: Jon Hollan, Mark Hoffman, & Brandon Ball");
New_Line;
New_Line;
while (response = 'y') OR (response = 'Y') loop
StackInit(GuessStack);
CurrWord:= GetWord(WordList);
MAXCOR:= Length(CurrWord);
for i in 1..MAXCOR loop
DispWord(i) := '-';
end loop;
for i in 1..MAXCOR loop
CorrectWord(i):= Element(CurrWord, i);
end loop;
--- START THE ROUND ---
--while(CorCount /= MAXCOR) OR (WrongCount /= MAXWRONG) loop
loop
Wrongprev:= Wrongcount;
CorPrev := CorCount;
Man:= CreateMan(Wrongcount);
DrawMan(Man);
New_Line;
for i in 1..MAXCOR loop
Put(DispWord(i));
End loop;
New_Line;
Put("Guesses: ");
Print(GuessStack);
New_Line;
Put("Enter Guess: ");
get(guess);
Push(GuessStack, guess);
for i in 1..MAXCOR loop
if (guess = CorrectWord(i)) Then
DispWord(i) := CorrectWord(i);
CorCount:= CorCount + 1;
end if;
end loop;
if (CorCount = CorPrev) Then
WrongCount := WrongCount + 1;
end if;
ShowMessage(Wrongcount, Wrongprev);
New_Line;
New_Line;
exit when (CorCount = MAXCOR);
exit when (WrongCount = MAXWRONG);
end loop;
if (Wrongcount = MAXWRONG) Then
Man:= CreateMan(WrongCount);
DrawMan(Man);
Put("The correct word was ");
Put(Item => CurrWord);
New_Line;
Put("Would you like to play again? y/n: ");
Get(response);
end if;
if (CorCount = MAXCOR) Then
Put("Congratulations! YOU WON!");
New_Line;
Put("The correct word was ");
Put(Item => CurrWord);
New_Line;
Put("Would you like to play again? y/n: ");
Get(response);
end if;
totalcount:= WrongCount + CorCount;
WrongCount:= 0;
CorCount := 0;
end loop;
end hangmain;
|