How to implment AI WheeledVehicle in T3D?

function CreateAIWheeledVehicle(%name, %botPath)
{
	// Create the A.I. driven bot object...	
	%player = new AIWheeledVehicle()
	{
		dataBlock = %db;
		path = %botPath;
	};

	MissionCleanup.add( %player );
	%player.setShapeName( %name );
  
  %node = %botPath.getObject(0);  
  %player.setTransform( %node.getTransform());
  %player.curentNode = 0;    // current node
  
  %player.setMoveSpeed(1.5);
  %player.setMoveTolerance(5.0);
  
  %player.score = 0;
    
	return %player;
}

function AIWheeledVehicle::followPath( %this, %path, %node )
{
  // Start the bot following a path
  %this.stopThread(0);

   // Make sure our path is valid
  if( !isObject( %path ) )
  {
    echo( "AIWheeledVehicle::followPath failed - Bad Path!" );
    %this.path = "";
    return;
	}

  // How far do we want to travel on the path?
  if(( %node > %path.getCount() - 1 ) || (%node == -1))
    %this.targetNode = %path.getCount() - 1;
	else
		%this.targetNode = %node;
    
  if( %this.path $= %path ) {    
    %this.moveToNode(%this.currentNode + 1);
  }	else {    
		%this.path = %path;
		%this.moveToNode(0);
    %this.currentNode = 0;
	}
}

function AIWheeledVehicle::moveToNextNode( %this )
{
	if( %this.targetNode < 0 || %this.currentNode < %this.targetNode )
	{
		if( %this.currentNode < %this.path.getCount() - 1 )
			%this.moveToNode( %this.currentNode + 1 );
		else
			%this.moveToNode( 0 );
	}
	else
	{
		if( %this.currentNode == 0 )
			%this.moveToNode( %this.path.getCount() - 1 );
		else
			%this.moveToNode( %this.currentNode - 1 );
	}
}

function AIWheeledVehicle::moveToNode( %this, %index )
{   
   // Move to the given path node index
   %this.currentNode = %index;
   %node = %this.path.getObject(%index);
   %this.setMoveDestination( %node.getTransform(), %index == %this.targetNode );
}

///
/// Default car callbacks!
///
function DefaultCar::onReachDestination( %this, %obj )
{
	// Moves to the next node on the path.
	if( %obj.path !$= "" )
	{
		if( %obj.currentNode == %obj.targetNode )
			%this.onEndOfPath( %obj, %obj.path );
		else
			%obj.moveToNextNode();
	}
	else
		echo( "AIWheeledVehicle::onReachDestination warning - Path is blank!" );
}

function DefaultCar::onEndOfPath( %this, %obj, %path )
{
  %obj.moveToNode(1);
	//%obj.nextTask();

	%obj.nextTask();	
}