T3D torquescript performance

I have a simple ai to fly a flock of birds around and I'm getting very jerky performance. I get 30 fps, but the bird's positions are not being updated smoothly. You can see a short video clip here:
http://www.youtube.com/watch?v=75U3zWJoJF8

My system is currently Vista 64, Intel Quad Core Q6600, GeForce GTX 260, 1GB RAM.

I initially tried using setVelocity rather than manually changing the position information but that didn't seem to have any effect. I guess setVelocity doesn't work on StaticShape?

I've made the update interval as long as I think I can make it (100ms).

Is torquescript just inefficient and I should rewrite in C++, or is there a way I can make this more efficient?

Are there any profiling tools available which can help find performance bottlenecks?

Here's my code:-

// Bird AI
// @TODO prevent going out of bounds
$state = 0; // 1=fly 2=circle
$updateIntervalMS = 100; // How often to update position in ms
$flapping = true;
$flyDelta = 0.4;
$angleDelta = 0.0;
$flockSpacing = 2.5;
$flockSize = 9;

function startAI( %bird) {
   $flock[0] = %bird;
   spawnFlock();
   updateFlock();
   for( %i=0; %i<$flockSize; %i++) 
      $flock[%i].playThread( 0, "ambient");   
   decideState();  // Decide initial state.
   scheduleFlap();
}

function spawnFlock() {
   for( %i=1; %i<$flockSize; %i++) { 
      $flock[%i] = new StaticShape() {
         dataBlock = "BirdDB";
         position = "0 0 0";
         rotation = "0 0 1 0";
         scale = "1 1 1";
      };   
      MissionCleanup.add( $flock[%i]);      
   }  
}

// Decide what to do next
function decideState() {
   //$state = getRandom( 1, 2);
   // Just fly forwards for now
   $state = 1;
   
   
   // Initialise chosen state.
   switch( $state) {
      case 1: // Fly
         // nothing to initialise
      case 2: // Circle
         $angleDelta = getRandom( 1, 7) / 1000.0;        
   }

   // Schedule first update
   scheduleNext();   
   
   // Schedule next decision
   %decisionInterval = getRandom( 5000, 20000);
   schedule( %decisionInterval,0, decideState);      
}

function scheduleFlap() {
   if( isObject($flock[0])) {   
      $flapping = ! $flapping;
      if( $flapping) {
         for( %i=0; %i<$flockSize; %i++) 
            $flock[%i].playThread( 0, "ambient");   
         %flapInterval = getRandom( 5000, 20000); 
      } else {
         for( %i=0; %i<$flockSize; %i++) 
            $flock[%i].stopThread( 0);   
         %flapInterval = getRandom( 1000, 2000); 
      }
         
           
      schedule( %flapInterval, 0, scheduleFlap);
   }
}

function scheduleNext() {
   if( isObject($flock[0])) {   
      switch( $state) {
         case 1:
            schedule( $updateIntervalMS,0, updateBirdFly);                        
         case 2:
            schedule( $updateIntervalMS,0, updateBirdCircle);      
      }  
   }
}

function isOdd( %i) {
  return( (%i % 2)!=0);  
}

// Update flock position relative to lead bird
function updateFlock() {
  %forward = $flock[0].getForwardVector();
  %forward = VectorScale( %forward, $flockSpacing);
  
  %left = (-%forward.Y) SPC %forward.X SPC 0;
  %right = %forward.Y SPC (-%forward.X) SPC 0;
  %pbird = $flock[0].getPosition();
  for( %i=1; %i<$flockSize; %i++) {
    if( isOdd(%i)) {
      %scale = $flockSpacing * (%i+1.0) / 2.0;
      %sideOffset = VectorScale( %left, %scale);      
      %backOffset = VectorScale( %forward, %scale);
    } else {
      %scale = $flockSpacing * %i / 2.0;      
      %sideOffset = VectorScale( %right, %scale);      
      %backOffset = VectorScale( %forward, %scale);
    }
    
    %position = VectorSub( %pbird, VectorAdd( %backOffset, %sideOffset));
    %tBird = $flock[0].getTransform();
    %transform = %position SPC getWord( %tBird, 3) SPC getWord( %tBird, 4) SPC getWord( %tBird, 5) SPC getWord( %tBird, 6);
    $flock[%i].setTransform( %transform);
  }
}

// Flying
function updateBirdFly() {
  if( isObject($flock[0]) && $state==1) {   
    // Move forward by $flyDelta      
    for( %i=0; %i<$flockSize; %i++) {
      %forward = $flock[%i].getForwardVector();
      %tbird = $flock[%i].getTransform();
      %tbird.X += %forward.X * $flyDelta;
      %tbird.Y += %forward.Y * $flyDelta;
      $flock[%i].setTransform( %tBird);         
    }
    scheduleNext();      
   }
}