 ;; -----------------------------------------
 
 (defn- make-ai
-  [game-state player]
+  [board player]
   {:player player
    :other-players (remove #{player} cst/players)
-   :cell-weights (scores/get-weights-by-cell (:board game-state))
+   :cell-weights (scores/get-weights-by-cell board)
    })
 
 (defn- score-move

   * The worse immediate lost afterwards"
  [game player]
  (let [game-state (game/current-state game)
        ai (make-ai game-state player)]
    (first
      (max-by #(move-best-outcome ai game-state %)
        (get (:moves game-state) player))                   ;; TODO - Game
      )))

    [triboard.logic.constants :as cst]
    [triboard.logic.game :as game]
    [triboard.logic.move :as move]
    ))


