[ArmA3] Throw 40mm flare grenades like flares

[] spawn {
  for "_i" from 1 to 4 do {
    [] spawn {
      _obj = 'F_40mm_white' createvehicle ((vehicle player) ModelToWorld [0,1,-5]);
      _obj attachto [(vehicle player) ,[0,0,-5]];
      sleep 1.7;
      detach _obj;
      _obj setVectorDir (vectorDir (vehicle player));
      _obj setvelocityModelSpace [(vectorMagnitude velocity (vehicle player)) * 0.9, (vectorMagnitude velocity (vehicle player)) * 0.9,15];
    };
    [] spawn {
      _obj = 'F_40mm_white' createvehicle ((vehicle player) ModelToWorld [0,-1,-5]);
      _obj attachto [(vehicle player) ,[0,0,-5]];
      sleep 1.7;
      detach _obj;
      _obj setVectorDir (vectorDir(vehicle player));
      _obj setvelocityModelSpace [(vectorMagnitude velocity (vehicle player)) * -0.9,(vectorMagnitude velocity (vehicle player)) * 0.9,15];
    };
    sleep 1.5;
  };
};