tweak to walkable area.

This commit is contained in:
Bryce Covert
2015-11-18 17:24:43 -08:00
parent 4c27e2d9c2
commit 6230e6ad49
2 changed files with 6 additions and 6 deletions

Binary file not shown.

Before

Width:  |  Height:  |  Size: 18 KiB

After

Width:  |  Height:  |  Size: 19 KiB

View File

@@ -677,13 +677,13 @@
(actions/play-animation entities :ego :reach) (actions/play-animation entities :ego :reach)
(actions/give entities :wool) (actions/give entities :wool)
(actions/talk entities :ego "I guess her wool is shedding.") (actions/talk entities :ego "I guess her wool is shedding.")
(leave-sheep entities)) )
(do (do
(walk-to-sheep entities) (walk-to-sheep entities)
(actions/talk entities :ego "Come here, mama sheep!") (actions/talk entities :ego "Come here, mama sheep!")
(actions/play-animation entities :ego :sigh) (actions/play-animation entities :ego :sigh)
(actions/talk entities :ego "She's too far away for me to pet her.") (actions/talk entities :ego "She's too far away for me to pet her.")
(leave-sheep entities))))) ))))
:scripts #(condp = % :scripts #(condp = %
:wool (actions/get-script entities :wool (actions/get-script entities
(actions/talk entities :ego "She doesn't need it back.")) (actions/talk entities :ego "She doesn't need it back."))
@@ -692,7 +692,7 @@
(actions/talk entities :ego "Come on, girl, get the grass!") (actions/talk entities :ego "Come on, girl, get the grass!")
(actions/play-animation entities :ego :reach) (actions/play-animation entities :ego :reach)
(actions/talk entities :ego "I think she's not interested.") (actions/talk entities :ego "I think she's not interested.")
(leave-sheep entities)) )
:carrot (actions/get-script entities :carrot (actions/get-script entities
(walk-to-sheep entities) (walk-to-sheep entities)
(actions/talk entities :ego "Come on, girl, get the carrot!") (actions/talk entities :ego "Come on, girl, get the carrot!")
@@ -700,7 +700,7 @@
(actions/play-animation entities :ego :reach) (actions/play-animation entities :ego :reach)
(actions/remove-item entities :carrot) (actions/remove-item entities :carrot)
(actions/update-state entities (fn [s] (assoc s :coaxed-sheep? true))) (actions/update-state entities (fn [s] (assoc s :coaxed-sheep? true)))
(leave-sheep entities)) )
:flask-1 (actions/get-script entities :flask-1 (actions/get-script entities
(if (actions/has-item? entities :recipe) (if (actions/has-item? entities :recipe)
(if (is-sheep-close? @entities) (if (is-sheep-close? @entities)
@@ -709,7 +709,7 @@
(actions/remove-item entities :flask-1) (actions/remove-item entities :flask-1)
(actions/give entities :flask-1-with-milk) (actions/give entities :flask-1-with-milk)
(actions/talk entities :ego "Sheeps milk.") (actions/talk entities :ego "Sheeps milk.")
(leave-sheep entities)) )
(actions/talk entities :ego "She's too far away.")) (actions/talk entities :ego "She's too far away."))
(actions/talk entities :ego "I don't need any milk."))) (actions/talk entities :ego "I don't need any milk.")))
:flask-1-with-mushrooms :flask-1-with-mushrooms
@@ -718,7 +718,7 @@
(do (walk-to-sheep entities) (do (walk-to-sheep entities)
(actions/play-animation entities :ego :milk) (actions/play-animation entities :ego :milk)
(items/make-cream-of-mushroom entities) (items/make-cream-of-mushroom entities)
(leave-sheep entities)) )
(actions/talk entities :ego "She's too far away."))) (actions/talk entities :ego "She's too far away.")))
:sword :sword