gandarf improvements.
This commit is contained in:
@@ -1 +1 @@
|
|||||||
41
|
42
|
||||||
|
|||||||
@@ -102,13 +102,6 @@ cat-tree/dot
|
|||||||
orig: 1, 1
|
orig: 1, 1
|
||||||
offset: 0, 0
|
offset: 0, 0
|
||||||
index: -1
|
index: -1
|
||||||
wizard/dot
|
|
||||||
rotate: false
|
|
||||||
xy: 846, 784
|
|
||||||
size: 1, 1
|
|
||||||
orig: 1, 1
|
|
||||||
offset: 0, 0
|
|
||||||
index: -1
|
|
||||||
ego/dot
|
ego/dot
|
||||||
rotate: false
|
rotate: false
|
||||||
xy: 846, 784
|
xy: 846, 784
|
||||||
@@ -116,7 +109,7 @@ ego/dot
|
|||||||
orig: 1, 1
|
orig: 1, 1
|
||||||
offset: 0, 0
|
offset: 0, 0
|
||||||
index: -1
|
index: -1
|
||||||
outsidehouse/dot
|
inside-house/dot
|
||||||
rotate: false
|
rotate: false
|
||||||
xy: 846, 784
|
xy: 846, 784
|
||||||
size: 1, 1
|
size: 1, 1
|
||||||
@@ -130,6 +123,13 @@ dream/dot
|
|||||||
orig: 1, 1
|
orig: 1, 1
|
||||||
offset: 0, 0
|
offset: 0, 0
|
||||||
index: -1
|
index: -1
|
||||||
|
inside-jail/dot
|
||||||
|
rotate: false
|
||||||
|
xy: 846, 784
|
||||||
|
size: 1, 1
|
||||||
|
orig: 1, 1
|
||||||
|
offset: 0, 0
|
||||||
|
index: -1
|
||||||
title/dot
|
title/dot
|
||||||
rotate: false
|
rotate: false
|
||||||
xy: 846, 784
|
xy: 846, 784
|
||||||
@@ -137,6 +137,13 @@ title/dot
|
|||||||
orig: 1, 1
|
orig: 1, 1
|
||||||
offset: 0, 0
|
offset: 0, 0
|
||||||
index: -1
|
index: -1
|
||||||
|
wizard/dot
|
||||||
|
rotate: false
|
||||||
|
xy: 846, 784
|
||||||
|
size: 1, 1
|
||||||
|
orig: 1, 1
|
||||||
|
offset: 0, 0
|
||||||
|
index: -1
|
||||||
inside-antique/dot
|
inside-antique/dot
|
||||||
rotate: false
|
rotate: false
|
||||||
xy: 846, 784
|
xy: 846, 784
|
||||||
@@ -144,14 +151,7 @@ inside-antique/dot
|
|||||||
orig: 1, 1
|
orig: 1, 1
|
||||||
offset: 0, 0
|
offset: 0, 0
|
||||||
index: -1
|
index: -1
|
||||||
inside-jail/dot
|
outsidehouse/dot
|
||||||
rotate: false
|
|
||||||
xy: 846, 784
|
|
||||||
size: 1, 1
|
|
||||||
orig: 1, 1
|
|
||||||
offset: 0, 0
|
|
||||||
index: -1
|
|
||||||
inside-house/dot
|
|
||||||
rotate: false
|
rotate: false
|
||||||
xy: 846, 784
|
xy: 846, 784
|
||||||
size: 1, 1
|
size: 1, 1
|
||||||
@@ -284,14 +284,14 @@ held/dot
|
|||||||
orig: 1, 1
|
orig: 1, 1
|
||||||
offset: 0, 0
|
offset: 0, 0
|
||||||
index: -1
|
index: -1
|
||||||
space/dot
|
outside-jail/dot
|
||||||
rotate: false
|
rotate: false
|
||||||
xy: 849, 784
|
xy: 849, 784
|
||||||
size: 1, 1
|
size: 1, 1
|
||||||
orig: 1, 1
|
orig: 1, 1
|
||||||
offset: 0, 0
|
offset: 0, 0
|
||||||
index: -1
|
index: -1
|
||||||
outside-jail/dot
|
space/dot
|
||||||
rotate: false
|
rotate: false
|
||||||
xy: 849, 784
|
xy: 849, 784
|
||||||
size: 1, 1
|
size: 1, 1
|
||||||
|
|||||||
@@ -344,12 +344,12 @@
|
|||||||
:x 69
|
:x 69
|
||||||
:y 86
|
:y 86
|
||||||
:baseline 120)
|
:baseline 120)
|
||||||
:smoke-particle (doto (assoc (particle-effect "particles/smoke-particle") :x 162 :y 108
|
:smoke-particle (doto (assoc (particle-effect "particles/smoke-particle") :x 162 :y 104
|
||||||
:baseline 240)
|
:baseline 240)
|
||||||
(particle-effect! :set-position 162 108))
|
(particle-effect! :set-position 162 103))
|
||||||
:fire-particle (doto (assoc (particle-effect "particles/fire-particle") :x 162 :y 108
|
:fire-particle (doto (assoc (particle-effect "particles/fire-particle") :x 162 :y 104
|
||||||
:baseline 240)
|
:baseline 240)
|
||||||
(particle-effect! :set-position 162 108))
|
(particle-effect! :set-position 162 104))
|
||||||
:bowl (assoc (utils/get-texture "inside-antique/bowl.png")
|
:bowl (assoc (utils/get-texture "inside-antique/bowl.png")
|
||||||
:x 165
|
:x 165
|
||||||
:y 110
|
:y 110
|
||||||
|
|||||||
@@ -13,8 +13,10 @@
|
|||||||
|
|
||||||
(defn open-safe [entities]
|
(defn open-safe [entities]
|
||||||
(actions/play-animation entities :ego :start-squat :stop? false)
|
(actions/play-animation entities :ego :start-squat :stop? false)
|
||||||
|
(Thread/sleep 500)
|
||||||
(screen! safe/safe-screen :show-screen
|
(screen! safe/safe-screen :show-screen
|
||||||
:success (actions/get-script entities
|
:success (actions/get-script entities
|
||||||
|
(Thread/sleep 500)
|
||||||
(actions/play-animation entities :ego :end-squat)
|
(actions/play-animation entities :ego :end-squat)
|
||||||
|
|
||||||
(if (actions/has-item? entities :recipe)
|
(if (actions/has-item? entities :recipe)
|
||||||
@@ -36,6 +38,7 @@
|
|||||||
(actions/give entities :mandrake)
|
(actions/give entities :mandrake)
|
||||||
(actions/talk entities :ego "Weird. It's some kind of root."))))
|
(actions/talk entities :ego "Weird. It's some kind of root."))))
|
||||||
:failure (actions/get-script entities
|
:failure (actions/get-script entities
|
||||||
|
(Thread/sleep 500)
|
||||||
(actions/play-animation entities :ego :end-squat)
|
(actions/play-animation entities :ego :end-squat)
|
||||||
(actions/talk entities :ego "I don't think that worked...")))
|
(actions/talk entities :ego "I don't think that worked...")))
|
||||||
(actions/update-state entities #(assoc % :active? false)))
|
(actions/update-state entities #(assoc % :active? false)))
|
||||||
|
|||||||
@@ -390,7 +390,7 @@
|
|||||||
:wizard "Surely thou doth know that thou can speaketh in this manner."
|
:wizard "Surely thou doth know that thou can speaketh in this manner."
|
||||||
:wizard "Thy tongue requireth neither sword nor title.")
|
:wizard "Thy tongue requireth neither sword nor title.")
|
||||||
:choices actions/previous-choices}]}
|
:choices actions/previous-choices}]}
|
||||||
"By besting traps, beasts, and long, boring, conversation with old geezers."
|
"By besting traps, beasts, and long, boring, conversations with old geezers."
|
||||||
{:run #(do (actions/respond entities %
|
{:run #(do (actions/respond entities %
|
||||||
:wizard "Quite right, quite right.")
|
:wizard "Quite right, quite right.")
|
||||||
(Thread/sleep 1000)
|
(Thread/sleep 1000)
|
||||||
|
|||||||
@@ -1412,7 +1412,7 @@ void main ()
|
|||||||
:inventory (assoc (utils/get-texture "inventory.png") :x 278 :y 0 :baseline 9000
|
:inventory (assoc (utils/get-texture "inventory.png") :x 278 :y 0 :baseline 9000
|
||||||
:mouse-in? (zone/box 278 0 320 42)
|
:mouse-in? (zone/box 278 0 320 42)
|
||||||
:opacity 0.8)
|
:opacity 0.8)
|
||||||
#_#_:fps (assoc (label "" (color :white) ) :x 5 :baseline 0 :opacity 0.1)}))
|
:fps (assoc (label "" (color :white) ) :x 5 :baseline 0 :opacity 0.1)}))
|
||||||
|
|
||||||
:on-render
|
:on-render
|
||||||
(fn [{:keys [^FitViewport viewport] :as screen} [entities]]
|
(fn [{:keys [^FitViewport viewport] :as screen} [entities]]
|
||||||
@@ -1431,7 +1431,7 @@ void main ()
|
|||||||
(as-> entities entities
|
(as-> entities entities
|
||||||
(update-in entities [:save] assoc :r 0.75 :g 0.75 :b 0.75)
|
(update-in entities [:save] assoc :r 0.75 :g 0.75 :b 0.75)
|
||||||
(grow-hud screen entities :save false)))]
|
(grow-hud screen entities :save false)))]
|
||||||
#_(label! (:fps entities) :set-text (str (game :fps)))
|
(label! (:fps entities) :set-text (str (game :fps)))
|
||||||
(render! screen [ (if (and hud-interactable? (not (:already-saved? entities)))
|
(render! screen [ (if (and hud-interactable? (not (:already-saved? entities)))
|
||||||
(:save entities)
|
(:save entities)
|
||||||
(assoc (:save entities) :opacity 0.5))
|
(assoc (:save entities) :opacity 0.5))
|
||||||
|
|||||||
Reference in New Issue
Block a user