saving and loading starting room.

This commit is contained in:
2014-11-28 11:57:37 -08:00
parent befdb44d29
commit a34ae1dbd2
11 changed files with 36 additions and 22 deletions

View File

@@ -76,4 +76,5 @@
entities)
(if (actions/has-one-of? entities [:stick :cat-toy])
(update-in entities [:room :entities] #(dissoc % :stick))
entities)))))
entities)))
:start-pos [172 122]))

View File

@@ -77,4 +77,5 @@
(as-> entities entities
(if (actions/has-item? entities :certificate)
(update-in entities [:room :entities] #(dissoc % :cat))
entities))))))
entities)))
:start-pos [203 1])))

View File

@@ -144,4 +144,5 @@
(actions/talk entities :shopkeep "You brat! You ate the last mint.")
(actions/talk entities :shopkeep "Since you ate the last one, you have to go tell Gandarf to bring me some more."))))))}
:collision "inside-antique/collision.png"
:scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.50))))
:scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.50)
:start-pos [222 3])))

View File

@@ -152,4 +152,5 @@
(as-> entities entities
(if (actions/has-item? entities :ladder)
(update-in entities [:room :entities] #(dissoc % :ladder))
entities))))))
entities)))
:start-pos [300 55])))

View File

@@ -171,4 +171,5 @@
(as-> entities entities
(if (actions/has-item? entities :ladder)
(update-in entities [:room :entities] #(dissoc % :ladder))
entities))))))
entities)))
:start-pos [245 90])))

View File

@@ -87,4 +87,5 @@
(as-> entities entities
(if (actions/has-one-of? entities [:flask-1 :flask-1-with-cream-of-mushroom :flask-1-strength :flask-1-with-mushrooms :flask-1-with-milk])
(update-in entities [:room :entities] #(dissoc % :flask))
entities))))))
entities)))
:start-pos [237 0])))

View File

@@ -128,4 +128,5 @@
(actions/talk entities :ego "Eww! He slobbered on my hand.")
(actions/give entities :slobber))})}
:collision "outside-castle/collision.png"
:scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.00))))
:scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.00)
:start-pos [310 80])))

View File

@@ -203,4 +203,5 @@
(as-> entities entities
(if (get-in entities [:state :coaxed-sheep?])
(update-in entities [:room :entities :sheep] #(assoc % :x 95 :y 150 :baseline 40))
entities))))))
entities)))
:start-pos [0 80])))