What do you guys like to use for mouse mapping?

[Pete]

@bplus Verbose? What bush whacking, butt munching, monkey thumping thing of a rattlesnake from hell are you bad mouthing, blabbering aimlessly, and yammering about now? Oh, now I get it.  

But in my defense, I included a complete mouse routine, centering function, and a text description of the process.... So let's whittle that **** out and we are left with...

Code: (Select All)

a$ = "[F1] Help  [F5] Save  [Enter] Laugh at Steve  [Esc] Quit"

f$ = Space$(_Width): Mid$(f$, _Width \ 2 - Len(a$) \ 2 + 1) = a$

Locate _Height, 1: Print f$;

temp$ = " "

For i = 1 To Len(f$) ' Map mouse hot zones.

    x$ = Mid$(f$, i, 1)

    If hot Then

        If Left$(LTrim$(Mid$(f$, i) + "["), 1) = "[" Then

            hot = 1 - hot: temp$ = " "

        End If

    End If

    If x$ <> Chr$(32) And hot = 0 Then

        hot = 1 - hot: j = j + 1: temp$ = Chr$(96 + j)

    End If

    map$ = map$ + temp$

Next

Do

    _Limit 30

    MyMouse_and_Keyboard lb, my, mx

    If lb And my = _Height Then

        Select Case Asc(Mid$(map$, mx, 1)) - 96

            Case 1: Print "You selected: Help"

            Case 2: Print "You selected: Save"

            Case 3: Print "You selected: Laugh at Steve. Great choice!"

            Case 4: Print "You selected: Quit. See you later!": End

        End Select

    End If

Loop

Sub MyMouse_and_Keyboard (lb, my, mx)

    While _MouseInput: Wend

    my = _MouseY: mx = _MouseX: lb = _MouseButton(1)

    If lb Then _Delay .25

End Sub

So see? Mine's much shorter than anyone's here!!!!!!! (OH SHUT UP, STEVE!)

Pete