BrainPain (Game)

[mrbond007]

Brain Pain is a collection of simple, fun, addictive and effective pc games to train your brain. It offers activities to stimulate your brain by, solving simple equations as fast as possible, counting icons and many other easy and interesting games.

It has 5 sections and each section has 6 mini games which can be played in 4 levels of difficulty. Also included a brain testing section for more fun. Unpack the zip file and let the fun begins.

Notes :

Feel free to add one second to the timer (adding more then one second is cheating)

Read the help file you might like it.

If you like it consider making a donation : http://www.autoitscript.com/donate.php

A translated version of this game by Xenobiologist can be found here

Download : http://www.autoitscript.com/forum/index.ph...mp;showfile=105

Edited March 8, 2008 by mrbond007

[jvanegmond]

The game was not running for me until I realised it does this to check if it is not already running:

If WinExists("Brain Pain") Then Exit

Try to use SingleTon.

[gseller]

Haha!! I Love The Helpfile!! Have not even tried the game yet.. LOL

edit: Very cool, only problem I see is no exit from game. I had to end task...

Edited December 14, 2007 by gesller

[Nahuel]

BWAHAHA awesomee!! haha, the music is hilarious!

-edit-

Please add an exit button

Edited December 14, 2007 by Nahuel

[mrbond007]

I see is no exit from game. I had to end task...

Alt+F4 exits the game

[Nahuel]

Haha, dude I love it. Did you create all the games?

[mrbond007]

Haha, dude I love it. Did you create all the games?

of course what do you think?

this project is the result of my AutoIt addiction (i spent nights developping it)

Edited December 14, 2007 by mrbond007

[Nahuel]

Haha, well let me tell you I fricking love it! Seriously! I can't stop playing! I love these games and they are very well made, 5 stars for you.

Maybe a suggestion. Add a simpler way of exiting the games, like ESC. Just a thought, since not everyone knows how to close a window with the keyboard.

I couldn't help noticing that you use this to run the games:

Run(@AutoItExe & " /AutoIt3ExecuteScript " & _
            FileGetShortName(@ScriptDir & "\Games\" & $Names[121])

This takes away any chance of compiling the game and sharing it.

[mrbond007]

Haha, well let me tell you I fricking love it! Seriously! I can't stop playing! I love these games and they are very well made, 5 stars for you.

Maybe a suggestion. Add a simpler way of exiting the games, like ESC. Just a thought, since not everyone knows how to close a window with the keyboard.

I couldn't help noticing that you use this to run the games:

Run(@AutoItExe & " /AutoIt3ExecuteScript " & _
            FileGetShortName(@ScriptDir & "\Games\" & $Names[121])

This takes away any chance of compiling the game and sharing it.

think about it. All games are seperated because if you put them into one file, the file will be around 800kb so it may not run correctly on all computers (memory errors) Edited December 14, 2007 by mrbond007

[Nahuel]

Compile them all Haha, shouldn't be hard if you make a script to do it.

[Valuater]

Love it!!!

Clicked 5 Stars for you

maybe.. just add

HotKeySet("{ESC}", "Close")

Thanks for sharing

8)

... and I thought I was Obsessive!!!

[Toady]

Wow, this is a really nice application. I like the animation's used with navigating from place to place. The interface is very easy to use. There are so many games, I will have fun playing this at work. 5 stars!

[Valuater]

might want to look at a little effieciency...

change these three areas

Global $Waray[6]
$Waray[0] = GUICtrlCreateLabel("Quick Thinking", 15, 10, 480, 30)
$Waray[1] = GUICtrlCreateLabel("Count And Calculate", 15, 65, 480, 30)
$Waray[2] = GUICtrlCreateLabel("Super Memory", 15, 120, 480, 30)
$Waray[3] = GUICtrlCreateLabel("Speed Analyzing", 15, 175, 480, 30)
$Waray[4] = GUICtrlCreateLabel("Identify", 15, 230, 480, 30)
$Waray[5] = GUICtrlCreateLabel("Brain Age Test", 15, 285, 480, 30)

For $i = 0 To UBound($Waray)-1
    GUICtrlSetBkColor($Waray[$i], 0xFFBF00)
    GUICtrlSetColor($Waray[$i], 0xFFFFFF)
    GUICtrlSetFont($Waray[$i], 20, -1, 2)
    GUICtrlSetCursor($Waray[$i], 0)
    GUICtrlSetOnEvent($Waray[$i], "ShowGames")
Next

; and ..

Func ShowGames()
    SoundPlay($SPath & "S1.wav")
    ExitG($ChildG)
    For $i = 0 To UBound($Waray)-1
        GUICtrlSetState($Waray[$i], $GUI_HIDE)
        If @GUI_CtrlHandle = ControlGetHandle($ChildG, "", $Waray[$i]) Then $RHandle = Eval("Ctrl" & ($i + 1))
    Next
    For $i = 0 To UBound($RHandle)-1
        GUICtrlSetState($RHandle[$i], $GUI_SHOW)
    Next    
    EnterG($ChildG)
EndFunc

I am sure you will know what they are and if you like.. where they go

8)

[Valuater]

... another idea...

There are 120 controls in $Ctrls, Maybe after the right control is found and you called the execution,

... just exit the loop

Func PlayTime()
    For $i = 0 To UBound($Ctrls)-1
        If @GUI_CtrlHandle = ControlGetHandle($ChildG, "", $Ctrls[$i]) Then 
            Run(@AutoItExe & " /AutoIt3ExecuteScript " & _
            FileGetShortName(@ScriptDir & "\Games\" & $Names[$i]))
            ExitLoop ; HERE***
        EndIf
    Next

and anywhere else you might note

8)

NOTED : Alpha24 is an "H" not an "X" like it should be..

Edited December 14, 2007 by Valuater

[Gif]

Nice. Maybe you should add some menus like, when i enter a game im forced to use methods to force it to end (terminate). And what if i want to go back to the menu to choose games again?

Edited December 14, 2007 by Gif

[GtaSpider]

hello

Anwesome, very nice!

But i miss a exit button/Close on ESC. Yes, i know it works with ALT+F4 but i close my autoit guis allways with ESC

Only delte Line 60 - Opt("GUICloseOnESC", 0)

5/5 Points!

Mfg / Best Regards Spider

[JustinReno]

Only delte Line 60 - Opt("GUICloseOnESC", 0)

Don't delete it, just change the 0 to 1 and see if ESC works.

Overall, I'm extremely impressed, this is a very nice application. Good Job!

[mrbond007]

might want to look at a little effieciency...

change these three areas

Global $Waray[6]
$Waray[0] = GUICtrlCreateLabel("Quick Thinking", 15, 10, 480, 30)
$Waray[1] = GUICtrlCreateLabel("Count And Calculate", 15, 65, 480, 30)
$Waray[2] = GUICtrlCreateLabel("Super Memory", 15, 120, 480, 30)
$Waray[3] = GUICtrlCreateLabel("Speed Analyzing", 15, 175, 480, 30)
$Waray[4] = GUICtrlCreateLabel("Identify", 15, 230, 480, 30)
$Waray[5] = GUICtrlCreateLabel("Brain Age Test", 15, 285, 480, 30)

For $i = 0 To UBound($Waray)-1
    GUICtrlSetBkColor($Waray[$i], 0xFFBF00)
    GUICtrlSetColor($Waray[$i], 0xFFFFFF)
    GUICtrlSetFont($Waray[$i], 20, -1, 2)
    GUICtrlSetCursor($Waray[$i], 0)
    GUICtrlSetOnEvent($Waray[$i], "ShowGames")
Next

; and ..

Func ShowGames()
    SoundPlay($SPath & "S1.wav")
    ExitG($ChildG)
    For $i = 0 To UBound($Waray)-1
        GUICtrlSetState($Waray[$i], $GUI_HIDE)
        If @GUI_CtrlHandle = ControlGetHandle($ChildG, "", $Waray[$i]) Then $RHandle = Eval("Ctrl" & ($i + 1))
    Next
    For $i = 0 To UBound($RHandle)-1
        GUICtrlSetState($RHandle[$i], $GUI_SHOW)
    Next    
    EnterG($ChildG)
EndFunc

I am sure you will know what they are and if you like.. where they go

8)

I'll improve it later since i'm currently recovering, can't work on it today otherwise i'm might get sick

NOTED : Alpha24 is an "H" not an "X" like it should be..

looks like an "H" but if you look carefully it's an "X"

@All

game updated : added an exit button + minor fixes

Edited December 15, 2007 by mrbond007

[mrbond007]

Nice. Maybe you should add some menus like, when i enter a game im forced to use methods to force it to end (terminate). And what if i want to go back to the menu to choose games again?

adding menus is alot of pain, i'll be forced to rebuild everything, i just had to seperate all games into seperate files. when you choose a game to play either wait for it to finish or terminate it with Alt+F4 to get back to the previous script (where you can choose the games)

[BrettF]

Nice job