Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Flash Memory Game

Started by Damein , Mar 16 2011 09:00 PM

Please log in to reply

6 replies to this topic

#1 Damein

Universalist

Active Members
364 posts

Posted 16 March 2011 - 09:00 PM

Hey there, this is just a fun game I made from AutoIt.

Thanks to Melba23 for his amazing help!

Edit: 3-16-11
Added feature in the level completed MsgBox that displays how many tries it took you.

Screenshots:

Game mode selection screen:

Posted Image

In-game layout:

Posted Image

So all in all there are four modes:

Easy, Medium, Hard, Expert.

Easy is a sequence of 20 colors in which each color will be displayed for 600miliseconds apart and then you will have to repeat the sequence.

Medium is 40 colors, at a 400milisecond wait time.

Hard is 50 colors, at a 200milisecond wait time.

And Expert is 60 colors, at just 100miliseconds.

If you do not enter the sequence in right you will not be reset, but just try again. You will be shown the colors again.

Good luck, and happy playing!

Any comments or suggestions please let me know

Plain Text

; Idea and original code by DaMeiN.
; Cleaned up and fixed by Melba23
; Thanks a lot Melba23 for your help!

#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
#include <GuiButton.au3>

Opt("GUIOnEventMode", 1)

Global $Gui, $CheckingAnswer = 0, $sUserAnswer = "", $CurrentLevel = 1, $Var, $fGame = "", $1, $2, $3, $4, $SleepTime, $AttemptNumber = 1

Intro()

While 1
    If $CheckingAnswer = 0 Then
        Switch $fGame
            Case "Easy"
                EasyGame()
            Case "Medium"
                MediumGame()            
            Case "Hard"
                HardGame()          
            Case "Expert"
                ExpertGame()
        EndSwitch
    EndIf

    Sleep(10)
WEnd

Func Intro()
    _GDIPlus_Startup ()
    $hPen = _GDIPlus_PenCreate ()
    $GUI = GUICreate("Flash Memory", 415, 423)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CloseGUI")
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND ($GUI)
    $FadedBlue = GuiCtrlCreatePic("Imgs\FadedBlue.bmp", 0,0,211,211)
    $FadedGreen = GuiCtrlCreatePic("Imgs\FadedGreen.bmp", 211,0,211,211)
    $FadedRed = GuiCtrlCreatePic("Imgs\FadedRed.bmp", 0,212,211,211)
    $FadedPurple = GuiCtrlCreatePic("Imgs\FadedPurple.bmp", 211,212,211,211)
        GuiSetState()
    $hBrush = _GDIPlus_BrushCreateSolid (0x7F00007F)
    $hFormat = _GDIPlus_StringFormatCreate ()
    $hFamily = _GDIPlus_FontFamilyCreate ("Chiller")
    $hFont = _GDIPlus_FontCreate ($hFamily, 63.85, 1)
    $tLayout = _GDIPlus_RectFCreate (0, 0, 400, 400)
    _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 211, 428, 211, $hPen)
    _GDIPlus_GraphicsDrawLine ($hGraphic, 211, 0, 211, 425, $hPen)
    For $Count = 0 To 5 Step +1
        GuiCtrlSetImage($FadedBlue, "Imgs\Blue.bmp",-1)
        Sleep(40)
        GUICtrlSetImage($FadedBlue, "Imgs\FadedBlue.bmp", -1)
        _GDIPlus_GraphicsDrawStringEx ($hGraphic, "  Welcome to" & @CRLF & "      the" & @CRLF & "Flash Memory" & @CRLF & "     Game!", $hFont, $tLayout, $hFormat, $hBrush)
        _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 211, 428, 211, $hPen)
            _GDIPlus_GraphicsDrawLine ($hGraphic, 211, 0, 211, 425, $hPen)
        Sleep(40)
        GUICtrlSetImage($FadedGreen, "Imgs\Green.bmp", -1)
        Sleep(40)
        GUICtrlSetImage($FadedGreen, "Imgs\FadedGreen.bmp", -1)
        _GDIPlus_GraphicsDrawStringEx ($hGraphic, "  Welcome to" & @CRLF & "      the" & @CRLF & "Flash Memory" & @CRLF & "     Game!", $hFont, $tLayout, $hFormat, $hBrush)
        _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 211, 428, 211, $hPen)
            _GDIPlus_GraphicsDrawLine ($hGraphic, 211, 0, 211, 425, $hPen)
        Sleep(40)
        GUICtrlSetImage($FadedRed, "Imgs\Red.bmp", -1)
        Sleep(40)
        GUICtrlSetImage($FadedRed, "Imgs\FadedRed.bmp", -1)
        _GDIPlus_GraphicsDrawStringEx ($hGraphic, "  Welcome to" & @CRLF & "      the" & @CRLF & "Flash Memory" & @CRLF & "     Game!", $hFont, $tLayout, $hFormat, $hBrush)
        _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 211, 428, 211, $hPen)
            _GDIPlus_GraphicsDrawLine ($hGraphic, 211, 0, 211, 425, $hPen)
        Sleep(40)
        GUICtrlSetImage($FadedPurple, "Imgs\Purple.bmp", -1)
        Sleep(40)
        GUICtrlSetImage($FadedPurple, "Imgs\FadedPurple.bmp", -1)
        _GDIPlus_GraphicsDrawStringEx ($hGraphic, "  Welcome to" & @CRLF & "      the" & @CRLF & "Flash Memory" & @CRLF & "     Game!", $hFont, $tLayout, $hFormat, $hBrush)
        _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 211, 428, 211, $hPen)
            _GDIPlus_GraphicsDrawLine ($hGraphic, 211, 0, 211, 425, $hPen)
    Next
    
        For $Count = 0 To 5 Step +1
            GUICtrlSetImage($FadedPurple, "Imgs\Purple.bmp", -1)
            Sleep(40)
            GUICtrlSetImage($FadedPurple, "Imgs\FadedPurple.bmp", -1)
        _GDIPlus_GraphicsDrawStringEx ($hGraphic, "  Welcome to" & @CRLF & "      the" & @CRLF & "Flash Memory" & @CRLF & "     Game!", $hFont, $tLayout, $hFormat, $hBrush)
        _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 211, 428, 211, $hPen)
            _GDIPlus_GraphicsDrawLine ($hGraphic, 211, 0, 211, 425, $hPen)
            Sleep(40)
            GUICtrlSetImage($FadedRed, "Imgs\Red.bmp", -1)
            Sleep(40)
            GUICtrlSetImage($FadedRed, "Imgs\FadedRed.bmp", -1)
        _GDIPlus_GraphicsDrawStringEx ($hGraphic, "  Welcome to" & @CRLF & "      the" & @CRLF & "Flash Memory" & @CRLF & "     Game!", $hFont, $tLayout, $hFormat, $hBrush)
        _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 211, 428, 211, $hPen)
            _GDIPlus_GraphicsDrawLine ($hGraphic, 211, 0, 211, 425, $hPen)
            Sleep(40)
            GUICtrlSetImage($FadedGreen, "Imgs\Green.bmp", -1)
            Sleep(40)
            GUICtrlSetImage($FadedGreen, "Imgs\FadedGreen.bmp", -1)
        _GDIPlus_GraphicsDrawStringEx ($hGraphic, "  Welcome to" & @CRLF & "      the" & @CRLF & "Flash Memory" & @CRLF & "     Game!", $hFont, $tLayout, $hFormat, $hBrush)
        _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 211, 428, 211, $hPen)
            _GDIPlus_GraphicsDrawLine ($hGraphic, 211, 0, 211, 425, $hPen)
            Sleep(40)
            GuiCtrlSetImage($FadedBlue, "Imgs\Blue.bmp",-1)
            Sleep(40)
            GUICtrlSetImage($FadedBlue, "Imgs\FadedBlue.bmp", -1)
        _GDIPlus_GraphicsDrawStringEx ($hGraphic, "  Welcome to" & @CRLF & "      the" & @CRLF & "Flash Memory" & @CRLF & "     Game!", $hFont, $tLayout, $hFormat, $hBrush)
        _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 211, 428, 211, $hPen)
            _GDIPlus_GraphicsDrawLine ($hGraphic, 211, 0, 211, 425, $hPen)
            Sleep(40)
        Next
    GuiDelete($Gui)
        _GDIPlus_Startup ()
    $hPen = _GDIPlus_PenCreate ()
    $GUI = GUICreate("Flash Memory", 415, 423)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CloseGUI")
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND ($GUI)
        $EasyButton = GuiCtrlCreateButton("Easy", 0, 0, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($EasyButton, "Imgs\EasyImage.bmp", 1)
    GUICtrlSetOnEvent($EasyButton, "Easy")
    $MediumButton = GuiCtrlCreateButton("Medium", 211, 0, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($MediumButton, "Imgs\MediumImage.bmp", 1)
    GUICtrlSetOnEvent($MediumButton, "Medium")
    $HardButton = GuiCtrlCreateButton("Hard", 0, 212, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($HardButton, "Imgs\HardImage.bmp", 1)
    GUICtrlSetOnEvent($HardButton, "Hard")
    $ExpertButton = GuiCtrlCreateButton("Expert", 211, 212, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($ExpertButton, "Imgs\ExpertImage.bmp", 1)
    GUICtrlSetOnEvent($ExpertButton, "Expert")
    GUISetState()
    _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 211, 428, 211, $hPen)
    _GDIPlus_GraphicsDrawLine ($hGraphic, 211, 0, 211, 425, $hPen)
    _GDIPlus_FontDispose ($hFont)
    _GDIPlus_GraphicsDispose ($hGraphic)
    _GDIPlus_FontFamilyDispose ($hFamily)
    _GDIPlus_StringFormatDispose ($hFormat)
    _GDIPlus_BrushDispose ($hBrush)

EndFunc

Func Easy()
    
    GuiDelete($Gui)
    $hPen = _GDIPlus_PenCreate ()
    $GUI = GUICreate("Flash Memory", 415, 423)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CloseGUI")
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND ($GUI)
    $1 = GuiCtrlCreateButton("Blue", 0, 0, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($1, "Imgs\FadedBlue.bmp", 1)
    GUICtrlSetOnEvent($1, "Blue")
    $2 = GuiCtrlCreateButton("Green", 211, 0, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($2, "Imgs\FadedGreen.bmp", 1)
    GUICtrlSetOnEvent($2, "Green")
    $3 = GuiCtrlCreateButton("Red", 0, 212, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($3, "Imgs\FadedRed.bmp", 1)
    GUICtrlSetOnEvent($3, "Red")
    $4 = GuiCtrlCreateButton("Purple", 211, 212, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($4, "Imgs\FadedPurple.bmp", 1)
    GUICtrlSetOnEvent($4, "Purple")
    GUISetState()
    _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 211, 428, 211, $hPen)
    _GDIPlus_GraphicsDrawLine ($hGraphic, 211, 0, 211, 425, $hPen)
    $SleepTime = "600"
    _GDIPlus_PenDispose ($hPen)
    _GDIPlus_Shutdown ()
    
    $Var = ""
    For $i = 1 To 20
        $Var &= Random(1, 4, 1)
    Next

    $fGame = "Easy"

EndFunc

Func Medium()
    
    GuiDelete($Gui)
    $hPen = _GDIPlus_PenCreate ()
    $GUI = GUICreate("Flash Memory", 415, 423)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CloseGUI")
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND ($GUI)
    $1 = GuiCtrlCreateButton("Blue", 0, 0, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($1, "Imgs\FadedBlue.bmp", 1)
    GUICtrlSetOnEvent($1, "Blue")
    $2 = GuiCtrlCreateButton("Green", 211, 0, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($2, "Imgs\FadedGreen.bmp", 1)
    GUICtrlSetOnEvent($2, "Green")
    $3 = GuiCtrlCreateButton("Red", 0, 212, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($3, "Imgs\FadedRed.bmp", 1)
    GUICtrlSetOnEvent($3, "Red")
    $4 = GuiCtrlCreateButton("Purple", 211, 212, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($4, "Imgs\FadedPurple.bmp", 1)
    GUICtrlSetOnEvent($4, "Purple")
    GUISetState()
    _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 211, 428, 211, $hPen)
    _GDIPlus_GraphicsDrawLine ($hGraphic, 211, 0, 211, 425, $hPen)
    $SleepTime = "400"
    _GDIPlus_PenDispose ($hPen)
    _GDIPlus_Shutdown ()
    
    $Var = ""
    For $i = 1 To 40
        $Var &= Random(1, 4, 1)
    Next

    $fGame = "Medium"

EndFunc

Func Hard()
    
    GuiDelete($Gui)
    $hPen = _GDIPlus_PenCreate ()
    $GUI = GUICreate("Flash Memory", 415, 423)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CloseGUI")
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND ($GUI)
    $1 = GuiCtrlCreateButton("Blue", 0, 0, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($1, "Imgs\FadedBlue.bmp", 1)
    GUICtrlSetOnEvent($1, "Blue")
    $2 = GuiCtrlCreateButton("Green", 211, 0, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($2, "Imgs\FadedGreen.bmp", 1)
    GUICtrlSetOnEvent($2, "Green")
    $3 = GuiCtrlCreateButton("Red", 0, 212, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($3, "Imgs\FadedRed.bmp", 1)
    GUICtrlSetOnEvent($3, "Red")
    $4 = GuiCtrlCreateButton("Purple", 211, 212, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($4, "Imgs\FadedPurple.bmp", 1)
    GUICtrlSetOnEvent($4, "Purple")
    GUISetState()
    _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 211, 428, 211, $hPen)
    _GDIPlus_GraphicsDrawLine ($hGraphic, 211, 0, 211, 425, $hPen)
    $SleepTime = "200"
    _GDIPlus_PenDispose ($hPen)
    _GDIPlus_Shutdown ()
    
    $Var = ""
    For $i = 1 To 50
        $Var &= Random(1, 4, 1)
    Next

    $fGame = "Hard"

EndFunc

Func Expert()
    
    GuiDelete($Gui)
    $hPen = _GDIPlus_PenCreate ()
    $GUI = GUICreate("Flash Memory", 415, 423)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CloseGUI")
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND ($GUI)
    $1 = GuiCtrlCreateButton("Blue", 0, 0, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($1, "Imgs\FadedBlue.bmp", 1)
    GUICtrlSetOnEvent($1, "Blue")
    $2 = GuiCtrlCreateButton("Green", 211, 0, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($2, "Imgs\FadedGreen.bmp", 1)
    GUICtrlSetOnEvent($2, "Green")
    $3 = GuiCtrlCreateButton("Red", 0, 212, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($3, "Imgs\FadedRed.bmp", 1)
    GUICtrlSetOnEvent($3, "Red")
    $4 = GuiCtrlCreateButton("Purple", 211, 212, 211, 211, $BS_BITMAP)
    GUICtrlSetImage($4, "Imgs\FadedPurple.bmp", 1)
    GUICtrlSetOnEvent($4, "Purple")
    GUISetState()
    _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 211, 428, 211, $hPen)
    _GDIPlus_GraphicsDrawLine ($hGraphic, 211, 0, 211, 425, $hPen)
    $SleepTime = "100"
    _GDIPlus_PenDispose ($hPen)
    _GDIPlus_Shutdown ()
    
    $Var = ""
    For $i = 1 To 60
        $Var &= Random(1, 4, 1)
    Next

    $fGame = "Expert"

EndFunc

Func EasyGame()
    For $i = 1 To $CurrentLevel
        $iCurrentColor = StringMid($Var, $i, 1)
        Switch $iCurrentColor
            Case 1
                GUICtrlSetImage($1, "Imgs\Blue.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($1, "Imgs\FadedBlue.bmp", 1)
                Sleep($SleepTime)
            Case 2
                GUICtrlSetImage($2, "Imgs\Green.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($2, "Imgs\FadedGreen.bmp", 1)
                Sleep($SleepTime)
            Case 3
                GUICtrlSetImage($3, "Imgs\Red.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($3, "Imgs\FadedRed.bmp", 1)
                Sleep($SleepTime)
            Case 4
                GUICtrlSetImage($4, "Imgs\Purple.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($4, "Imgs\FadedPurple.bmp", 1)
                Sleep($SleepTime)
        EndSwitch
    Next
    $CheckingAnswer = 1

EndFunc

Func MediumGame()
    
        For $i = 1 To $CurrentLevel
        $iCurrentColor = StringMid($Var, $i, 1)
        Switch $iCurrentColor
            Case 1
                GUICtrlSetImage($1, "Imgs\Blue.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($1, "Imgs\FadedBlue.bmp", 1)
                Sleep($SleepTime)
            Case 2
                GUICtrlSetImage($2, "Imgs\Green.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($2, "Imgs\FadedGreen.bmp", 1)
                Sleep($SleepTime)
            Case 3
                GUICtrlSetImage($3, "Imgs\Red.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($3, "Imgs\FadedRed.bmp", 1)
                Sleep($SleepTime)
            Case 4
                GUICtrlSetImage($4, "Imgs\Purple.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($4, "Imgs\FadedPurple.bmp", 1)
                Sleep($SleepTime)
        EndSwitch
    Next
    $CheckingAnswer = 1

EndFunc

Func HardGame()
    
        For $i = 1 To $CurrentLevel
        $iCurrentColor = StringMid($Var, $i, 1)
        Switch $iCurrentColor
            Case 1
                GUICtrlSetImage($1, "Imgs\Blue.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($1, "Imgs\FadedBlue.bmp", 1)
                Sleep($SleepTime)
            Case 2
                GUICtrlSetImage($2, "Imgs\Green.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($2, "Imgs\FadedGreen.bmp", 1)
                Sleep($SleepTime)
            Case 3
                GUICtrlSetImage($3, "Imgs\Red.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($3, "Imgs\FadedRed.bmp", 1)
                Sleep($SleepTime)
            Case 4
                GUICtrlSetImage($4, "Imgs\Purple.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($4, "Imgs\FadedPurple.bmp", 1)
                Sleep($SleepTime)
        EndSwitch
    Next
    $CheckingAnswer = 1

EndFunc

Func ExpertGame()
    
        For $i = 1 To $CurrentLevel
        $iCurrentColor = StringMid($Var, $i, 1)
        Switch $iCurrentColor
            Case 1
                GUICtrlSetImage($1, "Imgs\Blue.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($1, "Imgs\FadedBlue.bmp", 1)
                Sleep($SleepTime)
            Case 2
                GUICtrlSetImage($2, "Imgs\Green.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($2, "Imgs\FadedGreen.bmp", 1)
                Sleep($SleepTime)
            Case 3
                GUICtrlSetImage($3, "Imgs\Red.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($3, "Imgs\FadedRed.bmp", 1)
                Sleep($SleepTime)
            Case 4
                GUICtrlSetImage($4, "Imgs\Purple.bmp", 1)
                Sleep($SleepTime)
                GUICtrlSetImage($4, "Imgs\FadedPurple.bmp", 1)
                Sleep($SleepTime)
        EndSwitch
    Next
    $CheckingAnswer = 1

EndFunc

Func CheckAnswer()

    $CheckingAnswer = 0
    For $i = 1 To $CurrentLevel
        If StringMid($sUserAnswer, $i, 1) <> StringMid($Var, $i, 1) Then
            MsgBox(0, "Invalid Entry", "Sorry, that was an invalid entry!" & @CRLF & "Please, try again")
            $AttemptNumber += 1
            $sUserAnswer = ""
            Return
        EndIf
    Next
    MsgBox(0, "Good job", "You completed level: " & $CurrentLevel & "  Proceeding to level: " & $CurrentLevel+1 & @CRLF & "It took you: " & $AttemptNumber & " tries!")
    $AttemptNumber = 1
    $sUserAnswer = ""
    $CurrentLevel += 1
    If $fgame = "Easy" Then
    If $CheckingAnswer = 21 Then
        MsgBox(0, "Congrats", "You have completed the Easy level")
        $CurrentLevel = 1
    EndIf
ElseIf $fgame = "Medium" Then
        If $CheckingAnswer = 41 Then
        MsgBox(0, "Congrats", "You have completed the Medium level")
        $CurrentLevel = 1
    EndIf
ElseIf $fgame = "Hard" Then
        If $CheckingAnswer = 51 Then
        MsgBox(0, "Congrats", "You have completed the Hard level")
        $CurrentLevel = 1
    EndIf
ElseIf $fgame = "Expert" Then
        If $CheckingAnswer = 61 Then
        MsgBox(0, "Congrats", "You have completed the Expert level")
        $CurrentLevel = 1
    EndIf
    EndIf

EndFunc

Func Blue()
    
    If Not $CheckingAnswer Then Return
    $sUserAnswer &= "1"
    If StringLen($sUserAnswer) = $CurrentLevel Then
        CheckAnswer()
    EndIf

EndFunc

Func Green()

    If Not $CheckingAnswer Then Return
    $sUserAnswer &= "2"
    If StringLen($sUserAnswer) = $CurrentLevel Then
        CheckAnswer()
    EndIf

EndFunc

Func Red()

    If Not $CheckingAnswer Then Return
    $sUserAnswer &= "3"
    If StringLen($sUserAnswer) = $CurrentLevel Then
        CheckAnswer()
    EndIf

EndFunc

Func Purple()

    If Not $CheckingAnswer Then Return
    $sUserAnswer &= "4"
    If StringLen($sUserAnswer) = $CurrentLevel Then
        CheckAnswer()
    EndIf

EndFunc

Func CloseGUI()
    Exit
EndFunc

Images:
Download link for images
(Extract and put both source + images in the same folder)
(IE: C:\FlashMemory for the source and C:\FlashMemory\Imgs for the images)

Edited by Damein, 16 March 2011 - 09:21 PM.

Posted Image

Most recent sig. I made

Back to top

#2 wakillon

Tiny Tools Coder

Active Members
2,483 posts

Posted 17 March 2011 - 11:03 AM

Good work ! Posted Image

Thanks to share.

• AutoIt Version : 3.3.8.1/3.3.9.4 SciTE 3.3.0 Language:040C OS:WIN_7/ CPU:X64 OS:X64

[Music] [2012-04-07] TinyChartsJukebox • [2012-07-28] TinyMp3Player • [2012-10-07] Mp3SearchEngine [2013-04-04] TinyMp3Downloader • [2012-11-05] TinyShoutCastTuner • [2012-11-01] BeepSongEditor

[Upload] [2011-12-31] TinyFreeUploader • [2012-07-13] TinyPicCaptureUploader

[Script Tools] [2012-10-03] SciTE Hopper • [2013-04-10] AutoIt&SciTEUpdater • [2012-12-21] TinyColorCatcher [2012-07-13] RegJumper • [2013-05-17] BinaryToAu3Kompressor • [2012-06-06] TinyAu3FilesSearch

[Utilities] [2012-06-30] GetCommandLineParameters • [2011-12-21] TinyBackupBox • [2010-09-25] TinyBatteryBar [2011-12-05] TinyBrightnessControler • [2012-09-03] TinyUninstaller • [2012-07-01] TinyClipToSpeech • [2013-05-21] InternetShortcutCreator

[Diverse] [2013-03-06] AnimatedSplash • [2013-01-18] GuiCtrlPicButton Simulate Reaction • [2012-04-15] CanYouRunIt

• Last updated Scripts and executables with full embedded files are available on : GoogleCode

Back to top

#3 Damein

Universalist

Active Members
364 posts

Posted 18 March 2011 - 04:22 PM

Thanks, I plan to make more games in the future, not sure what they will be yet though!

Posted Image

Most recent sig. I made

Back to top

#4 Damein

Universalist

Active Members
364 posts

Posted 22 March 2011 - 04:13 PM

Hmm, lots of views.. only one comment

Did anyone try beating expert mode and if so how many tries?

Comments!

Posted Image

Most recent sig. I made

Back to top

#5 ojef1

Seeker

Active Members
33 posts

Posted 24 March 2011 - 03:44 AM

I didnt see the colors every box was gray

Back to top

#6 Damein

Universalist

Active Members
364 posts

Posted 24 March 2011 - 06:55 PM

Did you download the images and keep them in the right folders?

Posted Image

Most recent sig. I made

Back to top

#7 AppTux

Adventurer

Active Members
130 posts

Posted 24 March 2011 - 07:48 PM

Nice program! I was trying to do the expert mode, but it was a bit... boring after a time. But that's just the kind of games I like.

PowerSlide2UnlockiPhone look-a-like program you can use to lock your pc, you can't access your desktop again until the password is entered and the slider slided to the right. (really proud of it)-- After a time AutoIt and Windows, I switched to Mac. Don't expect me to answer anymore.