Module Module1
'This program displays the word Computer as C ------ r and asks the user
'To guess letters. Each time you correctly guess the letter appears in the corresponding position
'Every time you make a mistake loses an opportunity-life.
'The game ends when either guess all the letters or zero opportunities-lives of the user
Public zoes As Byte 'The variable opportunities, lives the player has
Public ans As String
Public ans2 As String
Public pointspl1 As Integer
Public pointspl2 As Integer
Public complete As Integer
Public turn As String
Public t As String
Sub Main ()
Do
Console.writeline ("---------- HAngMAn ---------- ")
Dim Pl1 As String
Dim Pl2 As String
Dim word As String 'Initialize the secret word Computer
Dim display As String 'Create the word that appears in the user
Dim letter As String
console.writeline ("")
console.writeline ("Give me the name of the first player:")
Pl1 = console.readline ()
console.writeline ("")
console.writeline ("Give me the name of the second player:")
Pl2 = console.readline ()
Do
console.writeline ("")
console.writeline ("Who will give the word? (1 for player1 and 2 for player2)")
Do
t = console.readline
Loop Until t = 1 Or t = 2
If t = 1 Then
turn = Pl1
ElseIf t = 2 Then
turn = Pl2
End If
Do
console.writeline ("")
Console.WriteLine ("it's your turn player:" & turn)
If word <> "end" Or word <> "End" Then
console.writeline ("")
Console.Writeline ("Please enter keyword")
word = Console.ReadLine ()
display = MakeDisplay (word)
End If
zoes = Len (word) - 2 'Specify number of attempts, many lives are hidden words
complete = Len (word) - 2
Do
console.writeline ("")
Console.WriteLine ("Give a timetable for the word" & display)
letter = Console.ReadLine
Call FindLetters (word, letter, display, pointspl1, pointspl2)
Loop Until (word = display) Or zoes = 0 'This will be repeated until the word word be the same
'With the word display, ie the player to guess completely unknown word or to
'Life-chances are the player to run out
Loop Until (word = display) Or zoes = 0
console.writeline ("")
console.writeline ("Want another match?:")
ans = Console.ReadLine ()
Loop Until ans = "No"
console.writeline ("End")
console.writeline ("points" & Pl1 & ":" & pointspl1)
console.writeline ("points" & Pl1 & ":" & pointspl2)
If pointspl1> pointspl2 Then
Console.writeline ("The Winner is:" & Pl1)
Else
console.writeline ("The Winner is:" & Pl2)
End If
console.writeline ("")
console.writeline ("Want another Game?:")
ans2 = Console.ReadLine ()
Loop Until ans2 = "No"
End Sub
Public Function MakeDisplay (ByVal w As String) As String 'He makes the word of the gallows with the intermediate paflitses
Dim display As String, c As Byte
display = Left (w, 1)
For c = 2 To Len (w) - 1
display = display & "-"
Next
display = display & Right (w, 1)
Return display
End Function
Public Sub FindLetters (ByVal w As String, ByVal letter As String, ByRef display As String, ByVal pointspl1 As Integer, ByVal pointspl2 As Integer)
'Looking to find the letter in the word w and sets the current display, depending
'Also, if you do not find the character letter in the word w then reduces the lives of the player by 1
Dim c As Byte, found As Boolean
found = False 'flag is true when the letter letter found in the word w
For c = 2 To Len (w) - 1
If Mid (w, c, 1) = letter Then
display = Left (display, c - 1) & letter & Right (display, Len (display) - c)
'The new display is made by joining pieces: left (to position the letter letter)
'The letter letter found and
'The right (taking characters from the end of the word display letter by letter
found = True
complete = complete - 1
If t = 1 Then
pointspl2 = pointspl2 + 10
ElseIf t = 2 Then
pointspl1 = pointspl1 + 10
End If
End If
Next
If Not found Then
Console.WriteLine ("