more scripting.

This commit is contained in:
2015-03-11 18:20:40 -07:00
parent 0389ed6440
commit 5b76cd9644
5 changed files with 72 additions and 30 deletions

View File

@@ -740,13 +740,13 @@
:inventory (assoc (texture "inventory.png") :x 278 :y 0 :baseline 9000
:mouse-in? (zone/box 278 0 320 42)
:opacity 0.8)
:fps (assoc (label "0" (color :white) ) :x 5 :baseline 0 :opacity 0.3)}))
:fps (assoc (label "" (color :white) ) :x 5 :baseline 0 :opacity 0.3)}))
:on-render
(fn [screen [entities]]
(let [entities (utils/apply-tweens screen entities (:tweens entities))]
(label! (:fps entities) :set-text (str (game :fps)))
(render! screen [(:fps entities) (:inventory entities) (:close entities)])
#_(label! (:fps entities) :set-text (str (game :fps)))
(render! screen [#_(:fps entities) (:inventory entities) (:close entities)])
entities))
:on-resize