minor tweaks.

This commit is contained in:
2014-12-10 21:12:07 -08:00
parent 07592b8691
commit 7738285577

View File

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