Sorry your browser is not supported!

remstart
*
* Quality
*
* - Shows how different qualtiies effect the appearance of the final scene
*
remend


rem set the light map quality here, 
Quality# = 4.0
MaxObjects=20
VIEW_ONLY = 0

rem render setup
sync on 
sync rate 0
set camera range 1,1000
randomize timer()
autocam off
color backdrop 0

set text font "Verdana" : set text size 14

//COMMENT THIS OUT WHEN YOU ARE CREATING LIGHTMAPS,
//ONCE THEY'RE CREATED YOU CAN UNCOMMENT THIS TO VIEW THE RESULT WITH THE SHADER APPLIED
GOTO VIEW

LM Start

rem make a floor and a sphere to cast a shadow onto it
make object box 1,200,1,200
position object 1,0,-0.5,0

load object "building21.dbo",MaxObjects+1

load image "building21_d.dds",1
texture object MaxObjects+1,0,1

for t=2 to MaxObjects
    clone object t,MaxObjects+1
    position object t,-100+(11*t),0,-100+(11*t)    
    yrotate object t,0
next t
delete object MaxObjects+1


rem add level as collision objects to cast shadows
for t=1 to MaxObjects
    LM Add Collision Object t
next t
LM Build collision Data

rem add level as a light map object to receive lightmaps
for t=1 to MaxObjects
    LM Add Light Map Object t
next t

LM Add Point Light 30,30,-20,300,1.0,0.6,0.7
make object sphere 101,1
position object 101,30,30,-20

LM Add Point Light -20,40,50,300,0.4,0.9,0.6
make object sphere 102,1
position object 102,-20,40,50

LM Add Point Light -30,30,-30,300,1.0,1.0,0.6
make object sphere 103,1
position object 103,-30,30,-30

if VIEW_ONLY=0
    rem start the light mapping thread
    starttimer=timer()
    LM Build Light Maps Thread 2048,Quality#,1
    
    load dll "Kernel32.dll",1
    sync off
    
    // rem get current status and display whilst running
    while LM Get Complete()=0
        
        rem make DBPro wait before trying again
        call dll 1,"Sleep",100
        cls
        set cursor 0,0
        print LM Get Status( );"  ";int(LM Get Percent());"%"
        
    endwhile
    
    sync on
    endtimer = timer()
endif

rem light mapping complete remove all collision and light map objects and lights.
LM Reset


RETURNTOLOOP:


rem position camera and reset mouse movement
position camera 0,50,-50
point camera 0,0,0
null = mousemovex()
null = mousemovey()

do
    if ( keystate(59)=1 and f1Timer<timer() )
    f1Timer = timer()+300
 
    F1Pressed=1-F1Pressed
    endif
    
    rem display the build time
    set cursor 0,0
    if F1Pressed=0
    center text screen width()/2.0,20,"-- Press F1 For Help --"
    else
    print "Use Arrows Keys to Move, Hold Shift For Slower Movement"
    print
    print "FPS: ";screen fps()
    print "Quality: ";Quality#
    print "Build Time: ";(endtimer - starttimer)/1000.0;"s"
    endif
    
    rem control the speed of the camera
    if shiftkey()=1 then speed# = 0.2*(60.0/screen fps()) else speed#=2.0*(60.0/screen fps())

    rem move and rotate the camera
    angy# = camera angle y()
    angx# = camera angle x()
    if upkey()=1 then move camera speed#
    if downkey()=1 then move camera -speed#
    xrotate camera 0
    
    if leftkey()=1 then yrotate camera angy#-90 : move camera speed# : yrotate camera angy#
    if rightkey()=1 then yrotate camera angy#+90 : move camera speed# : yrotate camera angy#
    yrotate camera angy#+mousemovex()/3.0
    xrotate camera angx#+mousemovey()/3.0
    
    if spacekey()=1
        for t=1 to MaxObjects
            if file exist("LM_OBJ"+str$(t)+".dbo")=1 then delete file "LM_OBJ"+str$(t)+".dbo"
            save object "LM_OBJ"+str$(t)+".dbo",t
        next t
        end
    endif
    
    sync
loop
    


VIEW:
    `load image "lm.png",2
    `load image "building21_d.dds",2
    load image "building21_n.dds",3
    
    load effect "GGbump06.fx",1,0
    `null=make vector4(1)
    `set vector4 1,0,20,0,200
    `set effect constant vector 1,"LightPosition ",1
    `set vector4 1,1.0,1.0,1.0,1.0
    `set effect constant vector 1,"LightColor  ",1
    
    for t=1 to MaxObjects
        load object "LM_OBJ"+str$(t)+".dbo",t
        if t>1 
            position object t,-100+(11*t),0,-100+(11*t)
            yrotate object t,0
            `texture object t,0,1
            `texture object t,1,2
            texture object t,2,3
            set object effect t,1   
        endif     
    next t
    
    set effect technique 1,"t0"
    
    make object cube MaxObjects+1,2
    position object MaxObjects+1,0,20,0

GOTO RETURNTOLOOP
    
end

This was added:
texture lMapTexture < string ResourceName = ""; >;

and this was added too:

sampler lMapSample = sampler_state 
{ texture = <lMapTexture>;
  mipFilter = linear;
  magFilter = linear;
  minFilter = linear;
};

This was changed:
{ float4 baseColour = tex2D(baseSample, In.UV)*tex2D(lMapSample, In.UV);
The original looked like this:
{ float4 baseColour = tex2D(baseSample, In.UV)

        load object "LM_OBJ"+str$(t)+".dbo",t

    if spacekey()=1
        for t=1 to MaxObjects
            if file exist("LM_OBJ"+str$(t)+".dbo")=1 then delete file "LM_OBJ"+str$(t)+".dbo"
            save object "LM_OBJ"+str$(t)+".dbo",t
        next t
        end
    endif

        set object light t, 1 ` make sure the object is affected by dynamic lights
        set object texture t, 2, 1 ` make sure mipmapping is turned on (also assumed clamping is needed)
        set blend mapping on t, 0, 2, 11, 7 ` this will add the lightmap to the dynamic lighting using stage 1 UV
        set blend mapping on t, 1, 3, 10, 4 ` this will multiply the base texture by the combined lightmap using stage 0 UV

//
// Green Gandalf's Bumpmapper v1.4
//
// Created 27 June 2006,    Modified 2 August 2009.
//
// Bumpmapping using a texture and normal map with a single directional light source
// plus ambient light and specular reflection.
// Uses full normalization in the pixel shader.
//
// Contains two techniques:
//   t0 - standard normal mapping suitable for simple objects such as cubes
//   t1 - improved normal mapping suitable for objects such as DBPro spheres
//        which might contain seams.
//
// Special thanks to Morcilla of MPL3D for some useful corrections.

matrix wvp : WorldViewProjection;
matrix mworld : World;
matrix winv: WorldInverse;
float4 eyePos : CameraPosition;

texture lMapTexture < string ResourceName = ""; >; // swapped these two back round
texture baseTexture < string ResourceName = ""; >;
texture nMapTexture < string ResourceName = ""; >;

sampler lMapSample = sampler_state 
{ texture = <lMapTexture>;
  mipFilter = linear;
  magFilter = linear;
  minFilter = linear;
};
sampler baseSample = sampler_state 
{ texture = <baseTexture>;
  mipFilter = linear;
  magFilter = linear;
  minFilter = linear;
};
sampler nMapSample = sampler_state 
{ texture = <nMapTexture>;
  mipFilter = linear;
  magFilter = linear;
  minFilter = linear;
};

float4 lightDir   = {-1.0, 0.0, 0.0, 1.0};
float4 ambiColor  = {0.2, 0.2, 0.2, 1.0};
float4 lightColor = {1.0, 1.0, 1.0, 1.0};
float specLevel  = 0.25;
float specExpon=10.0;

struct VSInput
{ float4 pos          : position;
  float2 UV0          : texcoord1; // swapped the texcoords of the UVs here
  float2 UV1          : texcoord0;
  float3 tangent      : tangent;
  float3 binormal     : binormal;
  float3 normal       : normal;
};

struct VSOutput
{ float4 pos          : position;
  float2 UV0          : texcoord1; // ditto for output
  float2 UV1          : texcoord0;
  float3 light        : texcoord2; // not sure what to do with these?
  float3 view         : texcoord3;
};

VSOutput GGBumpVShader0(VSInput In, VSOutput Out)
{ Out.pos = mul(In.pos, wvp);
  Out.UV0 = In.UV0; // Changing this is not needed?
  Out.UV1 = In.UV1;
  // normalize everything just in case
  float3 n = normalize(In.normal);
  float3 t = normalize(In.tangent);
  float3 b = normalize(In.binormal);
  float3x3 TSM = {t, b, n};
  TSM = transpose(TSM);  
  float3 temp = -mul(lightDir.xyz, winv);  
  Out.light = mul(temp, TSM);  
  temp = (mul(eyePos, winv) - In.pos).xyz;
  Out.view = mul(temp, TSM);
  return Out;
}

VSOutput GGBumpVShader1(VSInput In, VSOutput Out)
{ Out.pos = mul(In.pos, wvp);
  Out.UV0 = In.UV0; // same here
  Out.UV1 = In.UV1;
  // adjust tangents and binormals - GG fix for seams on DBPro spheres
  float3 n = normalize(In.normal);
  float3 b = normalize(cross(n, In.tangent));
  float3 t = normalize(cross(b, n));
  float3x3 TSM = {t, b, n};
  TSM = transpose(TSM);  
  float3 temp = -mul(lightDir.xyz, winv);  
  Out.light = mul(temp, TSM);  
  temp = (mul(eyePos, winv) - In.pos).xyz;
  Out.view = mul(temp, TSM);
  return Out;
}

/* not needed - can simply use the output structure from the vertex shaders
struct PSInput
{ float2 UV           : texcoord1;
  float3 light        : texcoord2;
  float3 view         : texcoord3;
};
*/

struct PSOutput { float4 col : color; };

PSOutput GGBumpPShader(VSOutput In, PSOutput Out) // minor edit
{ // the next two lines assume that the normal map and base texture use the same 
  // set of UV coords (assumed to be stage 0) with the lightmap using stage 1
  float4 baseColour = tex2D(baseSample, In.UV0); // UV swapped
  float3 normal     = 4 * tex2D(nMapSample, In.UV0) - 1.0; //UV swapped
  float3 tempLightDir = normalize(In.light);
  float3 tempViewDir  = normalize(In.view);
  float diffuse       = saturate(dot(normal, tempLightDir));
  float3 reflect      = 1 * diffuse * normal - tempLightDir;
  float specular = diffuse * specLevel * pow(saturate(dot(reflect, tempViewDir)), specExpon);
  // UV NOT swapped in the following, when swapped objects are invisable:
  Out.col = baseColour * (ambiColor + diffuse * lightColor + tex2D(lMapSample, In.UV1)) + specular * lightColor;
  return Out;
}

technique t0
{ pass p0
  { VertexShader = compile vs_2_0 GGBumpVShader0();
    PixelShader = compile ps_2_0 GGBumpPShader();
  }
}

technique t1
{ pass p0
  { VertexShader = compile vs_2_0 GGBumpVShader1();
    PixelShader = compile ps_2_0 GGBumpPShader();
  }
}

//
// Green Gandalf's Bumpmapper v1.4
//
// Created 27 June 2006,    Modified 2 August 2009.
//
// Bumpmapping using a texture and normal map with a single directional light source
// plus ambient light and specular reflection.
// Uses full normalization in the pixel shader.
//
// Contains two techniques:
//   t0 - standard normal mapping suitable for simple objects such as cubes
//   t1 - improved normal mapping suitable for objects such as DBPro spheres
//        which might contain seams.
//
// Special thanks to Morcilla of MPL3D for some useful corrections.

matrix wvp : WorldViewProjection;
matrix mworld : World;
matrix winv: WorldInverse;
float4 eyePos : CameraPosition;

texture lMapTexture < string ResourceName = ""; >; // swapped these two back round
texture baseTexture < string ResourceName = ""; >;
texture nMapTexture < string ResourceName = ""; >;

sampler lMapSample = sampler_state 
{ texture = <lMapTexture>;
  mipFilter = linear;
  magFilter = linear;
  minFilter = linear;
};
sampler baseSample = sampler_state 
{ texture = <baseTexture>;
  mipFilter = linear;
  magFilter = linear;
  minFilter = linear;
};
sampler nMapSample = sampler_state 
{ texture = <nMapTexture>;
  mipFilter = linear;
  magFilter = linear;
  minFilter = linear;
};

float4 lightDir   = {-1.0, 0.0, 0.0, 1.0};
float4 ambiColor  = {0.2, 0.2, 0.2, 1.0};
float4 lightColor = {1.0, 1.0, 1.0, 1.0};
float specLevel  = 0.25;
float specExpon=10.0;

struct VSInput
{ float4 pos          : position;
  float2 UV0          : texcoord1; // swapped the texcoords of the UVs here
  float2 UV1          : texcoord0;
  float3 tangent      : tangent;
  float3 binormal     : binormal;
  float3 normal       : normal;
};

struct VSOutput
{ float4 pos          : position;
  float2 UV0          : texcoord1; // ditto for output
  float2 UV1          : texcoord0;
  float3 light        : texcoord2; // not sure what to do with these?
  float3 view         : texcoord3;
};

VSOutput GGBumpVShader0(VSInput In, VSOutput Out)
{ Out.pos = mul(In.pos, wvp);
  Out.UV0 = In.UV0; // Changing this is not needed?
  Out.UV1 = In.UV1;
  // normalize everything just in case
  float3 n = normalize(In.normal);
  float3 t = normalize(In.tangent);
  float3 b = normalize(In.binormal);
  float3x3 TSM = {t, b, n};
  TSM = transpose(TSM);  
  float3 temp = -mul(lightDir.xyz, winv);  
  Out.light = mul(temp, TSM);  
  temp = (mul(eyePos, winv) - In.pos).xyz;
  Out.view = mul(temp, TSM);
  return Out;
}

VSOutput GGBumpVShader1(VSInput In, VSOutput Out)
{ Out.pos = mul(In.pos, wvp);
  Out.UV0 = In.UV0; // same here
  Out.UV1 = In.UV1;
  // adjust tangents and binormals - GG fix for seams on DBPro spheres
  float3 n = normalize(In.normal);
  float3 b = normalize(cross(n, In.tangent));
  float3 t = normalize(cross(b, n));
  float3x3 TSM = {t, b, n};
  TSM = transpose(TSM);  
  float3 temp = -mul(lightDir.xyz, winv);  
  Out.light = mul(temp, TSM);  
  temp = (mul(eyePos, winv) - In.pos).xyz;
  Out.view = mul(temp, TSM);
  return Out;
}

/* not needed - can simply use the output structure from the vertex shaders
struct PSInput
{ float2 UV           : texcoord1;
  float3 light        : texcoord2;
  float3 view         : texcoord3;
};
*/

struct PSOutput { float4 col : color; };

PSOutput GGBumpPShader(VSOutput In, PSOutput Out) // minor edit
{ // the next two lines assume that the normal map and base texture use the same 
  // set of UV coords (assumed to be stage 0) with the lightmap using stage 1
  float4 baseColour = tex2D(baseSample, In.UV0); // UV swapped
  float3 normal     = 4 * tex2D(nMapSample, In.UV0) - 1.0; //UV swapped
  float3 tempLightDir = normalize(In.light);
  float3 tempViewDir  = normalize(In.view);
  float diffuse       = saturate(dot(normal, tempLightDir));
  float3 reflect      = 1 * diffuse * normal - tempLightDir;
  float specular = diffuse * specLevel * pow(saturate(dot(reflect, tempViewDir)), specExpon);
  // UV NOT swapped in the following, when swapped objects
  // are invisible:
  Out.col = baseColour * (ambiColor + diffuse * lightColor + tex2D(lMapSample, In.UV1)) + specular * lightColor;
  return Out;
}

technique t0
{ pass p0
  { VertexShader = compile vs_2_0 GGBumpVShader0();
    PixelShader = compile ps_2_0 GGBumpPShader();
  }
}

technique t1
{ pass p0
  { VertexShader = compile vs_2_0 GGBumpVShader1();
    PixelShader = compile ps_2_0 GGBumpPShader();
  }
}

  Out.col = baseColour * (ambiColor + diffuse * lightColor + tex2D(lMapSample, In.UV1)) + specular * lightColor;

    //LIGHTMAP THE LEVEL OBJECTS!
            //Start the lighmapper
                LM Start
            //Clear the lights to stop residual errors
                LM Reset
                
                
            //Add the lights to the LM world
                //Add the lights
                for L=0 to Editor.MaxLights                 //Cycle lights
                    if LightsArray(L).IsActive=1            //Check for activation
                        select LightsArray(L).LightType     //Select the type of light to add
                            case 1 //Spotlight
                                obj=FO()
                                make object cube obj,1
                                position object obj,LightsArray(L).position.x, LightsArray(L).position.y, LightsArray(L).position.z
                                rotate object obj,LightsArray(L).rotation.x, LightsArray(L).rotation.y, LightsArray(L).rotation.z
                                move object obj,1
                                dx# = object position x(obj)-LightsArray(L).position.x
                                dy# = object position y(obj)-LightsArray(L).position.y
                                dz# = object position z(obj)-LightsArray(L).position.z
                                delete object obj
                                LM Add Spot Light LightsArray(L).position.x, LightsArray(L).position.y, LightsArray(L).position.z,dx#,dy#,dz#, LightsArray(L).AngleInner, LightsArray(L).AngleOuter,LightsArray(L).Range, LightsArray(L).ColourR/255.0, LightsArray(L).ColourG/255.0, LightsArray(L).ColourB/255.0
                            endcase
                            case 2 //Directional light
                                make object cube obj,1
                                position object obj,LightsArray(L).position.x, LightsArray(L).position.y, LightsArray(L).position.z
                                rotate object obj,LightsArray(L).rotation.x, LightsArray(L).rotation.y, LightsArray(L).rotation.z
                                move object obj,1
                                dx# = object position x(obj)-LightsArray(L).position.x
                                dy# = object position y(obj)-LightsArray(L).position.y
                                dz# = object position z(obj)-LightsArray(L).position.z
                                delete object obj
                                LM Add Directional Light dx#,dy#,dz#, LightsArray(L).ColourR/255.0, LightsArray(L).ColourG/255.0, LightsArray(L).ColourB/255.0
                            endcase
                            case 3 //Pointlight
                                LM Add Point Light LightsArray(L).position.x, LightsArray(L).position.y, LightsArray(L).position.z, LightsArray(L).Range, LightsArray(L).ColourR/255.0, LightsArray(L).ColourG/255.0, LightsArray(L).ColourB/255.0
                            endcase                        
                        endselect
                    endif
                next L
                
            //Set the ambient light colour then set occlusion on with 100 rays of length 20 with a consistent pattern(1).
                LM Set Ambient Light 0.1,0.1,0.1
                LM Set Ambient Occlusion On 20,20,1
    
            //Add each object that needs to be lightmapped to the LM world
                //Add collision objects
                LM_Objects=0
                for i=Editor.MaxLights+3 to array count(MapObjects(0))  
                    if MapObjects(i).EditboxObjectType_ObjectProperties=3
                        LM Add Collision Object MapObjects(i).Object
                        inc LM_Objects,1
                    endif
                next i
                //Finalise the LM world
                LM Build collision Data
                
                //Add lightmap objects 
                for i=Editor.MaxLights+3 to array count(MapObjects(0))  
                    if MapObjects(i).EditboxObjectType_ObjectProperties=3
                        LM Add Light Map Object MapObjects(i).Object,1
                    endif
                next i
                
            if LM_Objects>0
            //Lightmap the level objects      
                //Start the light mapping thread
                LM Build Light Maps Thread 2048,2.0,1
                //Load sys32 kernel for exterior program control
                load dll "Kernel32.dll",1
                sync off
                //Get current status and display whilst running
                while LM Get Complete()=0
                    //Make DBPro wait before trying again to give the light mapper thread the CPU
                    call dll 1,"Sleep",100
                    cls
                    set cursor 0,0
                    print LM Get Status( );"  ";int(LM Get Percent());"%"
                endwhile
                sync on
                //Light mapping complete remove all collision and light map objects and lights, they are no longer needed.
                LM Reset
           else
                //Reset the LM
                LM Reset
           endif

Function LightmapMap()
            //Add the lights to the LM world
                //Add the lights
                for L=0 to Editor.MaxLights                 //Cycle lights
                    if LightsArray(L).IsActive=1            //Check for activation
                        select LightsArray(L).LightType     //Select the type of light to add
                            case 1 //Spotlight
                                obj=FO()
                                make object cube obj,1
                                position object obj,LightsArray(L).position.x, LightsArray(L).position.y, LightsArray(L).position.z
                                rotate object obj,LightsArray(L).rotation.x, LightsArray(L).rotation.y, LightsArray(L).rotation.z
                                move object obj,1
                                dx# = object position x(obj)-LightsArray(L).position.x
                                dy# = object position y(obj)-LightsArray(L).position.y
                                dz# = object position z(obj)-LightsArray(L).position.z
                                delete object obj
                                LM Add Spot Light LightsArray(L).position.x, LightsArray(L).position.y, LightsArray(L).position.z,dx#,dy#,dz#, LightsArray(L).AngleInner, LightsArray(L).AngleOuter,LightsArray(L).Range, LightsArray(L).ColourR/255.0, LightsArray(L).ColourG/255.0, LightsArray(L).ColourB/255.0
                            endcase
                            case 2 //Directional light
                                make object cube obj,1
                                position object obj,LightsArray(L).position.x, LightsArray(L).position.y, LightsArray(L).position.z
                                rotate object obj,LightsArray(L).rotation.x, LightsArray(L).rotation.y, LightsArray(L).rotation.z
                                move object obj,1
                                dx# = object position x(obj)-LightsArray(L).position.x
                                dy# = object position y(obj)-LightsArray(L).position.y
                                dz# = object position z(obj)-LightsArray(L).position.z
                                delete object obj
                                LM Add Directional Light dx#,dy#,dz#, LightsArray(L).ColourR/255.0, LightsArray(L).ColourG/255.0, LightsArray(L).ColourB/255.0
                            endcase
                            case 3 //Pointlight
                                LM Add Point Light LightsArray(L).position.x, LightsArray(L).position.y, LightsArray(L).position.z, LightsArray(L).Range, LightsArray(L).ColourR/255.0, LightsArray(L).ColourG/255.0, LightsArray(L).ColourB/255.0
                            endcase                        
                        endselect
                    endif
                next L
                
            //Make list of all lightmappable objects
                Dim LMO() as integer
                empty array LMO()
                for i=Editor.MaxLights+3 to array count(MapObjects(0))  
                    if MapObjects(i).EditboxObjectType_ObjectProperties=3
                        array insert at bottom LMO()
                        LMO()=i
                    endif
                next i
            
            //Run through the list
            array index to top LMO()
            while array index valid( LMO() )
                //Add LM collisiion to object
                LM Add Collision Object MapObjects(LMO()).Object
                //Add object to be lightmapped
                LM Add Light Map Object MapObjects(LMO()).Object
                
               next array index LMO()
            endwhile
            
            //Finalise the LM world
                LM Build collision Data
                
            //Start the light mapping thread
                LM Build Light Maps Thread 2048,2.0,1
                //Load sys32 kernel for exterior program control
                load dll "Kernel32.dll",1
                sync off
                //Get current status and display whilst running
                while LM Get Complete()=0
                    //Make DBPro wait before trying again to give the light mapper thread the CPU
                    call dll 1,"Sleep",100
                    cls
                    set cursor 0,0
                    print LM Get Status( );"  ";int(LM Get Percent());"%"
                endwhile
                sync on
                wait 100
                //Light mapping complete remove all collision and light map objects and lights, they are no longer needed.
                LM Reset
EndFunction

matrix wvp : WorldViewProjection;
matrix mworld : World;
matrix winv: WorldInverse;
float4 eyePos : CameraPosition;

texture lMapTexture < string ResourceName = ""; >; // swapped these two round
texture baseTexture < string ResourceName = ""; >;
texture nMapTexture < string ResourceName = ""; >;

sampler lMapSample = sampler_state 
{ texture = <lMapTexture>;
  mipFilter = linear;
  magFilter = linear;
  minFilter = linear;
};
sampler baseSample = sampler_state 
{ texture = <baseTexture>;
  mipFilter = linear;
  magFilter = linear;
  minFilter = linear;
};
sampler nMapSample = sampler_state 
{ texture = <nMapTexture>;
  mipFilter = linear;
  magFilter = linear;
  minFilter = linear;
};

float4 lightDir   = {-1.0, 0.0, 0.0, 1.0};
float4 ambiColor  = {0.2, 0.2, 0.2, 1.0};
float4 lightColor = {1.0, 1.0, 1.0, 1.0};
float specLevel  = 0.25;
float specExpon=10.0;

struct VSInput
{ float4 pos          : position;
  float2 UV0          : texcoord0; // you need two input sets of UV coordinates for lightmapped objects
  float2 UV1          : texcoord1;
  float3 tangent      : tangent;
  float3 binormal     : binormal;
  float3 normal       : normal;
};

struct VSOutput
{ float4 pos          : position;
  float2 UV0          : texcoord0; // ditto for output
  float2 UV1          : texcoord1;
  float3 light        : texcoord2; // need to renumber these last two
  float3 view         : texcoord3;
};

VSOutput GGBumpVShader0(VSInput In, VSOutput Out)
{ Out.pos = mul(In.pos, wvp);
  Out.UV0 = In.UV0; // output the two sets of UV coords unchanged
  Out.UV1 = In.UV1;
  // normalize everything just in case
  float3 n = normalize(In.normal);
  float3 t = normalize(In.tangent);
  float3 b = normalize(In.binormal);
  float3x3 TSM = {t, b, n};
  TSM = transpose(TSM);  
  float3 temp = -mul(lightDir.xyz, winv);  
  Out.light = mul(temp, TSM);  
  temp = (mul(eyePos, winv) - In.pos).xyz;
  Out.view = mul(temp, TSM);
  return Out;
}

VSOutput GGBumpVShader1(VSInput In, VSOutput Out)
{ Out.pos = mul(In.pos, wvp);
  Out.UV0 = In.UV0; // output the two sets of UV coords unchanged
  Out.UV1 = In.UV1;
  // adjust tangents and binormals - GG fix for seams on DBPro spheres
  float3 n = normalize(In.normal);
  float3 b = normalize(cross(n, In.tangent));
  float3 t = normalize(cross(b, n));
  float3x3 TSM = {t, b, n};
  TSM = transpose(TSM);  
  float3 temp = -mul(lightDir.xyz, winv);  
  Out.light = mul(temp, TSM);  
  temp = (mul(eyePos, winv) - In.pos).xyz;
  Out.view = mul(temp, TSM);
  return Out;
}

struct PSOutput { float4 col : color; };

PSOutput GGBumpPShader(VSOutput In, PSOutput Out) // minor edit
{ // the next two lines assume that the normal map and base texture use the same 
  // set of UV coords (assumed to be stage 0) with the lightmap using stage 1
  float4 baseColour = tex2D(baseSample, In.UV0);
  float3 normal     = 4 * tex2D(nMapSample, In.UV0) - 1.0;
  float3 tempLightDir = normalize(In.light);
  float3 tempViewDir  = normalize(In.view);
  float diffuse       = saturate(dot(normal, tempLightDir));
  float3 reflect      = 1 * diffuse * normal - tempLightDir;
  float specular = diffuse * specLevel * pow(saturate(dot(reflect, tempViewDir)), specExpon);
  // lightmap needs to be added to the other lighting
  Out.col = ( baseColour * (ambiColor + diffuse * lightColor + tex2D(lMapSample, In.UV1)) ) + specular * lightColor;
return Out;
}

technique t0
{ pass p0
  { VertexShader = compile vs_2_0 GGBumpVShader0();
    PixelShader = compile ps_2_0 GGBumpPShader();
  }
}

technique t1
{ pass p0
  { VertexShader = compile vs_2_0 GGBumpVShader1();
    PixelShader = compile ps_2_0 GGBumpPShader();
  }
}

Sync on
sync rate 60

obj=1
load object "building14(1).dbo",obj
convert object fvf obj, 530
//0x002||0x010||0x800||0x040||0x080||0x020
`set object normals obj

//Remark out the following if you want to see the obejct without the shader applied
//Remark start
`load image "building14.dds",1
`load image "0.png",2
load image "building14_N.dds",3

`texture object obj,0,2
`texture object obj,1,1
texture object obj,2,3

load effect "GGbump09LM.fx",1,0
null = make vector4(1)
set vector4 1, 0.0, 0.0, 0.0, 0.0
set effect constant vector 1, "ambiColor", 1
set vector4 1, 0.5, 0.5, 0.5, 1.0
set effect constant vector 1, "lightColor", 1
set object effect 1,1
set effect technique 1,"t0"
//Remark end

make object sphere obj+1,-5000

position object obj,0,0,0
rotate object obj,0,0,0

do

    text 20,0,"FPS: "+str$(screen fps())
    for t=0 to 2
        text 20,10+(t*10),"Texture stage "+str$(t)+": "+limb texture name(1,1,t)
    next t

    rem control the speed of the camera
    if shiftkey()=1 then speed# = 0.2*(60.0/screen fps()) else speed#=4.0*(60.0/screen fps())

    rem move and rotate the camera
    angy# = camera angle y()
    angx# = camera angle x()
    if upkey()=1 then move camera speed#
    if downkey()=1 then move camera -speed#
    xrotate camera 0

    if leftkey()=1 then yrotate camera angy#-90 : move camera speed# : yrotate camera angy#
    if rightkey()=1 then yrotate camera angy#+90 : move camera speed# : yrotate camera angy#
    yrotate camera angy#+mousemovex()/3.0
    xrotate camera angx#+mousemovey()/3.0

    sync

loop

end

load object "building14(1).dbo",obj
convert object fvf obj,530
load image "building14.dds",1
load image get dir$()+"\lightmaps\1.png",2
load image "building14_N.dds",3
texture object obj,0,1
texture object obj,1,2
texture object obj,2,3
load effect "GGbump06LM.fx",1,0

Here's a little chart that helped me and clarified where the various numbers (such as 338 or 274 comes from).

FORMAT HEX DEC
FVF_XYZ => 0x002 => 2
FVF_XYZRHW => 0x004 => 4
FVF_XYZB1 => 0x006 => 6
FVF_XYZB2 => 0x008 => 8
FVF_XYZB3 => 0x00a => 10
FVF_XYZB4 => 0x00c => 12
FVF_XYZB5 => 0x00e => 14
FVF_NORMAL => 0x010 => 16
FVF_PSIZE => 0x020 => 32
FVF_DIFFUSE => 0x040 => 64
FVF_SPECULAR => 0x080 => 128
FVF_TEX0 => 0x000 => 0
FVF_TEX1 => 0x100 => 256
FVF_TEX2 => 0x200 => 512
FVF_TEX3 => 0x300 => 768
FVF_TEX4 => 0x400 => 1024
FVF_TEX5 => 0x500 => 1280
FVF_TEX6 => 0x600 => 1536
FVF_TEX7 => 0x700 => 1792
FVF_TEX8 => 0x800 => 2048

So 338 would be
FVF_TEX1 => 0x100 => 256
FVF_DIFFUSE => 0x040 => 64
FVF_NORMAL => 0x010 => 16
FVF_XYZ => 0x002 => 2
Sum = 338

If you remove the diffuse from fvf 338 (FVF_DIFFUSE 0x040 64) just subtract 64 from 338 and you get 274.

So for convert object fvf ObjNum,xxx just plug in the sums you want for xxx.

Or more elegantly by Phaelax in 2004 would be:

#constant FVF_XYZ 0x002
#constant FVF_XYZRHW 0x004
#constant FVF_XYZB1 0x006
#constant FVF_XYZB2 0x008
#constant FVF_XYZB3 0x00a
#constant FVF_XYZB4 0x00c
#constant FVF_XYZB5 0x00e
#constant FVF_NORMAL 0x010
#constant FVF_PSIZE 0x020
#constant FVF_DIFFUSE 0x040
#constant FVF_SPECULAR 0x080
#constant FVF_TEX0 0x000
#constant FVF_TEX1 0x100
#constant FVF_TEX2 0x200
#constant FVF_TEX3 0x300
#constant FVF_TEX4 0x400
#constant FVF_TEX5 0x500
#constant FVF_TEX6 0x600
#constant FVF_TEX7 0x700
#constant FVF_TEX8 0x800

MyFVF as dword
MyFVF = FVF_XYZ || FVF_NORMAL || FVF_DIFFUSE || FVF_TEX1

and you use object fvf ObjNum,MyFVF

Maybe obvious to most but I thought I'd share what I've been able to find. 

Vertex Format Flag:	Size:
D3DFVF_DIFFUSE		sizeof(DWORD)
D3DFVF_NORMAL		sizeof(float) x 3
D3DFVF_SPECULAR		sizeof(DWORD)
D3DFVF_TEXn		sizeof(float) x n
D3DFVF_XYZ		sizeof(float) x 3
D3DFVF_XYZRHW		sizeof(float) x 4

make object sphere 1, 50
make mesh from object 1, 1
make memblock from mesh 1, 1
repeat
  text 20, 20, str$( memblock dword(1, 0) )
until spacekey()