Stuff

            If Asc(Mid(theData, 20, 1)) = "8" Then 'ROTATING (WEAPON ID CHANGES POSITION NOW)
                tmpWeapon = Asc(Mid(theData, 21, 1))
            If players(theID).Rotation < 0.45 And players(theID).Rotation > -0.45 Then
               players(theID).Direction = "North"
        ElseIf players(theID).Rotation < -0.45 And players(theID).Rotation > -1.25 Then
               players(theID).Direction = "North East"
        ElseIf players(theID).Rotation < -1.25 And players(theID).Rotation > -1.75 Then
               players(theID).Direction = "East"
        ElseIf players(theID).Rotation < -1.75 And players(theID).Rotation > -2.45 Then
               players(theID).Direction = "South East"
        ElseIf players(theID).Rotation < -2.45 And players(theID).Rotation > 3.5 Then
               players(theID).Direction = "South"
        ElseIf players(theID).Rotation < 3.5 And players(theID).Rotation > 2.65 Then
               players(theID).Direction = "South"
        ElseIf players(theID).Rotation < 2.65 And players(theID).Rotation > 1.75 Then
               players(theID).Direction = "South West"
        ElseIf players(theID).Rotation < 1.75 And players(theID).Rotation > 1.25 Then
               players(theID).Direction = "West"
        ElseIf players(theID).Rotation < 1.25 And players(theID).Rotation > 0.45 Then
               players(theID).Direction = "North West"
        End If