notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

preparing for quittable scripts.

Browse Source
This commit is contained in:
Bryce Covert
2015-08-13 12:48:11 -07:00
parent 919695de81
commit ac3b8665ef
6 changed files with 66 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
desktop/src-common/advent/actions.clj
View File

@@ -23,7 +23,7 @@
(done? [this screen entities])
(continue [this screen entities])
(terminate [this screen entities])
(can-skip? [this screen entities])
(skip-type [this screen entities])
(get-channel [this]))
(defn has-item? [entities item]
@@ -68,8 +68,8 @@
(terminate [this screen entities]
entities)
(can-skip? [this screen entities]
false)))
(skip-type [this screen entities]
:none)))
(defmacro get-script [entities & forms]
`(fn [starting-entities#]
@@ -171,8 +171,8 @@
(done? [this screen entities] true)
(terminate [this screen entities]
entities)
(can-skip? [this screen entities]
false)))
(skip-type [this screen entities]
:none)))
@@ -223,8 +223,8 @@
(if (or (nil? stop?) stop?)
(stop screen entities target-id :face face)
entities))
(can-skip? [this screen entities]
false))))
(skip-type [this screen entities]
:none))))
(defn play-animation [entities target-id anim & {:keys [stop? continue?]}]
(run-action entities
@@ -244,8 +244,8 @@
(if (or (nil? stop?) stop?)
(stop screen entities target-id)
(assoc-in entities [:room :entities target-id :anim] nil))))
(can-skip? [this screen entities]
false)))
(skip-type [this screen entities]
:none)))
(defn update-entity [entities target-id f]
(run-action entities
@@ -257,7 +257,7 @@
(done? [this screen entities] true)
(terminate [this screen entities] entities)
(can-skip? [this screen entities] false)))
(skip-type [this screen entities] :none)))
(defn stop-walking [entities target-id & {:keys [face]}]
(run-action entities
@@ -269,9 +269,9 @@
(done? [this screen entities] true)
(terminate [this screen entities] entities)
(can-skip? [this screen entities] false)))
(skip-type [this screen entities] :none)))
(defn walk-to [entities target-id [final-x final-y] & {:keys [can-skip? face force-dir]}]
(defn walk-to [entities target-id [final-x final-y] & {:keys [skip-type face force-dir]}]
(let [{start-x :x start-y :y} (get-in @entities [:room :entities target-id])
final-x (int final-x)
final-y (int final-y)
@@ -331,8 +331,8 @@
(terminate [this screen entities]
(stop screen entities target-id :face face))
(can-skip? [this screen entities]
(or can-skip? false)))
(skip-type [this screen entities]
(or skip-type :none)))
(do-stop entities :ego :face face))))
(defn get-text-duration [text]
@@ -385,8 +385,8 @@
(stop screen entities target-id)
entities))
entities))
(can-skip? [this screen entities]
true))))
(skip-type [this screen entities]
:skip))))
(defn something-else [zipper]
(-> zipper zip/up zip/up))
@@ -424,8 +424,8 @@
(terminate [this screen entities]
(screen! @(resolve 'advent.screens.scene/scene) :on-reactivate)
entities)
(can-skip? [this screen entities]
false))
(skip-type [this screen entities]
:none))
(let [zipper (nth-child zipper @selected-index)
node (zip/node zipper)]
@@ -448,8 +448,8 @@
(done? [this screen entities] true)
(terminate [this screen entities]
entities)
(can-skip? [this screen entities]
false)))
(skip-type [this screen entities]
:none)))
(defn pause-camera [entities]
(update-entities entities #(-> %
@@ -468,8 +468,8 @@
(done? [this screen entities] true)
(terminate [this screen entities]
entities)
(can-skip? [this screen entities]
false)))
(skip-type [this screen entities]
:none)))
@@ -489,8 +489,8 @@
(terminate [this screen entities]
entities)
(can-skip? [this screen entities]
false)))
(skip-type [this screen entities]
:none)))
(defn play-sound [entities sound-file]
(let [m (music sound-file)]
@@ -506,8 +506,8 @@
(terminate [this screen entities]
entities)
(can-skip? [this screen entities]
false))))
(skip-type [this screen entities]
:none))))
(defn give [entities item]
(run-action entities
@@ -525,8 +525,8 @@
(terminate [this screen entities]
entities)
(can-skip? [this screen entities]
false)))
(skip-type [this screen entities]
:none)))
(defn remove-entity [entities entity]
(run-action entities
@@ -539,8 +539,8 @@
(terminate [this screen entities] entities)
(can-skip? [this screen entities]
false)))
(skip-type [this screen entities]
:none )))
(defn add-entity [entities id entity]
(run-action entities
@@ -553,8 +553,8 @@
(terminate [this screen entities] entities)
(can-skip? [this screen entities]
false)))
(skip-type [this screen entities]
:none)))
(defn get-music [music time]
(if (keyword? music)
@@ -586,8 +586,8 @@
(music! (utils/get-current-music entities) :play)
entities))
(can-skip? [this screen entities]
false))))
(skip-type [this screen entities]
:none))))
(defn transition-background [entities new-background [x y] & {:keys [transition-music? between time face]}]
@@ -624,8 +624,8 @@
(if-let [stop-fn (get-in entities [:room :stop-fn])]
(stop-fn screen entities)
entities)))
(can-skip? [this screen entities]
false))
(skip-type [this screen entities]
:none))
(run-action entities
(begin [this screen entities]
(let [ego (get-in entities [:room :entities :ego])
@@ -674,8 +674,8 @@
(add-timer! screen k start time))
entities)
(can-skip? [this screen entities]
false))))
(skip-type [this screen entities]
:none))))
(defn do-dialogue [entities & pairs]
(loop [pairs (partition 2 pairs)]
@@ -739,8 +739,8 @@
(terminate [this screen entities]
entities)
(can-skip? [this screen entities]
false))
(skip-type [this screen entities]
:none))
(Thread/sleep 800)
(actions/run-action entities
(begin [this screen entities]
@@ -759,8 +759,8 @@
(terminate [this screen entities]
entities)
(can-skip? [this screen entities]
false)))
(skip-type [this screen entities]
:none)))
(defn in-love [entities]