minor tweaks.
This commit is contained in:
@@ -31,8 +31,8 @@
|
||||
|
||||
(defn scene-world->talk-world [scene-viewport [x y]]
|
||||
(let [[screen-x screen-y] (utils/project {:viewport scene-viewport} [x y])
|
||||
x (/ screen-x (/ (game :width) 1280.0 ))
|
||||
y (/ screen-y (/ (game :height) 960.0 ))]
|
||||
x (Math/round (/ screen-x (/ (game :width) 1280.0 )))
|
||||
y (Math/round (/ screen-y (/ (game :height) 960.0 )))]
|
||||
[x y]))
|
||||
|
||||
(defscreen talking-screen
|
||||
|
||||
@@ -414,7 +414,8 @@
|
||||
:ego "Man! What a dream!"
|
||||
:ego "If I only really could be a knight."
|
||||
:ego "Then I'd be able to win Georgia McGorgeous' heart.")
|
||||
(actions/in-love entities))
|
||||
(actions/in-love entities)
|
||||
(utils/snapshot-state @entities :after-dream))
|
||||
(do (actions/walk-to entities :ego [148 76] :face :right)
|
||||
(actions/do-dialogue entities
|
||||
:fairy-godfather "What are you doing?" :ego "Erm... Nothing."))))
|
||||
|
||||
@@ -320,8 +320,8 @@
|
||||
(actions/do-dialogue entities
|
||||
:ego "I think it means I have to prove myself worthy in wisdom, courage, and might!"
|
||||
:ego "Then I can become a knight and impress Georgia McGorgeous!")
|
||||
(actions/georgia-say entities "Tick! My hero!")
|
||||
(actions/talk entities :ego "... I wonder what that last bit is about."))
|
||||
(actions/georgia-say entities "Tick! My handsome hero!")
|
||||
(actions/talk entities :ego "... I wonder what the 'final test' bit is about."))
|
||||
(actions/do-dialogue entities :ego (str "I've proven myself in "
|
||||
(str/join " and " (map item->proof obtained-items))
|
||||
", but still have to prove myself in "
|
||||
|
||||
@@ -1309,7 +1309,7 @@ void main ()
|
||||
(.apply viewport)
|
||||
(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)])
|
||||
(render! screen [ #_(:fps entities) (:inventory entities) (:close entities)])
|
||||
entities))
|
||||
|
||||
:on-resize
|
||||
|
||||
Reference in New Issue
Block a user