AlmarM Posted August 20, 2009 Posted August 20, 2009 Hiya,dont expecy anything good. I just made a program that gives you a code when you complete a 'mission'.Yeah, I was kinda bored. So, enjoy?~expandcollapse popup#include "IsPressed_UDF.au3" Global Const $bSettings_Dir = @TempDir & "\qWerty_settings.ini" If Not FileExists($bSettings_Dir) Then IniWrite($bSettings_Dir, "completed", "completed", 0) IniWrite($bSettings_Dir, "completed", "easy1", 1) IniWrite($bSettings_Dir, "completed", "easy2", 2) IniWrite($bSettings_Dir, "completed", "easy3", 3) IniWrite($bSettings_Dir, "completed", "med1", 1) IniWrite($bSettings_Dir, "completed", "med2", 2) IniWrite($bSettings_Dir, "completed", "med3", 3) IniWrite($bSettings_Dir, "completed", "hard1", 1) IniWrite($bSettings_Dir, "completed", "hard2", 2) IniWrite($bSettings_Dir, "completed", "hard3", 3) IniWrite($bSettings_Dir, "saved_codes", "easy1", "") IniWrite($bSettings_Dir, "saved_codes", "easy2", "") IniWrite($bSettings_Dir, "saved_codes", "easy3", "") IniWrite($bSettings_Dir, "saved_codes", "med1", "") IniWrite($bSettings_Dir, "saved_codes", "med2", "") IniWrite($bSettings_Dir, "saved_codes", "med3", "") IniWrite($bSettings_Dir, "saved_codes", "hard1", "") IniWrite($bSettings_Dir, "saved_codes", "hard2", "") IniWrite($bSettings_Dir, "saved_codes", "hard3", "") EndIf Global Const $sTitle = "qWerty" Global Const $sVersion = "1.0.0" Global $_Completed Global $Easy1, $Easy2, $Easy3 Global $Med1, $Med2, $Med3 Global $Hard1, $Hard2, $Hard3 Global $_Easy1, $_Easy2, $_Easy3 Global $_Med1, $_Med2, $_Med3 Global $_Hard1, $_Hard2, $_Hard3 Global $sCompleted = IniRead($bSettings_Dir, "completed", "completed", "N\A") Global $Easy1_Status = IniRead($bSettings_Dir, "completed", "easy1", "N\A") Global $Easy2_Status = IniRead($bSettings_Dir, "completed", "easy2", "N\A") Global $Easy3_Status = IniRead($bSettings_Dir, "completed", "easy3", "N\A") Global $Med1_Status = IniRead($bSettings_Dir, "completed", "med1", "N\A") Global $Med2_Status = IniRead($bSettings_Dir, "completed", "med2", "N\A") Global $Med3_Status = IniRead($bSettings_Dir, "completed", "med3", "N\A") Global $Hard1_Status = IniRead($bSettings_Dir, "completed", "hard1", "N\A") Global $Hard2_Status = IniRead($bSettings_Dir, "completed", "hard2", "N\A") Global $Hard3_Status = IniRead($bSettings_Dir, "completed", "hard3", "N\A") Global $Easy1_Saved = IniRead($bSettings_Dir, "saved_codes", "easy1", "N\A") Global $Easy2_Saved = IniRead($bSettings_Dir, "saved_codes", "easy2", "N\A") Global $Easy3_Saved = IniRead($bSettings_Dir, "saved_codes", "easy3", "N\A") Global $Med1_Saved = IniRead($bSettings_Dir, "saved_codes", "med1", "N\A") Global $Med2_Saved = IniRead($bSettings_Dir, "saved_codes", "med2", "N\A") Global $Med3_Saved = IniRead($bSettings_Dir, "saved_codes", "med3", "N\A") Global $Hard1_Saved = IniRead($bSettings_Dir, "saved_codes", "hard1", "N\A") Global $Hard2_Saved = IniRead($bSettings_Dir, "saved_codes", "hard2", "N\A") Global $Hard3_Saved = IniRead($bSettings_Dir, "saved_codes", "hard3", "N\A") Global $Easy1_Clicked = 0 Global $Med1_Clicked = 0 Global $Hard1_Clicked = 0 Global $Easy2_Pressed = 0 Global $Med2_Pressed = 0 Global $Hard2_Pressed = 0 Global Const $MissionEasy3 = "OU258LG5TC" Global Const $MissionMed3 = "OWH1TPEV2A1HR1AXCES0MXJN9" Global Const $MissionHard3 = "URPZ5G1S8KP75SDPCV6NROI3W0MJQGTDFVB32DGIB21BMB9NW5" Global Const $CODE_EASY1 = "4RD7WZFC0O" Global Const $CODE_EASY2 = "FF2X8641ZC" Global Const $CODE_EASY3 = "BUICC5CO84" Global Const $CODE_MED1 = "FXJUFLZ2YP" Global Const $CODE_MED2 = "LZTFY4ZQY4" Global Const $CODE_MED3 = "CJW3PMWUTS" Global Const $CODE_HARD1 = "AQ58763QWG" Global Const $CODE_HARD2 = "4LXXB25XPF" Global Const $CODE_HARD3 = "300WSBDMZV" _Main() Func _Main() $Main_GUI = GUICreate($sTitle & " " & $sVersion, 235, 105) $Missions = GUICtrlCreateButton("Missions", 10, 10, 100) $Enter_Code = GUICtrlCreateButton("Enter Code", 10, 40, 100) $Saved_Codes = GUICtrlCreateButton("Saved Codes", 10, 70, 100) $_Completed = GUICtrlCreateLabel("Missions Completed: " & $sCompleted, 120, 10) GUICtrlSetData($_Completed, "Missions Completed: " & $sCompleted) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Missions GUIDelete($Main_GUI) _MissionsGUI() Case $Enter_Code GUIDelete($Main_GUI) _EnterCode() Case $Saved_Codes GUIDelete($Main_GUI) _SavedCodes() EndSwitch WEnd EndFunc Func _MissionsGUI() $Mission_GUI = GUICreate("Missions", 170, 270) GUICtrlCreateLabel("Easy", 10, 10) $Easy1 = GUICtrlCreateButton($Easy1_Status, 10, 30, 50, 50) $Easy2 = GUICtrlCreateButton($Easy2_Status, 60, 30, 50, 50) $Easy3 = GUICtrlCreateButton($Easy3_Status, 110, 30, 50, 50) GUICtrlCreateLabel("Medium", 10, 100) $Med1 = GUICtrlCreateButton($Med1_Status, 10, 120, 50, 50) $Med2 = GUICtrlCreateButton($Med2_Status, 60, 120, 50, 50) $Med3 = GUICtrlCreateButton($Med3_Status, 110, 120, 50, 50) GUICtrlCreateLabel("Hard", 10, 190) $Hard1 = GUICtrlCreateButton($Hard1_Status, 10, 210, 50, 50) $Hard2 = GUICtrlCreateButton($Hard2_Status, 60, 210, 50, 50) $Hard3 = GUICtrlCreateButton($Hard3_Status, 110, 210, 50, 50) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 GUIDelete($Mission_GUI) _Main() Case $Easy1 GUIDelete($Mission_GUI) _Easy1() Case $Easy2 GUIDelete($Mission_GUI) _Easy2() Case $Easy3 GUIDelete($Mission_GUI) _Easy3() Case $Med1 GUIDelete($Mission_GUI) _Med1() Case $Med2 GUIDelete($Mission_GUI) _Med2() Case $Med3 GUIDelete($Mission_GUI) _Med3() Case $Hard1 GUIDelete($Mission_GUI) _Hard1() Case $Hard2 GUIDelete($Mission_GUI) _Hard2() Case $Hard3 GUIDelete($Mission_GUI) _Hard3() EndSwitch WEnd EndFunc Func _EnterCode() $EnterCode_GUI = GUICreate("Enter Code", 120, 75) $CodeInput = GUICtrlCreateInput("", 10, 10, 100) $Unlock = GUICtrlCreateButton("Unlock", 10, 40, 100) GUISetState() GUICtrlSetLimit($CodeInput, 10, 0) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 GUIDelete($EnterCode_GUI) _Main() Case $Unlock If GUICtrlRead($CodeInput) == $CODE_EASY1 Then ;Do something ElseIf GUICtrlRead($CodeInput) == $CODE_EASY2 Then ;Do something ElseIf GUICtrlRead($CodeInput) == $CODE_EASY3 Then ;Do something ElseIf GUICtrlRead($CodeInput) == $CODE_MED1 Then ;Do something ElseIf GUICtrlRead($CodeInput) == $CODE_MED2 Then ;Do something ElseIf GUICtrlRead($CodeInput) == $CODE_MED3 Then ;Do something ElseIf GUICtrlRead($CodeInput) == $CODE_HARD1 Then ;Do something ElseIf GUICtrlRead($CodeInput) == $CODE_HARD2 Then ;Do something ElseIf GUICtrlRead($CodeInput) == $CODE_HARD3 Then ;Do something Else MsgBox(16, $sTitle, "Unknown code!") EndIf EndSwitch WEnd EndFunc Func _SavedCodes() $SavedCodes_GUI = GUICreate("Saved Codes", 120, 360) GUICtrlCreateLabel("Easy", 10, 10) $_Easy1 = GUICtrlCreateInput($Easy1_Saved, 10, 30, 100, 20) $_Easy2 = GUICtrlCreateInput($Easy2_Saved, 10, 60, 100, 20) $_Easy3 = GUICtrlCreateInput($Easy3_Saved, 10, 90, 100, 20) GUICtrlCreateLabel("Medium", 10, 120) $_Med1 = GUICtrlCreateInput($Med1_Saved, 10, 140, 100, 20) $_Med2 = GUICtrlCreateInput($Med2_Saved, 10, 170, 100, 20) $_Med3 = GUICtrlCreateInput($Med3_Saved, 10, 200, 100, 20) GUICtrlCreateLabel("Hard", 10, 230) $_Hard1 = GUICtrlCreateInput($Hard1_Saved, 10, 260, 100, 20) $_Hard2 = GUICtrlCreateInput($Hard2_Saved, 10, 290, 100, 20) $_Hard3 = GUICtrlCreateInput($Hard3_Saved, 10, 330, 100, 20) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 GUIDelete($SavedCodes_GUI) _Main() EndSwitch WEnd EndFunc Func _Easy1() $Easy1_GUI = GUICreate("Mission: Easy1", 150, 130) GUICtrlCreateLabel("[Objective]" & @CRLF & "Click 100 times.", 10, 10) $Easy1_Label = GUICtrlCreateLabel("You've clicked " & $Easy1_Clicked & " times.", 10, 50, 150) $Easy1_Clickme = GUICtrlCreateButton("Click me!", 25, 70, 100, 50) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 GUIDelete($Easy1_GUI) _MissionsGUI() Case $Easy1_Clickme $Easy1_Clicked += 1 GUICtrlSetData($Easy1_Label, "You've clicked " & $Easy1_Clicked & " times.") EndSwitch If $Easy1_Clicked = 100 Then MsgBox(64, $sTitle, "You completed: Easy1!" & @CRLF & "View 'Saved Codes' for your code!") $Easy1_Clicked = 0 $Easy1_Status = "Done" $Easy1_Saved = $CODE_EASY1 IniWrite($bSettings_Dir, "completed", "completed", IniRead($bSettings_Dir, "completed", "completed", "N\A") + 1) IniWrite($bSettings_Dir, "saved_codes", "easy1", $Easy1_Saved) IniWrite($bSettings_Dir, "completed", "easy1", "Done") GUIDelete($Easy1_GUI) _Main() EndIf Sleep(20) WEnd EndFunc Func _Easy2() $Easy2_GUI = GUICreate("Mission: Easy2", 150, 100) GUICtrlCreateLabel("[Objective]" & @CRLF & "Press 100 keys.", 10, 10) $Easy2_Label = GUICtrlCreateLabel("You've pressed " & $Easy2_Pressed & " keys.", 10, 50, 150) $Easy2_Clickme = GUICtrlCreateInput("", 25, 70, 100, 20) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 GUIDelete($Easy2_GUI) _MissionsGUI() EndSwitch If $Easy2_Pressed = 100 Then MsgBox(64, $sTitle, "You completed Easy2!" & @CRLF & "View 'Saved Codes' for your code!") $Easy2_Pressed = 0 $Easy2_Status = "Done" $Easy2_Saved = $CODE_EASY2 IniWrite($bSettings_Dir, "completed", "completed", IniRead($bSettings_Dir, "completed", "completed", "N\A") + 1) IniWrite($bSettings_Dir, "saved_codes", "easy2", $Easy2_Saved) IniWrite($bSettings_Dir, "completed", "easy2", "Done") GUIDelete($Easy2_GUI) _Main() EndIf If _IsAnyKeyPressed() Then $Easy2_Pressed += 1 GUICtrlSetData($Easy2_Label, "You've pressed " & $Easy2_Pressed & " keys.") EndIf Sleep(60) WEnd EndFunc Func _Easy3() $Easy3_GUI = GUICreate("Mission: Easy3", 125, 130) GUICtrlCreateLabel("[Objective]" & @CRLF & "Type the exact string.", 10, 10) GUICtrlCreateLabel("String: " & $MissionEasy3, 10, 50) $Easy3_Typeme = GUICtrlCreateInput("", 10, 70, 100) $Easy3_Check = GUICtrlCreateButton("Check", 10, 100, 100) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 GUIDelete($Easy3_GUI) _MissionsGUI() Case $Easy3_Check If GUICtrlRead($Easy3_Typeme) == $MissionEasy3 Then MsgBox(64, $sTitle, "You completed Easy3!" & @CRLF & "View 'Saved Codes' for your code!") $Easy3_Status = "Done" $Easy3_Saved = $CODE_EASY3 IniWrite($bSettings_Dir, "completed", "completed", IniRead($bSettings_Dir, "completed", "completed", "N\A") + 1) IniWrite($bSettings_Dir, "saved_codes", "easy3", $Easy3_Saved) IniWrite($bSettings_Dir, "completed", "easy3", "Done") GUIDelete($Easy3_GUI) _Main() Else MsgBox(16, $sTitle, "Wrong!") EndIf EndSwitch WEnd EndFunc Func _Med1() $Med1_GUI = GUICreate("Mission: Med1", 150, 130) GUICtrlCreateLabel("[Objective]" & @CRLF & "Click 250 times.", 10, 10) $Med1_Label = GUICtrlCreateLabel("You've clicked " & $Med1_Clicked & " times.", 10, 50, 150) $Med1_Clickme = GUICtrlCreateButton("Click me!", 25, 70, 100, 50) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 GUIDelete($Med1_GUI) _MissionsGUI() Case $Med1_Clickme $Med1_Clicked += 1 GUICtrlSetData($Med1_Label, "You've clicked " & $Med1_Clicked & " times.") EndSwitch If $Med1_Clicked = 250 Then MsgBox(64, $sTitle, "You completed: Med1!" & @CRLF & "View 'Saved Codes' for your code!") $Med1_Clicked = 0 $Med1_Status = "Done" $Med1_Saved = $CODE_MED1 IniWrite($bSettings_Dir, "completed", "completed", IniRead($bSettings_Dir, "completed", "completed", "N\A") + 1) IniWrite($bSettings_Dir, "saved_codes", "med1", $Med1_Saved) IniWrite($bSettings_Dir, "completed", "med1", "Done") GUIDelete($Med1_GUI) _Main() EndIf Sleep(20) WEnd EndFunc Func _Med2() $Med2_GUI = GUICreate("Mission: Med2", 150, 100) GUICtrlCreateLabel("[Objective]" & @CRLF & "Press 250 keys.", 10, 10) $Med2_Label = GUICtrlCreateLabel("You've pressed " & $Med2_Pressed & " keys.", 10, 50, 150) $Med2_Clickme = GUICtrlCreateInput("", 25, 70, 100, 20) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 GUIDelete($Med2_GUI) _MissionsGUI() EndSwitch If $Med2_Pressed = 250 Then MsgBox(64, $sTitle, "You completed Med2!" & @CRLF & "View 'Saved Codes' for your code!") $Med2_Pressed = 0 $Med2_Status = "Done" $Med2_Saved = $CODE_MED2 IniWrite($bSettings_Dir, "completed", "completed", IniRead($bSettings_Dir, "completed", "completed", "N\A") + 1) IniWrite($bSettings_Dir, "saved_codes", "med2", $Med2_Saved) IniWrite($bSettings_Dir, "completed", "med2", "Done") GUIDelete($Med2_GUI) _Main() EndIf If _IsAnyKeyPressed() Then $Med2_Pressed += 1 GUICtrlSetData($Med2_Label, "You've pressed " & $Med2_Pressed & " keys.") EndIf Sleep(60) WEnd EndFunc Func _Med3() $Med3_GUI = GUICreate("Mission: Med3", 230, 130) GUICtrlCreateLabel("[Objective]" & @CRLF & "Type the exact string.", 10, 10) GUICtrlCreateLabel("String: " & $MissionMed3, 10, 50) $Med3_Typeme = GUICtrlCreateInput("", 10, 70, 100) $Med3_Check = GUICtrlCreateButton("Check", 10, 100, 100) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 GUIDelete($Med3_GUI) _MissionsGUI() Case $Med3_Check If GUICtrlRead($Med3_Typeme) == $MissionMed3 Then MsgBox(64, $sTitle, "You completed Med3!" & @CRLF & "View 'Saved Codes' for your code!") $Med3_Status = "Done" $Med3_Saved = $CODE_MED3 IniWrite($bSettings_Dir, "completed", "completed", IniRead($bSettings_Dir, "completed", "completed", "N\A") + 1) IniWrite($bSettings_Dir, "saved_codes", "med3", $Med3_Saved) IniWrite($bSettings_Dir, "completed", "med3", "Done") GUIDelete($Med3_GUI) _Main() Else MsgBox(16, $sTitle, "Wrong!") EndIf EndSwitch WEnd EndFunc Func _Hard1() $Hard1_GUI = GUICreate("Mission: Hard1", 150, 130) GUICtrlCreateLabel("[Objective]" & @CRLF & "Click 500 times.", 10, 10) $Hard1_Label = GUICtrlCreateLabel("You've clicked " & $Hard1_Clicked & " times.", 10, 50, 150) $Hard1_Clickme = GUICtrlCreateButton("Click me!", 25, 70, 100, 50) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 GUIDelete($Hard1_GUI) _MissionsGUI() Case $Hard1_Clickme $Hard1_Clicked += 1 GUICtrlSetData($Hard1_Label, "You've clicked " & $Hard1_Clicked & " times.") EndSwitch If $Hard1_Clicked = 500 Then MsgBox(64, $sTitle, "You completed: Hard1!" & @CRLF & "View 'Saved Codes' for your code!") $Hard1_Clicked = 0 $Hard1_Status = "Done" $Hard1_Saved = $CODE_HARD1 IniWrite($bSettings_Dir, "completed", "completed", IniRead($bSettings_Dir, "completed", "completed", "N\A") + 1) IniWrite($bSettings_Dir, "saved_codes", "hard1", $Hard1_Saved) IniWrite($bSettings_Dir, "completed", "hard1", "Done") GUIDelete($Hard1_GUI) _Main() EndIf Sleep(20) WEnd EndFunc Func _Hard2() $Hard2_GUI = GUICreate("Mission: Hard2", 150, 100) GUICtrlCreateLabel("[Objective]" & @CRLF & "Press 500 keys.", 10, 10) $Hard2_Label = GUICtrlCreateLabel("You've pressed " & $Hard2_Pressed & " keys.", 10, 50, 150) $Hard2_Clickme = GUICtrlCreateInput("", 25, 70, 100, 20) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 GUIDelete($Hard2_GUI) _MissionsGUI() EndSwitch If $Hard2_Pressed = 500 Then MsgBox(64, $sTitle, "You completed Hard2!" & @CRLF & "View 'Saved Codes' for your code!") $Hard2_Pressed = 0 $Hard2_Status = "Done" $Hard2_Saved = $CODE_HARD2 IniWrite($bSettings_Dir, "completed", "completed", IniRead($bSettings_Dir, "completed", "completed", "N\A") + 1) IniWrite($bSettings_Dir, "saved_codes", "hard2", $Hard2_Saved) IniWrite($bSettings_Dir, "completed", "hard2", "Done") GUIDelete($Hard2_GUI) _Main() EndIf If _IsAnyKeyPressed() Then $Hard2_Pressed += 1 GUICtrlSetData($Hard2_Label, "You've pressed " & $Hard2_Pressed & " keys.") EndIf Sleep(60) WEnd EndFunc Func _Hard3() $Hard3_GUI = GUICreate("Mission: Hard3", 400, 130) GUICtrlCreateLabel("[Objective]" & @CRLF & "Type the exact string.", 10, 10) GUICtrlCreateLabel("String: " & $MissionHard3, 10, 50) $Hard3_Typeme = GUICtrlCreateInput("", 10, 70, 100) $Hard3_Check = GUICtrlCreateButton("Check", 10, 100, 100) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 GUIDelete($Hard3_GUI) _MissionsGUI() Case $Hard3_Check If GUICtrlRead($Hard3_Typeme) == $MissionHard3 Then MsgBox(64, $sTitle, "You completed Hard3!" & @CRLF & "View 'Saved Codes' for your code!") $Hard3_Status = "Done" $Hard3_Saved = $CODE_HARD3 IniWrite($bSettings_Dir, "completed", "completed", IniRead($bSettings_Dir, "completed", "completed", "N\A") + 1) IniWrite($bSettings_Dir, "saved_codes", "hard3", $Hard3_Saved) IniWrite($bSettings_Dir, "completed", "hard3", "Done") GUIDelete($Hard3_GUI) _Main() Else MsgBox(16, $sTitle, "Wrong!") EndIf EndSwitch WEnd EndFuncAlmarM Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now