[EO2]Diagonal walking

[Sunku]

hey guys is there a way to make your character walk diagonally?if there is can you give me a sample of code or make a tut?

Thanks in advanced.

[GKO]

Search =  :cheesy:
Search = Your friend.

[Sunku]

@GKO:

> Search =  :cheesy:
> Search = Your friend.

what does that mean? O.o

[DJMaxus]

@Axis:

> what does that mean? O.o

He was telling you to search for a tutorial that probably doesn't exist at the moment.

[Sunku]

@DJMaxus:

> He was telling you to search for a tutorial that probably doesn't exist at the moment.

oh ok thanks DJ also i like your tutorials they are very useful.

[Darth Tyllo]

Well you could try this, but it's off the top of my head, and you'd have to make sprites/ change the source to make it display the sprites for walking diagonal.  Search your Client for 'Move left, it should be in ModInput.  In between End If and ' Error handler add this:

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

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

    ' Move Down/Left
    If GetKeyState(vbKeyDown) And GetKeyState(vbKeyLeft) < 0 Then
        DirUp = False
        DirDown = True
        DirLeft = True
        DirRight = False
        Exit Sub
    Else
        DirDown = False And DirLeft = False
    End If

    ' Move Down/Right
    If GetKeyState(vbKeyDown) And GetKeyState(vbKeyRight) < 0 Then
        DirUp = False
        DirDown = True
        DirLeft = False
        DirRight = True
        Exit Sub
    Else
        DirDown = False And DirLeft = False
    End If
```
I tested it.  It doesn't work, but it's a start.

[Sunku]

can someone make a tutorial for this please?

[Darth Tyllo]

Sorry bro, this is all I have. :(  It was more complicated than I first thought it would be. :(

[RyokuHasu]

if you really think hard about it there would be a LOT work and "Extra work" that goes with this. I was trying to go over what was needed, and beleive me, its alot. It me it dosnt seem like its worth it to all this to a game. you'd have to rewrite EVERY movement sub in the entire game, and people using doors, well… they would be screwed without a seperate set of instruction on how to add it.

=P just my opinion that its not worth it.

[Sunku]

i want to make diagonal walking please some one just give me some where to start.

[tsuki]

@RyokuHasu:

> if you really think hard about it there would be a LOT work and "Extra work" that goes with this. I was trying to go over what was needed, and beleive me, its alot. It me it dosnt seem like its worth it to all this to a game. you'd have to rewrite EVERY movement sub in the entire game, and people using doors, well… they would be screwed without a seperate set of instruction on how to add it.
>
> =P just my opinion that its not worth it.

[Sunku]

i don't care if it's not worth it i want to try >: O

[tsuki]

@Axis:

> i don't care if it's not worth it i want to try >: O

So rewrite every movement sub and create all the additional functions.

[Beanie93]

As stated above, you'd need to rewrite every sub for movement AND every Map Attribute, which if you don't have a good knowledge of Visual Basic and how the engine works, can't be done.

[aaaron]

It's not a lot of work. -_-

I have done it on my game in the past.

-Aaron

[The New World]

@Darth:

> Well you could try this, but it's off the top of my head, and you'd have to make sprites/ change the source to make it display the sprites for walking diagonal.  Search your Client for 'Move left, it should be in ModInput.  In between End If and ' Error handler add this:
>
> ```
>     ' Move Up/Left
>     If GetKeyState(vbKeyUp) And GetKeyState(vbKeyLeft) < 0 Then
>         DirUp = True
>         DirDown = False
>         DirLeft = True
>         DirRight = False
>         Exit Sub
>     Else
>         DirUp = False And DirLeft = False
>     End If
>    
>     ' Move Up/Right
>     If GetKeyState(vbKeyUp) And GetKeyState(vbKeyRight) < 0 Then
>         DirUp = True
>         DirDown = False
>         DirLeft = False
>         DirRight = True
>         Exit Sub
>     Else
>         DirUp = False And DirRight = False
>     End If
>    
>     ' Move Down/Left
>     If GetKeyState(vbKeyDown) And GetKeyState(vbKeyLeft) < 0 Then
>         DirUp = False
>         DirDown = True
>         DirLeft = True
>         DirRight = False
>         Exit Sub
>     Else
>         DirDown = False And DirLeft = False
>     End If
>    
>     ' Move Down/Right
>     If GetKeyState(vbKeyDown) And GetKeyState(vbKeyRight) < 0 Then
>         DirUp = False
>         DirDown = True
>         DirLeft = False
>         DirRight = True
>         Exit Sub
>     Else
>         DirDown = False And DirLeft = False
>     End If
> ```
> I tested it.  It doesn't work, but it's a start.

Go to the code that actually checks the direction and alters the players coordinates. Add in extra checks,

If Dir_UP and Dir_RIGHT then
setplayerx(index, Getplayerx(index) + 1
setplayery(index, Getplayery(index) - 1
end if

[Medleyy]

Bear in mind that you'll have to alter the paperdolls to accomodate four extra directions.