AutoHotkey Homepage AutoHotkey Community
Let's help each other out
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Are you smarter than a Chimpanzee?

 
Post new topic   Reply to topic    AutoHotkey Community Forum Index -> Scripts & Functions
View previous topic :: View next topic  

Post your record here
Never succeed
0%
 0%  [ 0 ]
11.00+ secs
0%
 0%  [ 0 ]
8.00 ~ 10.99 Secs
16%
 16%  [ 1 ]
5.00 ~ 7.99 Secs
33%
 33%  [ 2 ]
3.00 ~ 4.99 Secs
50%
 50%  [ 3 ]
2.99- Secs
0%
 0%  [ 0 ]
Total Votes : 6

Author Message
heresy



Joined: 11 Mar 2008
Posts: 291
PostPosted: Mon Jun 30, 2008 5:04 am    Post subject: Are you smarter than a Chimpanzee? Reply with quote
Watch below video first.

Man vs Chimp
http://youtube.com/watch?v=_TmALiqi12Q


and..


try it Smile

Code:
Difficulty = 500 ;ms

#NoEnv
#SingleInstance Force
SetBatchLines, -1
SetTitleMatchMode, 2
SetFormat, Float, 0.3

Start:
Gui, Destroy
Gui, Color, 0x0
Gui, Font, s70
Gui, Add, Text, cWhite x50 y370 gRoll, O
Gui, Show, w640 h480, Are you smarter than Chimpanzee?
Return

Space::
IfWinNotActive, Are you smarter than Chimpanzee?
    Return
Roll:
Gui, Destroy
Gui, +AlwaysOnTop
Gui, Color, 0x0
Gui, Font, s25
Random, TotalN, 6,9
Loop, %TotalN%
{
        Random, x, 30, 600
        Random, y, 30, 400
    Loop
    {
        Random, n, 1, 9
        If n in %nums%
            Continue
        Else
        {
            nums .= n ","
            Total++
            Break
        }
    }
    Gui, Add, Text, x%x% y%y% cWhite vTag%n% gClick%n%,%n%
}
Gui, Font, s8, Verdana
Gui, Add, Text, x5 y5 w90 cWhite, Time Elapsed :
Gui, Add, Text, x95 y5 cWhite vTime w200 
Gui, Show, w640 h480, Click numbers in numeric order
Start:=A_TickCount
SetTimer, Hide, %Difficulty%
SetTimer, Timer, 100
StringReplace, nums, nums, `,, `n, All
Sort, nums, N
Return

Click1:
Click2:
Click3:
Click4:
Click5:
Click6:
Click7:
Click8:
Click9:
VarSetCapacity(NumExist,0)
PressedNum := SubStr(A_ThisLabel,6,1)
ControlGetText, NumExist, %PressedNum%
If NumExist
{
    Loop, Parse, nums, `n
    {
        If (PressedNum=A_LoopField && A_Index=1)
        {
            SoundPlay, %A_WinDir%\Media\Ding.wav
            StringReplace, nums, nums, %PressedNum%`n,
            GuiControl, Hide, Tag%NumExist%
            Break
        }
        Else
        {
            SoundPlay, *16
            Reload
            Break
        }
    }
}
If !nums
{
    Soundplay, *64
    SetTimer, Timer, Off
    Gui, Font, s16
    Gui, Add, Text, cWhite x150 y180, Your score : %Elapsed% secs / %Total% Numbers
    Gui, Font, s30
    Gui, Add, Text, cWhite gRestart x240 y230, Restart?
}
Return

Timer:
Elapsed := (A_TickCount-Start)/1000
GuiControl,, Time, %Elapsed% Secs
Return

Restart:
Reload
Return

Hide:
Loop, Parse, nums, `n
    GuiControl, +0x6, Tag%A_LoopField%
Return

GuiClose:
Exitapp

_________________
Easy WinAPI - Dive into Windows API World
Benchmark your AutoHotkey skills at PlayAHK.com
Back to top
View user's profile Send private message
ahklerner



Joined: 26 Jun 2006
Posts: 1220
Location: USA
PostPosted: Mon Jun 30, 2008 6:57 am    Post subject: Reply with quote
6.891 if i change the text size to 48 instead of 25.
_________________
Back to top
View user's profile Send private message
Alekoz



Joined: 17 Jun 2007
Posts: 157
PostPosted: Mon Jun 30, 2008 9:34 am    Post subject: Reply with quote
nice Smile
funny if you are bored at work and have nothing to do Razz
amazing how smart they are though...i got it wrong so many times
_________________
My BF2 Scripts
Back to top
View user's profile Send private message
Krogdor



Joined: 18 Apr 2008
Posts: 1025
Location: The Interwebs
PostPosted: Mon Jun 30, 2008 8:04 pm    Post subject: Reply with quote
Had to turn the difficulty down to 750 to get it...
At 500 I couldn't even see where all of them were ._.
Back to top
View user's profile Send private message AIM Address
SoggyDog



Joined: 02 May 2006
Posts: 225
Location: Greeley, CO
PostPosted: Mon Jun 30, 2008 10:51 pm    Post subject: Reply with quote
Well, I'll be a monkey's uncle!

Not really... I sucked (even at 48/750).
_________________

SoggyDog
Download AutoHotKey Wallpaper
Does 'Fuzzy Logic' tickle?
Back to top
View user's profile Send private message Send e-mail Visit poster's website MSN Messenger
argneo



Joined: 14 Sep 2007
Posts: 133
PostPosted: Tue Jul 01, 2008 1:47 pm    Post subject: Reply with quote
4,938secs/7num
I have youtube blocked in here... is that normal?
_________________
WoW
Back to top
View user's profile Send private message
BoBo²
Guest
PostPosted: Tue Jul 01, 2008 2:57 pm    Post subject: Reply with quote
Quote:
I have youtube blocked in here... is that normal?
Yes - if you live in Turkey. Because in 1981, the Turkish Parliament issued a law (5816) outlawing insults to his [Mustafa Kemal Atatürk's] legacy or attacks to objects representing him. Which seems to happen quite often in YouTube.
Back to top
Slanter



Joined: 28 May 2008
Posts: 307
Location: Minnesota, USA
PostPosted: Tue Jul 01, 2008 7:07 pm    Post subject: Reply with quote
4.656 once I figured out what I was doing Razz
Back to top
View user's profile Send private message Visit poster's website
argneo



Joined: 14 Sep 2007
Posts: 133
PostPosted: Wed Jul 02, 2008 1:52 pm    Post subject: Reply with quote
Thank you BoBo for that lesson in Turkish history... But i meant the time... I have youtube blocked at work Razz... not country...
_________________
WoW
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    AutoHotkey Community Forum Index -> Scripts & Functions All times are GMT
Page 1 of 1

 
Jump to:  
You can post new topics in this forum
You can reply to topics in this forum


Powered by phpBB © 2001, 2005 phpBB Group