saving and loading starting room.
This commit is contained in:
@@ -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]))
|
||||
|
||||
@@ -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])))
|
||||
|
||||
@@ -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])))
|
||||
|
||||
@@ -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])))
|
||||
|
||||
@@ -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])))
|
||||
|
||||
@@ -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])))
|
||||
|
||||
@@ -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])))
|
||||
|
||||
@@ -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])))
|
||||
|
||||
Reference in New Issue
Block a user