_Object = _this select 0
_Centre = _this select 1
_radius = _this select 2
_freq = _this select 3
_script = _this select 4
_vektor = _this select 5

#Update
? (_Object Distance _Centre) <= _radius : _vektor exec _script; exit
~_freq
goto "Update"