notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

steam achievements

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

2
desktop/achievement-ideas.txt
View File

@@ -1,10 +1,10 @@
+ Escaped dream
+ Spied + Spied
+ Safe and sound? + Safe and sound?
+ Took all wool + Took all wool
+ something about shepherd + something about shepherd
+ Worthy in wisdom + Worthy in wisdom
+ Worthy in courage + Worthy in courage
+
+ Worthy in might + Worthy in might
+ Escaped jail + Escaped jail
+ Returned monacle + Returned monacle

2
desktop/src-common/advent/screens/rooms/behind_house.clj
View File

@@ -89,7 +89,7 @@
(actions/talk entities :ego "So that's the code to his safe..." :animate? false :stop? false) (actions/talk entities :ego "So that's the code to his safe..." :animate? false :stop? false)
(actions/play-animation entities :ego :end-squat) (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.") (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 :else

17
desktop/src-common/advent/screens/rooms/castle_gate.clj
View File

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

4
desktop/src-common/advent/screens/rooms/cat_tree.clj
View File

@@ -5,6 +5,7 @@
[advent.screens.items :as items] [advent.screens.items :as items]
[advent.screens.rooms.common :as common] [advent.screens.rooms.common :as common]
[advent.utils :as utils] [advent.utils :as utils]
[advent.steam :as steam]
[clojure.zip :as zip] [clojure.zip :as zip]
[play-clj.core :refer :all] [play-clj.core :refer :all]
[play-clj.ui :refer :all] [play-clj.ui :refer :all]
@@ -356,7 +357,8 @@
:ego "What's this?") :ego "What's this?")
(actions/give entities :kiss) (actions/give entities :kiss)
(actions/do-dialogue entities :ego "A kiss for an inventory item?" (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."))) (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."))}) :default (actions/get-script entities (actions/talk entities :ego "Kitty seems disinterested in it."))})
cat-stand) cat-stand)

2
desktop/src-common/advent/screens/rooms/common.clj
View File

@@ -3,6 +3,7 @@
[advent.screens.rooms :as rooms] [advent.screens.rooms :as rooms]
[advent.actions :as actions] [advent.actions :as actions]
[advent.screens.items :as items] [advent.screens.items :as items]
[advent.steam :as steam]
[advent.utils :as utils] [advent.utils :as utils]
[advent.pathfind] [advent.pathfind]
[advent.tween :as tween] [advent.tween :as tween]
@@ -467,6 +468,7 @@
(actions/do-dialogue entities (actions/do-dialogue entities
:ego "Hey!" :ego "Hey!"
:ego "I won!") :ego "I won!")
(steam/set-achievement "BLOODCLOT")
(actions/glad entities) (actions/glad entities)
(actions/walk-straight-to entities :ego [340 55]) (actions/walk-straight-to entities :ego [340 55])
(actions/run-action entities (actions/run-action entities

4
desktop/src-common/advent/screens/rooms/dream.clj
View File

@@ -8,6 +8,7 @@
[advent.tween :as tween] [advent.tween :as tween]
[advent.utils :as utils] [advent.utils :as utils]
[advent.saves :as saves] [advent.saves :as saves]
[advent.steam :as steam]
[clojure.zip :as zip] [clojure.zip :as zip]
[clojure.set :as set] [clojure.set :as set]
[clojure.string :as str] [clojure.string :as str]
@@ -279,8 +280,6 @@
:none))) :none)))
(defn return-from-island [screen entities] (defn return-from-island [screen entities]
(when (and (not (get-in entities [:fg-actions :script-running?])) (when (and (not (get-in entities [:fg-actions :script-running?]))
(get-in entities [:state :active?]) (get-in entities [:state :active?])
(get-in entities [:room :entities :fairy-godfather :distracted?])) (get-in entities [:room :entities :fairy-godfather :distracted?]))
@@ -425,6 +424,7 @@
(actions/resume-camera entities) (actions/resume-camera entities)
(actions/walk-straight-to entities :ego [79 145] :stop? false) (actions/walk-straight-to entities :ego [79 145] :stop? false)
(actions/walk-to entities :ego [159 74]) (actions/walk-to entities :ego [159 74])
(steam/set-achievement "DESTINY")
(actions/do-dialogue entities (actions/do-dialogue entities
:ego "Man! What a dream!" :ego "Man! What a dream!"
:ego "If I only really could be a knight." :ego "If I only really could be a knight."

4
desktop/src-common/advent/screens/rooms/inside_cafeteria.clj
View File

@@ -3,6 +3,7 @@
[advent.screens.rooms :as rooms] [advent.screens.rooms :as rooms]
[advent.screens.items :as items] [advent.screens.items :as items]
[advent.actions :as actions] [advent.actions :as actions]
[advent.steam :as steam]
[advent.utils :as utils] [advent.utils :as utils]
[clojure.zip :as zip] [clojure.zip :as zip]
[play-clj.core :refer :all] [play-clj.core :refer :all]
@@ -80,7 +81,8 @@
:warriors "Congratulations, young master. Thou art worthy in might." :warriors "Congratulations, young master. Thou art worthy in might."
:warriors "Take thy servant's medal of strength.") :warriors "Take thy servant's medal of strength.")
(actions/give entities :medal) (actions/give entities :medal)
(actions/glad entities)) (actions/glad entities)
(steam/set-achievement "WISE_GUY"))
(do (do
(play-battle entities :lose) (play-battle entities :lose)
(actions/do-dialogue entities (actions/do-dialogue entities

2
desktop/src-common/advent/screens/rooms/inside_castle.clj
View File

@@ -5,6 +5,7 @@
[advent.screens.rooms.common :as common] [advent.screens.rooms.common :as common]
[advent.screens.items :as items] [advent.screens.items :as items]
[advent.utils :as utils] [advent.utils :as utils]
[advent.steam :as steam]
[advent.tween :as tween] [advent.tween :as tween]
[clojure.zip :as zip] [clojure.zip :as zip]
[clojure.set :as set] [clojure.set :as set]
@@ -589,6 +590,7 @@
(actions/remove-entity entities :trophy) (actions/remove-entity entities :trophy)
(actions/glad entities) (actions/glad entities)
(actions/talk entities :ego "Thanks!") (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.")) (actions/do-dialogue entities :ego "What about this?" :game-player "No, that's not the solution. Keep looking."))
(brian-get-to-work entities)) (brian-get-to-work entities))