True 3-Frame Movement

[Robin]

Glad you like my code.

Here's how to add a different attack frame:

```
' 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 = 4
    End If
  End If
```
Then find:

```
rec.Left = (GetPlayerDir(Index) * 3 + Anim) * 32
```
and replace with:

```
rec.Left = (GetPlayerDir(Index) * 4 + Anim) * 32
```
Enjoy.

[Tyr]

Hey,

well done, but the when i walk downstairs the top of his head kinda comes after… it looks weird ^^
any idea how to fix?

- Tyr

[Robin]

Put the same code in BltPlayerTop.

[Tyr]

@Don't:

> Put the same code in BltPlayerTop.

lol i replaced the same twice :) thx awesome code!

[anasky]

Is it easy to make this work at the original RMXP sizes?
Not the 3|3|3|3 thingy but:
1|1|1
1|1|1
1|1|1
1|1|1

[xeross]

rmxp is

1|1|1|1
1|1|1|1
1|1|1|1
1|1|1|1

if you change the offsets it can be done but it would require multiple character sets or an offset 256 every new char

[anasky]

Well, you could make it so it opens 32 spaces.
Also, then what I ment isn't in RMXP style, although, you could simply make this line:
1,2,3,2,1,2,3,2,1,2,3,…
I think it'll work, since the 4th tile of RMXP is the same one as the 2nd one :P

[Robin]

Go rip it from Essence, or buy the feature from my 'Help Wanted' thread :P

Or, just add a little bit of code to BltPlayer changing the rec depending on the direction.

[anasky]

And now in noob language plz? xD

[Hattivatti]

This is an awesome code, thx! Works flawless, I'm certainly gonna use this in my game :)

[Robin]

No problem.

[cheatking]

Can you edit it for npc's too please?

[Chakkra]

@Sean:

> [Nanoware] link=topic=30628.msg313647#msg313647 date=1227180371]
> Can you edit it for npc's too please?

yes please. I want it to work with my npcs.. cuz they look how they originally looked before i put the code in =P
Edit: oops! necro post. Sorry =S

[The Oracle]

@Chakkra:

> link=topic=30628.msg364642#msg364642 date=1233957573]
> yes please. I want it to work with my npcs.. cuz they look how they originally looked before i put the code in =P
> Edit: oops! necro post. Sorry =S

don't necropost. Save the kittens.

[Drag0n]

Well now it's not necroing anymore since Chakkra posted. New topic, basically.

[minipimp]

Very nice work bro, it made my project have smooth movement to it , Very nice.

[adenketr]

Great!

[Darknessboy]

I can't find 'BltPlayer' where do i look????? I'm new to all this…... :embarrassed:

[gooku]

Hi ;D My eanglish is easy I`am from germany ;pppp XD

How to get this code on npc??

```
I want it to work with my npcs..
```

[gooku]

BltPlayer find

you must click Ctrl + F

and write to box BltPlayer and change option Current Project

my eanglish is easy xd are you understand my eanglish?? ;]

[Jed]

using this.

[Necromancer]

Attacking won't work for me. It walks perfect, but attacking? not working.

[Styker]

I know this is a few days late but im stupid with VB, and still tryin to learn it.

I did the first 1 and it works and all but I cant get robins extra attack frame to work right, when i use it, it plays the attack animation for the up movement as the stance for the facing down and the walk left animations for the walk down and the attack down for the attack left , etc. its all messed up and idk y , and ive replaced the sprites positions but more than 1 direction/attack uses one frame so cant fix that with moving the sprites around, sorry for the big confusing explaination.

Thank You for any help.

[Patrick]

Huh, when i play from vb6 it has an error and it tells me to look in frm mirage for the error.
Line 2407: Cannot load control Socket; license not found.
that's the error. Any help?

edit: when i try to compile it also has an error. But this time it opens a form up and shows this line with the red stuff highlighted.
frmMirage.txtChat.SelStart = Len(frmMirage.txtChat.Text)

[yorty]

@gooku:

> Hi ;D My eanglish is easy I`am from germany ;pppp XD
>
> How to get this code on npc??
>
> ```
> I want it to work with my npcs..
> ```

Btw that's in mah sig.