Public Sub DrawSprite(ByVal X As Long, ByVal Y As Long, ByVal Dir As Byte)
Dim srcRECT As DxVBLibA.RECT

    With CDX8
        .SetTexture TextureID.sprite1
        Select Case Dir
            Case 1 'Up
                srcRECT.Top = 96 '0
            Case 2 'Down
                srcRECT.Top = 0 '96
            Case 3 'Left
                srcRECT.Top = 32
            Case 4 'Right
                srcRECT.Top = 64
        End Select
       
        srcRECT.Left = 33
        srcRECT.Right = srcRECT.Left + 32
        srcRECT.bottom = srcRECT.Top + 32
           
        .TextureControl X * 4, Y * 4, srcRECT.Right - srcRECT.Left, srcRECT.bottom - srcRECT.Top, srcRECT.Left, srcRECT.Top, , False
        .Draw
    End With
End Sub

Public Sub BltPlayer(ByVal Index As Long)
Dim Anim As Long
Dim I As Long
Dim SpellNum As Long
Dim X As Long
Dim Y As Long
Dim Sprite As Long
Dim rec As DXVBLib.RECT

    Sprite = GetPlayerSprite(Index)

    ' Check for animation
    Anim = 0
    If Player(Index).Attacking = 0 Then
        Select Case GetPlayerDir(Index)
            Case DIR_UP
                If (Player(Index).YOffset < SIZE_Y / 96) Then Anim = 1
            Case DIR_DOWN
                If (Player(Index).YOffset < SIZE_Y / 0 * -1) Then Anim = 1
            Case DIR_LEFT
                If (Player(Index).XOffset < SIZE_Y / 32) Then Anim = 1
            Case DIR_RIGHT
                If (Player(Index).XOffset < SIZE_Y / 64 * -1) Then Anim = 1
        End Select
    Else
        If Player(Index).AttackTimer + 500 > GetTickCount Then
            Anim = 2
        End If
    End If
   
    ' Check to see if we want to stop making him attack
    With Player(Index)
        If .AttackTimer + 1000 < GetTickCount Then
            .Attacking = 0
            .AttackTimer = 0
        End If
    End With
   
    With rec
        .Top = 0
        .Bottom = SIZE_Y
        .Left = (GetPlayerDir(Index) * 3 + Anim) * SIZE_X
        .Right = .Left + SIZE_X
    End With
   
    X = GetPlayerX(Index) * SIZE_X + Player(Index).XOffset
    Y = GetPlayerY(Index) * SIZE_Y + Player(Index).YOffset - 4 ' to raise the sprite by 4 pixels
   
    ' Check if its out of bounds because of the offset
    If Y < 0 Then
        Y = 0
        With rec
            .Top = .Top + (Y * -1)
        End With
    End If

With rec
        .Top = GetPlayerDir(Index) * SIZE_Y
        .Bottom = .Top + SIZE_Y
        .Left = Anim * SIZE_X
        .Right = .Left + SIZE_X
    End With

Select Case GetPlayerDir(MyIndex)
        Case DIR_DOWN
            .Top = DIR_LEFT * SIZE_Y
        Case DIR_LEFT
            .Top = DIR_DOWN * SIZE_Y
        Case DIR_RIGHT
            .Top = DIR_UP * SIZE_Y
        Case Dir_UP
            .Top = DIR_RIGHT * SIZE_Y
    End Select
   
    With rec
        .Bottom = .Top + SIZE_Y
        .Left = Anim * SIZE_X
        .Right = .Left + SIZE_X
    End With