Help!!! AimbotMath

#include <NomadMemory.au3>
#include <Array.au3>
#include <Misc.au3>

#region Constants/Vars
#cs
OFFSETS:
xPos 0x3aC        0
yPos 0x3b4        1
zPos 0x3b0        2
hpVal 0x504       3
index 0x324       4
#ce
;                               0         1        2        3        4
Global Const $offsets[5][1]=[[0x3aC] ,[0x3b4] ,[0x3b0] ,[0x504] ,[0x324]]   
Global Const $ProcessName = "hl.exe"
Global Const $BaseAddr =0x25544a0
;                                 MouseX       MouseY    both of them are base address
Global Const $MouseAdd[2][1] = [[0x2DE10C8],[0x2DE10C4]]  ;$MouseAdd[0][0] X
														  ;$MouseAdd[1][0] Y
Global Const $_PI =3.14159265

Global $Temp,$xAddr,$yAddr,$zAddr,$HPAddr,$VarIndex,$Enemy[4],$Player[4]
#endregion

#region GettingProcessValues
If ProcessExists($ProcessName) Then
$Pid = ProcessWait($ProcessName)
$Open =_MemoryOpen($Pid)
$Temp = _MemoryRead($BaseAddr,$Open,"long") ;Temp value that will get all other address must be in a map to the get correct value
$xAddr= $Temp + $offsets[0][0]
$yAddr= $Temp + $offsets[1][0]
$zAddr= $Temp + $offsets[2][0]
$HPAddr= $Temp + $offsets[3][0]
$VarIndex= $offsets[4][0] ;will get diferent bot values
Else
	exit 0

EndIf
#endregion

#region Math Atan2
Func atan2($x, $y)
        $Pi = 4 * ATan(1)
        If StringIsInt($x) Or StringIsFloat($x) Then
                If StringIsInt($y) Or StringIsFloat($y) Then
                        ; OK
                Else
                        SetError(1)
                        Return ""
                EndIf
        Else
                SetError(1)
                Return ""
        EndIf
        Dim $PolarAnswer[3] ; $Results[0]=Radius, [1]=Theta (in Radians), [2]=Theta (in Degrees)
        $r = Sqrt(($x ^ 2) + ($y ^ 2))
        $PolarAnswer[0] = $r
        Select
                Case $x = 0 And $y = 0
                        $ThetaRad = 0
                        $ThetaDeg = 0
                Case $x >= 0 And $y >= 0 ; +x/+y = 0-90deg quadrant
                        $ThetaRad = ATan($x / $y)
                        $ThetaDeg = $ThetaRad * 180 / $Pi
                Case $x >= 0 And $y < 0 ; +x/-y = 90-180deg quadrant
                        $ThetaRad = ATan(Abs($y) / $x)
                        $ThetaDeg = $ThetaRad * 180 / $Pi + 90
                        $ThetaRad = $ThetaRad + $Pi / 2
                Case $x < 0 And $y < 0 ; -x/-y = 180-270deg quadrant
                        $ThetaRad = ATan(Abs($x) / Abs($y))
                        $ThetaDeg = $ThetaRad * 180 / $Pi + 180
                        $ThetaRad = $ThetaRad + $Pi
                Case $x < 0 And $y >= 0 ; -x/+y = 2700-360deg quadrant
                        $ThetaRad = ATan($y / Abs($x))
                        $ThetaDeg = $ThetaRad * 180 / $Pi + 270
                        $ThetaRad = $ThetaRad + 3 * $Pi / 2
        EndSelect
        $PolarAnswer[1] = $ThetaDeg
        SetError(0)
        Return $ThetaDeg
	EndFunc   ;==>atan2
#endregion

#region Player/Bot data
Func GetBotValues($i);i will be 1 to number of players count (0 is MainPlayer values)
$Enemy[0]=_MemoryRead($xAddr+($VarIndex*$i),$Open,"float");X  BotValues are far from each other i*$varIndex(0x324)
$Enemy[1]=_MemoryRead($yAddr+($VarIndex*$i),$Open,"float");Y
$Enemy[2]=_MemoryRead($zAddr+($VarIndex*$i),$Open,"float");Z
$Enemy[3] = _MemoryRead($HPAddr+($VarIndex*$i),$Open,"float");HP
Return $Enemy ;We need to work with arrays to make things easier
EndFunc

Func GetMainPlayerVals()
$Player[0]=	_MemoryRead($xAddr,$Open,"float");Since MainPlayer index = (0*0x324) = 0 we can delete $VarIndex*$i
$Player[1]=	_MemoryRead($yAddr,$Open,"float")
$Player[2]= _MemoryRead($zAddr,$Open,"float")
$Player[3]= _MemoryRead($HPAddr,$Open,"float");Don't know why but i store this value too
Return $Player
EndFunc

#endregion

#region Aimbot Math
Func Get3dDistance($EnemyVals,$PlayerVals)
	$float=Sqrt( _
	(($EnemyVals[0] - $PlayerVals[0]) * ($EnemyVals[0] - $PlayerVals[0]))+ _
	(($EnemyVals[1] - $PlayerVals[1]) * ($EnemyVals[1] - $PlayerVals[1]))+ _
	(($EnemyVals[2] - $PlayerVals[2]) * ($EnemyVals[2] - $PlayerVals[2])))
	Return $float
EndFunc



Func GetMinDistanceIndex()
Local $distance[12]
For $i = 1 to 11
$distance[$i] = Get3dDistance(GetBotValues($i),GetMainPlayerVals())
$HP = GetBotValues($i)
If $HP[3] <=1 Then ;We don't want dead enemys indexes
	_ArrayInsert($distance,$i,999999999999)
	_ArrayDelete($distance,12); prevent adding a lot of arrays
	EndIf
Next

$Index = _ArrayMinIndex($distance,1,1)

Return $Index
EndFunc

#cs
Something here is wrong
#ce
Func AimAtTarget($EnemyVal,$PlayerVal)
;                       Z            Z
	$PitchX= ASin(($EnemyVal[2]-$PlayerVal[2])/Get3dDistance($EnemyVal,$PlayerVal))*180/$_PI;180/pi
    $PitchY= -Atan2($EnemyVal[0]-$PlayerVal[0],$EnemyVal[1]-$PlayerVal[1])/($_PI*180*88);/pi*360*88
;                       X           X              Y            Y

Local $MouseX= _MemoryWrite($MouseAdd[0][0],$Open,$PitchX,"float") ;x mouse axis
Local $MouseY= _MemoryWrite($MouseAdd[1][0],$Open,$PitchY,"float") ;y mouse axis

EndFunc

#endregion

Aimbot()
Func Aimbot()
While 1
Local $index=GetMinDistanceIndex()
If _IsPressed("01") Then ;Right Mouse
AimAtTarget(GetBotValues($index),GetMainPlayerVals())
EndIf
WEnd
EndFunc