「昼、どうする？」

「昼の食事をどうするか？」なかなか決められない方や、「ナンで毎日昼飯喰わなきゃならんのか？」とお悩みの方、そんな貴方のために「ランチタイム支援スクリプト」を作りました。

■lunchpack script

このスクリプトを使えば、このように瞬時に昼のメニューを決めてくれます。
しかしながら、いつもいつも教えてくれるわけではありません。
時にはこのように、

貴方に厳しく決断を迫る時もあります。

【MortScriptって、なんだべ？という方へ】
このスクリプトを動作させるには、Mort Scriptが必要です。
上記のリンクからダウンロードしたファイルを解凍すると、「setup」というディレクトリが出来ます。
Windows Mobileで使うには、その中の「MortScript-4.1-PPC.exe」というファイルを、PC上で実行してください。
次回、ActiveSync時にデバイスにインストールされます。
MortScriptについては、こちらのサイトで詳しく解説されています。
興味のある方はご参照下さい。
MortScriptをインストールした後に、こちらのファイルをダウンロードしてください
解凍して出来た「lunch.mscr」というファイルをデバイス上の任意の場所にコピーしてください。
ファイルエクスプローラなどでタップすれば実行されます。
同梱の「lunch.txt」はメニューのテンプレートです。
デバイスにコピーしなくても「lunch.mscr」を実行すれば自動的に作成されます。
もし、コピーされる場合は「lunch.mscr」と同じディレクトリにコピーしてください。
わざわざ、ダウンロードしてインストールしたのに「あまりにくだらん！」などとお怒りになる場合があるかもしれませんが、そこのところはよろしくお願いいたします。
以下、スクリプトを掲載しておきます。

######################################
#
#	何する？？
#	Lunch.mscr
#
######################################

path = SystemPath("ScriptPath") & "\"

exist = FileExists(path & "lunch.txt")

If (exist = False)
	Call NewItem
Else
	menu=ReadFile("lunch.txt")
EndIf

n = 1
ForEach var in Split(menu,"^LF^",0)
	array[n] = var
	n = n+1
EndForEach

GetTime(nul,nul,x)
Call Rand
y = x mod (n-1)

If (y = 0)
	Call NewItem
Else
	Message(array[y] & "にすべし！","何する？？")
EndIf


Sub Rand
	x=(x*109+1021) mod 32678
EndSub

Sub NewItem
	additem = Input("自分で決めるべし！","新規開拓！")
	If (additem ne "")
		WriteFile("lunch.txt",additem & "^LF^",True)
	EndIf
EndSub

■追記
スクリプトのダウンロードが上手く行かないかもしれません。
その場合は、しばらく時間をおいてから再度ダウンロードしてみてください。
どうもすみません。