与謝野晶子をTrayTipで表示する。
「与謝野晶子TrayTipを実行」のスクリプト。
だいたいできた。
簡単だけれど面白いものができた。
;ランダムに与謝野晶子の歌を表示(TrayTip) Random,rand,1,34 ;「与謝野晶子 乱れ髪」 if (rand=1) text="夜の帳(ちやう)にささめき尽きし星の今を下界(げかい)の人の鬢のほつれよ 与謝野晶子" if (rand=2) text=歌にきけな誰れ野の花に紅き否(いな)むおもむきあるかな春罪(はるつみ)もつ子 与謝野晶子 if (rand=3) text=髪(かみ)五尺ときなば水にやはらかき少女(をとめ)ごころは秘めて放たじ 与謝野晶子 if (rand=4) text=血ぞもゆるかさむひと夜の夢のやど春を行く人神おとしめな 与謝野晶子 if (rand=5) text=椿それも梅もさなりき白かりきわが罪問はぬ色桃(いろもゝ)に見る 与謝野晶子 if (rand=6) text=その子二十(はたち)櫛にながるる黒髪のおごりの春のうつくしきかな 与謝野晶子 if (rand=7) text=堂の鐘のひくきゆふべを前髪の桃のつぼみに経(きやう)たまへ君 与謝野晶子 if (rand=8) text=紫にもみうらにほふみだれ篋(ばこ)をかくしわづらふ宵の春の神 与謝野晶子 if (rand=9) text=臙脂色(ゑんじいろ)は誰にかたらむ血のゆらぎ春のおもひのさかりの命(いのち) 与謝野晶子 if (rand=10) text=紫の濃き虹説きしさかづきに映(うつ)る春の子眉毛(まゆげ)かぼそき 与謝野晶子 if (rand=11) text=紺青(こんじやう)を絹にわが泣く春の暮やまぶきがさね友(とも)歌ねびぬ 与謝野晶子 if (rand=12) text=まゐる酒に灯(ひ)あかき宵を歌たまへ女(をんな)はらから牡丹に名なき 与謝野晶子 if (rand=13) text=海棠にえうなくときし紅(べに)すてて夕雨(ゆふさめ)みやる瞳(ひとみ)よたゆき 与謝野晶子 if (rand=14) text=水にねし嵯峨の大堰(おほゐ)のひと夜神(よがみ)絽蚊帳(ろがや)の裾の歌ひめたまへ 与謝野晶子 if (rand=15) text=春の国恋の御国のあさぼらけしるきは髪か梅花(ばいくわ)のあぶら 与謝野晶子 if (rand=16) text=今はゆかむさらばと云ひし夜の神の御裾(みすそ)さはりてわが髪ぬれぬ 与謝野晶子 if (rand=17) text=細きわがうなじにあまる御手(みて)のべてささへたまへな帰る夜の神 与謝野晶子 if (rand=18) text=清水(きよみづ)へ祇園(ぎをん)をよぎる桜月夜(さくらづきよ)こよひ逢ふ人みなうつくしき 与謝野晶子 if (rand=19) text=秋の神の御衣(みけし)より曳く白き虹ものおもふ子の額に消えぬ 与謝野晶子 if (rand=20) text=経(きやう)はにがし春のゆふべを奥の院の二十五菩薩歌うけたまへ 与謝野晶子 if (rand=21) text=やは肌のあつき血汐にふれも見でさびしからずや道を説く君 与謝野晶子 if (rand=22) text=狂ひの子われに焔(ほのほ)の翅(はね)かろき百三十里あわただしの旅 与謝野晶子 if (rand=23) text=乳ぶさおさへ神秘(しんぴ)のとばりそとけりぬここなる花の紅(くれなゐ)ぞ濃き 与謝野晶子 if (rand=24) text=なにとなく君に待たるるここちして出でし花野の夕月夜かな 与謝野晶子 if (rand=25) text=むねの清水あふれてつひに濁りけり君も罪の子我も罪の子 与謝野晶子 if (rand=26) text=下京(しもぎやう)や紅屋(べにや)が門(かど)をくぐりたる男かわゆし春の夜の月 与謝野晶子 if (rand=27) text=くろ髪の千すぢの髪のみだれ髪かつおもひみだれおもひみだるる 与謝野晶子 if (rand=28) text=いとせめてもゆるがままにもえしめよ斯くぞ覚ゆる暮れて行く春 与謝野晶子 if (rand=29) text=春みじかし何に不滅の命ぞとちからある乳を手にさぐらせぬ 与謝野晶子 if (rand=30) text=道を云はず後を思はず名を問はずここに恋ひ恋ふ君と我と見る 与謝野晶子 if (rand=31) text=あれが ああして ああなって これが こうして こうなれば それで なんとか なるだろか ぷいっと すねても はじまらぬ if (rand=32) text=それが そうとは しってても どれも どうにも ままならぬ あれも これもと よくばらず ほいっと やるしか ないわいさ if (rand=33) text=はてな いやいや でもねぇ…と たくさん なやんだ わけだけど そんな じぶんも わるくない すこし オトナに なったみたい うふっ if (rand=34) text=雲に鳥人間海にあそぶ日ぞ 小林一茶 TrayTip,Title,%text%,15 sleep,10000
あとは、有名な人の有名な言葉を加えていって面白くしていきたい。
ループ部はなんとなく、別のファイルにした。
下記。
10分から40分の間隔で上記「与謝野晶子TrayTip」を実行。
loop,10 { Run,C:\Program Files\AutoHotkey\Traytip.ahk Random,rand,10,40 scnd:=rand*60000 ;msgbox,%scnd% sleep,scnd }