Re: MouseInput

[Dav]

Looks like you need to call the MouseUpdate SUB.  Also, in the SUB you will need to call the _MOUSEINPUT function again in the WHILE:WEND loops to get changed mouse data. Like this..

Code: QB64: [Select]

1. TYPE TypeMouse
2.     image AS LONG
3.  
4.     mb AS INTEGER
5.     ms AS INTEGER
6.  
7.     mx AS INTEGER
8.     my AS INTEGER
9. END TYPE
10.  
11. DIM SHARED Rat AS TypeMouse
12.  
13.  
14. WHILE NOT Done
15.     MouseUpdate
16.     IF Rat.mb > 0 THEN
17.         PRINT Rat.mb, Rat.mx; Rat.my
18.     END IF
19.  
20.     _LIMIT 60
21. WEND
22.  
23. SUB MouseUpdate
24.     IF _MOUSEINPUT THEN
25.         Rat.mx = _MOUSEX
26.         Rat.my = _MOUSEY
27.  
28.         IF _MOUSEBUTTON(1) THEN
29.             Rat.mb = 1
30.             WHILE _MOUSEBUTTON(1): n = _MOUSEINPUT: WEND
31.         END IF
32.  
33.         IF _MOUSEBUTTON(2) THEN
34.             Rat.mb = 2
35.             WHILE _MOUSEBUTTON(2): n = _MOUSEINPUT: WEND
36.         END IF
37.  
38.         IF _MOUSEBUTTON(3) THEN
39.             Rat.mb = 3
40.             WHILE _MOUSEBUTTON(3): n = _MOUSEINPUT: WEND
41.         END IF
42.     END IF
43. END SUB
44.  

[Pete]

Yep, that's why I'm against the legalization of weed.

Pete

[SMcNeill]

        IF _MOUSEBUTTON(1) THEN
            Rat.mb = 1
            WHILE _MOUSEBUTTON(1): n = _MOUSEINPUT: WEND
        END IF


Note: The above will generate a pause in your program and stop execution until the mouse button is released.  Press it down, hold it, and your program locks up until you release it.

[SMcNeill]

  IF _MOUSEBUTTON(1) THEN Rat.mButton = 1
  IF _MOUSEBUTTON(2) THEN Rat.mButton = 2
  IF _MOUSEBUTTON(3) THEN Rat.mButton = 3
  IF Rat.mButton THEN
      WHILE _MOUSEBUTTON(Rat.mButton): Rat.mInput = _MOUSEINPUT: WEND
  END IF

[Pete]

I can sympathize. I've had days I've looked for my glasses, but I was already wearing them. That's scary. I'd try braille,  which might be okay for computing, but not so much for commuting.  I don't think I could keep my sanity driving over all those damn bumps in the road!

Pete

 - Yeah, I know. Now who's smoking something now?

[Pete]

Now if only I can figure out why it works in a simple program but in my game it fails successfully at detecting ANY mouse button presses.  Jinkies!

Try it again in your game, but eliminate the _LIMIT statement. Depending how it is used, _LIMIT can cause a program to miss a mouse click. It may not be the problem in your case, but it's worth a shot.

Pete

[OldMoses]

I tried posting earlier but it was lost,...forever lost! ;)

Anyway, here's a slightly updated thing that I have been working on, that is based largely upon Luke's mouse input article.

Code: QB64: [Select]

1. '// This method of mouse polling reliably captures mousebutton clicks
2. '// as single events. It can be done on mouse down or mouse release
3. TYPE mousestuff
4.     b AS INTEGER
5.     s AS STRING * 4
6.     x AS INTEGER
7.     y AS INTEGER
8. END TYPE
9.  
10. DIM rat AS mousestuff
11.  
12. DO
13.     IF _MOUSEINPUT THEN
14.         'Is the button still in the same position?
15.         IF _MOUSEBUTTON(1) = mouse_down AND _MOUSEBUTTON(2) = mouse2_down THEN
16.             DO WHILE _MOUSEINPUT
17.                 m1% = _MOUSEBUTTON(1): m2% = _MOUSEBUTTON(2)
18.                 IF _MOUSEBUTTON(1) <> mouse_down AND m1% THEN 'left click
19.                     rat.x = _MOUSEX: rat.y = _MOUSEY: rat.b = 1: rat.s = "down": Showchange rat
20.                     EXIT DO 'Process through the queue until the button changes state
21.                 END IF
22.                 IF _MOUSEBUTTON(1) <> mouse_down AND NOT m1% THEN 'left release
23.                     rat.x = _MOUSEX: rat.y = _MOUSEY: rat.b = 1: rat.s = "up": Showchange rat
24.                     EXIT DO
25.                 END IF
26.                 IF _MOUSEBUTTON(2) <> mouse2_down AND m2% THEN 'right click
27.                     rat.x = _MOUSEX: rat.y = _MOUSEY: rat.b = 2: rat.s = "down": Showchange rat
28.                     EXIT DO
29.                 END IF
30.                 IF _MOUSEBUTTON(2) <> mouse2_down AND NOT m2% THEN 'right release
31.                     rat.x = _MOUSEX: rat.y = _MOUSEY: rat.b = 2: rat.s = "up": Showchange rat
32.                     EXIT DO
33.                 END IF
34.             LOOP
35.         END IF
36.         mouse_down = _MOUSEBUTTON(1)
37.         mouse2_down = _MOUSEBUTTON(2)
38.         'Do mouse processing here
39.     END IF
40.     'Do other stuff
41.     _LIMIT 30
42. LOOP
43.  
44. SUB Showchange (var AS mousestuff)
45.  
46.     PRINT var.x, var.y, "button:"; var.b, var.s
47.  
48. END SUB
49.