i want some help i have this progamm and i want to add points when a letter is found 10 points PLZ HELP ME! i also want to make it for two players
Module Module1
Public zoes As Byte
Sub Main ()
Dim un As String
un = Console.ReadLine()
Dim word As String = un
Dim word As String 'Initialize the secret word Computer
Dim display As String = MakeDisplay (word)
Dim letter As String
If word <> "end" Or word <> "End" Then
Console.Write ("Please enter keyword")
word = Console.ReadLine ()
End If
zoes = Len (word) - 2 '
Do
Console.WriteLine ("Give a timetable for the word" & display)
letter = Console.ReadLine
Call FindLetters (word, letter, display)
Loop Until (word = display) Or zoes = 0
Console.ReadLine ()
End Sub
Public Function MakeDisplay (ByVal w As String) As String
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)
Dim c As Byte, found As Boolean
found = False
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)
found = True
End If
Next
If Not found Then
Console.WriteLine ("There is the letter" & letter)
zoes -= 1
Else
Console.WriteLine ("Good Guessing the letter" & letter)
End If
Console.WriteLine ("Do you still" & zoes & "lives!")
If zoes = 0 Then Console.WriteLine ("Sorry you lost! The game will end!")
End Sub
End Module
