Public Sub CalcAimActorDirection(HostPlayer_Z_Angle As Single, HostPlayer_X_Coord As Single, HostPlayer_Y_Coord As Single, WeaponID As Integer, ResultX As Single, ResultY As Single, ResultZ As Single)
Dim Radian As Single
Dim Devide As Single
Dim AngleX As Single
Dim AngleY As Single
Dim EndX As Single
Dim EndY As Single
Const PI = 3.14159265

    'Calc the Radian
    Radian = (HostPlayer_Z_Angle * (PI / 180)) / PI
        
    'From this we get 2 values:
    AngleX = Sin(Radian)
    AngleY = Cos(Radian)
    
    WeaponID = 99
    Select Case WeaponID
    
        Case 0 'Fist
            
        Case 30 'AK47
            
        Case 31 'M4
            
        Case 33 'Country Rifle
            
        Case 34 'Sniper Rifle
            
        Case 35 'Rocket Launcer
            
        Case 36 'Flame Thrower
            
        Case 37 'Minigun
            
        Case 16 'Grenade
            
        Case 22 'Pistol
            
        Case 23 'Silenced Pistol
            
        Case 24 'Desert Eagle
            
        Case 25 'Shotgun
            
        Case 26 'Sawn Off Shotgun
            
        Case 27 'Spas-12
            
        Case 28 'Micro UZI
            
        Case 29 'MP5
            
        Case 32 'TEC-9
        
        Case Else
            EndX = (AngleX * 10)
            EndY = (AngleY * 10)
                        
    End Select

    ResultX = EndX
    ResultY = EndY
    ResultZ = 0
    
End Sub