based on A simple version of Eliza
this page started by TV.
The interesting and fun eliza idea, a shrink like character incorporated in a computer program, is fun to have as a tcl script, see that page.
I thought I'd start using it to make a program which can have multiple instances which can talk to themselves:
Talk::replyto {What is your problem?} Talk::replyto {What do you want to talk about?} Talk::replyto {We are considering you, not me} Talk::replyto {We are considering you, not me} Talk::replyto {We are considering you, not me}
To begin with, this plain feed it back to itself is nothing all too staggering, but at least it doesn't get into a loop straight away.
Another initial question may change the course of the conversation:
How is life? Life - do not talk to me about life! So ... ? Shall we continue? What do you want to talk about? Anything specific? What do you want to talk about? Shall we continue? Anything specific? So ... ? Shall we continue?