[EO] Rotate Key

[Helladen]

I've posted something like this before, but it is a lot more simple. Basically this allows a user to rotate their direction using the End key.

The user will rotate clockwise.

**Client:**

**In frmMainGame** ->

**In Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)** ->

**Under Select Case KeyCode paste this code**
```
Case vbKeyEnd
            If Player(MyIndex).Moving = NO Then
              If GetPlayerDir(MyIndex) = 0 Then
              Call SetPlayerDir(MyIndex, GetPlayerDir(MyIndex) + 3)
              ElseIf GetPlayerDir(MyIndex) = 1 Then
              Call SetPlayerDir(MyIndex, GetPlayerDir(MyIndex) + 1)
              ElseIf GetPlayerDir(MyIndex) = 2 Then
              Call SetPlayerDir(MyIndex, GetPlayerDir(MyIndex) - 2)
              ElseIf GetPlayerDir(MyIndex) = 3 Then
              Call SetPlayerDir(MyIndex, GetPlayerDir(MyIndex) - 2)
              End If
            Call SendPlayerDir
            End If
```

[Sir Cid]

Thumbs up, Helladen! It's simple and it works. : )

[Tyr]

```
If GetPlayerDir(MyIndex) = 3 Then
Call SetPlayerDir(MyIndex, 0)
Else
Call SetPlayerDir(MyIndex, GetPlayerDir(MyIndex) + 1)
End If
```

[Sir Cid]

@Tyr:

> ```
> If GetPlayerDir(MyIndex) = 3 Then
> Call SetPlayerDir(MyIndex, 0)
> Else
> Call SetPlayerDir(MyIndex, GetPlayerDir(MyIndex) + 1)
> End If
> ```

6 more or less lines, doesn't really bother.

[Robin]

@Tyr:

> ```
> If GetPlayerDir(MyIndex) = 3 Then
> Call SetPlayerDir(MyIndex, 0)
> Else
> Call SetPlayerDir(MyIndex, GetPlayerDir(MyIndex) + 1)
> End If
> ```

Already posted that. Doesn't work due to the way the directions are set up.

[Helladen]

I tried changing the way there setup in the enumerations, but It screwed something else up. Pretty sure the code uses it more than once, and you would have to fix all the times the direction is done by adding one or subtracting one etc. It's not worth changing in my opinion for a direction key. :P
So whatever a few lines of code isn't going to kill anyone. :O

[Robin]

It's certainly worth changing. Not for a rotating key, but for a better way of handing directions.

[Helladen]

Updated. Added Send so it effects clients not just server.

[mrmiguu]

1 line ;D
```
If GetPlayerDir(MyIndex) = 3 Then Call SetPlayerDir(MyIndex, 0) Else Call SetPlayerDir(MyIndex, GetPlayerDir(MyIndex) + 1)

```
I think Robin is talking about like arrow key taps to change the player's dir, then hold down to move in that dir.

[Robin]

@Helladen:

> Updated. Added Send so it effects clients not just server.

Affects*

[Helladen]

@Miguu:

> 1 line ;D
> ```
> If GetPlayerDir(MyIndex) = 3 Then Call SetPlayerDir(MyIndex, 0) Else Call SetPlayerDir(MyIndex, GetPlayerDir(MyIndex) + 1)
>
> ```
> I think Robin is talking about like arrow key taps to change the player's dir, then hold down to move in that dir.

No that is incorrect.
1\. The direction enumerations are in a non-clockwise order, so the turning would look random.
2\. It does not send the data to the other clients.

Also I'm aware of making it one line. I posted about a 30-50 lines of code revision and people said it wasn't worth it. So hardly says that a couple lines is worth it either… On my WN copy I have where WASD enables the arrow keys to turn directions, but they are off if you are using arrow movement. I am aware of that too. End method works for both though.

@Robin
I always get those two words mixed up rofl.

Robin corrects language for once. :P

[Robin]

In their most common forms, affect is the verb.
My boot _affected_ the Fox.

Effect is the result.
The _effect_ was painful.

[Helladen]

Ah I see. :)
English lesson of the day.

[mrmiguu]

@Helladen:

> @Miguu:
>
> > 1 line ;D
> > ```
> > If GetPlayerDir(MyIndex) = 3 Then Call SetPlayerDir(MyIndex, 0) Else Call SetPlayerDir(MyIndex, GetPlayerDir(MyIndex) + 1)
> >
> > ```
> > I think Robin is talking about like arrow key taps to change the player's dir, then hold down to move in that dir.
>
> No that is incorrect.
> 1\. The direction enumerations are in a non-clockwise order, so the turning would look random.
> 2\. It does not send the data to the other clients.
>
> Also I'm aware of making it one line. I posted about a 30-50 lines of code revision and people said it wasn't worth it. So hardly says that a couple lines is worth it either… On my WN copy I have where WASD enables the arrow keys to turn directions, but they are off if you are using arrow movement. I am aware of that too. End method works for both though.
>
> @Robin
> I always get those two words mixed up rofl.
>
> Robin corrects language for once. :P

Didn't mean to make you angry

[Helladen]

You didn't. xD I appreciate you trying to help.