Jump to content

LiquidNitrogen

Active Members
  • Posts

    75
  • Joined

  • Last visited

About LiquidNitrogen

  • Birthday 02/06/1995

Profile Information

  • Location
    Georgia
  • Interests
    Cars, Girls

Recent Profile Visitors

275 profile views

LiquidNitrogen's Achievements

Wayfarer

Wayfarer (2/7)

3

Reputation

  1. Are there functions to hex edit files with autoit? I searched but couldn't find any
  2. Yeah. Thanks for the advice and I'll work on my variable declaration.
  3. I've never used that with groups before. How is this different.
  4. I'm looking and I don't see where I forgot to close the group. And I'm not getting any syntax errors.
  5. But why is there recursion when the new game button has to be clicked to even open the confirmation msg box?
  6. I made a game similar to hangman a while back and it worked good until I added an in-game virtual keyboard. Now when you have the option selected to use the keyboard it goes into a msg box loop with a msg box in the function with the keyboard. I've tried different things but can't fix it. Can you help? Note: if u test it out you can't use the random word feature because you don't have the dictionary.txt and the spaces for letters won't be in the game because you don't have the image. Hopefully that doesn't cause an error. #NoTrayIcon #include <GUIConstantsEx.au3> #include <EditConstants.au3> #include <WindowsConstants.au3> #include <File.au3> #include <String.au3> NewGame() WordGuess() Winner() Func NewGame() Dim $Line Global $Clue = "" Global $DictLine = 0 Global $ClueEnabled = 0 Global $Main = GUICreate("Word Guess v3.0", 260, 200, -1, -1) ;Word Box ========================================================= GUICtrlCreateLabel("Word:", 30, 20) Global $WordBox = GUICtrlCreateInput("", 65, 19, 160, 18) GUICtrlSetLimit(-1, 12) ;Game Options ========================================================== GUICtrlCreateGroup("Game Options", 10, 50, 240, 105) ;Random Word Option =============================================== Global $RandWord = GUICtrlCreateCheckbox("Use Random Word", 45, 85) $Randomize = GUICtrlCreateButton("Randomize", 160, 88, 60, 15) GUICtrlSetFont(-1, 7) GUICtrlSetState($Randomize, $GUI_DISABLE) GUICtrlSetLimit(-1, 12) GUICtrlSetStyle($WordBox, $ES_PASSWORD) ;Allow Solved Option ============================================= Global $AllowSolved = GUICtrlCreateCheckbox("Allow Word to Be Solved", 45, 65) GUICtrlSetState($AllowSolved, $GUI_CHECKED) ;Clues Option ===================================================== Global $EnableClue = GUICtrlCreateCheckbox("Give a Clue", 45, 105) $SetClue = GUICtrlCreateButton("Set the Clue", 120, 109, 60, 15) GUICtrlSetFont(-1, 7) GUICtrlSetState($SetClue, $GUI_DISABLE) ;Virtual Keyboard Option ========================================== Global $VK_OPT = GUICtrlCreateCheckbox("Use Virtual Keyboard", 45, 125) ;Buttons (Bottom) ================================================= $Begin = GUICtrlCreateButton("Begin", 95, 160, 70, 30) $About = GUICtrlCreateButton("About", 10, 160, 70, 30) $Exit = GUICtrlCreateButton("Exit", 180, 160, 70, 30) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Exit Exit Case $About MsgBox(0, "About Word Guess", "Word Guess v3.0" & @LF & @LF & "Created By LiquidNitrogen (C) 2012-2013") Case $Begin If BitAND(GUICtrlRead($RandWord), $GUI_CHECKED) = $GUI_CHECKED Then Global $Word = GUICtrlRead($WordBox) GUISetState(@SW_HIDE) WordGuess() EndIf If StringInStr(GUICtrlRead($WordBox), Chr(32)) Then MsgBox(16, "Error!", "No Spaces Allowed!") GUIDelete() NewGame() EndIf If StringLen(GUICtrlRead($WordBox)) = 0 Then MsgBox(16, "Error!", "Make Sure You Type In a Word!") GUIDelete() NewGame() EndIf If StringIsAlpha(GUICtrlRead($WordBox)) = 0 Then MsgBox(16, "Error!", "Only Letters Are Allowed!") GUIDelete() NewGame() EndIf If StringLen(GUICtrlRead($WordBox)) < 3 Then MsgBox(16, "Error!", "The word must have atleast 3 letters!") GUIDelete() NewGame() EndIf GUISetState(@SW_HIDE) WordGuess() Case $RandWord If Not FileExists("dictionary.txt") Then MsgBox(64, "Error", "'Dictionary.txt' Could not be found!") GUICtrlSetState($RandWord, $GUI_UNCHECKED) Else If BitOR(GUICtrlRead($RandWord), $GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetState($Randomize, $GUI_ENABLE) ;Disable Word Clues ========================== GUICtrlSetState($EnableClue, $GUI_UNCHECKED) GUICtrlSetState($EnableClue, $GUI_DISABLE) GUICtrlSetState($SetClue, $GUI_DISABLE) Global $ClueEnabled = 0 $Clue = "" ;============================================= ControlDisable("", "", $WordBox) GUICtrlSetData($WordBox, "") _FileReadToArray("dictionary.txt", $Line) $RandLine = Random(1, $Line[0], 1) Global $DictLine = $RandLine Global $Word = FileReadLine("dictionary.txt", $RandLine) GUICtrlSetData($WordBox, _StringRepeat("*", StringLen($Word))) EndIf If BitOR(GUICtrlRead($RandWord), $GUI_UNCHECKED) = $GUI_UNCHECKED Then GUICtrlSetState($Randomize, $GUI_DISABLE) ;Enable Word Clues =========================== GUICtrlSetState($EnableClue, $GUI_ENABLE) GUICtrlSetState($SetClue, $GUI_ENABLE) Global $ClueEnabled = 0 ;============================================= ControlEnable("", "", $WordBox) GUICtrlSetData($WordBox, "") $Word = "" EndIf EndIf Case $Randomize _FileReadToArray("dictionary.txt", $Line) $RandLine = Random(1, $Line[0], 1) Global $DictLine = $RandLine Global $Word = FileReadLine("dictionary.txt", $RandLine) GUICtrlSetData($WordBox, _StringRepeat("*", StringLen($Word))) Case $EnableClue If BitOR(GUICtrlRead($EnableClue), $GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetState($SetClue, $GUI_ENABLE) Global $ClueEnabled = 1 EndIf If BitOR(GUICtrlRead($EnableClue), $GUI_UNCHECKED) = $GUI_UNCHECKED Then GUICtrlSetState($SetClue, $GUI_DISABLE) Global $ClueEnabled = 0 EndIf Case $SetClue $Clue = InputBox("Clue", "Enter a clue for Player 2.") If Not @error Then If StringIsSpace($Clue) Or $Clue = "" Then MsgBox(16, "Error!", "You need to enter a clue!") $Clue = "" EndIf EndIf EndSwitch WEnd EndFunc ;==>NewGame Func WordGuess() Global $DictLine, $AllowSolved, $RandWord, $WordBox, $Clue, $ClueEnabled, $VK_OPT GUICreate("Word Guess", 300, 280) GUICtrlCreateLabel("Mistake Meter", 110, 50) If Not $DictLine = 0 Then ;Bug Fix! Local $Word = FileReadLine("dictionary.txt", $DictLine) Else Local $Word = GUICtrlRead($WordBox) EndIf ;Create Other Controls =============================================== Local $NewGame = GUICtrlCreateButton("New Game", 230, 0, 70, 20) Local $Exit = GUICtrlCreateButton("Exit", 230, 20, 70, 20) $MistakeMeter = GUICtrlCreateProgress(20, 70, 260, 30) ;===================================================================== Local $Guess, $Solve, $ClueEnabled = 0, $ClueButton, $LettersUsed, $Letter ;Check whether to use Virtual Keyboard or not ========================================================================== If BitOR(GUICtrlRead($VK_OPT), $GUI_UNCHECKED) = $GUI_UNCHECKED Then GUICtrlCreateLabel("Letter to Guess:", 30, 190) $Letter = GUICtrlCreateInput("", 110, 189, 23, 18, $ES_LOWERCASE) GUICtrlSetLimit($Letter, 1) ;Guess and Solve Buttons ====================================================================== $Guess = GUICtrlCreateButton("Guess", 160, 188, 50, 20) $Solve = GUICtrlCreateButton("Solve", 210, 188, 50, 20) If BitAND(GUICtrlRead($AllowSolved), $GUI_UNCHECKED) = $GUI_UNCHECKED Then GUICtrlSetState($Solve, $GUI_DISABLE) Else GUICtrlSetState($Solve, $GUI_ENABLE) EndIf ControlFocus("", "", $Letter) ;Clue Button ================================================================================= Local $ClueButton = GUICtrlCreateButton("View Clue", 160, 208, 100, 20) If $ClueEnabled = 1 Then GUICtrlSetState($ClueButton, $GUI_ENABLE) If $ClueEnabled = 0 Then GUICtrlSetState($ClueButton, $GUI_DISABLE) ;Letters Used ================================================================================= GUICtrlCreateLabel("Letters Used:", 10, 253) $LettersUsed = GUICtrlCreateInput("", 80, 250, 210, 20, BitOR($ES_READONLY, $ES_UPPERCASE)) ;=============================================================================================== EndIf If BitOR(GUICtrlRead($VK_OPT), $GUI_CHECKED) = $GUI_CHECKED Then ;Create Virtual Keyboard ======================================================================= Local $KeyW = 22 ;Key Width Local $KeyH = 22 ;Key Height ;First Row $VK_Q = GUICtrlCreateButton("Q", 25, 170, $KeyW, $KeyH) $VK_W = GUICtrlCreateButton("W", 50, 170, $KeyW, $KeyH) $VK_E = GUICtrlCreateButton("E", 75, 170, $KeyW, $KeyH) $VK_R = GUICtrlCreateButton("R", 100, 170, $KeyW, $KeyH) $VK_T = GUICtrlCreateButton("T", 125, 170, $KeyW, $KeyH) $VK_Y = GUICtrlCreateButton("Y", 150, 170, $KeyW, $KeyH) $VK_U = GUICtrlCreateButton("U", 175, 170, $KeyW, $KeyH) $VK_I = GUICtrlCreateButton("I", 200, 170, $KeyW, $KeyH) $VK_O = GUICtrlCreateButton("O", 225, 170, $KeyW, $KeyH) $VK_P = GUICtrlCreateButton("P", 250, 170, $KeyW, $KeyH) ;Second Row $VK_A = GUICtrlCreateButton("A", 35, 195, $KeyW, $KeyH) $VK_S = GUICtrlCreateButton("S", 60, 195, $KeyW, $KeyH) $VK_D = GUICtrlCreateButton("D", 85, 195, $KeyW, $KeyH) $VK_F = GUICtrlCreateButton("F", 110, 195, $KeyW, $KeyH) $VK_G = GUICtrlCreateButton("G", 135, 195, $KeyW, $KeyH) $VK_H = GUICtrlCreateButton("H", 160, 195, $KeyW, $KeyH) $VK_J = GUICtrlCreateButton("J", 185, 195, $KeyW, $KeyH) $VK_K = GUICtrlCreateButton("K", 210, 195, $KeyW, $KeyH) $VK_L = GUICtrlCreateButton("L", 235, 195, $KeyW, $KeyH) ;Third Row $VK_Z = GUICtrlCreateButton("Z", 60, 220, $KeyW, $KeyH) $VK_X = GUICtrlCreateButton("X", 85, 220, $KeyW, $KeyH) $VK_C = GUICtrlCreateButton("C", 110, 220, $KeyW, $KeyH) $VK_V = GUICtrlCreateButton("V", 135, 220, $KeyW, $KeyH) $VK_B = GUICtrlCreateButton("B", 160, 220, $KeyW, $KeyH) $VK_N = GUICtrlCreateButton("N", 185, 220, $KeyW, $KeyH) $VK_M = GUICtrlCreateButton("M", 210, 220, $KeyW, $KeyH) ;Clue Button ======================================================================================= $ClueButton = GUICtrlCreateButton("View Clue", 59, 250, 175, 20) If $ClueEnabled = 1 Then ControlEnable("", "", $ClueButton) If $ClueEnabled = 0 Then GUICtrlSetState($ClueButton, $GUI_DISABLE) ;=================================================================================================== EndIf If BitOR(GUICtrlRead($RandWord), $GUI_CHECKED) = $GUI_CHECKED Then $Base = $Word Else $Base = $Word EndIf If BitOR(GUICtrlRead($RandWord), $GUI_CHECKED) = $GUI_CHECKED Then $SpacesLeft = StringLen($Word) Else $SpacesLeft = StringLen($Base) EndIf ;Sets Spaces For Letters in the Word If StringLen($Base) = 3 Then GUICtrlCreatePic("space.jpg", 120, 150, 15, 3) GUICtrlCreatePic("space.jpg", 140, 150, 15, 3) GUICtrlCreatePic("space.jpg", 160, 150, 15, 3) $Space1Letter = GUICtrlCreateLabel("", 124, 134, 15, 14) $Space2Letter = GUICtrlCreateLabel("", 144, 134, 15, 14) $Space3Letter = GUICtrlCreateLabel("", 164, 134, 15, 14) EndIf If StringLen($Base) = 4 Then GUICtrlCreatePic("space.jpg", 110, 150, 15, 3) GUICtrlCreatePic("space.jpg", 130, 150, 15, 3) GUICtrlCreatePic("space.jpg", 150, 150, 15, 3) GUICtrlCreatePic("space.jpg", 170, 150, 15, 3) $Space1Letter = GUICtrlCreateLabel("", 114, 134, 15, 13) $Space2Letter = GUICtrlCreateLabel("", 134, 134, 15, 13) $Space3Letter = GUICtrlCreateLabel("", 154, 134, 15, 13) $Space4Letter = GUICtrlCreateLabel("", 174, 134, 15, 13) EndIf If StringLen($Base) = 5 Then GUICtrlCreatePic("space.jpg", 100, 150, 15, 3) GUICtrlCreatePic("space.jpg", 120, 150, 15, 3) GUICtrlCreatePic("space.jpg", 140, 150, 15, 3) GUICtrlCreatePic("space.jpg", 160, 150, 15, 3) GUICtrlCreatePic("space.jpg", 180, 150, 15, 3) $Space1Letter = GUICtrlCreateLabel("", 104, 134, 15, 13) $Space2Letter = GUICtrlCreateLabel("", 124, 134, 15, 13) $Space3Letter = GUICtrlCreateLabel("", 144, 134, 15, 13) $Space4Letter = GUICtrlCreateLabel("", 164, 134, 15, 13) $Space5Letter = GUICtrlCreateLabel("", 184, 134, 15, 13) EndIf If StringLen($Base) = 6 Then GUICtrlCreatePic("space.jpg", 90, 150, 15, 3) GUICtrlCreatePic("space.jpg", 110, 150, 15, 3) GUICtrlCreatePic("space.jpg", 130, 150, 15, 3) GUICtrlCreatePic("space.jpg", 150, 150, 15, 3) GUICtrlCreatePic("space.jpg", 170, 150, 15, 3) GUICtrlCreatePic("space.jpg", 190, 150, 15, 3) $Space1Letter = GUICtrlCreateLabel("", 94, 134, 15, 13) $Space2Letter = GUICtrlCreateLabel("", 114, 134, 15, 13) $Space3Letter = GUICtrlCreateLabel("", 134, 134, 15, 13) $Space4Letter = GUICtrlCreateLabel("", 154, 134, 15, 13) $Space5Letter = GUICtrlCreateLabel("", 174, 134, 15, 13) $Space6Letter = GUICtrlCreateLabel("", 194, 134, 15, 13) EndIf If StringLen($Base) = 7 Then GUICtrlCreatePic("space.jpg", 80, 150, 15, 3) GUICtrlCreatePic("space.jpg", 100, 150, 15, 3) GUICtrlCreatePic("space.jpg", 120, 150, 15, 3) GUICtrlCreatePic("space.jpg", 140, 150, 15, 3) GUICtrlCreatePic("space.jpg", 160, 150, 15, 3) GUICtrlCreatePic("space.jpg", 180, 150, 15, 3) GUICtrlCreatePic("space.jpg", 200, 150, 15, 3) $Space1Letter = GUICtrlCreateLabel("", 84, 134, 15, 13) $Space2Letter = GUICtrlCreateLabel("", 104, 134, 15, 13) $Space3Letter = GUICtrlCreateLabel("", 124, 134, 15, 13) $Space4Letter = GUICtrlCreateLabel("", 144, 134, 15, 13) $Space5Letter = GUICtrlCreateLabel("", 164, 134, 15, 13) $Space6Letter = GUICtrlCreateLabel("", 184, 134, 15, 13) $Space7Letter = GUICtrlCreateLabel("", 204, 134, 15, 13) EndIf If StringLen($Base) = 8 Then GUICtrlCreatePic("space.jpg", 70, 150, 15, 3) GUICtrlCreatePic("space.jpg", 90, 150, 15, 3) GUICtrlCreatePic("space.jpg", 110, 150, 15, 3) GUICtrlCreatePic("space.jpg", 130, 150, 15, 3) GUICtrlCreatePic("space.jpg", 150, 150, 15, 3) GUICtrlCreatePic("space.jpg", 170, 150, 15, 3) GUICtrlCreatePic("space.jpg", 190, 150, 15, 3) GUICtrlCreatePic("space.jpg", 210, 150, 15, 3) $Space1Letter = GUICtrlCreateLabel("", 74, 134, 15, 13) $Space2Letter = GUICtrlCreateLabel("", 94, 134, 15, 13) $Space3Letter = GUICtrlCreateLabel("", 114, 134, 15, 13) $Space4Letter = GUICtrlCreateLabel("", 134, 134, 15, 13) $Space5Letter = GUICtrlCreateLabel("", 154, 134, 15, 13) $Space6Letter = GUICtrlCreateLabel("", 174, 134, 15, 13) $Space7Letter = GUICtrlCreateLabel("", 194, 134, 15, 13) $Space8Letter = GUICtrlCreateLabel("", 214, 134, 15, 13) EndIf If StringLen($Base) = 9 Then GUICtrlCreatePic("space.jpg", 60, 150, 15, 3) GUICtrlCreatePic("space.jpg", 80, 150, 15, 3) GUICtrlCreatePic("space.jpg", 100, 150, 15, 3) GUICtrlCreatePic("space.jpg", 120, 150, 15, 3) GUICtrlCreatePic("space.jpg", 140, 150, 15, 3) GUICtrlCreatePic("space.jpg", 160, 150, 15, 3) GUICtrlCreatePic("space.jpg", 180, 150, 15, 3) GUICtrlCreatePic("space.jpg", 200, 150, 15, 3) GUICtrlCreatePic("space.jpg", 220, 150, 15, 3) $Space1Letter = GUICtrlCreateLabel("", 64, 134, 15, 13) $Space2Letter = GUICtrlCreateLabel("", 84, 134, 15, 13) $Space3Letter = GUICtrlCreateLabel("", 104, 134, 15, 13) $Space4Letter = GUICtrlCreateLabel("", 124, 134, 15, 13) $Space5Letter = GUICtrlCreateLabel("", 144, 134, 15, 13) $Space6Letter = GUICtrlCreateLabel("", 164, 134, 15, 13) $Space7Letter = GUICtrlCreateLabel("", 184, 134, 15, 13) $Space8Letter = GUICtrlCreateLabel("", 204, 134, 15, 13) $Space9Letter = GUICtrlCreateLabel("", 224, 134, 15, 13) EndIf If StringLen($Base) = 10 Then GUICtrlCreatePic("space.jpg", 50, 150, 15, 3) GUICtrlCreatePic("space.jpg", 70, 150, 15, 3) GUICtrlCreatePic("space.jpg", 90, 150, 15, 3) GUICtrlCreatePic("space.jpg", 110, 150, 15, 3) GUICtrlCreatePic("space.jpg", 130, 150, 15, 3) GUICtrlCreatePic("space.jpg", 150, 150, 15, 3) GUICtrlCreatePic("space.jpg", 170, 150, 15, 3) GUICtrlCreatePic("space.jpg", 190, 150, 15, 3) GUICtrlCreatePic("space.jpg", 210, 150, 15, 3) GUICtrlCreatePic("space.jpg", 230, 150, 15, 3) $Space1Letter = GUICtrlCreateLabel("", 54, 134, 15, 13) $Space2Letter = GUICtrlCreateLabel("", 74, 134, 15, 13) $Space3Letter = GUICtrlCreateLabel("", 94, 134, 15, 13) $Space4Letter = GUICtrlCreateLabel("", 114, 134, 15, 13) $Space5Letter = GUICtrlCreateLabel("", 134, 134, 15, 13) $Space6Letter = GUICtrlCreateLabel("", 154, 134, 15, 13) $Space7Letter = GUICtrlCreateLabel("", 174, 134, 15, 13) $Space8Letter = GUICtrlCreateLabel("", 194, 134, 15, 13) $Space9Letter = GUICtrlCreateLabel("", 214, 134, 15, 13) $Space10Letter = GUICtrlCreateLabel("", 234, 134, 15, 13) EndIf If StringLen($Base) = 11 Then GUICtrlCreatePic("space.jpg", 40, 150, 15, 3) GUICtrlCreatePic("space.jpg", 60, 150, 15, 3) GUICtrlCreatePic("space.jpg", 80, 150, 15, 3) GUICtrlCreatePic("space.jpg", 100, 150, 15, 3) GUICtrlCreatePic("space.jpg", 120, 150, 15, 3) GUICtrlCreatePic("space.jpg", 140, 150, 15, 3) GUICtrlCreatePic("space.jpg", 160, 150, 15, 3) GUICtrlCreatePic("space.jpg", 180, 150, 15, 3) GUICtrlCreatePic("space.jpg", 200, 150, 15, 3) GUICtrlCreatePic("space.jpg", 220, 150, 15, 3) GUICtrlCreatePic("space.jpg", 240, 150, 15, 3) $Space1Letter = GUICtrlCreateLabel("", 44, 134, 15, 13) $Space2Letter = GUICtrlCreateLabel("", 64, 134, 15, 13) $Space3Letter = GUICtrlCreateLabel("", 84, 134, 15, 13) $Space4Letter = GUICtrlCreateLabel("", 104, 134, 15, 13) $Space5Letter = GUICtrlCreateLabel("", 124, 134, 15, 13) $Space6Letter = GUICtrlCreateLabel("", 144, 134, 15, 13) $Space7Letter = GUICtrlCreateLabel("", 164, 134, 15, 13) $Space8Letter = GUICtrlCreateLabel("", 184, 134, 15, 13) $Space9Letter = GUICtrlCreateLabel("", 204, 134, 15, 13) $Space10Letter = GUICtrlCreateLabel("", 224, 134, 15, 13) $Space11Letter = GUICtrlCreateLabel("", 244, 134, 15, 13) EndIf If StringLen($Base) = 12 Then GUICtrlCreatePic("space.jpg", 30, 150, 15, 3) GUICtrlCreatePic("space.jpg", 50, 150, 15, 3) GUICtrlCreatePic("space.jpg", 70, 150, 15, 3) GUICtrlCreatePic("space.jpg", 90, 150, 15, 3) GUICtrlCreatePic("space.jpg", 110, 150, 15, 3) GUICtrlCreatePic("space.jpg", 130, 150, 15, 3) GUICtrlCreatePic("space.jpg", 150, 150, 15, 3) GUICtrlCreatePic("space.jpg", 170, 150, 15, 3) GUICtrlCreatePic("space.jpg", 190, 150, 15, 3) GUICtrlCreatePic("space.jpg", 210, 150, 15, 3) GUICtrlCreatePic("space.jpg", 230, 150, 15, 3) GUICtrlCreatePic("space.jpg", 250, 150, 15, 3) $Space1Letter = GUICtrlCreateLabel("", 34, 134, 15, 13) $Space2Letter = GUICtrlCreateLabel("", 54, 134, 15, 13) $Space3Letter = GUICtrlCreateLabel("", 74, 134, 15, 13) $Space4Letter = GUICtrlCreateLabel("", 94, 134, 15, 13) $Space5Letter = GUICtrlCreateLabel("", 114, 134, 15, 13) $Space6Letter = GUICtrlCreateLabel("", 134, 134, 15, 13) $Space7Letter = GUICtrlCreateLabel("", 154, 134, 15, 13) $Space8Letter = GUICtrlCreateLabel("", 174, 134, 15, 13) $Space9Letter = GUICtrlCreateLabel("", 194, 134, 15, 13) $Space10Letter = GUICtrlCreateLabel("", 214, 134, 15, 13) $Space11Letter = GUICtrlCreateLabel("", 234, 134, 15, 13) $Space12Letter = GUICtrlCreateLabel("", 254, 134, 15, 13) EndIf GUISetState() While 1 $xMsg = GUIGetMsg() Switch $xMsg Case -3 $Confirm = MsgBox(36, "Exit", "There is a Game In Progress. Are You Sure You Want to Exit?") If $Confirm = 6 Then Exit EndIf Case $NewGame $Confirm = MsgBox(36, "New Game", "Are You Sure You Want to Start a New Game?") If $Confirm = 6 Then GUIDelete() NewGame() EndIf Case $Exit $Confirm = MsgBox(36, "Exit", "There is a Game in Progress. Are You Sure You Want to Exit?") If $Confirm = 6 Then Exit Case $Guess If Not GUICtrlRead($Letter) = "" Or " " Then If StringLen($Base) = 1 Then If StringIsAlpha(GUICtrlRead($Letter)) Then If StringInStr($Base, GUICtrlRead($Letter)) Then GUICtrlSetData($Space1Letter, GUICtrlRead($Letter)) Winner() Else If StringInStr(GUICtrlRead($LettersUsed), GUICtrlRead($Letter)) = 0 Then GUICtrlSetData($MistakeMeter, GUICtrlRead($MistakeMeter) + 17) GUICtrlSetData($LettersUsed, GUICtrlRead($LettersUsed) & GUICtrlRead($Letter) & "-") EndIf EndIf EndIf EndIf If StringLen($Base) = 2 Then If StringIsAlpha(GUICtrlRead($Letter)) Then If StringInStr($Base, GUICtrlRead($Letter)) Then If GUICtrlRead($Space1Letter) = "" Then $WordMath = Execute(StringLen($Base) - 1) $Trim = StringTrimRight($Base, $WordMath) If $Trim = GUICtrlRead($Letter) Then GUICtrlSetData($Space1Letter, $Trim) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space2Letter) = "" Then $LeftSide = StringTrimLeft($Base, 1) If $LeftSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space2Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf Else If StringInStr(GUICtrlRead($LettersUsed), GUICtrlRead($Letter)) = 0 Then GUICtrlSetData($MistakeMeter, GUICtrlRead($MistakeMeter) + 17) GUICtrlSetData($LettersUsed, GUICtrlRead($LettersUsed) & GUICtrlRead($Letter) & "-") EndIf EndIf GUICtrlSetData($Letter, "") EndIf EndIf If StringLen($Base) = 3 Then If StringIsAlpha(GUICtrlRead($Letter)) Then If StringInStr($Base, GUICtrlRead($Letter)) Then If GUICtrlRead($Space1Letter) = "" Then $Trim = StringTrimRight($Base, 2) If $Trim = GUICtrlRead($Letter) Then GUICtrlSetData($Space1Letter, $Trim) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space2Letter) = "" Then $LeftSide = StringTrimLeft($Base, 1) $RightSide = StringTrimRight($LeftSide, 1) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space2Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space3Letter) = "" Then $LeftSide = StringTrimLeft($Base, 2) If $LeftSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space3Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf Else If StringInStr(GUICtrlRead($LettersUsed), GUICtrlRead($Letter)) = 0 Then GUICtrlSetData($MistakeMeter, GUICtrlRead($MistakeMeter) + 17) GUICtrlSetData($LettersUsed, GUICtrlRead($LettersUsed) & GUICtrlRead($Letter) & "-") EndIf EndIf GUICtrlSetData($Letter, "") EndIf EndIf If StringLen($Base) = 4 Then If StringIsAlpha(GUICtrlRead($Letter)) Then If StringInStr($Base, GUICtrlRead($Letter)) Then If GUICtrlRead($Space1Letter) = "" Then $Trim = StringTrimRight($Base, 3) If $Trim = GUICtrlRead($Letter) Then GUICtrlSetData($Space1Letter, $Trim) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space2Letter) = "" Then $LeftSide = StringTrimLeft($Base, 1) $RightSide = StringTrimRight($LeftSide, 2) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space2Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space3Letter) = "" Then $LeftSide = StringTrimLeft($Base, 2) $RightSide = StringTrimRight($LeftSide, 1) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space3Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space4Letter) = "" Then $LeftSide = StringTrimLeft($Base, 3) If $LeftSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space4Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf Else If StringInStr(GUICtrlRead($LettersUsed), GUICtrlRead($Letter)) = 0 Then GUICtrlSetData($MistakeMeter, GUICtrlRead($MistakeMeter) + 17) GUICtrlSetData($LettersUsed, GUICtrlRead($LettersUsed) & GUICtrlRead($Letter) & "-") EndIf EndIf GUICtrlSetData($Letter, "") EndIf EndIf If StringLen($Base) = 5 Then If StringIsAlpha(GUICtrlRead($Letter)) Then If StringInStr($Base, GUICtrlRead($Letter)) Then If GUICtrlRead($Space1Letter) = "" Then $Trim = StringTrimRight($Base, 4) If $Trim = GUICtrlRead($Letter) Then GUICtrlSetData($Space1Letter, $Trim) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space2Letter) = "" Then $LeftSide = StringTrimLeft($Base, 1) $RightSide = StringTrimRight($LeftSide, 3) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space2Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space3Letter) = "" Then $LeftSide = StringTrimLeft($Base, 2) $RightSide = StringTrimRight($LeftSide, 2) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space3Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space4Letter) = "" Then $LeftSide = StringTrimLeft($Base, 3) $RightSide = StringTrimRight($LeftSide, 1) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space4Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space5Letter) = "" Then $LeftSide = StringTrimLeft($Base, 4) If $LeftSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space5Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf Else If StringInStr(GUICtrlRead($LettersUsed), GUICtrlRead($Letter)) = 0 Then GUICtrlSetData($MistakeMeter, GUICtrlRead($MistakeMeter) + 17) GUICtrlSetData($LettersUsed, GUICtrlRead($LettersUsed) & GUICtrlRead($Letter) & "-") EndIf EndIf GUICtrlSetData($Letter, "") EndIf EndIf If StringLen($Base) = 6 Then If StringIsAlpha(GUICtrlRead($Letter)) Then If StringInStr($Base, GUICtrlRead($Letter)) Then If GUICtrlRead($Space1Letter) = "" Then $Trim = StringTrimRight($Base, 5) If $Trim = GUICtrlRead($Letter) Then GUICtrlSetData($Space1Letter, $Trim) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space2Letter) = "" Then $LeftSide = StringTrimLeft($Base, 1) $RightSide = StringTrimRight($LeftSide, 4) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space2Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space3Letter) = "" Then $LeftSide = StringTrimLeft($Base, 2) $RightSide = StringTrimRight($LeftSide, 3) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space3Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space4Letter) = "" Then $LeftSide = StringTrimLeft($Base, 3) $RightSide = StringTrimRight($LeftSide, 2) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space4Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space5Letter) = "" Then $LeftSide = StringTrimLeft($Base, 4) $RightSide = StringTrimRight($LeftSide, 1) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space5Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space6Letter) = "" Then $LeftSide = StringTrimLeft($Base, 5) If $LeftSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space6Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf Else If StringInStr(GUICtrlRead($LettersUsed), GUICtrlRead($Letter)) = 0 Then GUICtrlSetData($MistakeMeter, GUICtrlRead($MistakeMeter) + 17) GUICtrlSetData($LettersUsed, GUICtrlRead($LettersUsed) & GUICtrlRead($Letter) & "-") EndIf EndIf GUICtrlSetData($Letter, "") EndIf EndIf If StringLen($Base) = 7 Then If StringIsAlpha(GUICtrlRead($Letter)) Then If StringInStr($Base, GUICtrlRead($Letter)) Then If GUICtrlRead($Space1Letter) = "" Then $Trim = StringTrimRight($Base, 6) If $Trim = GUICtrlRead($Letter) Then GUICtrlSetData($Space1Letter, $Trim) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space2Letter) = "" Then $LeftSide = StringTrimLeft($Base, 1) $RightSide = StringTrimRight($LeftSide, 5) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space2Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space3Letter) = "" Then $LeftSide = StringTrimLeft($Base, 2) $RightSide = StringTrimRight($LeftSide, 4) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space3Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space4Letter) = "" Then $LeftSide = StringTrimLeft($Base, 3) $RightSide = StringTrimRight($LeftSide, 3) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space4Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space5Letter) = "" Then $LeftSide = StringTrimLeft($Base, 4) $RightSide = StringTrimRight($LeftSide, 2) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space5Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space6Letter) = "" Then $LeftSide = StringTrimLeft($Base, 5) $RightSide = StringTrimRight($LeftSide, 1) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space6Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space7Letter) = "" Then $LeftSide = StringTrimLeft($Base, 6) If $LeftSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space7Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf Else If StringInStr(GUICtrlRead($LettersUsed), GUICtrlRead($Letter)) = 0 Then GUICtrlSetData($MistakeMeter, GUICtrlRead($MistakeMeter) + 17) GUICtrlSetData($LettersUsed, GUICtrlRead($LettersUsed) & GUICtrlRead($Letter) & "-") EndIf EndIf GUICtrlSetData($Letter, "") EndIf EndIf If StringLen($Base) = 8 Then If StringIsAlpha(GUICtrlRead($Letter)) Then If StringInStr($Base, GUICtrlRead($Letter)) Then If GUICtrlRead($Space1Letter) = "" Then $Trim = StringTrimRight($Base, 7) If $Trim = GUICtrlRead($Letter) Then GUICtrlSetData($Space1Letter, $Trim) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space2Letter) = "" Then $LeftSide = StringTrimLeft($Base, 1) $RightSide = StringTrimRight($LeftSide, 6) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space2Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space3Letter) = "" Then $LeftSide = StringTrimLeft($Base, 2) $RightSide = StringTrimRight($LeftSide, 5) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space3Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space4Letter) = "" Then $LeftSide = StringTrimLeft($Base, 3) $RightSide = StringTrimRight($LeftSide, 4) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space4Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space5Letter) = "" Then $LeftSide = StringTrimLeft($Base, 4) $RightSide = StringTrimRight($LeftSide, 3) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space5Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space6Letter) = "" Then $LeftSide = StringTrimLeft($Base, 5) $RightSide = StringTrimRight($LeftSide, 2) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space6Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space7Letter) = "" Then $LeftSide = StringTrimLeft($Base, 6) $RightSide = StringTrimRight($LeftSide, 1) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space7Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space8Letter) = "" Then $LeftSide = StringTrimLeft($Base, 7) If $LeftSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space8Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf Else If StringInStr(GUICtrlRead($LettersUsed), GUICtrlRead($Letter)) = 0 Then GUICtrlSetData($MistakeMeter, GUICtrlRead($MistakeMeter) + 17) GUICtrlSetData($LettersUsed, GUICtrlRead($LettersUsed) & GUICtrlRead($Letter) & "-") EndIf EndIf GUICtrlSetData($Letter, "") EndIf EndIf If StringLen($Base) = 9 Then If StringIsAlpha(GUICtrlRead($Letter)) Then If StringInStr($Base, GUICtrlRead($Letter)) Then If GUICtrlRead($Space1Letter) = "" Then $Trim = StringTrimRight($Base, 8) If $Trim = GUICtrlRead($Letter) Then GUICtrlSetData($Space1Letter, $Trim) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space2Letter) = "" Then $LeftSide = StringTrimLeft($Base, 1) $RightSide = StringTrimRight($LeftSide, 7) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space2Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space3Letter) = "" Then $LeftSide = StringTrimLeft($Base, 2) $RightSide = StringTrimRight($LeftSide, 6) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space3Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space4Letter) = "" Then $LeftSide = StringTrimLeft($Base, 3) $RightSide = StringTrimRight($LeftSide, 5) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space4Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space5Letter) = "" Then $LeftSide = StringTrimLeft($Base, 4) $RightSide = StringTrimRight($LeftSide, 4) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space5Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space6Letter) = "" Then $LeftSide = StringTrimLeft($Base, 5) $RightSide = StringTrimRight($LeftSide, 3) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space6Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space7Letter) = "" Then $LeftSide = StringTrimLeft($Base, 6) $RightSide = StringTrimRight($LeftSide, 2) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space7Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space8Letter) = "" Then $LeftSide = StringTrimLeft($Base, 7) $RightSide = StringTrimRight($LeftSide, 1) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space8Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space9Letter) = "" Then $LeftSide = StringTrimLeft($Base, 8) If $LeftSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space9Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf Else If StringInStr(GUICtrlRead($LettersUsed), GUICtrlRead($Letter)) = 0 Then GUICtrlSetData($MistakeMeter, GUICtrlRead($MistakeMeter) + 17) GUICtrlSetData($LettersUsed, GUICtrlRead($LettersUsed) & GUICtrlRead($Letter) & "-") EndIf EndIf GUICtrlSetData($Letter, "") EndIf EndIf If StringLen($Base) = 10 Then If StringIsAlpha(GUICtrlRead($Letter)) Then If StringInStr($Base, GUICtrlRead($Letter)) Then If GUICtrlRead($Space1Letter) = "" Then $Trim = StringTrimRight($Base, 9) If $Trim = GUICtrlRead($Letter) Then GUICtrlSetData($Space1Letter, $Trim) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space2Letter) = "" Then $LeftSide = StringTrimLeft($Base, 1) $RightSide = StringTrimRight($LeftSide, 8) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space2Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space3Letter) = "" Then $LeftSide = StringTrimLeft($Base, 2) $RightSide = StringTrimRight($LeftSide, 7) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space3Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space4Letter) = "" Then $LeftSide = StringTrimLeft($Base, 3) $RightSide = StringTrimRight($LeftSide, 6) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space4Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space5Letter) = "" Then $LeftSide = StringTrimLeft($Base, 4) $RightSide = StringTrimRight($LeftSide, 5) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space5Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space6Letter) = "" Then $LeftSide = StringTrimLeft($Base, 5) $RightSide = StringTrimRight($LeftSide, 4) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space6Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space7Letter) = "" Then $LeftSide = StringTrimLeft($Base, 6) $RightSide = StringTrimRight($LeftSide, 3) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space7Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space8Letter) = "" Then $LeftSide = StringTrimLeft($Base, 7) $RightSide = StringTrimRight($LeftSide, 2) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space8Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space9Letter) = "" Then $LeftSide = StringTrimLeft($Base, 8) $RightSide = StringTrimRight($LeftSide, 1) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space9Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space10Letter) = "" Then $LeftSide = StringTrimLeft($Base, 9) If $LeftSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space10Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf Else If StringInStr(GUICtrlRead($LettersUsed), GUICtrlRead($Letter)) = 0 Then GUICtrlSetData($MistakeMeter, GUICtrlRead($MistakeMeter) + 17) GUICtrlSetData($LettersUsed, GUICtrlRead($LettersUsed) & GUICtrlRead($Letter) & "-") EndIf EndIf GUICtrlSetData($Letter, "") EndIf EndIf If StringLen($Base) = 11 Then If StringIsAlpha(GUICtrlRead($Letter)) Then If StringInStr($Base, GUICtrlRead($Letter)) Then If GUICtrlRead($Space1Letter) = "" Then $Trim = StringTrimRight($Base, 10) If $Trim = GUICtrlRead($Letter) Then GUICtrlSetData($Space1Letter, $Trim) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space2Letter) = "" Then $LeftSide = StringTrimLeft($Base, 1) $RightSide = StringTrimRight($LeftSide, 9) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space2Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space3Letter) = "" Then $LeftSide = StringTrimLeft($Base, 2) $RightSide = StringTrimRight($LeftSide, 8) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space3Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space4Letter) = "" Then $LeftSide = StringTrimLeft($Base, 3) $RightSide = StringTrimRight($LeftSide, 7) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space4Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space5Letter) = "" Then $LeftSide = StringTrimLeft($Base, 4) $RightSide = StringTrimRight($LeftSide, 6) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space5Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space6Letter) = "" Then $LeftSide = StringTrimLeft($Base, 5) $RightSide = StringTrimRight($LeftSide, 5) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space6Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space7Letter) = "" Then $LeftSide = StringTrimLeft($Base, 6) $RightSide = StringTrimRight($LeftSide, 4) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space7Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space8Letter) = "" Then $LeftSide = StringTrimLeft($Base, 7) $RightSide = StringTrimRight($LeftSide, 3) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space8Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space9Letter) = "" Then $LeftSide = StringTrimLeft($Base, 8) $RightSide = StringTrimRight($LeftSide, 2) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space9Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space10Letter) = "" Then $LeftSide = StringTrimLeft($Base, 9) $RightSide = StringTrimRight($LeftSide, 1) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space10Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space11Letter) = "" Then $LeftSide = StringTrimLeft($Base, 10) If $LeftSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space11Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf Else If StringInStr(GUICtrlRead($LettersUsed), GUICtrlRead($Letter)) = 0 Then GUICtrlSetData($MistakeMeter, GUICtrlRead($MistakeMeter) + 17) GUICtrlSetData($LettersUsed, GUICtrlRead($LettersUsed) & GUICtrlRead($Letter) & "-") EndIf EndIf GUICtrlSetData($Letter, "") EndIf EndIf If StringLen($Base) = 12 Then If StringIsAlpha(GUICtrlRead($Letter)) Then If StringInStr($Base, GUICtrlRead($Letter)) Then If GUICtrlRead($Space1Letter) = "" Then $Trim = StringTrimRight($Base, 11) If $Trim = GUICtrlRead($Letter) Then GUICtrlSetData($Space1Letter, $Trim) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space2Letter) = "" Then $LeftSide = StringTrimLeft($Base, 1) $RightSide = StringTrimRight($LeftSide, 10) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space2Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space3Letter) = "" Then $LeftSide = StringTrimLeft($Base, 2) $RightSide = StringTrimRight($LeftSide, 9) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space3Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space4Letter) = "" Then $LeftSide = StringTrimLeft($Base, 3) $RightSide = StringTrimRight($LeftSide, 8) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space4Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space5Letter) = "" Then $LeftSide = StringTrimLeft($Base, 4) $RightSide = StringTrimRight($LeftSide, 7) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space5Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space6Letter) = "" Then $LeftSide = StringTrimLeft($Base, 5) $RightSide = StringTrimRight($LeftSide, 6) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space6Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space7Letter) = "" Then $LeftSide = StringTrimLeft($Base, 6) $RightSide = StringTrimRight($LeftSide, 5) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space7Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space8Letter) = "" Then $LeftSide = StringTrimLeft($Base, 7) $RightSide = StringTrimRight($LeftSide, 4) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space8Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space9Letter) = "" Then $LeftSide = StringTrimLeft($Base, 8) $RightSide = StringTrimRight($LeftSide, 3) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space9Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space10Letter) = "" Then $LeftSide = StringTrimLeft($Base, 9) $RightSide = StringTrimRight($LeftSide, 2) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space10Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space11Letter) = "" Then $LeftSide = StringTrimLeft($Base, 10) $RightSide = StringTrimRight($LeftSide, 1) If $RightSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space11Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf If GUICtrlRead($Space12Letter) = "" Then $LeftSide = StringTrimLeft($Base, 11) If $LeftSide = GUICtrlRead($Letter) Then GUICtrlSetData($Space12Letter, GUICtrlRead($Letter)) $SpacesLeft = $SpacesLeft - 1 If $SpacesLeft = 0 Then Winner() EndIf EndIf Else If StringInStr(GUICtrlRead($LettersUsed), GUICtrlRead($Letter)) = 0 Then GUICtrlSetData($MistakeMeter, GUICtrlRead($MistakeMeter) + 17) GUICtrlSetData($LettersUsed, GUICtrlRead($LettersUsed) & GUICtrlRead($Letter) & "-") EndIf EndIf GUICtrlSetData($Letter, "") EndIf EndIf Else MsgBox(16, "Error!", "Enter a Letter to Guess!") EndIf ControlClick("", "", $Letter) If GUICtrlRead($MistakeMeter) = 100 Then GUICtrlSetState($Guess, $GUI_DISABLE) GUICtrlSetState($NewGame, $GUI_DISABLE) GUICtrlSetState($Exit, $GUI_DISABLE) GUICtrlSetState($Solve, $GUI_DISABLE) Sleep(1000) MsgBox(0, "You Lost!", 'You Didnt get the Word. It Was "' & $Base & '".') GUIDelete() NewGame() EndIf Case $Solve $WordGuess = InputBox("Solve Word", "Guess the Correct Word:", "", "", 200, 200) If Not @error Then If $WordGuess = $Base Then Winner() Else Sleep(1000) MsgBox(0, "Aww Man!", 'You Didnt Get it! It Was "' & $Base & '".') GUIDelete() NewGame() EndIf EndIf EndSwitch WEnd EndFunc ;==>WordGuess Func CreateVirtualKeyboard() Local $KeyW = 22 ;Key Width Local $KeyH = 22 ;Key Height ;First Row $VK_Q = GUICtrlCreateButton("Q", 25, 170, $KeyW, $KeyH) $VK_W = GUICtrlCreateButton("W", 50, 170, $KeyW, $KeyH) $VK_E = GUICtrlCreateButton("E", 75, 170, $KeyW, $KeyH) $VK_R = GUICtrlCreateButton("R", 100, 170, $KeyW, $KeyH) $VK_T = GUICtrlCreateButton("T", 125, 170, $KeyW, $KeyH) $VK_Y = GUICtrlCreateButton("Y", 150, 170, $KeyW, $KeyH) $VK_U = GUICtrlCreateButton("U", 175, 170, $KeyW, $KeyH) $VK_I = GUICtrlCreateButton("I", 200, 170, $KeyW, $KeyH) $VK_O = GUICtrlCreateButton("O", 225, 170, $KeyW, $KeyH) $VK_P = GUICtrlCreateButton("P", 250, 170, $KeyW, $KeyH) ;Second Row $VK_A = GUICtrlCreateButton("A", 35, 195, $KeyW, $KeyH) $VK_S = GUICtrlCreateButton("S", 60, 195, $KeyW, $KeyH) $VK_D = GUICtrlCreateButton("D", 85, 195, $KeyW, $KeyH) $VK_F = GUICtrlCreateButton("F", 110, 195, $KeyW, $KeyH) $VK_G = GUICtrlCreateButton("G", 135, 195, $KeyW, $KeyH) $VK_H = GUICtrlCreateButton("H", 160, 195, $KeyW, $KeyH) $VK_J = GUICtrlCreateButton("J", 185, 195, $KeyW, $KeyH) $VK_K = GUICtrlCreateButton("K", 210, 195, $KeyW, $KeyH) $VK_L = GUICtrlCreateButton("L", 235, 195, $KeyW, $KeyH) ;Third Row $VK_Z = GUICtrlCreateButton("Z", 60, 220, $KeyW, $KeyH) $VK_X = GUICtrlCreateButton("X", 85, 220, $KeyW, $KeyH) $VK_C = GUICtrlCreateButton("C", 110, 220, $KeyW, $KeyH) $VK_V = GUICtrlCreateButton("V", 135, 220, $KeyW, $KeyH) $VK_B = GUICtrlCreateButton("B", 160, 220, $KeyW, $KeyH) $VK_N = GUICtrlCreateButton("N", 185, 220, $KeyW, $KeyH) $VK_M = GUICtrlCreateButton("M", 210, 220, $KeyW, $KeyH) ;Clue Button ======================================================================================= $ClueButton = GUICtrlCreateButton("View Clue", 59, 250, 175, 20) If $ClueEnabled = 1 Then ControlEnable("", "", $ClueButton) If $ClueEnabled = 0 Then GUICtrlSetState($ClueButton, $GUI_DISABLE) ;=================================================================================================== EndFunc ;==>CreateVirtualKeyboard Func Winner() Sleep(1000) MsgBox(0, "Winner!", "You Won!") GUIDelete() NewGame() EndFunc ;==>Winner
  7. I'm typing this on my phone so I can't really edit your code and post it but add a loop in the autobokey() function so the keys are being sent constantly and then add HotKeySet() in the loop so you can press a key to exit the loop when you're finished.
  8. Post your script so we can try to help you better
  9. You know like in HTML you can use MouseOver to show that you have selected something like giving a menu option a green outline when selected. Is there anything like that?
  10. It was something on my mind I had been wondering for a while. I have pretty solid answer now. Thanks for your help.
  11. I know I can't use FileCopy because that just copies a file. That was just an example for you to understand what I was saying. But I'll look at that udf.
  12. Just to clarify. If you click an option and it opens a new GUI, you want the previous GUI, or the one used to open the current GUI to close?
  13. I've tried to figure this out. How do u sync a progress bar with the progress of a file that's being copied or something. Like a loading bar for a game maybe? If u get what I mean.
  14. Im not new to AU3 just havent Posted here alot. But something ive been wondering is would it be possible (I should probabaly be asking how) to have like maybe clouds moving behind in the background of an AU3 game while the user is playing it without interrupting anything? Or something of that sort. Not just talking about animations. Maybe having an AI (Computer) Enemy attacking you while you attack it would be another Example or while you are idle. Like in many Games. Any help or examples would be good.
×
×
  • Create New...