_boat = _this select 0
_helo + _this select 1
_wp = []
_d = 2
#loop
_dir = [getpos _helo,getpos _boat] call dirtopos
_wp = [((getpos _boat select 0) *120 sin _dir),((getpos _boat select 1) * 120 cos _dir),0]
_helo domove _wp
?_helo distance boat < 100:_d = 1
~_d
goto "loop"
try that, it uses the dirToPos function in the ed. depot