I think you've got to add

ShadeMode = Shaded;

And add a stage with

ColorArg1[n] = Current;
ColorOp[n] = Modulate2x;
ColorArg2[n] = Diffuse;

if there aren't enough stages left in your pass, try to add another one.

joey.