Help on Sprite

[BugSICK]

ive been looking for tutorial and yet i cant find and decided to make a thread on how can i edit in the source the NPC.

basically the NPC looks like this.


i want to make it

XXX

XXX

XXX

XXX

not like the picture above

XXXX

XXXX

XXXX

XXXX

is their a link on this? please post if you have this or a tutorial.

Sorry for my english hope you understand it. 

[MadalinV]

well, the 3rd sprite of every line is not needed.

[Wortel Angels]

I dont know if there is an tutorial but i could make it for you if you want ;-)

If Yes PM me

[Whitepinkbun]

Just do this

Replace in BLTPLAYER

' Reset frame

If Player(Index).Step = 3 Then

anim = 0

ElseIf Player(Index).Step = 1 Then

anim = 2

End If

With

' Reset frame

If Player(Index).Step = 3 Then

anim = 1

ElseIf Player(Index).Step = 1 Then

anim = 1

End If

and

With rec

.top = spritetop * (DDSD_Character(Sprite).lHeight / 4)

.Bottom = .top + (DDSD_Character(Sprite).lHeight / 4)

.Left = anim * (DDSD_Character(Sprite).lWidth / 4)

.Right = .Left + (DDSD_Character(Sprite).lWidth / 4)

End With

with

With rec

.top = spritetop * (DDSD_Character(Sprite).lHeight / 4)

.Bottom = .top + (DDSD_Character(Sprite).lHeight / 4)

.Left = anim * (DDSD_Character(Sprite).lWidth / 3)

.Right = .Left + (DDSD_Character(Sprite).lWidth / 3)

End With

and

' Calculate the X

x = GetPlayerX(Index) * PIC_X + Player(Index).XOffset - ((DDSD_Character(Sprite).lWidth / 4 - 32) / 2)

with

' Calculate the X

x = GetPlayerX(Index) * PIC_X + Player(Index).XOffset - ((DDSD_Character(Sprite).lWidth / 3 - 32) / 2)

and

' Check for attacking animation

If Player(Index).AttackTimer + (attackspeed / 2) > GetTickCount Then

If Player(Index).Attacking = 1 Then

anim = 3

End If

Else

with

' Check for attacking animation

If Player(Index).AttackTimer + (attackspeed / 2) > GetTickCount Then

If Player(Index).Attacking = 1 Then

anim = 2

End If

Else

and make the sprite go

Walk frame 1 / walk standing / walk frame 2

I think thats it….

if that doesnt work this too.....

Also I think.... you might need to replace

' If not attacking, walk normally

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

with

' If not attacking, walk normally

Select Case GetPlayerDir(Index)

Case DIR_UP

If (Player(Index).YOffset > 8) Then anim = Player(Index).Step - 1

Case DIR_DOWN

If (Player(Index).YOffset < -8) Then anim = Player(Index).Step - 1

Case DIR_LEFT

If (Player(Index).XOffset > 8) Then anim = Player(Index).Step - 1

Case DIR_RIGHT

If (Player(Index).XOffset < -8) Then anim = Player(Index).Step - 1

End Select