Function CalcDistance:Float(Obj1X,Obj1Y,Obj2X,Obj2Y)
	Return Sqr(((Obj2X-Obj1X)*(Obj2X-Obj1X))+((Obj2Y-Obj1Y)*(Obj2Y-Obj1Y)))
EndFunction

Function CalcAngle:Float(Obj1X,Obj1Y,Obj2X,Obj2Y)
	Return ATan2(Obj2Y-Obj1Y,Obj2X-Obj1X)
EndFunction

Function VectorAdd:Vector(Vec1:Vector,Vec2:Vector)
	Local Result:Vector
	Local XResult
	Local YResult
	Result = New Vector
	XResult = Vec1.XOffset() + Vec2.XOffset()
	YResult = Vec1.YOffset() + Vec2.YOffset()
	Result.Speed = CalcDistance(0,0,XResult,YResult)
	Result.Angle = CalcAngle(0,0,XResult,YResult)
	Return Result
EndFunction