progress on multiple scripts.
This commit is contained in:
@@ -15,7 +15,6 @@
|
||||
[play-clj.g2d :refer :all]))
|
||||
|
||||
(defn brian [screen entities]
|
||||
|
||||
(when (and (not (get-in entities [:fg-actions :script-running?]))
|
||||
(not (get-in entities [:bg-actions :script-running?]))
|
||||
(get-in entities [:state :active?])
|
||||
@@ -116,7 +115,8 @@
|
||||
{:run #(actions/respond entities % :game-player "Fine by me.")}]})
|
||||
|
||||
(defn walk-to-player [entities]
|
||||
(actions/walk-to entities :ego [209 74] :face :right))
|
||||
(actions/walk-to entities :ego [209 74] :face :right)
|
||||
(actions/do-force-end entities :bg-actions))
|
||||
|
||||
(defn brian-pause-from-work [entities]
|
||||
(actions/play-animation entities :game-player :pause-from-work :stop? false)
|
||||
|
||||
Reference in New Issue
Block a user