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

walking overrides ftw.

Browse Source
This commit is contained in:
=
2014-09-05 16:47:54 -07:00
parent 46d5399caf
commit b21bfe0310
1 changed files with 30 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
desktop/src-common/advent/core.clj
View File

@@ -63,17 +63,34 @@
(when (:anim target)
(texture (animation! (:anim target) :get-key-frame 0.25))))))))
(defn left-click [screen entities]
(let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})
(defn begin-walking [screen entities target-id [x y]]
(let [entity (target-id entities)
path (vec (take-nth 2 (advent.pathfind/visit-all
(:collision (:background entities))
[(int (:x (:ego entities))) (int (:y (:ego entities)))]
[(int (:x entity)) (int (:y entity))]
[(int x) (int y)])))
actions (when (seq path)
(conj
(vec (map #(walk-to-fn % :ego) (conj path [x y])))
(stop-fn :ego)))]
(assoc-in entities [:ego :actions] actions)))
(vec (map #(walk-to-fn % target-id) (conj path [x y])))
(stop-fn target-id)))]
(assoc entity :actions actions)))
(defn walk-click [screen entities [x y]]
(assoc entities :ego (begin-walking screen entities :ego [x y])))
(defn walk-override-click [screen entities [x y]]
(let [target-location (->> (get-in entities [:background :mouse-overrides])
(filter #((:mouse-in? %) x y))
first
:go-to)]
(assoc entities :ego (begin-walking screen entities :ego target-location))))
(defn left-click [screen entities]
(let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})]
(if (get-in entities [:cursor :override])
(walk-override-click screen entities [x y])
(walk-click screen entities [x y]))))
(defn get-ego [screen]
(let [player-sheet (texture! (texture "player.png") :split 18 36)
ego {:right (animation 0.075 (for [i (range 8)]
@@ -129,11 +146,14 @@
:collision (advent.pathfind/map-from-resource "pathfind-test-big.png")
:baseline 0
:mouse-overrides [{:mouse-in? (box-maker-fn 290 131 320 224)
:cursor-override 4}
:cursor-override 4
:go-to [319 160]}
{:mouse-in? (box-maker-fn 60 180 224 240)
:cursor-override 7}
:cursor-override 7
:go-to [137 204]}
{:mouse-in? (box-maker-fn 0 40 30 140)
:cursor-override 6}]
:cursor-override 6
:go-to [0 80]}]
:scale-fn (scaler-fn-with-baseline 110 0.10 1.00))
:house (assoc house
:x 0 :y 0
@@ -182,5 +202,4 @@
(defgame advent
:on-create
(fn [this]
(set-screen! this main-screen)
#_(input! :set-cursor-catched true)))
(set-screen! this main-screen)))