Plaster

commonlisp
(define-dialogue pincers "hey" "how's it going" (choice ("Great" "Ok, cool!" (mood happy) (change some-state :cooperative)) ("Not good" "Why not? Something bothering you?") ("Not telling you" "Well fuck off then" (mood bad) (change some-state :uncooperative))))