fixed wizard positioning and likelihood.

This commit is contained in:
2015-07-26 21:17:48 -07:00
parent 430873297a
commit 5e57ef9e4c
2 changed files with 2 additions and 2 deletions

View File

@@ -198,7 +198,7 @@
(actions/remove-entity entities :frog-legs) (actions/remove-entity entities :frog-legs)
(actions/do-dialogue entities :ego "Eww. Frog legs.")))))} (actions/do-dialogue entities :ego "Eww. Frog legs.")))))}
:experiment (rooms/make-entity :experiment (assoc (animation->texture screen experiment-left) :experiment (rooms/make-entity :experiment (assoc (animation->texture screen experiment-left)
:x 228 :y 60 :scale-x 1.75 :scale-y 1.75 :origin-x 7.43 :origin-y 0 :x 228 :y 60 :scale-x 1.75 :scale-y 1.75 :origin-x 13 :origin-y 0
:experiment experiment-left :experiment experiment-left
:baseline 225)) :baseline 225))
:collision "inside-house/collision.png" :collision "inside-house/collision.png"

View File

@@ -347,7 +347,7 @@
(actions/talk entities :ego "It's locked.") (actions/talk entities :ego "It's locked.")
(do (actions/play-animation entities :door :open) (do (actions/play-animation entities :door :open)
(actions/transition-background entities :inside-house [237 0] :between (fn [s e] (actions/transition-background entities :inside-house [237 0] :between (fn [s e]
(if (= 1 (rand-int 10)) (if (= 1 (rand-int 4))
(assoc-in e [:room :entities :experiment] (get-in e [:room :experiment])) (assoc-in e [:room :entities :experiment] (get-in e [:room :experiment]))
e))) e)))
(when (get-in @entities [:room :entities :experiment]) (when (get-in @entities [:room :entities :experiment])