Vehicle Problem

I'm assuming this should drive itself until it runs into something, but it's not moving at all, and I can't figure out why not. (Trying to just get the hang on making a script control a vehicle)

fstring gStatus = "off";
      
      default
      {
      	state_entry()
      	{
      		llSetTimerEvent(1);
  		// remove all flags 
      		llSetVehicleFlags(-1);
      		llSetVehicleType(VEHICLE_TYPE_SLED);
      		 
      		//  VEHICLE_TYPE_SLED
      
      		//Simple vehicle that bumps along the ground, and likes to move along it's local x-axis.
      
      		// most friction for left-right, least for up-down
      		llSetVehicleVectorParam( VEHICLE_LINEAR_FRICTION_TIMESCALE, <30, 1, 1000> );
      
      		// no angular friction
      		llSetVehicleVectorParam( VEHICLE_ANGULAR_FRICTION_TIMESCALE, <1000, 1000, 1000> );
      
      		// no linear motor
      		llSetVehicleVectorParam( VEHICLE_LINEAR_MOTOR_DIRECTION, <0, 0, 0> );
      		llSetVehicleFloatParam( VEHICLE_LINEAR_MOTOR_TIMESCALE, 2);
      		llSetVehicleFloatParam( VEHICLE_LINEAR_MOTOR_DECAY_TIMESCALE, 120 );
      
      		// no angular motor
      		llSetVehicleVectorParam( VEHICLE_ANGULAR_MOTOR_DIRECTION, <0, 0, 0> );
      		llSetVehicleFloatParam( VEHICLE_ANGULAR_MOTOR_TIMESCALE, 1000 );
      		llSetVehicleFloatParam( VEHICLE_ANGULAR_MOTOR_DECAY_TIMESCALE, 120 );
      
      		// no hover (but with timescale of 10 sec if enabled)
      		llSetVehicleFloatParam( VEHICLE_HOVER_HEIGHT, 0 );
      		llSetVehicleFloatParam( VEHICLE_HOVER_EFFICIENCY, 10 );
      		llSetVehicleFloatParam( VEHICLE_HOVER_TIMESCALE, 10 );
      		llSetVehicleFloatParam( VEHICLE_BUOYANCY, 0 );
      
      		// maximum linear deflection with timescale of 1 second
      		llSetVehicleFloatParam( VEHICLE_LINEAR_DEFLECTION_EFFICIENCY, 1 );
      		llSetVehicleFloatParam( VEHICLE_LINEAR_DEFLECTION_TIMESCALE, 1 );
      
      		// no angular deflection 
      		llSetVehicleFloatParam( VEHICLE_ANGULAR_DEFLECTION_EFFICIENCY, 0 );
      		llSetVehicleFloatParam( VEHICLE_ANGULAR_DEFLECTION_TIMESCALE, 10 );
      
      		// no vertical attractor (doesn't mind flipping over)
      		llSetVehicleFloatParam( VEHICLE_VERTICAL_ATTRACTION_EFFICIENCY, 1 );
      		llSetVehicleFloatParam( VEHICLE_VERTICAL_ATTRACTION_TIMESCALE, 1000 );
      
      		// no banking
      		llSetVehicleFloatParam( VEHICLE_BANKING_EFFICIENCY, 0 );
      		llSetVehicleFloatParam( VEHICLE_BANKING_MIX, 1 );
      		llSetVehicleFloatParam( VEHICLE_BANKING_TIMESCALE, 10 );
      
      		// default rotation of local frame
      		llSetVehicleRotationParam( VEHICLE_REFERENCE_FRAME, <0, 0, 0, 1> );
      
      		// remove these flags 
      		llRemoveVehicleFlags( VEHICLE_FLAG_HOVER_WATER_ONLY 
      							  | VEHICLE_FLAG_HOVER_TERRAIN_ONLY 
      							  | VEHICLE_FLAG_HOVER_GLOBAL_HEIGHT 
      							  | VEHICLE_FLAG_HOVER_UP_ONLY );
      
      		// set these flags (the limit_roll flag will have no effect
      		// until banking is enabled, if ever)
      		llSetVehicleFlags( VEHICLE_FLAG_NO_DEFLECTION_UP 
      						   | VEHICLE_FLAG_LIMIT_ROLL_ONLY
      						   | VEHICLE_FLAG_LIMIT_MOTOR_UP );
      	}
      	
   	timer()
      	{
      		// the timer actually moves vehicle
      		llSetVehicleVectorParam(VEHICLE_LINEAR_MOTOR_DIRECTION, <40,0,0>);
      	}	
      }
      

Thanks

EDITS. Still no motion at all. Actually, that's not totally true, it seems to fly a bit forward if I pick it up and drop it from a height, so I guess I just have one of the myriad settings wrong :/

Your linear motor timescale is far too large. Set it to 2 or so.
Dont' re-set it in your timer. Changing that's good for special effects, but for this application just stick with one setting.

Last but not least, trigger the timer with llSetTimerEvent(5.0); or similar.