@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...
So see? Mine's much shorter than anyone's here!!!!!!! (OH SHUT UP, STEVE!)
Pete
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 SubSo see? Mine's much shorter than anyone's here!!!!!!! (OH SHUT UP, STEVE!)
Pete
Shoot first and shoot people who ask questions, later.