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

added second walkbehind.

Browse Source
This commit is contained in:
=
2014-09-03 08:05:06 -07:00
parent 86494add27
commit 25065c841d
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
desktop/resources/pathfind-test-big.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 7.9 KiB

After

Width:  |  Height:  |  Size: 6.1 KiB

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

@@ -81,7 +81,8 @@
(let [ (let [
_ (input! :set-cursor-image (cursor "cursor.png" 0) 0 0) _ (input! :set-cursor-image (cursor "cursor.png" 0) 0 0)
background (texture "bg5.png") background (texture "bg5.png")
house (texture "house.png")] house (texture "house.png")
overdirt (texture "overdirt.png")]
{:cursor {:id "cursor" :cursor-index 0} {:cursor {:id "cursor" :cursor-index 0}
:background (assoc background :background (assoc background
:id "background" :x 0 :y 0 :id "background" :x 0 :y 0
@@ -90,12 +91,17 @@
:house (assoc house :house (assoc house
:x 0 :y 0 :x 0 :y 0
:baseline 122) :baseline 122)
:ego (get-ego screen)})) :overdirt (assoc overdirt
:x 0 :y 0
:baseline 240)
:ego (get-ego screen)
:fps (assoc (label "0" (color :white) ) :x 5 :baseline 9000)}))
:on-render :on-render
(fn [screen [entities]] (fn [screen [entities]]
(clear!) (clear!)
(let [entities (assoc entities :ego (update-ego screen entities (:ego entities)))] (let [entities (assoc entities :ego (update-ego screen entities (:ego entities)))
_ (label! (:fps entities) :set-text (str (game :fps)))]
(render! screen (sort-by :baseline (vals entities))) (render! screen (sort-by :baseline (vals entities)))
entities)) entities))
:on-resize (fn [screen entities] :on-resize (fn [screen entities]