_Actor = _this select 0
_Centre = _this select 1

_oldx = GetPos _Actor select 0
_oldy = GetPos _Actor select 1
_oldz = GetPos _Actor select 2


#Update
_cx = GetMarkerPos _Centre select 0
_cy = GetMarkerPos _Centre select 1
_cz = GetMarkerPos _Centre select 2

_cx = _cx + Random(200) - 100
_cy = _cy + Random(200) - 100

_Actor SetPos [_cx,_cy,_cz]
_Actor SetDammage 1
~0.01
_Actor SetDammage 0
_Actor SetPos [_oldx,_oldy,_oldz]
~1
goto "Update"