Sorry your browser is not supported!

float4x4 world : World;
float4x4 wvp : WorldViewProjection;
float4x4 itw : WorldInverseTranspose;
float AmbientIntensity = 0.9;
float4 AmbientColor : Ambient = float4(.5,.5,.5,1);
float3 LightDirection : Direction = float3(0.707107f, -0.707107f, 0.0f);
float3 CameraPosition : Position = float3(0,0,0);
float2 Speed1={-0.04,-0.04};
float2 Speed2={0.05,0.05};
float camx=0.0;
float camy=0.0;
float camz=0.0;
float time : Time;
float2 WaterScale={20.0f,20.0f};

texture CloudMap < string ResourceName = ""; >;
sampler2D CloudMapSampler = sampler_state 
{
   //This obtains the texture in stage 0
    texture = <CloudMap>;
    MinFilter = Linear;
    MagFilter = Linear;
    MipFilter = Linear; 
    AddressU = Wrap;
    AddressV = Wrap;   
};

texture NormalMap1 < string ResourceName = ""; >;
sampler2D NormalMapSampler1 = sampler_state 
{
   //This obtains the texture in stage 1
    texture = <NormalMap1>;
    MinFilter = Linear;
    MagFilter = Linear;
    MipFilter = Linear;
    AddressU = Wrap;
    AddressV = Wrap;    
};

texture NormalMap2 < string ResourceName = ""; >;
sampler2D NormalMapSampler2 = sampler_state 
{
   //This obtains the texture in stage 1
    texture = <NormalMap2>;
    MinFilter = Linear;
    MagFilter = Linear;
    MipFilter = Linear; 
    AddressU = Wrap;
    AddressV = Wrap;   
};

texture ReflectMap1 < string ResourceName = ""; >;
sampler2D ReflectMapSampler1 = sampler_state 
{
   //This obtains the texture in stage 1
    texture = <ReflectMap1>;
    MinFilter = Linear;
    MagFilter = Linear;
    MipFilter = Linear;   
    AddressU = Wrap;
    AddressV = Wrap; 
};

texture ReflectMap2 < string ResourceName = ""; >;
sampler2D ReflectMapSampler2 = sampler_state 
{
   //This obtains the texture in stage 1
    texture = <ReflectMap2>;
    MinFilter = Linear;
    MagFilter = Linear;
    MipFilter = Linear;   
    AddressU = Wrap;
    AddressV = Wrap; 
};

struct VS_IN
{
	float4 Position : POSITION;
	float3 Normal : NORMAL;
	float2 UV       :TEXCOORD0;

};

struct VS_OUT
{
	float4 Position : POSITION;
	float2 Tex0 : TEXCOORD0;
	float2 Tex1 : TEXCOORD1;
	float2 Tex2 : TEXCOORD2;
	float3 Camview2 : TEXCOORD4; 
	float3 Normal : TEXCOORD5;
};

struct PS_OUT
{
	float4 Color : COLOR;
};

VS_OUT VS_Water(VS_IN input)
{
	VS_OUT output = (VS_OUT)0;
	//get input
	CameraPosition.x = camx;
	CameraPosition.y = camy;
	CameraPosition.z = camz;
	//shift waves
	output.Tex0=input.UV;
	output.Tex1=(input.UV*WaterScale + (time*Speed1));
	output.Tex2=(input.UV*WaterScale + (time*Speed2));
	// Pass water normals
	output.Normal = normalize(mul(input.Normal,world));
	//pass position
	output.Position = mul(input.Position,wvp);
	//Get cam view vector
	output.Camview2 = CameraPosition - mul(input.Position,world);

	
	return output;
}

PS_OUT PS_Water(VS_OUT input)
{
	PS_OUT output = (PS_OUT)0;
	//Get and combine normal maps
	float3 CNormal = normalize(tex2D(NormalMapSampler1, input.Tex1).rgb*tex2D(NormalMapSampler2, input.Tex2).rgb*2-1);
	//Calculates the diffuse lighting due to normals
	float Diffuse = saturate(dot(LightDirection,CNormal));
	//Gets the cloud texture
	float4 texCol = tex2D(CloudMapSampler,input.Tex0);
	//Do specular lighting
	float3 Half = normalize(LightDirection + input.Camview2);
	float specular = 2.0*normalize(1.0 - normalize(pow(dot(CNormal,Half),25)));
	//Get the reflection map
	float4 specCol = tex2D(ReflectMapSampler1,input.Tex1)*tex2D(ReflectMapSampler1,input.Tex2)*specular;
	float Ambient = AmbientIntensity * AmbientColor;
	output.Color = (Ambient+Diffuse)*texCol + specCol;
	
	return output;
}


technique WaterShader
{
	pass Water
	{
		AlphaBlendEnable = True;
		CullMode = CCW;
		VertexShader = compile vs_2_0 VS_Water();
		PixelShader = compile ps_2_0 PS_Water();
	}

}

      make object plain TRN_seaobject, object size x(TRN_obj), object size z(TRN_obj)
      position object TRN_seaobject, 0, TRN_sealevel*0.6-0.1, 0
      xrotate object TRN_seaobject, 90
      if texturetype$ = "C4"
         load image "images\terrain\brownskytop.png", 7
      else
         load image "images\terrain\skytop.png", 7
      endif
      load image "images\terrain\waternorm1.bmp", 8
      load image "images\terrain\waternorm2.bmp", 9
      load image "images\terrain\waterspec1.bmp", 10
      load image "images\terrain\waterspec2.bmp", 11
      texture object TRN_seaobject, 0, 7
      texture object TRN_seaobject, 1, 8
      texture object TRN_seaobject, 2, 9
      texture object TRN_seaobject, 3, 10
      texture object TRN_seaobject, 4, 11

      rem convert object fvf TRN_seaobject, 530  - This line I've tried but makes no difference.

      if effect exist(2)=0 then load effect "shaders\watershader.fx", 2, 0
      set object effect TRN_seaobject, 2
      set effect constant float 2, "camx", 300 rem camera position x()
      set effect constant float 2, "camy", 300  rem camera position y()
      set effect constant float 2, "camz", 300  rem camera position z()