Fifteen Second Fury

[erifash]

Just click the box as many times as you can in 15 seconds. Pretty addicting!

expandcollapse popup

Global Const $GUI_EVENT_CLOSE = -3
Global Const $GUI_ENABLE = 64
Global Const $GUI_DISABLE = 128
Global Const $WS_CAPTION = 0x00C00000
Global Const $WS_SYSMENU = 0x00080000

Opt("GUIOnEventMode", 1)

Global $timer = 0, $points = 0, $box

$gui = GUICreate("Click the Box", 400, 300, -1, -1, $WS_CAPTION + $WS_SYSMENU)
$box = GUICtrlCreateLabel("", 192, 142, 13, 13)

GUICtrlSetBkColor($box, 0x44DD44)
GUISetBkColor(0x4488FF)
GUICtrlSetOnEvent($box, "_EventHandler")
GUISetOnEvent($GUI_EVENT_CLOSE, "_EventHandler", $gui)
GUISetState()

While 1
   Sleep(100)
   If not $timer Then ContinueLoop
   $diff = Round(15 - TimerDiff($timer) / 1000)
   WinSetTitle($gui, "", "Click the Box   -   " & $diff)
   If $diff <= 0 Then
      WinSetTitle($gui, "", "Click the Box")
      GUICtrlSetPos($box, 192, 142, 13, 13)
      GUICtrlSetState($box, $GUI_DISABLE)
      MsgBox(4096, "Score", $points)
      GUICtrlSetState($box, $GUI_ENABLE)
      $points = 0
      $timer = 0
   EndIf
WEnd

Func _EventHandler()
   Switch @GUI_CtrlId
      Case $GUI_EVENT_CLOSE
         Exit
      Case $box
         If not $timer Then $timer = TimerInit()
         GUICtrlSetPos($box, Random(10, 377), Random(10, 277), 13, 13)
         $points += 1
   EndSwitch
EndFunc

My personal best is 21.

Edited October 12, 2006 by erifash

[layer]

err.. i get the whole one line thing when i post it

[GaryFrost]

err.. i get the whole one line thing when i post it

I hate those Code Boxes

expandcollapse popup

Global Const $GUI_EVENT_CLOSE = -3
Global Const $GUI_ENABLE = 64
Global Const $GUI_DISABLE = 128
Global Const $WS_CAPTION = 0x00C00000
Global Const $WS_SYSMENU = 0x00080000

Opt("GUIOnEventMode", 1)

Global $timer = 0, $points = 0, $box

$gui = GUICreate("Click the Box", 400, 300, -1, -1, $WS_CAPTION + $WS_SYSMENU)
$box = GUICtrlCreateLabel("", 192, 142, 13, 13)

GUICtrlSetBkColor($box, 0x44DD44)
GUISetBkColor(0x4488FF)
GUICtrlSetOnEvent($box, "_EventHandler")
GUISetOnEvent($GUI_EVENT_CLOSE, "_EventHandler", $gui)
GUISetState()

While 1
    Sleep(100)
    If Not $timer Then ContinueLoop
    $diff = Round(15 - TimerDiff($timer) / 1000)
    WinSetTitle($gui, "", "Click the Box   -   " & $diff)
    If $diff <= 0 Then
        WinSetTitle($gui, "", "Click the Box")
        GUICtrlSetPos($box, 192, 142, 13, 13)
        GUICtrlSetState($box, $GUI_DISABLE)
        MsgBox(4096, "Score", $points)
        GUICtrlSetState($box, $GUI_ENABLE)
        $points = 0
        $timer = 0
    EndIf
WEnd

Func _EventHandler()
    Switch @GUI_CtrlId
        Case $GUI_EVENT_CLOSE
            Exit
        Case $box
            If Not $timer Then $timer = TimerInit()
            GUICtrlSetPos($box, Random(10, 377), Random(10, 277), 13, 13)
            $points += 1
    EndSwitch
EndFunc   ;==>_EventHandler

[FuryCell]

err.. i get the whole one line thing when i post it

Thats odd because I haven't had that problem in ages. Anyway pasting in to wordpad first should remedy the problem.

Edit: Gary beat me.

Edited October 10, 2006 by SolidSnake

[FuryCell]

Got 928 with a 4 line http://www.autoitscript.com/fileman/index.php?act=list&op=get&target=Bot.au3.

Edit: Uploaded a http://www.autoitscript.com/fileman/users/SOLIDSNAKE/Botting.htm of the bot as a test of wink. However it only scores 803 in the video.

Edited October 11, 2006 by SolidSnake

[layer]

thanks Gary, thanks Solid (wordpad worked btw, i tried it, good to know)

little nice simple game, i like it

[Vindicator209]

I made a bot.. only worked half the time.....

anyway, 28 personal best, lol

[idusy]

I made a bot.. only worked half the time.....

anyway, 28 personal best, lol

You do realize the last reply was in October?

Anyway, I made a nice 3 line bot for this

And the script:

While WinExists("Click the Box")
ControlClick("Click the Box","",3)
WEnd