True 3-Frame Movement

• nickpop123: lonely*
  Today at 07:09:09 PM
• Bit: Siedge would you mind logfging on ARtizan?
  Today at 07:09:05 PM
• nickpop123: pmo is so lonly at night
  Today at 07:08:37 PM
• Jungletoe: Theres a viking rpg now?
  Today at 07:06:21 PM
• SHADERS: ya we can
  Today at 07:04:35 PM
• ciocod: guess not
  Today at 07:04:10 PM
• ciocod: can yall see me typing?
  Today at 07:03:44 PM
• ciocod: whats goin on everyone?
  Today at 07:03:28 PM
• Jungletoe: The wierd thing about a pirate rpg is trying to make variated tiles. Any suggestions? For example, life raft, bowies...
  Today at 06:55:57 PM
• SHADERS: ice, ur not talkin funni anymor
  Today at 06:51:58 PM
• XxshadowchrisXx: its not the end of the world
  Today at 06:48:11 PM
• Robin: Holy Christ, I made a spelling mistake. Here*
  Today at 06:47:38 PM
• Ice: am i robin?
  Today at 06:47:11 PM
• Robin: And on that note, I'm going to bed. Nearing 3am.
  Today at 06:47:02 PM
• Robin: Because you're hear bugging people.
  Today at 06:46:29 PM
• Ice: ya why it say site may be buggy?
  Today at 06:45:15 PM
• Jungletoe: You mean da site?
  Today at 06:44:19 PM
• Ice: what happend?
  Today at 06:42:52 PM
• Jungletoe: Im calling it Avast probably...
  Today at 06:42:41 PM
• Jungletoe: I like the word cove...
  Today at 06:42:16 PM

Count to 1,000,000! by Jna
[Today at 06:53:15 PM]
Eclipse Origins v1.0.1 by Robin
[Today at 06:42:54 PM]
Eclipse's Networking Manual by Godlord
[Today at 06:12:31 PM]
[WIP] Domination by Soul
[Today at 06:08:59 PM]
A Couple Of Questions by PainKiller
[Today at 06:07:57 PM]
[Real Life Picture Thread] by Tylian!
[Today at 06:06:38 PM]
My Server is offline for other users by Admiral Refuge
[Today at 05:21:26 PM]
Pokemon Cyrus Online 2010 by Wraith
[Today at 05:20:00 PM]
Viking's Monster Graphics by Ghost
[Today at 05:19:48 PM]
Changing and adding stats names by Admiral Refuge
[Today at 04:00:47 PM]

• Guests: 25
• Hidden: 1
• Users: 20
• Users Online:

• nickpop123
• Bit
• chiccora
• Ghost
• Jungletoe
• Alatar
• Lam3r
• Jna
• Keebler Elf
• unknown
• ciocod
• Shadowwulf™
• Animaru
• Aeon Trag
• Kreator
• Joe
• Munro
• goco
• siedge

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