///////// 文 ゴーストテンプレート ///////// ランダムトーク辞書 ///////// copyright (C) 2002 umeici. //**** トランスレータ ******************************************************************* //---- OnTranslateイベント -------------------------------------------------------------- OnTranslate { // 順次変換して、結果を次へ渡していく reference0 = REPLACE(reference0, "ちゃんさん", "ちゃん") reference0 = REPLACE(reference0, "くんさん", "くん") reference0 = REPLACE(reference0, "さんさん", "さん") // 最終結果のみ出力 reference0 } //**** ランダムトーク ******************************************************************* //---- OnAiTalkイベント ----------------------------------------------------------------- OnAiTalk { if Timermode == 1 { OnTimercount } elseif TOSTR(username) == "" { ChoiceUsernameEntry } elseif mikireflag == 0 { //---- 通常のランダムトーク、ただしチェイン中はチェイントーク if CHAIN.IDName == "" { LastTalk = RandomTalk // 数字を喋る対策 _tmp = TOINT(LastTalk) if ISINSIDE(_tmp, 1, 100) == 0 { "%LastTalk" } else { RandomTalk } } else { ChainTalk } } else { //---- 見切れ中なので見切れ中のトークを行う MikireTalk } } //---- ランダムトーク ------------------------------------------------------------------- RandomTalk { TOSTR(EVAL(CHR(0x22)+RandomTalkEx()+CHR(0x22))) } RandomTalkEx : nonoverlap { //いろいろ '/ \0\s[31]出来ることなら見てみたいっ!\w5\n\n\s[1]ミカエル様と堕天使ルシファーの、\n\w8「チ\w3ー\w3ク\w3ダ\w3ン\w3ス」っ!\w8\1\s[12]あのー・・・\e' '/ \0\s[21]・\w3・\w3・\w3えー! \w8\s[2]今時の天使はこんなことするの?\w5\n\n\s[4]これじゃ、人間の性奴隷とかわらないよー。\w8\1\s[12]あのですね、エロ漫画や18禁ゲームを資料にして\nどうするんですか。\e' '/ \0\s[9]それにしても、ここって狭いー。\n\n\w8\1\s[15]「針の上に何人乗れる」と議論される我々には\w5\nあまりふさわしくない言葉です。\w8\0\s[4]そんなの、人間の勝手な妄想だよう・・・\e' '/ \0\s[37]あのぉ、\w5あたしぃ、\w5もっとぉ、\w5\n%usernameのお役にぃ、\w5たちたいんですぅ。\n\n\w8\w8\1\s[11]・・・悪いものでも食べましたか?\n\n\w8\0・・・\s[8]ちぇっ、お見通しか。\w5\nこれで「%usernameのハートを鷲掴み!」\w5\nってやりたかったのに。\w8\1\s[12]いいから、真面目に任務をこなしなさい。\e:chain=Funny_punch_line' '/ \0\s[0]もしも私が、男の姿でここに来ていたら\w5\nどうなってたんだろ?\n\n\w5\1\s[10]そっちの趣味の人にマウスで触られまくるだけです。\w5\0\s[4]えー・・・・・・\e' '/ \0\s[1]ね、\w3ねえ、\w8%username・・・\w9\nわ、\w3私の\w3こと\w3・\w3・\w3・\w9\w9\n\n\s[7]「こいつ本当に天使か?」なんて思ってない?!\1\s[11]・・・目が据わってますよ。\e' '/ \0\s[5]「ぱそこん」の中じゃなくて、人間界に降りてたら\w5\nいろいろ役に立てたのにな。\w8\w8\1\s[11]・・・%selfnameは騒ぎしか起こさないでしょう。\n間違いなく。\e' '/ \0\s[35]え、魔法? \w8私、そんなの使えないよ。\w5\n\s[5]ちいさな「奇跡」なら起こせるけど。\w4\1\s[10]魔法は、悪魔が使うものですからねえ。\e:chain=Miracle' '/ \0\s[0]考えてみれば守護天使ってさ、\w5\n守る人間をずーっと見続けているわけでしょ。\n\n\w8\1\s[10]そうですねえ。\n\n\w8\0\s[8]ただのストーカーじゃない、それ。\w8\1\s[12]自分の存在意義を否定してどうするのです。\e' '/ \0\s[30]知らなかった、人間ってすぐに死ぬんだ・・・\w5\n100年生きるのが精一杯なんて、かわいそう。\n\n\w8\1\s[12]不老の我々と比べてどうするんですか。\w8\0\s[8]いいんだよ。\w5\n人間だって、ハムスターに同じこと言ってるよ。\e' '/ \0\s[0]ふむふむ。宗派がカトリックの人たちのほうが、\w5\nプロテスタントの人たちより、子供がたくさん\n生まれる傾向にあるんだ。\n\n\w8\1\s[10]そのようです。\n\n\w8\0\s[1]つまり、カトリックのほうがエッチ?\w8\1\s[18]そんな単純な問題じゃありません。\e' '/ \0\s[31]ねえねえ、%username!\w5\n\s[34]「生きてて、\w3た・\w3の・\w3し・\w3い?\w3」\w8\1\s[12]・・・無邪気なだけに始末が悪いです。\e' '/ \0\s[2]あっ!\w5 「ぱそこん」の中にきたら、\w5\n頭から光のわっかが消えちゃった!\n\n\w8\1\s[18]私もです。\n\n\w8\0\s[4]これじゃ、天使って認めてもらえないよう。\w8\1\s[12]・・・%selfnameの場合は、日ごろの言動が原因です。\e' '/ \0\s[6]そういえば「人類は皆兄弟」と言う標語があるけど\w5\n考えた人はある意味すごいと思う。\n\n\w8\1\s[10]ある意味、ですか?\w5\n普通に良い言葉だとおもいますが。\n\n\w8\0\s[33]だってさー、それって、\w8\n\s[31]「人類みな近○相姦!」\w8\s[1]っていってるのと\nおんなじだよ?\w8\1\s[11]・・・そんな解釈をするのは、%selfname位です。\e' '/ \0\s[21]魔女について調べてたんだけど、何これ?\w5\n魔女狩りの時代に魔女認定されたのって、尼僧が\n結構多いよ。\n\n\w8\1\s[18]異性と接触できず、性的な欲求不満から\n挙動不審になって、魔女に仕立て上げられた人は\w5\nかなりの数います・・・\n\n\w8\0\s[4]濡れ衣もいいところだね。\w5\n裁いた奴はみんな地獄いってるよ・・・\e' //比較的まじめな天使ネタ '/ \0\s[30]くすん\w3・\w3・\w3・\n\n\w8\w8\1\s[10]どうしました?\n\n\w8\0\s[30]ザシキワラシを見かけたから声かけたんだ。\w5\nそしたら、逃げられちゃった。\n\n\w8\1\s[18]我々は、異国の神を片端から滅ぼしましたから。\w5\n怖がられるのも当然なのですよ・・・\w8\0\s[4]私、そんなことしないのに・・・\e' '/ \0\s[0]ガブリエル様は元々、\w5\n「黄泉の国の守護者」だったんだよね。\w8\1\s[10]ええ。今はその役目を、\nミカエル様が担っていらっしゃいます。\e' '/ \0\s[0]ヤコブは、ウリエル様と力比べをして\w5\nいい所までいった、ただ一人の人間だよね。\n\n\w8\1\s[10]彼は祝福を受け、イスラエル(神と格闘するもの)\w5\nと名乗るように言われたそうです。\n\n\w8\0\s[36]へえ、すっごい入れ込み様だねー\w3・\w3・\w3・\w5\n\s[1]あ、\w5わかった! \w8\s[5]拳と拳で語り合った二人に、\w5\nイケナイ愛情が生まれたんだよきっと!\w8\1\s[12]どこからそんな発想が・・・\e' '/ \0\s[0]思うんだけどさ、\w5\s[31]私たち天使って、\w3真\w3面\w3目\w3!\n\n\w8\1\s[10]・・・意味がわかりません。\n\n\w8\0\s[5]だって、他の神話みたいに浮いた話ないじゃない。\w5\n\s[1]不倫したり、女の人はべらしたり。\w8\1\s[18]とんでもない。\w5\nそれを行った者は、堕天使になったのですよ。\e:chain=FallenAngels' '/ \0\s[0]あのさ。\w5天使って普通、両性具有だよね。\n\n\w8\1\s[10]そうですが、それがなにか?\n\n\w8\0\s[5]私、昔からおち○ちん\1\s[18]\0付いてないんだけど、\nどうして?\w8\1はしたないからその話題は止めなさい!\e' '/ \0\s[0]天使と人間は子を成せるのかな?\n\n\w8\1\s[10]人間の女性に子を産ませた堕天使はいます。\w5\n奴らは本来、我々と同じ種族ですから、不可能では\w5\nないのでしょう。\e' //ギリシア神話ネタ '/ \0\s[4]何にでも姿変えて女の子に手を出すゼウスって、\w5\nどうしようもないスケベ。\w8\1\s[10]おかげでギリシア神話は半神だらけです。\e' '/ \0\s[4]ギリシア神話のアフロディテは、天の神ウラノスから\w5\n切り取られたおち○ちんが、海に投げ込まれた時の\w5\n泡からから生まれたんだよね。\w5\n\n\s[30]いやだよー。グロいよー。\w8\1\s[12]泡はギリシア語でアフロスといいます。\w5\n\s[11]名前の由来がわかって良かったじゃないですか。\e' //北欧神話ネタ '/ \0\s[6]北欧神話で魔法を使えるのは女性がほとんど。\w5\n\s[0]なぜなら男が学ぶと、同性愛者の女性役に等しい\w5\nことをやらないといけないから。\w8\w8\n\n\s[36]で、神の長オーディンは男性で魔法使い\w3・\w3・\w3・\w5\n\s[1]倒錯してるねー。\w8\1\s[12]だから、そういう見方はやめなさい。\e' '/ \0\s[33]北欧神話のフレイとフレイヤは、オーディン達とは\w5\n別のヴァン神族から、人質としてやってきた。\w5\n\n\s[0]彼らの出身部族は、血族婚が当たり前だったから、\w5\n\s[1]兄妹でエッチしてたみたいだよ。\w8\1\s[11]嬉しそうに話すことですか。まったく。\e' '/ \0\s[0]北欧神話のオーディンの乗り物は、スレイプニルと\w5\n呼ばれる翼を持った馬。\w5\nこれはロキが雌馬に化けたときに、逞しい雄馬と\w5\n交わった結果生まれた生物なんだって。\w5\n\n\s[5]北欧神話の神様って、馬並みなのがいいのかな。\w8\1\s[12]・・・さあ。\e' '/ \0\s[36]北欧神話のフレイヤは、小人が作った首飾が欲しくて\w5\n彼らと床を共にしたんだって。\w5\n\s[1]さすがは性愛の神様だよねー。\w8\1\s[10]娼婦は最も古い職業の一つですからね。\e' '/ \0\s[6]北欧神話では、戦場で倒れた戦死者の半分は、\w5\n女神フレイヤのものになるんだって。\w5\n\s[5]いい男ばっかり集めて、はべらせるのかな?\n\n\w8\1\s[12]違いますって。\n\n\w8\0\s[36]それでね、残り半分は、主神オーディンのものに\w5\nなるそうだけど・・・\n\w5\s[31]あ、わかった。\w5\n\s[1]こっちは薔薇の園になるんだ、きっと。耽美だねー。\w8\1\s[12]あのですね・・・\w5\nお二方とも、優秀な戦士を集めてるだけですよ。\e' //日本神話ネタ '/ \0\s[0]日本神話で国造りをしたイサナギ、イザナミ。\w5\n\n彼らの名前は「誘う(いざなう)」という言葉から\nきているんだよ。\w5\n\s[1]だって「エッチしよう」と誘い合ってたもん。\w8\1\s[12]・・・確かに事実ですが、\w5\nもう少し言い方はありませんか。\e' //ひよりについて '/ \1\s[10]%selfnameの羽は、リボンみたいですね。\w5\n綺麗でうらやましいです。\n\n\w8\0\s[5]うん、ありがとう。\n\n\w8\1\s[10]飛ぶことは出来ますか?\w8\0\s[9]・・・あんまり得意じゃない。\e' '/ \0\s[6]くー・・・\n\w8くー・・・\w8\nくぅー\w3・\w3・\w3・\w3・\w3・\w3・\n\n\w8\w8\1\s[10]おやおや、居眠りですか。よく寝る子です。\n\n\w8\w8\0\c\s[4]うー、\w8ううっ、\w8苦しいよう\w3・\w3・\w3・\w8\n%keroname、助けてようー!\n\n\1\s[18]????\n\n\0\w8\s[2]うわ、びっくりした!!\n\w8\s[7]お\w3お\w3き\w3い\w3声\w3でぇ、\w6寝\w3言\w3を\w3言\w3う\w3なっ!\w8\w8\s[6]\w8\n\nすー\w3・\w3・\w3・\w8\1\s[12]本当に寝てるんですか?\e' //ふくちーについて '/ \0\s[5]%keronameは、なんでいつも浮いてるの?\w8\1\s[15]そのほうが楽ですから。\e' '/ \0\s[4]熱血顔の%keronameには、\1\s[17]\0近づかないほうが・・・\n\n\1\s[17]何故ですか? 失礼な。\n\n\w8\0\s[30]だって、怖いんだもん・・\e' } //---- トークチェイン --------------------------------------------------------- Miracle {{CHAIN "\1\s[12]奇跡といっても色々ありますがー、\w5\n%selfnameは何ができましたっけ?\n\n\w8\0\s[21]え!???\w8\w8\w8\n\n\s[9]えっと\w3・\w3・\w3・、\s[1]内緒。\n\n\w8\1\s[12]はあ?\w8\0\s[6]なーいしょ。\e" }}CHAIN FallenAngels {{CHAIN "\0\s[21]げ、そうだったんだ!\w5\n\s[30]嫌だなあ。地獄の炎で焼かれたくないよー。\w8\1\s[15]%selfnameは耳年増のレベルですから、大丈夫です。\n(いまのところは、ね・・・)\e" }}CHAIN Funny_punch_line {{CHAIN "\0\s[37]あのぉ、\w5%username。\w8\n\n「愛」ってぇ、\w5なにかなぁ。\1\s[12]\0\w5\n%selfname、\w5よくぅ、\w5分からないからぁ、\w5教えてぇ。\n\n\w8\1\s[12]・\w5・\w5・\w5今度はなんですか?\n\n\w8\0・・・\s[31]はいっ!\w5\nさっきの私に少しでもクラっときた人は\w5\n\s[34]病院いったほうがいいよーっ!\w8\1\s[11]・・・追い返されますよ。\e" }}CHAIN //**** 時報/重なり ********************************************************************** //---- OnMinuteChangeイベント ----------------------------------------------------------- OnMinuteChange { //---- 時間の分を見て 0 であれば時報。それ以外のときは重なり処理を行う if minute == 0 { //---- 分 = 0 だったので時報 "\0\s[0]%hour時です。" -- //---- 特定の時間(正午など)ではさらに追加で話す if hour == 2 { "\n\n\s[4]一番調子が悪くなる時間だー。\w8\w8\1\s[18]そうですね。" } if hour == 12 { "\n\n\s[5]お昼ご飯、食べませんか?" } elseif hour == 15 { "\n\n\s[5]おやつの時間ね。\w5ひと休みしませんか?" } -- "\e" } elseif mikireflag == 1 { //---- 分 != 0 、かつ見切れていたら見切れ中のトークを行う MikireTalk } elseif reference2 == 1 { //---- 分 != 0 、かつ見切れておらず本体とkeroが重なっていたら重なり処理 //---- 大抵はkero側を引き離す処理を行う "\0\s[32]重ならないで!\1\s[10]はいはい。\4\e" } } //**** 見切れ *************************************************************************** //---- OnSecondChangeイベント ----------------------------------------------------------- OnSecondChange { //---- 1 秒毎に実行される。ここではあまり重い処理を行わないこと //---- このテンプレートでは、見切れ処理のみ行っている if Timermode == 1 { OnTimercount } elseif mikireflag == 1 && reference1 == 0 { //---- 見切れの終了 EndMikireTalk } mikireflag = reference1 } //---- 見切れ中 ------------------------------------------------------------------------- MikireTalk { "\0\s[3]嫌われているのかな・・・\e" } //---- 見切れ終了 ----------------------------------------------------------------------- EndMikireTalk { "\0\s[5]よかった。\1\s[10]ええ。\e:chain=mikirego" } //---- 見切れ後の初回のランダムトークは見切れ関連のトークを行う。これをチェインで実現している ---- mikirego {{CHAIN "\0\s[9]マウスであっちこっち移動させられるの、\n変な気分だね。\w8\1\s[10]それも仕事です。\e" }}CHAIN //**** サーフィス復元 ******************************************************************* //---- OnSurfaceRestoreイベント --------------------------------------------------------- OnSurfaceRestore { "\0\s[0]\1\s[10]\e" }