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

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