19-06-2009, 04:02 PM
Replace:
With:
Code:
' Blit out players and NPCs
For Y = 0 To MAX_MAPY
For i = 1 To PlayersOnMapHighIndex
If Player(i).Y = Y Then
Call BltPlayer(PlayersOnMap(i))
End If
Next
For i = 1 To High_Npc_Index
If MapNpc(i).Y = Y Then
Call BltNpc(i)
End If
Next
Next
With:
Code:
' Blit out players and NPCs
For Y = 0 To MAX_MAPY
For i = 1 To PlayersOnMapHighIndex
If Player(i).Y = Y Then
Call BltPlayer(PlayersOnMap(i))
End If
Next
For i = 1 To MAX_MAP_NPCS
If MapNpc(i).Y = Y Then
Call BltNpc(i)
End If
Next
Next