 
 (defn- handle-ai! []
   ;; TODO - Find a way to cache the cells-strenght as it was done before
-  (let [move (ai/best-move (ai/compute-cells-strength @board) @game @current-player)]
+  (let [move (ai/best-move (ai/compute-cells-strength @board) @current-turn @current-player)]
     (play-game-turn! move)))
 
 (defn- handle-game-event!

(defn start-game-loop
  "Manage transitions between player moves, ai moves, and generic game events"
  []
  (let [game-on-xf (fn [_] (not (turn/game-over? @game)))
        is-human-xf (fn [_] (not (is-ai? @current-player)))
        player-events (chan 1 (comp (filter game-on-xf) (filter is-human-xf)))
        game-events (chan 1)]

  (and
    (:help @app-state)
    (not (is-ai? @current-player))
    (turn/get-move-at @current-turn @current-player [x y])))

(def interactions
  (reify view/CallBacks
