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