Mouse Help Needed

[bplus]

Well I got the sliders working, power = vel  0 to 100 and angle a = 0 to 90 what you do after that is on you.

Seems like after computer fires it dies after 3 tries or so???

Here is part I fixed:

Code: (Select All)

'This is the part that I can't fix --------------------------------------------------------

go:
_Display ' update screen !!! sure like to know if my turn or not after computer
fired = 0
While _MouseInput: Wend
mx = _MouseX: my = _MouseY: mb = _MouseButton(1) ' this update the mouse x, y and button status save to variable because they change
If mb Then
    If mx >= 60 And my <= 260 Then
        If my >= 40 And my < 70 Then
            vel = (mx - 60) / 200 * 100  ' converts place in box to 0 to 100

            Line (61, 41)-(259, 69), _RGB32(156, 210, 237), BF
            Line (61, 41)-(mx, 69), _RGB32(255, 0, 1), BF
            'vel = Int(vel2)
            'vel$ = Str$(vel)
            'Line (61, 41)-(vel2, 69), _RGB32(255, 0, 1), BF
            Color _RGB32(0, 0, 0), _RGB32(255, 0, 0)
            _PrintString (265, 50), Str$(vel)
            _Display
            _Delay .25 'wait for release of mouse button
            GoTo go
        ElseIf my >= 70 And my < 100 Then
            a = (mx - 60) / 200 * 90  ' converts place in box to 0 to 90
            'If a2 > 259 Then a2 = 259
            Line (61, 71)-(259, 99), _RGB32(156, 210, 237), BF
            Line (61, 71)-(mx, 99), _RGB32(0, 255, 1), BF
            'a = Int(a2 / 3)
            'aaa$ = Str$(a)
            'Line (61, 71)-(a2, 99), _RGB32(0, 255, 1), BF
            Color _RGB32(0, 0, 0), _RGB32(0, 255, 0)
            _PrintString (265, 80), Str$(a)
            _Display
            _Delay .25 'wait for release of mouse button
            GoTo go
        ElseIf my >= 100 And my < 130 Then
            fired = 1
            GoTo going
        End If
    End If
End If
If fired = 0 Then GoTo go '  need?