steam achievements
This commit is contained in:
@@ -1,10 +1,10 @@
|
||||
+ Escaped dream
|
||||
+ Spied
|
||||
+ Safe and sound?
|
||||
+ Took all wool
|
||||
+ something about shepherd
|
||||
+ Worthy in wisdom
|
||||
+ Worthy in courage
|
||||
+
|
||||
+ Worthy in might
|
||||
+ Escaped jail
|
||||
+ Returned monacle
|
||||
|
||||
@@ -89,7 +89,7 @@
|
||||
(actions/talk entities :ego "So that's the code to his safe..." :animate? false :stop? false)
|
||||
(actions/play-animation entities :ego :end-squat)
|
||||
(actions/talk entities :ego "A lot of good it'll do me to know his password while he's still there.")
|
||||
(steam/set-achievement "MASTER_SLEUTH")
|
||||
(steam/set-achievement "SAFE_AND_SOUND")
|
||||
)
|
||||
|
||||
:else
|
||||
|
||||
@@ -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]
|
||||
|
||||
@@ -5,6 +5,7 @@
|
||||
[advent.screens.items :as items]
|
||||
[advent.screens.rooms.common :as common]
|
||||
[advent.utils :as utils]
|
||||
[advent.steam :as steam]
|
||||
[clojure.zip :as zip]
|
||||
[play-clj.core :refer :all]
|
||||
[play-clj.ui :refer :all]
|
||||
@@ -356,7 +357,8 @@
|
||||
:ego "What's this?")
|
||||
(actions/give entities :kiss)
|
||||
(actions/do-dialogue entities :ego "A kiss for an inventory item?"
|
||||
:ego "Sounds like the game designer was running out of good ideas."))
|
||||
:ego "Sounds like the game designer was running out of good ideas.")
|
||||
(steam/set-achievement "KITTY_KISS"))
|
||||
(actions/talk entities :ego "I guess I'm too far away.")))
|
||||
:default (actions/get-script entities (actions/talk entities :ego "Kitty seems disinterested in it."))})
|
||||
cat-stand)
|
||||
|
||||
@@ -3,6 +3,7 @@
|
||||
[advent.screens.rooms :as rooms]
|
||||
[advent.actions :as actions]
|
||||
[advent.screens.items :as items]
|
||||
[advent.steam :as steam]
|
||||
[advent.utils :as utils]
|
||||
[advent.pathfind]
|
||||
[advent.tween :as tween]
|
||||
@@ -467,6 +468,7 @@
|
||||
(actions/do-dialogue entities
|
||||
:ego "Hey!"
|
||||
:ego "I won!")
|
||||
(steam/set-achievement "BLOODCLOT")
|
||||
(actions/glad entities)
|
||||
(actions/walk-straight-to entities :ego [340 55])
|
||||
(actions/run-action entities
|
||||
|
||||
@@ -8,6 +8,7 @@
|
||||
[advent.tween :as tween]
|
||||
[advent.utils :as utils]
|
||||
[advent.saves :as saves]
|
||||
[advent.steam :as steam]
|
||||
[clojure.zip :as zip]
|
||||
[clojure.set :as set]
|
||||
[clojure.string :as str]
|
||||
@@ -279,8 +280,6 @@
|
||||
:none)))
|
||||
|
||||
(defn return-from-island [screen entities]
|
||||
|
||||
|
||||
(when (and (not (get-in entities [:fg-actions :script-running?]))
|
||||
(get-in entities [:state :active?])
|
||||
(get-in entities [:room :entities :fairy-godfather :distracted?]))
|
||||
@@ -425,6 +424,7 @@
|
||||
(actions/resume-camera entities)
|
||||
(actions/walk-straight-to entities :ego [79 145] :stop? false)
|
||||
(actions/walk-to entities :ego [159 74])
|
||||
(steam/set-achievement "DESTINY")
|
||||
(actions/do-dialogue entities
|
||||
:ego "Man! What a dream!"
|
||||
:ego "If I only really could be a knight."
|
||||
|
||||
@@ -3,6 +3,7 @@
|
||||
[advent.screens.rooms :as rooms]
|
||||
[advent.screens.items :as items]
|
||||
[advent.actions :as actions]
|
||||
[advent.steam :as steam]
|
||||
[advent.utils :as utils]
|
||||
[clojure.zip :as zip]
|
||||
[play-clj.core :refer :all]
|
||||
@@ -80,7 +81,8 @@
|
||||
:warriors "Congratulations, young master. Thou art worthy in might."
|
||||
:warriors "Take thy servant's medal of strength.")
|
||||
(actions/give entities :medal)
|
||||
(actions/glad entities))
|
||||
(actions/glad entities)
|
||||
(steam/set-achievement "WISE_GUY"))
|
||||
(do
|
||||
(play-battle entities :lose)
|
||||
(actions/do-dialogue entities
|
||||
|
||||
@@ -5,6 +5,7 @@
|
||||
[advent.screens.rooms.common :as common]
|
||||
[advent.screens.items :as items]
|
||||
[advent.utils :as utils]
|
||||
[advent.steam :as steam]
|
||||
[advent.tween :as tween]
|
||||
[clojure.zip :as zip]
|
||||
[clojure.set :as set]
|
||||
@@ -589,6 +590,7 @@
|
||||
(actions/remove-entity entities :trophy)
|
||||
(actions/glad entities)
|
||||
(actions/talk entities :ego "Thanks!")
|
||||
(steam/set-achievement "WISE_GUY")
|
||||
)
|
||||
(actions/do-dialogue entities :ego "What about this?" :game-player "No, that's not the solution. Keep looking."))
|
||||
(brian-get-to-work entities))
|
||||
|
||||
Reference in New Issue
Block a user