ひまわりユーザー プログラム掲示板 バックアップ
注意
ひまわりのススメ  □ ひまわり本家Home  □ 新着記事  □ 新規投稿  □ SEARCH  □ 参考プログラム集
ツリー表示

MESSAGE ★人工無能 /北神 陽太 (02/01/09(Wed) 13:46) [113]


親記事 / 返信無し
NO.113  ★人工無能
□投稿者/ 北神 陽太 -(2002/01/09(Wed) 13:46:46)
□U R L/ http://homepage1.nifty.com/kitagami/index.htm
「私、長嶋エミーよ、お父さんはパイロット・・・」なんてことは、いいません。(知っている人いるかな?)

 その昔、エリーザというカウンセリングソフトがあったそうで、単なるオウム返しですが、自問自答していくうちに、本当に悩みを解決するかも・・・。おかしな日本語はごかんべん。

▼以下、ひまわりに貼り付けて遊んでください。

'初期設定
母艦の、サイズは、(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に、注目。

待機



- Child Tree -