minor tweaks.
This commit is contained in:
@@ -10,12 +10,13 @@
|
|||||||
[play-clj.g2d :refer :all]))
|
[play-clj.g2d :refer :all]))
|
||||||
|
|
||||||
(defn do-warrior-dialogue [entities]
|
(defn do-warrior-dialogue [entities]
|
||||||
|
(actions/walk-to entities :ego [150 45] :face :left)
|
||||||
(actions/talk entities :ego "Hey guys!")
|
(actions/talk entities :ego "Hey guys!")
|
||||||
(actions/talk entities :warriors "Hark! Good day, young esquire.")
|
(actions/talk entities :warriors "Hark! Good day, young esquire.")
|
||||||
(actions/present-choices entities
|
(actions/present-choices entities
|
||||||
{:choices ["Why dost thou speaketh in this manner?"
|
{:choices ["Why dost thou speaketh in this manner?"
|
||||||
{:run #(actions/respond entities %
|
{:run #(actions/respond entities %
|
||||||
:warriors "`Tis but a tradition!"
|
:warriors "`Tis a tradition!"
|
||||||
:warriors "All knights speaketh in such a manner."
|
:warriors "All knights speaketh in such a manner."
|
||||||
:warriors "As my father instructedeth unto me as a mere lad: "
|
:warriors "As my father instructedeth unto me as a mere lad: "
|
||||||
:warriors "'Son, thou must speaketh in this manner.'"
|
:warriors "'Son, thou must speaketh in this manner.'"
|
||||||
|
|||||||
Reference in New Issue
Block a user