NWScript:

void main()

{

  object myDoor;

  myDoor = GetNearestObjectByTag("Door1");

  if(GetLocked(myDoor))

  {

    ActionPlayAnimation ( ANIMATION_PLACEABLE_ACTIVATE);

    SetLocked(myDoor, FALSE);

    ActionOpenDoor(myDoor);

  }

  else if(!GetLocked(myDoor))

  {

    PlayAnimation( ANIMATION_PLACEABLE_DEACTIVATE );

    SetLocked(myDoor, TRUE);

    ActionCloseDoor(myDoor);

  }

}