################
#
# "FliteFile.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"

# 読み上げテキストファイルパス
s_text_path =\
  "\FliteFile.txt"

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

Debug = 0

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

# テキストファイルのパスに
# 空白が含まれていたらエラー
If(Find(s_text_path, " ") > 0)
  Message(\
   "テキストへのパスに" &\
   "空白が含まれています^NL^" &\
   "空白の含まれないパスを指定してください",\
   "ERROR")
  Exit
EndIf

# テキストファイル存在確認
If(NOT fileExists(s_text_path))
  Message(\
   "指定パスにテキストがありません" &\
   "終了します",\
   "ERROR")
  Exit
EndIf

If (Debug)
  Message(ReadFile(s_text_path))
EndIf

s_buf =\
  ReadFile(s_text_path) & "^NL^"

If (Debug)
  Message(s_buf)
EndIf

Run(s_flite_path, "-t """ & s_buf & """")

# これだと改行の無いテキストを読まない
#Run(s_flite_path, s_text_path)