Interrogate.sqf

_UnitSay = {
    params ["_unit", "_text", ["_duration", 2]];

    _unit setRandomLip true;
    _unit globalChat _text;
    sleep _duration;
    _unit setRandomLip false;
};

params ["_ai", "_player", "_action"];
_ai removeAction _action;

_aiPos = getPos _ai;
_playerPos = getPos _player;

_relHeading = ((((_playerPos select 0) - (_aiPos select 0)) atan2 ((_playerPos select 1) - (_aiPos select 1))) + 360) % 360;

[_ai, _relHeading] spawn {
    params ["_ai", "_target"];

    _currentDir = getDir _ai;
    _turnDir = 1;

    if (_target - _currentDir >= 180) then {
        _turnDir = -1;
        _currentDir = _currentDir + 360;
    };

    for "_heading" from _currentDir to _target step (10 * _turnDir) do {
        _ai setFormDir _heading;
        _ai setDir _heading;

        sleep 0.01;
    };
};

[_player, "Hello!"] call _UnitSay;
[_ai, "Fuck off."] call _UnitSay;
[_player, "k bai"] call _UnitSay;