steam achievements

This commit is contained in:
Bryce Covert
2015-11-22 16:02:20 -08:00
parent 1f25bcc138
commit 424e8df93c
8 changed files with 17 additions and 20 deletions

View File

@@ -5,6 +5,7 @@
[advent.screens.rooms.common :as common]
[advent.utils :as utils]
[advent.screens.dialogue :as dialogue]
[advent.steam :as steam]
[advent.tween :as tween]
[clojure.zip :as zip]
@@ -19,19 +20,6 @@
(defn make-night [entities]
entities)
(defn make-coin-flip [screen]
(let [coin-flip (utils/make-anim "castle-gate/coinflip.png" [10 10] 0.05 (range 5))]
(assoc (animation->texture screen coin-flip)
@@ -174,7 +162,8 @@
:ego "I'll vote to give him a pardon.")
(actions/play-animation entities :ego :reach)
(actions/do-dialogue entities :ego "There, now the vote is 35 to 34!")
(actions/update-state entities #(assoc % :has-voted? true)))))
(actions/update-state entities #(assoc % :has-voted? true))
(steam/set-achievement "PARDON"))))
(defn make-note []
{:box [97 102 111 132]