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

cleanup.

Browse Source
This commit is contained in:
=
2014-09-08 07:12:43 -07:00
parent 91d03855d5
commit 02538a8c05
3 changed files with 46 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
desktop/src-common/advent/screens/dialogue.clj
View File

@@ -11,21 +11,27 @@
(defscreen talking-screen
:on-show
(fn [screen entities]
(update! screen :renderer (stage) :camera (orthographic)) [])
(update! screen :renderer (stage) :camera (orthographic))
{})
:on-render
(fn [screen entities]
(render! screen entities)
(fn [screen [entities]]
(render! screen (vals entities))
entities)
:on-talk
(fn [{:keys [create-talk text x y]} entities]
[(let [font (bitmap-font "mainfont.fnt" )
tr (bitmap-font! font :get-region)
tx (.getTexture tr)
_ (texture! tx :set-filter Texture$TextureFilter/Linear Texture$TextureFilter/Linear)
talk (assoc (label text (style :label font (color :white)) ) :x (* 4 x) :y (* 4 y))]
(label! talk :set-font-scale 1)
talk)])
(fn [{:keys [create-talk target-id text x y]} [entities]]
(let [font (bitmap-font "mainfont.fnt" )
tr (bitmap-font! font :get-region)
tx (.getTexture tr)
_ (texture! tx :set-filter Texture$TextureFilter/Linear Texture$TextureFilter/Linear)
talk (assoc (label text (style :label font (color :white)) ) :x (* 4 x) :y (* 4 y))]
(label! talk :set-font-scale 1)
(assoc entities target-id talk)))
:stop-talk
(fn [{:keys [target-id] } [entities]]
(dissoc entities target-id))
:on-resize (fn [screen entities]

32
desktop/src-common/advent/screens/scene.clj
View File

@@ -99,48 +99,40 @@
]
{
:cursor {:id "cursor" :cursor-index 0 }
:background (assoc background
:id "background" :x 0 :y 0
:background (assoc {}
:collision (advent.pathfind/map-from-resource "pathfind-test-big.png")
:baseline 0
:mouse-overrides [{:mouse-in? (zone/box 290 131 320 224)
:mouse-overrides [{:mouse-in? (zone/box 300 131 320 224)
:cursor-override 4
:go-to [319 160]}
{:mouse-in? (zone/box 60 180 224 240)
:cursor-override 7
:go-to [137 204]}
{:mouse-in? (zone/box 0 40 30 140)
{:mouse-in? (zone/box 0 40 20 140)
:cursor-override 6
:go-to [0 80]}]
:interactions [{:mouse-in? (zone/box 258 100 281 160)
:click-fn (fn [screen entities [x y]]
(assoc-in entities [:ego :actions] [(fn [screen entities]
(run! talking-screen :on-talk :text "It's the door to Merlin's house."
:x (get-in entities [:ego :x]) :y (+ (get-in entities [:ego :y]) 25) )
(-> entities
(update-in [:ego :actions] rest)))]))}]
:scale-fn (scaler-fn-with-baseline 110 0.10 1.00))
:house (assoc house
:x 0 :y 0
:baseline 122)
:overdirt (assoc overdirt
:x 0 :y 0
:baseline 240)
:background-trees (assoc background-trees
:x 0 :y 0
:baseline 44)
(assoc-in entities [:ego :actions] [(actions/stop :ego)
(actions/talk :ego "Looking at the house.")]))}]
:scale-fn (scaler-fn-with-baseline 110 0.10 1.00)
:layers [(assoc background :x 0 :y 0 :baseline 0)
(assoc house :x 0 :y 0 :baseline 122)
(assoc overdirt :x 0 :y 0 :baseline 240)
(assoc background-trees :x 0 :y 0 :baseline 44)])
:ego (get-ego screen)
:fps (assoc (label "0" (color :white) ) :x 5 :baseline 9000)
}))
:on-render
(fn [screen [entities]]
(clear!)
(let [entities (update-ego screen entities (:ego entities))
_ (label! (:fps entities) :set-text (str (game :fps)))
entities (if (get-in entities [:ego :anim])
(update-in entities [:ego] #(merge % (animation->texture screen (:anim %))))
entities)]
(render! screen (sort-by :baseline (vals entities)))
(render! screen (sort-by :baseline (concat (vals entities) (get-in entities [:background :layers]))))
entities))
:on-resize (fn [screen entities]