Minor improvements.

This commit is contained in:
2014-11-02 07:31:29 -08:00
parent efd5a196e0
commit 862dfc158e
4 changed files with 9 additions and 10 deletions

View File

@@ -97,5 +97,4 @@
(close entities)))))
:on-resize (fn [screen entities]
(height! screen 960)
entities))
(size! screen 1280 960)))

View File

@@ -168,7 +168,7 @@
(if (actions/has-item? @entities items/wool)
(actions/talk entities :ego "The sheep has given me enough wool.")
(if (is-sheep-close? @entities)
(do (actions/walk-to entities :ego ego-sheep-loc)
(do (actions/walk-to entities :ego ego-sheep-loc :face :left)
(actions/play-animation entities :ego :reach)
(actions/give entities items/wool)
(actions/talk entities :ego "I guess her wool is shedding."))
@@ -176,12 +176,12 @@
:scripts {:wool (actions/get-script entities
(actions/talk entities :ego "She doesn't need it back."))
:carrot (actions/get-script entities
(actions/walk-to entities :ego ego-sheep-loc)
(actions/walk-to entities :ego ego-sheep-loc :face :left)
(actions/talk entities :ego "Come on girl, get the carrot!")
(actions/walk-straight-to entities :sheep [95 150]))
:flask-1 (actions/get-script entities
(if (is-sheep-close? @entities)
(do (actions/walk-to entities :ego ego-sheep-loc)
(do (actions/walk-to entities :ego ego-sheep-loc :face :left)
(actions/play-animation entities :ego :reach)
(actions/remove-item entities items/flask-1)
(actions/give entities items/flask-1-with-milk)

View File

@@ -29,7 +29,7 @@
(def default-interaction
{:get-script (fn [cursor [x y]] (if (= :main cursor)
(actions/get-script entities
(actions/walk-to entities :ego [x y] true))
(actions/walk-to entities :ego [x y] :can-skip? true))
(actions/get-script entities
(actions/talk entities :ego "I don't know what to do with that."))))})