DAY 016: _MOUSEINPUT - Printable Version

Code: (Select All)

DIM mse AS mm ' Let's do a TYPE instead of passing all variables or doing a DIM SHARE.

WIDTH 50, 25

_FONT 16

TYPE mm

    my AS INTEGER

    mx AS INTEGER

    oldmy AS INTEGER

    oldmx AS INTEGER

    lb AS INTEGER

END TYPE

PALETTE 1, 8

COLOR 9, 1: CLS



COLOR 0, 7

PALETTE 5, 63: PALETTE 6, 63

icon_x = _WIDTH - 1 ' Row.

icon_y = 2 ' Column.

COLOR 0, 6: LOCATE icon_y, 1: PRINT SPACE$(_WIDTH);

COLOR 0, 5: LOCATE icon_y, icon_x: PRINT "X"; ' Place an exit symbol on the screen.

VIEW PRINT 4 TO _HEIGHT

z1 = TIMER

DO

    _LIMIT 30



    mini_mouse mse ' Poll the mini mouse routine.



    IF mse.lb THEN ' Left button down.

        IF catwatch THEN

            SOUND 200, .2

            COLOR 15, 1: LOCATE 5, 1: PRINT " Miss Whiskers has her kitty-butt on your mouse!"

            catwatch = 1 - catwatch: z1 = TIMER

            IF trigger = hotspot THEN activate = hotspot ' Setting activate means we mouse clicked down on it but haven't released yet.

        END IF

    ELSE

        ' Highlight the exit icon on hover, but only once so it isn't going on and off like hell. The oldmx variables insure this once and done action.

        IF mse.my = icon_y AND mse.mx = icon_x AND mse_old.my <> mse.my AND mse_old.mx <> mse.mx THEN

            hotspot = ((mse.my - 1) * _WIDTH + mse.mx - 1) + 1 ' Matrix the screen to combine the row and column values as a single variable.

            trigger = hotspot ' Just a shorthand way so we don't keep using ((mse.my - 1) * _WIDTH + mse.mx - 1) + 1

            PALETTE 5, 4: PALETTE 0, 63

        ELSE ' When no longer hovering on exit icon reset the variables and lose the highlighting.

            hotspot = 0: trigger = 0

            PALETTE 5, 63: PALETTE 0, 0

        END IF



        IF catwatch = 0 THEN

            COLOR 15, 1: LOCATE 5, 1: PRINT " Miss Whiskers is eyeballing your laptop...      ";

            catwatch = 1 - catwatch: z1 = TIMER

        END IF



        IF activate THEN ' When button is released we check to see if the exit icon was clicked and if the mouse pointer is still on the icon.

            IF activate = hotspot THEN

                SYSTEM ' Quit.

            ELSE

                activate = 0: trigger = 0: hotspot = 0 ' The mouse cursor got moved so the exit was avoided.

            END IF

        END IF

    END IF

    LOCATE 7, 2: PRINT "Cat Watch Timer: "; INT(ABS(z1 - TIMER))

    REM LOCATE 7, 1: PRINT mse.my; mse.mx; mse_old.my; mse_old.mx; trigger; hotspot; activate; "    ";

LOOP



SUB mini_mouse (mse AS mm)

    mse_old.my = mse.my: mse_old.mx = mse.mx

    WHILE _MOUSEINPUT: WEND

    mse.mx = _MOUSEX

    mse.my = _MOUSEY

    mse.lb = _MOUSEINPUT(1)

    IF mse.lb AND _MOUSEBUTTON(1) = 0 THEN

        mse.lb = 0

    ELSE

        IF mse.lb = 0 AND _MOUSEBUTTON(1) THEN

            mse.lb = -1

        END IF

    END IF

END SUB

Code: (Select All)

    DO

        LIMIT LIMITRATE



        'INSERT MOUSE READING SUB HERE        



        CLS

        PUTIMAGE (0, 0), Intro

        SELECT CASE Pointer 'Used for keyboard selection

            CASE 0: PUTIMAGE (375, 221), CheckSelect

            CASE 1: PUTIMAGE (375, 292), CheckSelect

            CASE 2: PUTIMAGE (375, 365), CheckSelect

            CASE 3: PUTIMAGE (375, 437), CheckSelect

            CASE 4: PUTIMAGE (375, 510), CheckSelect

        END SELECT

        DISPLAY 

        IF SelectFlag THEN PAUSE (TIME) 'Avoid double press delay

        SelectFlag = FALSE

        'Checking for key press (keyboard)

        IF KEYDOWN(CVI(CHR$(0) + "H")) THEN ' up case

            IF Pointer = 0 THEN Pointer = 4 ELSE Pointer = Pointer - 1

            SelectFlag = TRUE

        END IF

        IF KEYDOWN(CVI(CHR$(0) + "P")) THEN 'down case

            IF Pointer = 4 THEN Pointer = 0 ELSE Pointer = Pointer + 1

            SelectFlag = TRUE

        END IF

        

        'Some kind of if/then or select case to check for mouse actions?



    LOOP UNTIL KEYDOWN(13) OR KEYDOWN(32) 'Return/Spacebar to select - include a mouse flag that a choice was made???

Code: (Select All)

DO



Do

    _Limit 30

    While _MouseInput: Wend

    x = _MouseX

    y = _MouseY

    ' Put other mouse stuff here like reading left and right button status.

    lb = _MouseButton(1)

    ' Put what to do here if a button is pressed.

    If lb Then

        If oldX <> x And oldY <> y Then Beep ' Only beeps again if mouse is moved to a new location.

        oldX = x: oldY = y

    End If

    Locate 1, 1: Print "x ="; x; "oldx ="; oldX, "y ="; y; "oldy ="; oldY; "  ";

Loop