################
#
# "FliteWatch.mscr" for MortScript
# Ver.2007.02.29
#
# by moyashi (komugi)
# http://moyashi.air-nifty.com/
#
# 英文音声合成ソフトウェアfliteで
# 時刻読み上げするスクリプト
#
# 動作環境: 
#    Pocket PC / Windows Mobile
#    MortScript 4.0 R9以降
#
################

# Configure ########

# fliteのインストールパス
s_flite_path =\
  "\SD Card\FLITE\FLITE.EXE"

################

Debug = 0

# flite存在確認
If(NOT fileExists(s_flite_path))
  Message(\
   "指定パスにfliteがありません" &\
   "終了します",\
   "ERROR")
  Exit
EndIf

If (Debug)
  Message(FormatTime("h:i A"))
EndIf

s_pre = FormatTime("h:i")
s_post = FormatTime("A")

If (s_post eq "AM")
  s_post = " A M"
Else
  s_post = " P M"
EndIf

Run(s_flite_path,\
  "-t """ & s_pre & s_post & """")