役に立とうが立つまいが

MortScriptは気軽に書いて試せるので、思い立ったらすぐ書いてみる。
日記に書いていないものも相当あるんだが、なんせ人様の役には立たない（笑）
SendKeysという文字列を送るコマンドがあるんだけど、文字の表示のされ方がなんとも長閑でもっともらしいので占いスクリプトを書いてみた。
お分かりとは思うが、占いといっても全くいい加減なものなものなので、深刻に考えないで頂きたい。

■壷占い

アホ臭いと言われれば、なるほど、アホ臭いんだが、アホ臭い故に罪が無い。
私としては凄く気に入ってるので、是非、やってみて下さい（笑）
たまに本気で怒る方がいらっしゃるが、どうぞ、ご勘弁を。

#
#	壷占い - 壷の人
#	MortScript
#

sei = Input("貴方の姓を教えてください","壷占い")
mei = Input("貴方の名を教えてください","壷占い")
seimei = sei & mei
#英語版(含む日本語化)
#New("Note")

#日本語版の場合
New("メモ")

#英語版の場合(含む日本語化)
#WaitForActive("Notes",10)

#日本語版
WaitForActive("メモ",10)


mes=seimei & "の運勢"
Call SendMes

mes=FormatTime("Y年m月d日",TimeStamp())

Call SendMes
SendCR

GetTime(nul,nul,x)
i=0
Repeat(4)
	Call Rand
	y=x mod 5
	Call Fate
	Call SendMes
	i=i+1
EndRepeat

Sub SendMes
	Sleep(1000)
	SendKeys(mes)
	SendCR
EndSub

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

Sub Fate
	Switch(i)
	Case(0)
		mes = "全体運"
	Case(1)
		mes = "ラブ運"
	Case(2)
		mes = "金運"
	Case(3)
		mes = "仕事運"
	EndSwitch
	
	mes = mes & "^TAB^"
	
	Repeat(y+1)
		mes = mes & "☆"
	EndRepeat
EndSub