   [x y game]
   (rect-cell x y
     (if-not (show-help? game x y) "lightgray" "lightblue")
-    {:on-click #(put! (:player-events game-loop) [x y])}
+    {:on-click #(put! game-loop [x y])}
     ))
 
 (defn show-scores

      (let [ai-turn? #(contains? (:ai-players %) (:player %))
            new-list (drop-while ai-turn? (drop 1 old-list))]
        (if (empty? new-list)
          old-list new-list)))
    ))



(defn show-top-panel
  [scores player]
  [:div.scores
   [top-panel-button new-game! (special-char "&#9733;")]
   [top-panel-button #(swap! app-state update :help not) "?"]
   (show-scores scores player)
   [top-panel-button restart-game! (special-char "&#x21bb;")]
