True 3-Frame Movement

I saw MrMiguu's and found it kinda choppy looking. (maybe I'm just REALLY picky)
Anyway, after talking to Robin about his code for his engine, he willingly gave it to me.
Soon finding that it was horrible in Eclipse but looked nice on his game, I proceeded to edit his code for about 10-20 minutes until I came out with this tutorial.
(Also, on the off chance that anyone is using ED3... I have [after about an hour] edited it to work for that engine as well.)
_______________________________________ _________

Credit:
Robin (original code)
Electrokinesis (Eclipse 2.7[MIGHT work on others... untested] and ED3 edit)
_______________________________________ _________

Alright. It's quite a few areas to update.
Source required, of course.
(NOTE: If you find any problems or my instructions not clear enough then tell me and I'll try to get pictures to this process. Or better examples...)

First, under 'BltPlayer' in modGameLogic find where it says 'check for animation and change everything between that and the next set of green text to this:

Code: (vb) [Select]

' Check for animation
    Anim = 1
  If Player(Index).Attacking = 0 Then
    Select Case GetPlayerDir(Index)
      Case DIR_UP
        If (Player(Index).yOffset > 8) Then Anim = Player(Index).Step
      Case DIR_DOWN
        If (Player(Index).yOffset < -8) Then Anim = Player(Index).Step
      Case DIR_LEFT
        If (Player(Index).xOffset > 8) Then Anim = Player(Index).Step
      Case DIR_RIGHT
        If (Player(Index).xOffset < -8) Then Anim = Player(Index).Step
    End Select
  Else
    If Player(Index).AttackTimer + 1000 > GetTickCount Then
      Anim = 2
    End If
  End If
Use the same code and same process under 'BltPlayerTop'.
______________________
Next find 'Sub processmovement' and replace the entire code (in between the lines) with this:

Code: [Select]

Sub ProcessMovement(ByVal Index As Long)

  ' Check if player is walking, and if so process moving them over
  If Player(Index).Moving = MOVING_WALKING Then
    Select Case GetPlayerDir(Index)
      Case DIR_UP
        Player(Index).YOffset = Player(Index).YOffset - WALK_SPEED
      Case DIR_DOWN
        Player(Index).YOffset = Player(Index).YOffset + WALK_SPEED
      Case DIR_LEFT
        Player(Index).XOffset = Player(Index).XOffset - WALK_SPEED
      Case DIR_RIGHT
        Player(Index).XOffset = Player(Index).XOffset + WALK_SPEED
    End Select
 
    ' Check if completed walking over to the next tile
    If Player(Index).Dir = DIR_RIGHT Or Player(Index).Dir = DIR_DOWN Then
      If (Player(Index).XOffset >= 0) And (Player(Index).YOffset >= 0) Then
        Player(Index).Moving = 0
        If Player(Index).Step = 0 Then
          Player(Index).Step = 2
        Else
          Player(Index).Step = 0
        End If
      End If
    Else
      If (Player(Index).XOffset <= 0) And (Player(Index).YOffset <= 0) Then
        Player(Index).Moving = 0
        If Player(Index).Step = 0 Then
          Player(Index).Step = 2
        Else
          Player(Index).Step = 0
        End If
      End If
    End If
  End If

  ' Check if player is running, and if so process moving them over
  If Player(Index).Moving = MOVING_RUNNING Then
    Select Case GetPlayerDir(Index)
      Case DIR_UP
        Player(Index).YOffset = Player(Index).YOffset - RUN_SPEED
      Case DIR_DOWN
        Player(Index).YOffset = Player(Index).YOffset + RUN_SPEED
      Case DIR_LEFT
        Player(Index).XOffset = Player(Index).XOffset - RUN_SPEED
      Case DIR_RIGHT
        Player(Index).XOffset = Player(Index).XOffset + RUN_SPEED
    End Select
 
    ' Check if completed walking over to the next tile
    If Player(Index).Dir = DIR_RIGHT Or Player(Index).Dir = DIR_DOWN Then
      If (Player(Index).XOffset >= 0) And (Player(Index).YOffset >= 0) Then
        Player(Index).Moving = 0
        If Player(Index).Step = 0 Then
          Player(Index).Step = 2
        Else
          Player(Index).Step = 0
        End If
      End If
    Else
      If (Player(Index).XOffset <= 0) And (Player(Index).YOffset <= 0) Then
        Player(Index).Moving = 0
        If Player(Index).Step = 0 Then
          Player(Index).Step = 2
        Else
          Player(Index).Step = 0
        End If
      End If
    End If
  End If
 
  Select Case GetPlayerDir(Index)
    Case DIR_UP
      If Player(Index).YOffset <= 0 Then
        Player(Index).YOffset = 0
      End If
    Case DIR_DOWN
      If Player(Index).YOffset >= 0 Then
        Player(Index).YOffset = 0
      End If
    Case DIR_LEFT
      If Player(Index).XOffset <= 0 Then
        Player(Index).XOffset = 0
      End If
    Case DIR_RIGHT
      If Player(Index).XOffset >= 0 Then
        Player(Index).XOffset = 0
      End If
  End Select
End Sub_________________
Finally, in modType find 'PlayerRec' and add this after "Party As PartyRec":

Code: [Select]

Step As Byte

Electrokinesis

Does this just add a fourth frame? Or does it replace the attack animation?

l0lz!

Current frame movement is: 1,2,...
After code it's: 1,2,3,2,...

Basically, they move as intended.
I'll have a movie example sometime later today. (24th)

Electrokinesis

Current frame movement is: 1,2,...
After code it's: 1,2,3,2,...

Basically, they move as intended.
I'll have a movie example sometime later today. (24th)

So that means that we don't have a seperate attack frame, hmm well didn't use it anyways.
And does this work with paperdoll ?

Xeross

Yeah I was wondering that too lol.

l0lz!

The attack frame is the same as before and yes, it works with paperdoll.
Just keep the sprites in the same order as usual.

I've tested it normal, paperdoll, and custom.
It's flawless.

EDIT: preview (recorder lagged a tiny bit)
Just sprite #2 from the original.

Electrokinesis

That looks really cool.

Pink!

Cool stuff, dude.

Bobbus

Funny.
I don't get many replies in a row until I post a gif. =P
Thanks guys.

Electrokinesis

Wow ima use it, would it be possible to add another frame for the attack

Xeross

I suppose.
I'll look into it.
I'm dead tired right now, but I'll see what I can do.
(don't expect it soon, but I've surprised myself before)

EDIT: Wait...
What EXACTLY do you mean by adding another frame for the attack?

Electrokinesis

Left Leg | Stand | Right Leg | Attack

Xeross

Ah.
Gotcha.
If you'd want to remake all your spritesheets like that, then sure, I'll work on it.
If you already have one... I'd like you to PM it to me so I can properly test it as I work.

Electrokinesis

i can easily change the eclipse sprite sheet in like 5 minutes for that

Xeross

This is really awesome, I tried it out, and it's flawless like you said. Thanks to Robin and You, my people don't have to look crippled, yay!

l0lz!

No problem. =D
Glad you like it.
I'm sure Robin'll be glad too.
Or... just throw in a sarcastic and/or witty comment.
...
Whichever.

Electrokinesis

How can i edit it so that it has a seperate attack frame ?
my sprites.bmp is now
RIGHT | STAND | LEFT | ATTACK

Xeross

Can you PM me one of the sprites (in all positions) so I can work on this?
I never got around to coding that version because I wouldn't have been able to test it.

Electrokinesis

This is awesome, and it works all the way back to TE.

PlatefieldLord

very nice piece of code man, it works like a charm, and is easy to do :d

thanx alot.

damian666

[SB]Damian666