Click The Button Game

[PhilOfPerth]

Here is a much more fun version. Every time you click the button, the game speeds up by 10 _LIMIT numbers. I've tried it once so far and got a score of 45.  
Try it out!

Code: (Select All)

Screen _NewImage(800, 600, 32)

begin:

score = 0

speed = 0

buttonx = 370

buttony = 300

text$ = "Click"

_Title "Click The Button Game by SierraKen"



c = 10

For bb = 0 To 30

    c = c + 10

    Line (buttonx + bb, buttony + bb)-(buttonx2 - bb, buttony2 - bb), _RGB32(100 + c, 100 + c, 100 + c), B

Next bb

Color _RGB32(0, 0, 0)

_PrintString (buttonx + 32, buttony + 17), text$



dir = 1

t = Timer

Do



    _Limit 300 + speed

    buttonx2 = buttonx + 100

    buttony2 = buttony + 50

    ti = Timer - t

    c = 10

    For bb = 0 To 30

        c = c + 10

        Line (buttonx + bb, buttony + bb)-(buttonx2 - bb, buttony2 - bb), _RGB32(100 + c, 100 + c, 100 + c), B

    Next bb

    Color _RGB32(0, 0, 0), _RGB32(255, 255, 255)

    _PrintString (buttonx + 32, buttony + 17), text$

    Color _RGB32(255, 255, 255), _RGB32(0, 0, 0)

    Locate 1, 1: Print "Score: "; score

    Locate 2, 1: Print "Time Left: "; Int(120 - ti)

    If Int(120 - ti) < 1 Then

        Locate 30, 50

        Print "The End"

        Locate 34, 50

        Input "Again (Y/N)"; ag$

        If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo begin:

        End

    End If

    While _MouseInput: Wend

    mousex = _MouseX

    mousey = _MouseY

    mouseLeftButton = _MouseButton(1)



    If mouseLeftButton Then

        Clear_MB 1

        If mousex > buttonx And mousex < buttonx2 And mousey > buttony And mousey < buttony2 Then



            c = 110

            _AutoDisplay

            For bb = 0 To 30

                c = c - 10

                Line (buttonx + bb, buttony + bb)-(buttonx2 - bb, buttony2 - bb), _RGB32(100 + c, 100 + c, 100 + c), B

            Next bb

            _Delay .1



            For bb = 0 To 30

                c = c + 10

                Line (buttonx + bb, buttony + bb)-(buttonx2 - bb, buttony2 - bb), _RGB32(100 + c, 100 + c, 100 + c), B

            Next bb

            _Delay .05



            c = 10

            For bb = 0 To 30

                c = c + 10

                Line (buttonx + bb, buttony + bb)-(buttonx2 - bb, buttony2 - bb), _RGB32(100 + c, 100 + c, 100 + c), B

            Next bb



            _Delay .1

            Color _RGB32(0, 0, 0), _RGB32(255, 255, 255)

            _PrintString (buttonx + 32, buttony + 17), text$

            Sound 900, 1, , , 6

            score = score + 1

            Color _RGB32(255, 255, 255), _RGB32(0, 0, 0)

            Locate 1, 1: Print "Score: "; score

            buttonx = Int(Rnd * 650) + 49

            buttony = Int(Rnd * 500) + 19

            speed = speed + 10

        End If

    End If



    changedir = Int(Rnd * 100) + 1

    If changedir > 95 Then

        dir = Int(Rnd * 8) + 1

    End If

    If dir = 1 Then buttony = buttony + 1

    If dir = 2 Then buttony = buttony - 1

    If dir = 3 Then buttonx = buttonx + 1

    If dir = 4 Then buttonx = buttonx - 1



    If dir = 5 Then buttony = buttony + 1: buttonx = buttonx + 1

    If dir = 6 Then buttony = buttony - 1: buttonx = buttonx - 1

    If dir = 7 Then buttonx = buttonx + 1: buttony = buttony + 1

    If dir = 8 Then buttonx = buttonx - 1: buttony = buttony - 1



    If buttonx > 700 And dir = 3 Then dir = 4

    If buttonx > 700 And dir = 7 Then dir = 8

    If buttonx < 50 And dir = 4 Then dir = 3

    If buttonx < 50 And dir = 8 Then dir = 7



    If buttony > 520 And dir = 1 Then dir = 2

    If buttony > 520 And dir = 5 Then dir = 6

    If buttony < 50 And dir = 2 Then dir = 1

    If buttony < 50 And dir = 8 Then dir = 7

    _Display

    Cls , _RGB32(0, 0, 0)





Loop Until InKey$ = Chr$(27)





Sub Clear_MB (var As Integer)



    Do Until Not _MouseButton(var)

        While _MouseInput: Wend

    Loop



End Sub 'Clear_MB

Nice! Quite challenging to score (for me) .
I found I can "cheat" by holding mouse button down, moving to button, then release and click