Hangman

[cdkid]

I have a quick question.

I'm making a hangman game & I need a way to check constantly for any letter being pressed. This is my code so far (I'm gonna neaten it up & make some changes, this is kinda the rough draft)

expandcollapse popup

dim $words[79] = ["Apple","Oderberg","accomplishments","advisee","aloes","antigens","arrives","audiologist","banally","beetles", _
"biscuits","bonus","brindle","buttock's","cathode","choring","codification's","compounder","consulate's","counsel's","culmination", _
"decompile","derivable","diplomat","distill","drum's","embellishes","equate","expectations","father's","flickered","frailer","gem", _
"grange","handbooks","hijacker","hustles","inaudible","infuriates","interferer","jaunty","landmark","likings","lynx's","mead", _
"miracle's","mousing","niches","offensive","overnighters","paten","pewter","pocketbook","prejudged","promulgation","quarries", _
"realm","refelled","renounces","restroom's","rods","saying","semaphores","shrewdest","slicker","southing","stallings","strengthening", _
"sulkies","system","testifiers","tomb","trigonometry","unchallenged","unjamming","updater","village's","webs","wordiness"]
#include <Misc.au3>
Global $TheWord, $MainGui, $letters[1], $play = false

SplashImageOn("HangMan v1.0 By Cdkid", @scriptdir & "\hangman.gif")
global $l = 50, $t = 300
Splashoff()
$MainGui = GuiCreate("Hangman!")
GuiSetState()
GuiSetBkColor(0x9C6Cf3)

$infolabel = GuiCtrlCreateLabel("The classic HangMan game, use your keyboard to guess letters." & @crlf &  @tab & @tab & "Click `Help` for more info.", 50, 10)
$solve = GuiCtrlCreateButton("Solve", 0, 0)
$play = GuiCtrlCreateButton("Play!", 10, 100, 100, 30)
$quit = GuiCtrlCreateButton("Quit.", 10, 150, 100, 30)
$help = GuiCtrlCreateButton("Help", 10, 200, 100, 30)
While 1
    #region - GUI SwitchLoop
        Switch GUIGetMsg()
            Case -3
                Exit
            case $solve
                _Solve()
            Case $help
                MsgBox(0, "Help", "This is the traditional hangman game, press letters on your keyboard to guess a letter. You get 9 chances. Press Hint to" & _
                "get the first letter of the word, but also add one more body part. SAVE THE HANGMAN!")
            Case $quit
                Exit
            Case $play
                _BeginHangMan()
        EndSwitch
    #endregion
WEnd

Func _BeginHangMan()
    $play = true
    $l = 10
    GuiCtrlDelete($play)
    GuiCtrlDelete($help)
    GuiCtrlDelete($quit)
    GuiCtrlDelete($infolabel)
    
    $theword = $words[Random(0, 78, 1)]
    redim $letters[StringLen($TheWord) + 1][2]
    For $i = 1 to StringLen($TheWord)
        If StringMid($TheWord, $i, 1) = "'" Then
            GuiCtrlCreateLabel("'", $l, $t)
            $l = $l + 20
        ElseIf StringMid($TheWord, $i, 1) = " " Then
            guictrlcreatelabel("(SPACE)",$l, $t)
            $l = $l + 20
        Else
            
            $letters[$i][0] = guictrlcreatelabel("____", $l, $t, 15, 20)
            $letters[$i][1] = StringMid($TheWord, $i, 1)
            GuiCtrlSetBkColor(-1, 0xFFFFFF)
             
            $l = $l + 20
        EndIf
    Next
EndFunc

Func _Solve()
    for $i = 0 to UBound($letters, 1) - 1
        GuiCtrlSetData($letters[$i][0], $letters[$i][1])
    Next
    sleep(5000)
    for $i = 0 to UBound($letters, 1) - 1
        GuiCtrlDelete($letters[$i][0])
    Next
    _BeginHangMan()
EndFunc

EDIT:

Sorry, nevermind I found my problem... disregard this post

Edited May 25, 2006 by cdkid