more dialogue tree improvement.

This commit is contained in:
2014-09-24 23:11:20 -07:00
parent 240af5dcf0
commit a5cd9fcea9
3 changed files with 17 additions and 7 deletions

View File

@@ -154,7 +154,8 @@
(if (string? t-line)
(actions/talk entities target-id t-line)
(t-line))
(apply actions/present-choices entities option-scripts)))
(when options
(apply actions/present-choices entities option-scripts))))
(defn backgrounds [screen]
(let [sheep-sheet (texture! (texture "outsidehouse/sheep-anim.png") :split 33 21)
@@ -401,11 +402,11 @@
(assoc-in entities [:cursor :current] :main)
(left-click screen entities))))
:on-pause (fn [screen [entities]]
(assoc-in entities [:state :active?] false))
:on-deactivate (fn [screen [entities]]
(assoc-in entities [:state :active?] false))
:on-resume (fn [screen [entities]]
(assoc-in entities [:state :active?] true))
:on-reactivate (fn [screen [entities]]
(assoc-in entities [:state :active?] true))
:on-start-script (fn [{:keys [script]} [entities]]
(script entities)