Sign in to follow this  
Followers 0
E1M1

Attention Tester - Come and beat my score which is 52

7 posts in this topic

#1 ·  Posted (edited)

I wrote this little program that requires attention and speed. My score is 52, see if you can beat this.

Update1:

Minimum time limit wont drop below 300 ms.

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <Math.au3>


;For bots
$RndBlack = Random(0,10,1)
$RndDark = Random(58,68,1)
$RndColor = Random(143,163,1)
$RndLightColor = Random(250,255,1)


$red1 = "0x"&StringFormat("%02X%02X%02X",$RndColor,$RndBlack,$RndBlack)
$red2 = "0x"&StringFormat("%02X%02X%02X",$RndLightColor,$RndDark,$RndDark)
$green1 = "0x"&StringFormat("%02X%02X%02X",$RndBlack,$RndColor,$RndBlack)
$green2 = "0x"&StringFormat("%02X%02X%02X",$RndDark,$RndLightColor,$RndDark)
$blue1 = "0x"&StringFormat("%02X%02X%02X",$RndBlack,$RndBlack,$RndColor)
$blue2 = "0x"&StringFormat("%02X%02X%02X",$RndDark,$RndDark,$RndLightColor)

$active = ""
$rnd = ""
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Attention Tester", 164, 89, 192, 114)
$Tes = GUICtrlCreateLabel("Score:", 16, 8, 35, 17)
$Score = GUICtrlCreateLabel("0", 56, 8, 35, 17)
$Label2 = GUICtrlCreateLabel("", 16, 48, 33, 33)
GUICtrlSetBkColor(-1, $red1)
$Label3 = GUICtrlCreateLabel("", 64, 48, 33, 33)
GUICtrlSetBkColor(-1, $green1)
$Label4 = GUICtrlCreateLabel("", 112, 48, 33, 33)
GUICtrlSetBkColor(-1, $blue1)

$Label2b = GUICtrlCreateLabel("", 16, 48 + 33, 33, 5)
GUICtrlSetBkColor(-1, -2)
$Label3b = GUICtrlCreateLabel("", 64, 48 + 33, 33, 5)
GUICtrlSetBkColor(-1, -2)
$Label4b = GUICtrlCreateLabel("", 112, 48 + 33, 33, 5)
GUICtrlSetBkColor(-1, -2)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
RndSwitch()
$Started = False
$init = 0
$lim = 1200
$Step = 10
$minLim = 300
While 1
    If $Started Then
        $TimeDiff = TimerDiff($init)
        If $TimeDiff > _Max ( $lim, $minLim ) Then
            wrong(True)
        EndIf
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Label2
            If $active = 1 Then
                $Started = True
                GUICtrlSetData($Score, GUICtrlRead($Score) + 1)
                $lim -= $Step
                $init = TimerInit()
            Else
                wrong()
            EndIf
            GUICtrlSetBkColor($Label2, $red1)
            GUICtrlSetBkColor($Label2b, -2)
            RndSwitch()
        Case $Label3
            If $active = 2 Then
                $Started = True
                GUICtrlSetData($Score, GUICtrlRead($Score) + 1)
                $lim -= $Step
                $init = TimerInit()
            Else
                Wrong()
            EndIf
            GUICtrlSetBkColor($Label3, $green1)
            GUICtrlSetBkColor($Label3b, -2)
            RndSwitch()
        Case $Label4
            If $active = 3 Then
                $Started = True
                GUICtrlSetData($Score, GUICtrlRead($Score) + 1)
                $lim -= $Step
                $init = TimerInit()
            Else
                wrong()
            EndIf
            GUICtrlSetBkColor($Label4, $blue1)
            GUICtrlSetBkColor($Label4b, -2)
            RndSwitch()
    EndSwitch
WEnd

Func wrong($bTimeOut = False)
    $lim = 1200
    $Started = False
    If $bTimeOut Then
        MsgBox(0, "Too slow", "You need to click faster" & @CRLF & @CRLF & "Score: " & GUICtrlRead($Score))
    Else
        MsgBox(0, "Wrong", "You've clicked wrong button" & @CRLF & @CRLF & "Score: " & GUICtrlRead($Score))
    EndIf
    GUICtrlSetBkColor($Label2, $red1)
    GUICtrlSetBkColor($Label3, $green1)
    GUICtrlSetBkColor($Label4, $blue1)
    GUICtrlSetBkColor($Label2b, -2)
    GUICtrlSetBkColor($Label3b, -2)
    GUICtrlSetBkColor($Label4b, -2)
    GUICtrlSetData($Score, 0)
EndFunc   ;==>wrong

Func RndSwitch()
    While $active = $rnd
        $rnd = Random(1, 3, 1)
    WEnd
    If $rnd = 1 Then
        GUICtrlSetBkColor($Label2, $red2)
        GUICtrlSetBkColor($Label2b, $RndBlack)
        $active = $rnd
    ElseIf $rnd = 2 Then
        GUICtrlSetBkColor($Label3, $green2)
        GUICtrlSetBkColor($Label3b, $RndBlack)
        $active = $rnd
    Else
        GUICtrlSetBkColor($Label4, $blue2)
        GUICtrlSetBkColor($Label4b, $RndBlack)
        $active = $rnd
    EndIf

EndFunc   ;==>RndSwitch
Edited by E1M1

edited

Share this post


Link to post
Share on other sites



I found that even bot cant get better than 114. :x


edited

Share this post


Link to post
Share on other sites

55 & got angry :x


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

Will I get banned for this?

Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)

HotKeySet("O", "_Quit")

While WinWaitActive("Attention Tester")
    $iColor1 = PixelGetColor(31, 82)
    $iColor2 = PixelGetColor(79, 82)
    $iColor3 = PixelGetColor(126, 82)

    If $iColor1 = $iColor2 And $iColor1 <> $iColor3 Then
        MouseClick("left", 126, 72, 1, 0)
;~      ControlClick("Attention Tester", "", 8, "left", 1, 126, 72)
    ElseIf $iColor2 = $iColor3 And $iColor2 <> $iColor1 Then
        MouseClick("left", 31, 72, 1, 0)
;~      ControlClick("Attention Tester", "", 6, "left", 1, 31, 72)
    ElseIf $iColor1 = $iColor3 And $iColor1 <> $iColor2 Then
        MouseClick("left", 79, 72, 1, 0)
;~      ControlClick("Attention Tester", "", 7, "left", 1, 79, 72)
    EndIf

;~  ConsoleWrite($iColor1 & @CRLF)
;~  ConsoleWrite($iColor2 & @CRLF)
;~  ConsoleWrite($iColor3 & @CRLF)
WEnd

Func _Quit()
    Exit
EndFunc

91 points.

Share this post


Link to post
Share on other sites

Looks like someone is provoking me to add captcha after every click.


edited

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0