AlmarM Posted August 20, 2009 Share 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. Link to comment Share on other sites More sharing options...
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