graphics – PlotStyle like ocean waves?

I wonder how one can manipulate options like PlotStyle, Lighting, and Specularity to make the plot look like crystal ocean waves:
enter image description here
Example plot:

RegionPlot3D[z <= .3 Sin[3 x] + 1 && x <= 0,
 {x, -2, 1}, {y, -2, 1}, {z, 0, 2.5},
 PlotStyle -> Directive[RGBColor[.8, .8, 1, .5]], 
 Lighting -> {{"Directional", LightBlue, {{0, 0, 0}, {-1, -1, -2}}}},
 Mesh -> None, Axes -> None, BoxStyle -> Dashed,
 BoxRatios -> Automatic]