「私、長嶋エミーよ、お父さんはパイロット・・・」なんてことは、いいません。(知っている人いるかな?)
その昔、エリーザというカウンセリングソフトがあったそうで、単なるオウム返しですが、自問自答していくうちに、本当に悩みを解決するかも・・・。おかしな日本語はごかんべん。
▼以下、ひまわりに貼り付けて遊んでください。
'初期設定 母艦の、サイズは、(100,100,740,580)。 その、タイトルは、「人工無能☆エミリー」 その、背景色は、灰色。
-1で、乱数初期化。
ラベル0を、ラベルとして、作成。 その、サイズは、(10,10,300,40) その、テキストは、「<名詞、動詞>で相談してください。(メッセージは最新が上です)」
エディタ0を、エディタとして、作成。 その、サイズは、(10,30,300,60) その、IMEは、オン。
ボタン0を、ボタンとして、作成。 その、サイズは、(310,30,450,60) その、テキストは、「話す」。 その、イベントは、話す '●イベントはここだけ
メモ0を、メモとして、作成。 その、サイズは、(10,60,620,460) その、背景色は、肌色。 その、編集は、オフ。 その、テキストは、「−人工無能☆エミリー− 悩みを相談しましょう。 テキストを入力して、<話す>ボタンを押してください。 なるべく単純な<名詞>+<動詞>でお話ください。 名詞と動詞の間は、空白か句読点で区切ってください。 最後には、悩みが解決するでしょう!? 例)お金が 欲しい
エミリー>悩み事はなんですか?」
エディタ0に、注目。
会話=「」 待機
*話す 発言=エディタ0の、テキスト。 'テキストの最終文字にセットできないため、逆順 会話=「\n{発言}\n{会話}\n」 'メモの大きさを制限 会話=RIGHT(会話、1000)。 メモ0の、テキストは、会話。
'発言を解析 発言の中で、「 」が、何文字目。'全角 もし、それ=0 なら 発言の中で、「 」が、何文字目。'半角 もし、それ=0 なら 発言の中で、「、」が、何文字目。'句読点 もし、それ=0 なら 発言の中で、「,」が、何文字目。'句読点 分割=それ。
'動詞を抽出 発言の中で、(分割+1)から、(LEN(発言)-分割)つ、MID。) 動詞=それ
'名詞+動詞か? もし、分割=0なら 名詞=「それを」 違えば 名詞=LEFT(発言、分割-1)&「 を」
4の、乱数。メッセージ=INT(それ) もし、メッセージ=0 なら メッセージ=「 するには、どうしたらいいと思う?」 もし、メッセージ=1 なら メッセージ=「 するには、どうやってやるの?」 もし、メッセージ=2 なら メッセージ=「 どうするつもり?」 もし、メッセージ=3 なら メッセージ=「 そして、どうするの?」
'テキストの最終文字にセットできないため、逆順 もし、発言=「」 なら( 会話=「\nエミリー>悩み事は何ですか?名詞+動詞で相談してね。\n{会話}\n」) 違えば( 会話=「\nエミリー>{名詞}、{動詞}、{メッセージ}\n{会話}\n」)
'メモの大きさを制限 会話=RIGHT(会話、1000)。 メモ0の、テキストは、会話。
エディタ0の、テキストは、「」。 エディタ0に、注目。
待機
|