3 files changed, 35 insertions(+), 2 deletions(-)

M InjectedManagedAssembly/GameState.cs
M InjectedManagedAssembly/InternalBoardState.cs
M InjectedManagedAssembly/Main.cs

@@ 74,6 74,11 @@ namespace SolitaireOracle
             }
         }
 
+        public void SolveGame(int fortuneCardValue = 0)
+        {
+            InternalBoardState.SolveByDeletingTableauCards(fortuneCardValue);
+        }
+
         private IList ScreenStack
         {
             get

@@ 35,7 35,7 @@ namespace SolitaireOracle
             }
         }
 
-        private Suit CardSuit
+        public Suit CardSuit
         {
             get
             {


@@ 44,13 44,19 @@ namespace SolitaireOracle
             }
         }
 
-        private int CardValue
+        public int CardValue
         {
             get
             {
                 FieldInfo field = _type.GetField("#=qGa_rTwBFoHeQRSVVfaUd_Q==", BindingFlags.Public | BindingFlags.Instance);
                 return (int)field.GetValue(_internalState);
             }
+
+            set
+            {
+                FieldInfo field = _type.GetField("#=qGa_rTwBFoHeQRSVVfaUd_Q==", BindingFlags.Public | BindingFlags.Instance);
+                field.SetValue(_internalState, value);
+            }
         }
     }
 


@@ 67,6 73,24 @@ namespace SolitaireOracle
             _itemType = itemType;
         }
 
+        public void SolveByDeletingTableauCards(int fortuneCardValue = 0)
+        {
+            // Create an array of empty cells.
+            Array cells = Array.CreateInstance(_itemType, 11);
+            for (int i = 0; i < 11; ++i)
+            {
+                cells.SetValue(Activator.CreateInstance(_itemType), i);
+            }
+
+            // Overwrite the tableau cell items with the empty cell items.
+            FieldInfo tableauField = _boardType.GetField("#=qzsOQ0cf1yO$i8Y9aA3nQSA==", BindingFlags.Public | BindingFlags.Instance);
+            tableauField.SetValue(_internalState, cells);
+
+            // In order to influence the fortune card, change the card value of the final major foundation cell.
+            InternalSolitaireItem finalMajorCell = FinalMajorFoundationCell;
+            finalMajorCell.CardValue = fortuneCardValue;
+        }
+
         public List<InternalSolitaireItem> TableauCells
         {
             get

@@ 75,9 75,13 @@ namespace SolitaireOracle
                 {
                     Console.WriteLine("<nothing in free cell>");
                 }
+
+                // Uncomment to solve game.
+                // gameState.SolveGame();
             }
             catch (MilanScreenNotVisibleException e)
             {
+
                 MessageBox.Show(e.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
             }