EO (1.3) Mouse Movement Tutorial

[Rob Janes]

Something a lot of people have been asking for is a Tutorial on Mouse Movement for walking.

Here is a very QUICK tutorial on how to add Mouse Movement.  It uses Right Click to Move, and Left click for targetting.

ALL the changes are done on the CLIENT, requiring no modifications to the server.

Step 1\. Open modGlobals on the Client, and Add the Following
```
'Players Current Position
'These will store the players Current X/Y (values from GetPlayerX()/GetPlayerY())
'February 1st, 2011 - Robert Janes (Samu Games)
Public MyX As Integer
Public MyY As Integer
Public MouseMove As Boolean

```
Step 2\. Add this to the Beginning of Sub Main in modGeneral
```
' Set Default MouseMove Boolean to False
' This will become True with Right Clicking and False with Mouse Up
' February 1st, 2011 - Robert Janes (Samu Games)
MouseMove = False
```
Step 3\. In Sub CheckInputKeys, in modInput, Just before it starts doing the checks for Moving Up/Down/Left/Right add
```
'Quickly Check to See if we are using MouseMovement, if so, exit sub and don't check Keyboard Movement
    If MouseMove = True Then
        Exit Sub
    End If
```
Step 4\. in frmMain, on picScreen MouseDown, Just after it checks vbKeyRightClick, just BEFORE the If ShiftDown, we add the following.
```
MouseMove = True

            'Right Click Mouse Movement Here, Give MyX and MyY values for current Pos then compare

            MyX = GetPlayerX(MyIndex)
            MyY = GetPlayerY(MyIndex)

            'Move Right
            If CurX > MyX Then
                DirUp = False
                DirDown = False
                DirLeft = False
                DirRight = True
          End If

            'Move Left
            If CurX < MyX Then
                DirUp = False
                DirDown = False
                DirLeft = True
                DirRight = False
            End If

            'Move Down
            If CurY > MyY Then
                DirUp = False
                DirDown = True
                DirLeft = False
                DirRight = False
            End If
            'Move Up
            If CurY < MyY Then
                DirUp = True
                DirDown = False
                DirLeft = False
                DirRight = False
            End If

```
Step 5\. in frmMain on picScreen MOUSEUP, add
```
MouseMove = False
```
Step 6\. in modGameLogic, in the Sub GameLoop, comment out CheckKeys like so
```
' Call CheckKeys
```We comment this out because the GameLoop calls this function to ensure they aren't doing anything like Auto Walking so if the Keyboard keys aren't pressed down, it stops the movent, this screws up mouse movement.  It will not really affect your game in any way, as in CheckInputKeys, we already do a check to see if the key is pressed.  So it's moot for movement. You could go into CheckKeys and just comment out the checks for the KeyUp, KeyRight, KeyLeft, KeyDown if you wanted.

Viola!!!

Mouse Movement! Enjoy!

[Yxxe]

Very good - nice and simple.  :bstar: :bstar: :bstar: :bstar: :rstar:

[Rob Janes]

You can add the actual movement part from MouseDown to MouseMouse on the frmMain picScreen object so that way if you're holding down the mouse and change direction it'll automatically update the movement direction.

[thezeus]

Samu, you had a typo that may confuse some people.

You said

ALL the changes are done on the server, requiring no modifications to the server.

You meant all done to client, requiring no modification to the server

[Rob Janes]

Fixed.

[chuchoide]

Cool tutorial, I will add it to my game soon.
Very nice :)

[Guest]

Will you change maps if you hit the maps edge or do you then have to use the arrows?

[Rob Janes]

Will change maps.

[Guest]

@SamuGames:

> Will change maps.

Nice, I'll give this a test run then. Thanks for all your good shares SamuGames.

[thezeus]

1 thing I noticed was it doesnt stop the movement on mouse up, even with MouseMove = False in picScreen Mouse Up.  I've retried this a few times and it happens both times.  Any clue as to why, or perhaps what I did wrong in testing it?  Everything seems to work fine.

[leopoldobb]

Thanks man! =D

[Rob Janes]

@Thezeus, sorry I gave you in correct information there,  make sure it's setting the flag to false.

[thezeus]

I was gonna say, that edit wasn't correct haha.  I was looking at it thinking, no thats not right at all.

[thezeus]

It still looks like its missing a check somewhere, here is my inputkeys
```
  If GetKeyState(vbKeyControl) < 0 Then
        ControlDown = True
    Else
        ControlDown = False
    End If

    'Quickly Check to See if we are using MouseMovement, if so, exit sub and don't check Keyboard Movement
    If MouseMove = True Then
        Exit Sub
    End If

    'Move Up
    If GetKeyState(vbKeyUp) < 0 Then
        DirUp = True
        DirDown = False
        DirLeft = False
        DirRight = False
        Exit Sub
    Else
        DirUp = False
    End If
```

[Rob Janes]

@SamuGames:

> Something a lot of people have been asking for is a Tutorial on Mouse Movement for walking.
>
> Here is a very QUICK tutorial on how to add Mouse Movement.  It uses Right Click to Move, and Left click for targetting.
>
> ALL the changes are done on the CLIENT, requiring no modifications to the server.
>
> Step 1\. Open modGlobals on the Client, and Add the Following
> ```
> 'Players Current Position
> 'These will store the players Current X/Y (values from GetPlayerX()/GetPlayerY())
> 'February 1st, 2011 - Robert Janes (Samu Games)
> Public MyX As Integer
> Public MyY As Integer
> Public MouseMove As Boolean
>
> ```
> Step 2\. Add this to the Beginning of Sub Main in modGeneral
> ```
> ' Set Default MouseMove Boolean to False
> ' This will become True with Right Clicking and False with Mouse Up
> ' February 1st, 2011 - Robert Janes (Samu Games)
> MouseMove = False
> ```
> Step 3\. In Sub CheckInputKeys, in modInput, Just before it starts doing the checks for Moving Up/Down/Left/Right add
> ```
> 'Quickly Check to See if we are using MouseMovement, if so, exit sub and don't check Keyboard Movement
>     If MouseMove = True Then
>         Exit Sub
>     End If
> ```
> Step 4\. in frmMain, on picScreen MouseDown, Just after it checks vbKeyRightClick, just BEFORE the If ShiftDown, we add the following.
> ```
> MouseMove = True
>            
>             'Right Click Mouse Movement Here, Give MyX and MyY values for current Pos then compare
>
>             MyX = GetPlayerX(MyIndex)
>             MyY = GetPlayerY(MyIndex)
>
>             'Move Right
>             If CurX > MyX Then
>                 DirUp = False
>                 DirDown = False
>                 DirLeft = False
>                 DirRight = True
>           End If
>
>             'Move Left
>             If CurX < MyX Then
>                 DirUp = False
>                 DirDown = False
>                 DirLeft = True
>                 DirRight = False
>             End If
>            
>             'Move Down
>             If CurY > MyY Then
>                 DirUp = False
>                 DirDown = True
>                 DirLeft = False
>                 DirRight = False
>             End If
>             'Move Up
>             If CurY < MyY Then
>                 DirUp = True
>                 DirDown = False
>                 DirLeft = False
>                 DirRight = False
>             End If
>  
> ```
> Step 5\. in frmMain on picScreen MOUSEUP, add
> ```
> MouseMove = False
> DirUp = False
> DirDown = False
> DirLeft = False
> DirRight = False
> ```
> Step 6\. in modGameLogic, in the Sub GameLoop, comment out CheckKeys like so
> ```
> ' Call CheckKeys
> ```We comment this out because the GameLoop calls this function to ensure they aren't doing anything like Auto Walking so if the Keyboard keys aren't pressed down, it stops the movent, this screws up mouse movement.  It will not really affect your game in any way, as in CheckInputKeys, we already do a check to see if the key is pressed.  So it's moot for movement. You could go into CheckKeys and just comment out the checks for the KeyUp, KeyRight, KeyLeft, KeyDown if you wanted.
>
> Viola!!!
>
> Mouse Movement! Enjoy!

[thezeus]

For bug situations in mouseup, add DirUp = False DirDown=False DirRight=False DirLeft=False

[Rob Janes]

Fixed the Tutorial to include that as well,

Thanks thezeus

[thezeus]

Great work brutha

[BugSICK]

cant find picScreen MOUSEUP,  :sad:

[Rob Janes]

use the drop down on the top right when youre in PicScreen mouse down, and choose Mouse up

[Hugo]

SamuGames, you're a great man.
Congratulations on the tutorial.
Very good!
:D

[BugSICK]

still i cant get this  :sad:, and i cant find the mouse up, sorry im not got at vb just learning again. any help?

by the way is the main post the fixed tutorial?

[Rob Janes]

yes, the main post is the proper tutorial, MouseUp is something you select in VB.  Double click on the picScreen so it opens up the source code. At the top right hand side of what white Syntax Editor, you'll see a DropDown that will say
picScreen_Click
Click that drop down and select "MouseUp"

[BugSICK]

ok thanks got it, gonna test it now. thanks again.  :cheesy:

[BugSICK]

its not working… XD