notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sample conversation.

Browse Source
This commit is contained in:
Remington Covert
2014-09-26 17:06:28 -07:00
parent 27d992776a
commit f5c6c593a7
1 changed files with 15 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
desktop/src-common/advent/screens/scene.clj
View File

@@ -3,6 +3,7 @@
[play-clj.ui :refer :all] [play-clj.ui :refer :all]
[play-clj.utils :refer :all] [play-clj.utils :refer :all]
[play-clj.g2d :refer :all] [play-clj.g2d :refer :all]
[clojure.zip :as zip]
[clojure.pprint] [clojure.pprint]
[advent.pathfind] [advent.pathfind]
[advent.actions :as actions] [advent.actions :as actions]
@@ -179,16 +180,20 @@
:cursor :down} :cursor :down}
:wizard {:box [228 80 248 126] :wizard {:box [228 80 248 126]
:script (actions/get-script entities :script (actions/get-script entities
(actions/present-choices entities {:choices {"Hello there" {:run #(do (actions/talk entities :ego %) (actions/present-choices entities {:choices {"Hello there Mr. Fangald" {:run #(do (actions/talk entities :ego %)
(actions/talk entities :wizard "Oh, hello.")) (actions/talk entities :wizard "Oh, no. Not you again!"))
:choices {"How are you doing?" {:run #(do (actions/talk entities :ego %) :choices {"What do you mean, \"Not you again?\"" {:run #(do (actions/talk entities :ego %)
(actions/talk entities :wizard "I'm ok.")) (actions/talk entities :wizard "I mean, you've wrecked my life and I never want to see you again."))
:choices actions/previous-choices} :choices {"You mean the time I set your house on fire with a fire mint?" {:choices actions/previous-choices}
"Any news?" {:run #(do (actions/talk entities :ego %) "You're still cross about my stealing your magic cowboy hat?" {:choices actions/previous-choices}
(actions/talk entities :wizard "Not really")) "Even an old hoot like you needs a kick in the pants every now and again." {:choices actions/previous-choices}
:choices actions/previous-choices} "Something else" {:choices actions/something-else}}}
"Something Else" {:choices actions/something-else}}} "You're not happy to see me, Mr. Fangald?" {:run #(do (actions/talk entities :ego %)
"Good bye" {:run #(actions/talk entities :ego %)}}}) (actions/talk entities :wizard "Of course not, you little cheat. You're nothing but a little cheat."))
:choices #(-> % zip/left)}
"Something else" {:choices actions/something-else}}}
"Good bye, Mr. Fangald!" {:run #(do (actions/talk entities :ego %)
(actions/talk entities :wizard "Now scram!"))}}})
)}} )}}
:layers [(assoc (texture "inside-house/background.png") :x 0 :y 0 :baseline 0) :layers [(assoc (texture "inside-house/background.png") :x 0 :y 0 :baseline 0)