Plaster
New
List
Login
commonlisp
default
gingerale
2017.04.22 09:10:51
;; Dialogue tree 'foo-tree is created as first dialogue bit for it is defined (define-dialogue 'foo '(:tree foo-tree ;; This dialogue bit is part of dialogue tree 'foo-tree :text "This is the first line.") ;; This is the text presented to the user '(foo-1 :text "Choice 1" :jump bar) ;; Choosing this jumps dialogue to 'bar '(foo-1 :text "Choice 2" :jump baz) ;; Choosing this jumps dialogue to 'baz (not shown) '(foo-2 :text "Choice 3"))) ;; Choosing this will exit the dialogue tree (define-dialogue 'bar '(:tree foo-tree :text "This is the second line.") '(bar-1 :text "Choice 1" :jump baz) '(bar-2 :text "Choice 2"))
Raw
Annotate
Repaste
Annotations
commonlisp
default
shinmera
2017.04.22 09:23:02
(define-dialogue discuss-system :tag start shinmera "Hey how about this system here, eh?" :choice (("Eh, I don't know." :dialogue system-not-good) ("I'm tired." shinmera "You're always tired. But that has nothing to do with this." :dialogue system-not-good) ("That's alright.") ("*yawn*" :go start)) shinmera "Ok, great." shinmera "Now you just need to figure out how to implement it. :^)") (define-dialogue system-not-good :action (shinmera question) shinmera "What's the problem, then?" shinmera "Looks pretty compact to me." colleen "Sometimes compact is for the go." shinmera "Uh, sure." :action (shinmera shrug) shinmera "Anyway, I guess do whatever you want." :end all)
Raw
Repaste