more dialogue tree improvement.
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user