Kodewerx

REM Edgar Baez, Hangman, 1/12/07

Option Explicit
Dim stralpha As String
Const conLeftC As Integer = 270
Const conNumw As Integer = 50
Const conHung As Integer = 5
Dim strwordbank() As String
Dim intchoice As Integer
Dim intlength As Integer
Dim intnumpicked As Integer
Dim blnGameOver As Boolean
Dim intNextStep As Integer
Dim blnNomatch As Boolean
Dim strletter As String
Dim multi As Boolean
Dim playerword As String



Private Sub cmd2P_Click()
MsgBox "Two player mode is now on, select New Word to Start.", vbOKOnly, "Multiplayer!"
multi = True
End Sub

Private Sub PlayerInput()
playerword = InputBox("Player One Will Enter Word ... in all lowercase letters, Player Two Will Guess, No Peeking!", "2 Player Mode!")
multi = True
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdNewWord_Click()
Dim i As Integer
If multi = True Then
Call PlayerInput
End If
Call NewGame
Call setupwordbank
Call ChooseWord
For i = 0 To 25
lblAlphabet(i).Visible = True
Next i
End Sub


Private Sub NewGame()
Dim i As Integer
For i = 0 To 25
lblAlphabet(i).Caption = Mid(stralpha, i + 1, 1)
lblAlphabet(i).Visible = True
lblAlphabet(i).Enabled = True
Next i
blnGameOver = False
intNextStep = 0
intnumpicked = 0
lblmessage.Caption = "click a letter to select"
imgscene.Picture = imgstorage.Picture
End Sub

Private Sub ChooseWord()
Dim strCap As String
Dim i As Integer
Call setupwordbank
Randomize
intchoice = Int(conNumw * Rnd)
If multi = False Then
intlength = Len(strwordbank(intchoice))
Else
intlength = Len(playerword)
End If
strCap = ""
For i = 1 To intlength
strCap = strCap & "-"
Next i
lblHiddenPlace.Caption = strCap
End Sub


Private Sub Form_Load()
Dim i As Integer
stralpha = "abcdefghijklmnopqrstuvwxyz"
For i = 1 To 25
Load lblAlphabet(i)
lblAlphabet(i).Left = lblAlphabet(i).Left + i * conLeftC
lblAlphabet(i).Caption = Mid(stralpha, i + 1, 1)
lblAlphabet(i).Visible = True
Next i

End Sub

Private Sub setupwordbank()
ReDim strwordbank(conNumw)
strwordbank(0) = "movie"
strwordbank(1) = "quixotic"
strwordbank(2) = "muon"
strwordbank(3) = "sillygoose"
strwordbank(4) = "lamprey"
strwordbank(5) = "popcorn"
strwordbank(6) = "computer"
strwordbank(7) = "thunder"
strwordbank(8) = "corporation"
strwordbank(9) = "combustable"
strwordbank(10) = "medication"
strwordbank(11) = "soothing"
strwordbank(12) = "vocalist"
strwordbank(13) = "negative"
strwordbank(14) = "gesticulate"
strwordbank(15) = "neutrality"
strwordbank(16) = "resistance"
strwordbank(17) = "sensitive"
strwordbank(18) = "discourse"
strwordbank(19) = "reprehensible"
strwordbank(20) = "potent"
strwordbank(21) = "astute"
strwordbank(22) = "ideal"
strwordbank(23) = "aesthetic"
strwordbank(24) = "scrub"
strwordbank(25) = "impeach"
End Sub


Private Sub Form_Click()
If blnGameOver Then
MsgBox "Game Over"
Else
MsgBox "You have clicked a blank. Pick a new letter."
End If
End Sub



Private Sub lblAlphabet_Click(Index As Integer)
Dim i As Integer
If blnGameOver = True Then
MsgBox "The game is already over, please select new game to select a new word."
Else
blnNomatch = True
lblAlphabet(Index).Visible = False
If multi = False Then
For i = 1 To intlength
strletter = Mid(strwordbank(intchoice), i, 1)
If strletter = lblAlphabet(Index).Caption Then
intnumpicked = intnumpicked + 1
blnNomatch = False
lblHiddenPlace.Caption = Left(lblHiddenPlace.Caption, i - 1) & strletter & Right(lblHiddenPlace.Caption, intlength - i)
End If
Next i
Else
For i = 1 To intlength
strletter = Mid(playerword, i, 1)
If strletter = lblAlphabet(Index).Caption Then
intnumpicked = intnumpicked + 1
blnNomatch = False
lblHiddenPlace.Caption = Left(lblHiddenPlace.Caption, i - 1) & strletter & Right(lblHiddenPlace.Caption, intlength - i)
End If
Next i


If intnumpicked = intlength Then
lblmessage.Caption = "YOU WIN!"
blnGameOver = True
Else
If blnNomatch = True Then
imgscene.Picture = imghangman(intNextStep).Picture
intNextStep = intNextStep + 1
If intNextStep = conHung Then
lblmessage.Caption = "YOU LOSE!"
blnGameOver = True
lblHiddenPlace.Caption = playerword
End If
End If
End If
End If
End If
End Sub

The only change is that a cut down the wordbank for the size of saving space and no real need for the other words.

Again, any help is appreciated.

Now I am having a hard time figuring out how I can get the program to randomly choose a letter that is correct and hasn't been chosen yet. Some hints, clues, pseudocode or code would be appreciated.