Npc Walking Alterations (Based off Advocate's tut)

[Forte]

First off im giving credit to Advocate since its his code this is based off. This is walking alterations for NPCs. It is easy but just posting it here to help the community. Credit to Advocate.

sub bltnpc
replace

Code:

' Check for animation
    Anim = 0
    If MapNpc(MapNpcNum).Attacking = 0 Then
        Select Case MapNpc(MapNpcNum).Dir
            Case DIR_UP
                If (MapNpc(MapNpcNum).YOffset < PIC_Y / 2) Then Anim = 1
            Case DIR_DOWN
                If (MapNpc(MapNpcNum).YOffset < PIC_Y / 2 * -1) Then Anim = 1
            Case DIR_LEFT
                If (MapNpc(MapNpcNum).XOffset < PIC_Y / 2) Then Anim = 1
            Case DIR_RIGHT
                If (MapNpc(MapNpcNum).XOffset < PIC_Y / 2 * -1) Then Anim = 1
        End Select
    Else
        If MapNpc(MapNpcNum).AttackTimer + 500 > GetTickCount Then
            Anim = 2
        End If
    End If

withhhhh

Code:

' Check for animation
    Anim = 0
    If MapNpc(MapNpcNum).Attacking = 0 Then
        Select Case MapNpc(MapNpcNum).Dir
    Case DIR_UP
                If (MapNpc(MapNpcNum).YOffset < PIC_Y / 3) Then
               Anim = 1
               ElseIf (MapNpc(MapNpcNum).YOffset > PIC_Y / 3) And ((MapNpc(MapNpcNum).YOffset > PIC_Y / 3 * 2)) Then
               Anim = 2
                End If
    Case DIR_DOWN
                Anim = 1
               If (MapNpc(MapNpcNum).YOffset < PIC_X / 4 * -1) Then Anim = 0
               If (MapNpc(MapNpcNum).YOffset < PIC_X / 2 * -1) Then Anim = 2
    Case DIR_LEFT
                Anim = 0
               If (MapNpc(MapNpcNum).XOffset < PIC_Y / 3) Then
               Anim = 1
               ElseIf (MapNpc(MapNpcNum).XOffset > PIC_Y / 3) And ((MapNpc(MapNpcNum).XOffset > PIC_Y / 3 * 2)) Then
               Anim = 2
               End If
    Case DIR_RIGHT
                  Anim = 0
               If (MapNpc(MapNpcNum).XOffset < PIC_Y / 4 * -1) Then Anim = 1
               If (MapNpc(MapNpcNum).XOffset < PIC_Y / 2 * -1) Then Anim = 2
       End Select
   Else
       If MapNpc(MapNpcNum).AttackTimer + 500 > GetTickCount Then
           Anim = 2
       End If
   End If

im pretty sure it works =P

[Tony]

It would be nice if you typed up on what you updated from advo's code.

:: Pando

[Forte]

alrighty pando sure
its not really much

Code:

If Player(Index).Attacking = 0 Then
       Select Case GetPlayerDir(Index)
           Case DIR_UP
               Anim = 0
               If (Player(Index).YOffset < PIC_Y / 3) Then
               Anim = 1
               ElseIf (Player(Index).YOffset > PIC_Y / 3) And ((Player(Index).YOffset > PIC_Y / 3 * 2)) Then
               Anim = 2
               End If
           Case DIR_DOWN
               Anim = 1
               If (Player(Index).YOffset < PIC_X / 4 * -1) Then Anim = 0
               If (Player(Index).YOffset < PIC_X / 2 * -1) Then Anim = 2
           Case DIR_LEFT
               Anim = 0
               If (Player(Index).XOffset < PIC_Y / 3) Then
               Anim = 1
               ElseIf (Player(Index).XOffset > PIC_Y / 3) And ((Player(Index).XOffset > PIC_Y / 3 * 2)) Then
               Anim = 2
               End If
           Case DIR_RIGHT
               Anim = 0
               If (Player(Index).XOffset < PIC_Y / 4 * -1) Then Anim = 1
               If (Player(Index).XOffset < PIC_Y / 2 * -1) Then Anim = 2
       End Select
   Else
       If Player(Index).AttackTimer + 500 > GetTickCount Then
           Anim = 2
       End If
   End If

thats Advocates code. All i really did was change the (Player(Index)'s to MapNpc(MapNpcNum). so case dir right would be like

Code:

Case DIR_RIGHT
               Anim = 0
               If (MapNpc(MapNpcNum).XOffset < PIC_Y / 4 * -1) Then Anim = 1
               If (MapNpc(MapNpcNum).XOffset < PIC_Y / 2 * -1) Then Anim = 2

i would have explained more but there really isnt much to explain

[Rian]

Nothing's really updated. Just show's how to modify it for use with NPCs.

[Tony]

Oh! Dumb me. :lol: I haven't ever looked at advo's thread. So I didn't know, if I did I wouldnt have asked you to do that.

:: Pando

[Matt]

I was planning on getting around to this sooner or later. Much appreciated for saving me the time! ^_^

[Xlithan]

So what does this do, exactly?

[Tony]

Well why don't you read the code? It changes the walking system for NPCS.

[Tony]

oh whatever, same shit. -_____-"

[Matt]

No, it's not the same. There's a bug of sorts with this system, well, for players. It seems if you're running, it will only blit 2 frames. =\

[Forte]

No, it's not the same. There's a bug of sorts with this system, well, for players. It seems if you're running, it will only blit 2 frames. =\

What do you mean..?

[Matt]

When holding shift to run, it won't use three frames like walking. It will look like how it did before you add the new system. Though this doesn't apply to this tut, it applies to my tut.