+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Source Code Development (https://mirage-engine.uk/forums/forumdisplay.php?fid=51)
+----- Forum: Mirage Source 4 (Visual Basic 6) (https://mirage-engine.uk/forums/forumdisplay.php?fid=44)
+------ Forum: Bugs Reports (https://mirage-engine.uk/forums/forumdisplay.php?fid=9)
+------ Thread: Sprite Animation Bug Fix (/showthread.php?tid=2686)
Sprite Animation Bug Fix - Azrael - 05-04-2009
I probably wouldn't have noticed this if I wasn't making my own sprites but there are some minor errors in modDirectDraw7 which cause the wrong sprite rec to be drawn for the Up and Left directions.
in modDirectDraw7 find the Sub BltPlayer, the check for animation currently looks like this :
Code:
' Check for animation
Anim = 0
If Player(Index).Attacking = 0 Then
Select Case GetPlayerDir(Index)
Case DIR_UP
If (Player(Index).YOffset < SIZE_Y / 2) Then Anim = 1
Case DIR_DOWN
If (Player(Index).YOffset < SIZE_Y / 2 * -1) Then Anim = 1
Case DIR_LEFT
If (Player(Index).XOffset < SIZE_Y / 2) Then Anim = 1
Case DIR_RIGHT
If (Player(Index).XOffset < SIZE_Y / 2 * -1) Then Anim = 1
End Select
ElseThe condition on both the up and left direction Ifs statement needs to be greater than, like so:
Code:
' Check for animation
Anim = 0
If Player(Index).Attacking = 0 Then
Select Case GetPlayerDir(Index)
Case DIR_UP
If (Player(Index).YOffset > SIZE_Y / 2) Then Anim = 1
Case DIR_DOWN
If (Player(Index).YOffset < SIZE_Y / 2 * -1) Then Anim = 1
Case DIR_LEFT
If (Player(Index).XOffset > SIZE_Y / 2) Then Anim = 1
Case DIR_RIGHT
If (Player(Index).XOffset < SIZE_Y / 2 * -1) Then Anim = 1
End Select
ElseThe same will also need to be done under the BltNPC Sub.