Maths and programming

'----------------------------------------------------------------------------------------------------
Function Percentage:Double( MaxValue:Long, CurrentValue:Long )
	Local Per:Double = MaxValue/100
	
	If CurrentValue = MaxValue Return 100
	If Per<=0 Then Return 0
	
	Return Float( CurrentValue /Per )
End Function

'----------------------------------------------------------------------------------------------------
Function IsOdd:Int( value:Long )
	If value =0 Then Return 0
	
	If ( value Mod 2 ) <>0 Then Return 1 Else Return 0
End Function

'----------------------------------------------------------------------------------------------------
Function AngleDistance:Float( CurrentAngle:Float, NewAngle:Float )
	'returns the distance between two angles
	Local temp:Float = NewAngle - CurrentAngle
	
	Return Temp + ( ( Temp < -180.0 ) - ( Temp > 180.0 ) ) * 360.0
End Function

'----------------------------------------------------------------------------------------------------
Function FindAngle:Float( x1:Float, y1:Float, x2:Float, y2:Float )
	'returns the angle To a target
	Local ReturnedAngle:Float = ATan2( x2 -x1, y2 -y1 )
	Return 180-ReturnedAngle
End Function

'----------------------------------------------------------------------------------------------------
Function Distance( X:Float, Y:Float, Z:Float, X2:Float, Y2:Float, Z2:Float )
	Return Sqr( ( x# -x2# ) *( x# -x2# ) +( y# -y2# ) *( y# -y2# ) +( z# -z2# ) *( z# -z2# ) )
End Function

Function IsOdd:Int(a:Int)
	Return a&1
End Function

If a&1
  'is odd
Else
  ' is even
Endif

rem
atleast 2-3 lines describing what the following function does ie get distance between 2 objects
maybe 1-2 lines with examples of use ie finding out if a target is in range,
fire missle/bullet from point a to point b, etc..
endrem

Function GetDistance(x1#,y1#,x2#y2#...)
    'discription of what x1#,y1#,etc.. are used for

    insert code here along with discriptive remarks on what this is doing and what that is doing
EndFunction