Trying to get Swinging Door to work

Hey everyone,

I really wanted to figure this out on my own. I'm using Ken Finney's Door Swing code and trying to figure out why it won't work after three days, I decided to ask for help. The code is originally for TGE 1.3 and I have it running without errors in T3D 3.5 and I can add the scripted object to the world. Ken uses a StaticShape and just changes the z-axis rotation. He uses %theDataBlock instead of %this and %whichDoor instead of %obj. Examining the code it really looks like it should work but it doesn't get to the "Increment" function nor "decrement" for that matter because it doesn't rotate. It plays the opening sound then moves the door to Transform 0 0 0.Using echo, it appears that %whichdoor.currentRotation, which starts as 0 is actually an empty space.
I know I could use a different approach, such a an animated door with a trigger or onCollision but I really like Ken's Operator function and the simplicity of this dataBlock.

Any help would be appreciated.

Thanks,
Jason

$DOORS::RADIANS_PER_DEGREE = 0.017444;
$DOORS::XY_UNIT_VECTORS = "0 0";
$DOORS::PLAYER_REACH = 4.5;
$DOORS::OPEN_INCREMENT = 0.02;
$DOORS::CLOSE_INCREMENT = 0.04;
$DOORS::OPEN_TIMER = 20;
$DOORS::CLOSE_TIMER = 10;
$DOORS::HOLD_TIMER = 2000;
$DOORS::MAX_ANGLE = 90; //  degrees

datablock SFXProfile(doorStartOpenSwingSnd)
{
   fileName = "art/sound/doors/doorswingopen.ogg";
   description = AudioClose3d;
   preload = true;
};

datablock SFXProfile(doorSwingClosedSnd)
{
   fileName = "art/sound/doors/doorswingclosed.ogg";
   description = AudioClose3d;
   preload = true;
};

datablock SFXProfile(doorSlamSnd)
{
   fileName = "art/sound/doors/doorslam.ogg";
   description = AudioClose3d;
   preload = true;
};

datablock StaticShapeData(ADoor)
{
   category = "Doors";
   shapeFile = "art/shapes/doors/door.DAE";
   cameraMaxDist = "1";
   shadowEnable = "1";
   
  
};

function ADoor::OnAdd(%theDatablock, %whichDoor)
{
  if(!%whichDoor.doorOpenFlag)
      %whichDoor.doorOpenFlag = false;
  if(!%whichDoor.rotationDirection)
      %whichDoor.rotationDirection = 1;
  if(!%whichDoor.maxOpenAngle)
      %whichDoor.maxOpenAngle = $DOORS::MAX_ANGLE;

  %whichDoor.currentRotation = 0;
  %whichDoor.originalRotation = 0;
  %whichDoor.partialTransform = "";
  echo(%whichDoor.maxOpenAngle);
  echo("door added");
}

function serverCmdOperate(%client)
{
   %player = %client.player;
   %eye = %player.getEyeVector();
   %vec = vectorScale(%eye, $DOORS::PLAYER_REACH);
   %start = %player.getEyeTransform();
   %end = VectorAdd(%start,%vec);
   %found = ContainerRayCast (%start, %end, $TypeMasks::StaticObjectType, %player);
   if(%found)
      %found.getDataBlock().Operate(%found);
}

function ADoor::Operate(%theDatablock, %whichDoor)
{
  if (%whichDoor.doorOpenFlag == false)
  {
    %theDatablock.StartOpenSwing(%whichDoor);
  }
}

function ADoor::StartOpenSwing(%theDatablock, %whichDoor)
{
   echo("door start swing");
   echo(%theDatablock);
  %whichDoor.doorOpenFlag=true;
  %whichDoor.currentRotation = 0;
  %whichDoor.originalRotation = getword(%whichDoor.GetTransform(),6);
  %z_unit_vector = getword(%whichDoor.GetTransform(),5);
  if ( %z_unit_vector == 0 )
    %z_unit_vector = "1";
  %whichDoor.partialTransform = getwords(%whichDoor.GetTransform(),0,2) SPC $DOORS::XY_UNIT_VECTORS SPC %z_unit_vector;
  
  //echo(getwords(%whichDoor.GetTransform(),0,2) SPC $DOORS::XY_UNIT_VECTORS SPC %z_unit_vector);
  
  %whichDoor.openSnd = %whichDoor.playAudio(0,doorStartOpenSwingSnd);
  %theDatablock.IncrementSwing(%whichDoor);
}

function ADoor::IncrementSwing(%theDatablock, %whichDoor)
{
   echo("increment");
   echo(%whichDoor.currentRotation);
  if ( %whichDoor.currentRotation < (%whichDoor.maxOpenAngle*$DOORS::RADIANS_PER_DEGREE))
  {
      %whichDoor.currentRotation  += ( $DOORS::OPEN_INCREMENT * %whichDoor.rotationDirection);
      %newrot = %whichDoor.originalRotation + %whichDoor.currentRotation;
      %whichDoor.settransform(%whichDoor.partialTransform SPC %newrot);
      %theDatablock.schedule($DOORS::OPEN_TIMER,"IncrementSwing", %whichDoor);
   }
  else
  {
    %theDatablock.schedule($DOORS::HOLD_TIMER,"StartCloseSwing",%whichDoor);
  }
  
}

function ADoor::StartCloseSwing(%theDatablock, %whichDoor)
{
   echo("start close");
  %whichDoor.stopAudio(openSnd);
  %whichDoor.closeSnd = %whichDoor.playAudio(0,doorSwingClosedSnd);
  %theDatablock.schedule($DOORS::CLOSE_TIMER,"DecrementSwing", %whichDoor);
}

function ADoor::DecrementSwing(%theDatablock, %whichDoor)
{
   echo("decrement started");
  if ( %whichDoor.currentRotation > 0)
  {
     echo("decrement actually started"):
    %whichDoor.currentRotation  -= ($DOORS::CLOSE_INCREMENT * %whichDoor.rotationDirection);
    %newrot = %whichDoor.originalRotation + %whichDoor.currentRotation;
    %whichDoor.settransform(%whichDoor.partialTransform SPC %newrot);
    %theDatablock.schedule($DOORS::CLOSE_TIMER,"DecrementSwing", %whichDoor);
  }
  else
  {
    %whichDoor.doorOpenFlag=false;
    %whichDoor.settransform(%whichDoor.partialTransform SPC %whichDoor.originalRotation);
    %whichDoor.stopAudio(closeSnd);
    %whichDoor.slamSnd = %whichDoor.playAudio(0,doorSlamSnd);
    %whichDoor.currentRotation = 0;
    %whichDoor.dump();
  }
  
}