SofTalk実行

SofTalk実行

コンセプト	「SofTalk」でRGSS2から文章を読み上げる。
挿入位置	▼ 素材直下。もしくは文章系素材の下。
完成すると	「ゆっくり」が文章を全部読み上げてくれる。
更新履歴	4/23：文章読み実行周り修正。 ========== 2014年 ============================================================ 12/31：ファイルパスの初期設定を微修正。

　　http://www35.atwiki.jp/softalk/pages/1.html

　　で最新盤の「SofTalk」をDLしてプロジェクトフォルダに
　　解凍されたフォルダ「softalk」をコピーして下さい。
　　SofTalk側の規約によりアプリに同梱しての配布は不可となっています。

　　★　概要　★

　・RGSS内で文字列を「Softalk」で自動的に読ませるモジュールです。
　・声色・読み上げ速度・音量・録音が可能です。
　・ゲームスイッチで読み上げをON・OFFできます。
　・録音先はプロジェクトフォルダとなります。
　・声色など付属Softalkを参照して下さい。
　・8進数の文字「\005」とかが入るとうまく喋りません。
　　導入しているメッセージスクリプトを改造するなどして使用して下さい。
　・RGSSはutf-8でそれをShift-jisにNKFで変換して処理しています。

　　★　導入位置　★
　　ストレイキャット様「メッセージウィンドウEXT++」より下に導入。
　　もしくは素材上部に入れて下さい。

　　　★　使用例　★

　　　　Softalk::read_text("サンプルです",5,100,30,true)
　　・声色「5」読み上げ速度「100」音量「30」録音「実行」で動作。

　　Softalk::read_text("サンプルです")
　　・声色「0」読み上げ速度「100」音量「60」録音「しない」で動作。

　　★　特殊文字　★
　　・文章を表示しているときに読み上げる場合の設定を特殊文字で設定出来ます。
　　・\vo[0～8]　　：　　声色を設定
　　・\sp[1～300]　：　　速度を設定
　　・\vl[0～60]　：　音量を設定
　　・\rc　　　　　：　　文章を録音する。

　　★　顔グラ別での設定　★
　　・「ACTOR_VOICE」アクター顔グラ表示時の音声設定において
　　　アクターの顔グラファイルと一致した場合において
　　　読み上げる声をあらかじめ設定出来ます。
　　・「顔グラファイルの中身が表情構成か？」という設定項目において
　　　「actor1-1」の顔グラファイルがラルフの表情のみで構成されている
　　　など場合には項目を「true」とすることで、文章の表示で顔グラを
　　　設定する場合に、別表情の同一顔グラファイルを指定したときには
　　　設定の声色などを反映させて読み上げます。
　　・純正の顔グラファイルのように一つのファイルに多人数の顔グラが
　　　ある場合には上記の設定を「false」とすれば指定の顔グラファイルで
　　　なおかつ、インデックスも一致した場合に設定音声で読み上げます。

#==============================================================================
#    ?VX RGSS2 「SofTalk実行」?
#　　　　　　EnDlEss DREamER
#     URL:http://mitsu-evo.6.ql.bz/
#     製作者 mitsu-evo
#     Last:2014/4/23
#　　 テキスト読み上げ「SofTalk」を文章表示の時に自動実行します。
#     ▼ 「▼ 素材」に近い位置に挿入。
#==============================================================================
$ed_rgss2 = {} if $ed_rgss2 == nil
$ed_rgss2["ed_softalk_exec"] = true
=begin

4/23：文章読み実行周り修正。

http://www35.atwiki.jp/softalk/pages/1.html

で最新盤の「SofTalk」をDLしてプロジェクトフォルダに
　　解凍されたフォルダ「softalk」をコピーして下さい。
　　SofTalk側の規約によりアプリに同梱しての配布は不可となっています。

★　概要　★

・RGSS内で文字列を「Softalk」で自動的に読ませるモジュールです。
　・声色・読み上げ速度・音量・録音が可能です。
　・ゲームスイッチで読み上げをON・OFFできます。
　・録音先はプロジェクトフォルダとなります。
　・声色など付属Softalkを参照して下さい。
　・8進数の文字「\005」とかが入るとうまく喋りません。
　　導入しているメッセージスクリプトを改造するなどして使用して下さい。
　・RGSSはutf-8でそれをShift-jisにNKFで変換して処理しています。

★　導入位置　★
　　ストレイキャット様「メッセージウィンドウEXT++」より下に導入。
　　もしくは素材上部に入れて下さい。
　
　　★　使用例　★
　　
　　Softalk::read_text("サンプルです",5,100,30,true)
　　・声色「5」読み上げ速度「100」音量「30」録音「実行」で動作。

Softalk::read_text("サンプルです")
　　・声色「0」読み上げ速度「100」音量「60」録音「しない」で動作。

★　特殊文字　★
　　・文章を表示しているときに読み上げる場合の設定を特殊文字で設定出来ます。
　　・\vo[0～8]　　：　　声色を設定
　　・\sp[1～300]　：　　速度を設定
　　・\vl[0～60]　 ：　  音量を設定
　　・\rc　　　　　：　　文章を録音する。

★　顔グラ別での設定　★
　　・「ACTOR_VOICE」アクター顔グラ表示時の音声設定において
　　　アクターの顔グラファイルと一致した場合において
　　　読み上げる声をあらかじめ設定出来ます。
　　・「顔グラファイルの中身が表情構成か？」という設定項目において
　　　「actor1-1」の顔グラファイルがラルフの表情のみで構成されている
　　　など場合には項目を「true」とすることで、文章の表示で顔グラを
　　　設定する場合に、別表情の同一顔グラファイルを指定したときには
　　　設定の声色などを反映させて読み上げます。
　　・純正の顔グラファイルのように一つのファイルに多人数の顔グラが
　　　ある場合には上記の設定を「false」とすれば指定の顔グラファイルで
　　　なおかつ、インデックスも一致した場合に設定音声で読み上げます。

=end
module Softalk
  
# SofTalkの実行ファイルパス
#PASS = Dir.pwd.to_s + "/softalk/softalkw.exe" 
PASS = "softalk/softalk.exe"

# 読み上げ制御スイッチ番号(指定スイッチ番号ONで読み上げる)
SOFTALK_ID = 41

# アクター顔グラ表示時の音声設定。
ACTOR_VOICE = {
  # ID => [声色,速度,音量,顔グラファイルの中身が表情構成か？]
   1 => [3,100,60,true],
   2 => [5,150,60,true],
   3 => [1,100,60,false],
   4 => [7,120,60,false],
   5 => [1,100,60,false],
   6 => [6,100,60,false],
   7 => [7,120,60,true],
   8 => [8,100,60,true],
   9 => [0,100,60,true],
   10 => [7,100,60,true],
   11 => [5,100,60,true],
   12 => [6,100,60,true],
   13 => [0,100,60,true],
   12 => [1,100,60,true],
   16 => [7,100,60,true],
   21 => [6,80,60,true]
   }
  
  
  
  module_function
  #--------------------------------------------------------------------------
  # ● Softalkで実際に文章を読み込ませる。
  #    text    : 読み上げる文章
  #    voice   : 声色(0～8)
  #    speed   : 速度(1～300)
  #    volume  : 音量(0～60)
  #    rec     : 録音(trueでプロジェクトフォルダに録音)
  #--------------------------------------------------------------------------
  def read_text(text,voice=0,speed=100,volume=60,rec=false)
    return nil if text == nil or text.empty?
    return nil unless $game_switches[SOFTALK_ID]# スイッチOFFなら読まない
    return nil unless FileTest.directory?("softalk")
    return nil unless FileTest.exist?(PASS)

# 引数がnilだったときの処理
    voice = 0 if voice == nil
    speed = 100 if speed == nil
    volume = 60 if volume == nil
    rec = false if rec == nil
    
    fm = "/X:1"
    rd = "/W:"
    vo = "/T:" + voice.to_s
    sp = "/S:" + speed.to_s
    vl = "/V:" + volume.to_s
    rc = "/R:" + Dir.pwd.to_s
    cl = "/close"
    
    str = NKF::nkf("-s",text) # NKFライブラリでutf8をShift-jisへ
    #オプション引数もShift-jisへ。「/W:」以降は文章として実行される。
    option =  NKF::nkf("-s",fm + vo + sp + vl + rc + cl +rd)
    
    begin
      # 実際にsoftalkで読ませる。
      return system(PASS, option, str)
      
    rescue
      p "「SofTalk」がプロジェクトフォルダにありません。"
    end
    return false
  end
end

#==============================================================================
# ■ Window_Message
#------------------------------------------------------------------------------
# 　文章表示に使うメッセージウィンドウです。
#==============================================================================

class Window_Message < Window_Selectable
  
  #--------------------------------------------------------------------------
  # ● 文章送りの入力処理
  #--------------------------------------------------------------------------
  alias ed_softalk_exec_input_pause input_pause
  def input_pause
    ed_softalk_exec_input_pause
    if Input.trigger?(Input::B) or Input.trigger?(Input::C)
      pause_voice
    elsif not @st_exec
      @st_exec = Softalk::read_text(voice_massage,@st_vo,@st_sp,@st_vl,@st_rc)
    end
  end
  #--------------------------------------------------------------------------
  # ● ポーズ解除時の読み出し初期化処理
  #--------------------------------------------------------------------------
  def pause_voice
    @st_exec = false
    @st_text = ""
  end
  #--------------------------------------------------------------------------
  # ● メッセージの更新
  #--------------------------------------------------------------------------
  def update_message
    if @name_text
      # ストレイキャット様文章スクリプトの名前欄文字変数がnilでないならこっち
      update_message_str22
    else
      # 純正を改変した処理
      update_massage_default
    end
  end
  #--------------------------------------------------------------------------
  # ● メッセージの更新(純正再定義)
  #--------------------------------------------------------------------------
  def update_massage_default
    loop do
      c = @text.slice!(/./m)            # 次の文字を取得
      case c
      when nil                          # 描画すべき文字がない
        finish_message                  # 更新終了
        break
      when "\x00"                       # 改行
        new_line
        if @line_count >= MAX_LINE      # 行数が最大のとき
          unless @text.empty?           # さらに続きがあるなら
            self.pause = true           # 入力待ちを入れる
            break
          end
        end
      when "\x01"                       # \C[n]  (文字色変更)
        @text.sub!(/\[([0-9]+)\]/, "")
        contents.font.color = text_color($1.to_i)
        next
      when "\x02"                       # \G  (所持金表示)
        @gold_window.refresh
        @gold_window.open
      when "\x03"                       # \.  (ウェイト 1/4 秒)
        @wait_count = 15
        break
      when "\x04"                       # \|  (ウェイト 1 秒)
        @wait_count = 60
        break
      when "\x05"                       # \!  (入力待ち)
        self.pause = true
        break
      when "\x06"                       # \>  (瞬間表示 ON)
        @line_show_fast = true
      when "\x07"                       # \<  (瞬間表示 OFF)
        @line_show_fast = false
      when "\x08"                       # \^  (入力待ちなし)
        @pause_skip = true
      else                              # 普通の文字
        @st_text += c
        contents.draw_text(@contents_x, @contents_y, 40, WLH, c)
        c_width = contents.text_size(c).width
        @contents_x += c_width
      end
      break unless @show_fast or @line_show_fast
    end
  end
  #--------------------------------------------------------------------------
  # ● メッセージの更新(ストレイキャット様の再定義)
  #--------------------------------------------------------------------------
  def update_message_str22
    loop do
      @wait_count = @text_speed if @wait_count <= 0
      c = @text.slice!(/./m)            # 次の文字を取得
      case c
      when nil                          # 描画すべき文字がない
        finish_message                  # 更新終了
        break
      when "\x00"                       # 改行
        new_line
        if @line_count >= $game_message.maxlineex # 行数が最大のとき
          unless @text.empty?           # さらに続きがあるなら
            self.pause = true           # 入力待ちを入れる
            break
          end
        end
        next
      when "\x06" ;@line_show_fast = true;next    # \>  (瞬間表示 ON)
      when "\x07" ;@line_show_fast = false;next   # \<  (瞬間表示 OFF)
      when "\x08" ;@pause_skip = true             # \^  (入力待ちなし)
      when "\x88" ;next                           # \P[-1]
      when "\x91" ;next                           # \PP[-1]
      when "\x92" ;next                           # \PP[-2]
      when "\x13" ;next                           # \FR  
      when "\x14" ;next                           # \FM
      when "\x18" ;next                           # \STOP
      when "\x01"                       # \C[n]  (文字色変更)
        @text.sub!(/\[([0-9]+)\]/, "")
        contents.font.color = text_color($1.to_i)
        next
      when "\x02"                       # \G  (所持金表示)
        @gold_window.refresh
        @gold_window.open
        next
      when "\x03"                       # \.  (ウェイト 1/4 秒)
        @wait_count = 15
        break
      when "\x04"                       # \|  (ウェイト 1 秒)
        @wait_count = 60
        break
      when "\x05"                       # \!  (入力待ち)
        @contents_psx = @contents_x
        @contents_psy = @contents_y + @maxtextsize
        self.x = self.x
        self.y = self.y
        self.pause = true
        break
      when "\x81"                       # \E
        @e_text ^= true
        next
      when "\x82"                       # \FS[n]
        @text.sub!(/\[([0-9]+)\]/, "")
        @font_size = $1.to_i
        next
      when "\xa0"                       # \FS[d]
        @font_size = DEFAULT_SIZE
        next
      when "\x83"                       # \B
        @bold_off = true if @font_bold
        @font_bold ^= true
        next
      when "\x84"                       # \I
        @italic_off = true if @font_italic
        @font_italic ^= true
        next
      when "\x85"                       # \F[n]
        @text.sub!(/\[([0-9]+)\]/, "")
        @font_index = $1.to_i
        next
      when "\x86"                       # \HC[n]
        @text.sub!(/\[([0-9]+)\]/, "")
        @e_color = $1.to_i
        next
      when "\x87"                       # \P[n]
        @text.sub!(/\[([0-9]+)\]/, "")
        next
      when "\x90"                       # \PP[n]
        @text.sub!(/\[([0-9]+)\]/, "")
        next
      when "\x89"                       # \NA[s]
        @text.sub!(/\[([^\[\]]*)\]\]/, "")
        next
      when "\x93"                       # \S[n]
        @text.sub!(/\[([0-9]+)\]/, "")
        @text_speed = $1.to_i
        next
      when "\x94"                       # \W[n]
        @text.sub!(/\[([0-9]+)\]/, "")
        @wait_count = $1.to_i
        break
      when "\x95"                       # \UND
        @tx_und ^= true
        @und_on = true if @tx_und
        next
      when "\x96"                       # \STR
        @tx_str ^= true
        @str_on = true if @tx_str
        next
      when "\x97"                       # \SPIX[n]
        @text.sub!(/\[([0-9]+)\]/, "")
        @contents_x += $1.to_i
        next
      when "\xa4"                       # \SH[p,s,d]
        @text.sub!(/\[(\d+),(\d+),(\d+)\]/, "")
        start_shake($1.to_i, $2.to_i, $3.to_i)
        next
      when "\xa5"                       # \SW
        @text.sub!(/\[([0-9]+)\]/, "")
        $game_switches[$1.to_i] = true
        $game_map.need_refresh = true
        next
      when "\xa6"                       # \SW
        @text.sub!(/\[([0-9]+)\]/, "")
        $game_switches[$1.to_i] = false
        $game_map.need_refresh = true
        next
      when "\xa7"                       # \SW
        @text.sub!(/\[([0-9]+)\]/, "")
        $game_switches[$1.to_i] ^= true
        $game_map.need_refresh = true
        next
      when "\xa8"                       # \VA
        @text.sub!(/\[([0-9]+),([0-9]+)\]/, "")
        $game_variables[$1.to_i] = $2.to_i
        $game_map.need_refresh = true
        next
      when "\xa9"                       # \VA
        @text.sub!(/\[([0-9]+),([0-9]+)\]/, "")
        $game_variables[$1.to_i] = -($2.to_i)
        $game_map.need_refresh = true
        next
      when "\x10"                       # \IC[n]
        @text.sub!(/\[([0-9]+)\]/, "")
        wlh = @contents_y_line[1][@line_count+1] / 2
        y = @contents_y + @rb_h[@line_count] + wlh - (STR22009 / 2)
        draw_icon($1.to_i, @contents_x, y)
        @contents_x += STR22009
        typese_update
      when "\x11"                       # \A[n,m]
        @text.sub!(/\[([0-9]+)\,([0-9]+)\]/, "")
        case $1.to_i
        when 9999 ; event = $game_player
        when 0    ; event = $game_map.events[$game_message.event_id]
        else      ; event = $game_map.events[$1.to_i]
        end
        event.animation_id = $2.to_i
        next
      when "\xb0"                       # \U[n,m]
        @text.sub!(/\[([0-9]+)\,([0-9]+)\]/, "")
        case $1.to_i
        when 9999 ; event = $game_player
        when 0    ; event = $game_map.events[$game_message.event_id]
        else      ; event = $game_map.events[$1.to_i]
        end
        event.balloon_id = $2.to_i
        next
      when "\x12"                       # \AL[n]
        @text.sub!(/\[([0-9]+)\]/, "")
        next
      when "\xa1"                       # \FC[n,m]
        @text.sub!(/\[([^\"\[\]\s]+)\]\[([0-9]+)\]/, "")
        unless $game_message.face_name.empty?
          @face_sprite.set_face($1, $2.to_i, FACE_SIZE[0], FACE_SIZE[1])
        end
        next
      when "\xa2"                       # \FCM
        @face_sprite.mirror ^= true
        next
      when "\x98"                       # \R
        @r_mode = true
        @rbx = @contents_x
        @rbw = 0
        next
      when "\x99"                       # \R
        @r_mode = false
        @text.sub!(/\[([^\[\]]+)\]/, "")
        contents.font.name = FONTLIST[@font_index]
        contents.font.size = (@font_size / 2)
        contents.font.bold = @font_bold
        contents.font.italic = @font_italic
        rw = @contents_y_line[1][@line_count+1] / 2
        rby = @contents_y + @rb_h[@line_count] + rw - (contents.font.size * 2)
        unless @e_text
          contents.draw_text(@rbx, rby, @rbw, contents.font.size, $1, 1)
        else
          # 縁取りON
          co = EDGE_COLOR[@e_color]
          contents.draw_text_f(@rbx, rby, @rbw, contents.font.size, $1, 1, co)
        end
        next
      else                              # 普通の文字
        # いろいろ
        
        @st_text += c    # softalk用
        
        @maxtextsize = wlh = @contents_y_line[1][@line_count+1]
        iw = font_w
        yy = @contents_y + @rb_h[@line_count]
        ww = @font_size + 8
        # 内容描画
        draw_message22_text(iw,yy,ww,wlh,c)     # 通常文字の描画
        draw_message22_und(iw,wlh,c) if @tx_und # アンダーライン
        draw_message22_str(iw,wlh,c) if @tx_str # 打ち消し線
        typese_update                           # タイピングSE
        # 幅加算
        contents.font.bold = false
        c_width = contents.text_size(c).width + iw
        @contents_x += c_width
        @rbw += c_width if @r_mode              # ルビ用文字幅
        next if c == " " or c == "　"
      end
      break unless @show_fast or @line_show_fast
    end
  end
  #--------------------------------------------------------------------------
  # ● 選択肢の入力処理
  #--------------------------------------------------------------------------
  alias ed_softalk_exec_input_choice input_choice
  def input_choice
    ed_softalk_exec_input_choice
    if Input.trigger?(Input::B)
      pause_voice
    elsif Input.trigger?(Input::C)
      pause_voice
    elsif not @st_exec
      @st_exec = Softalk::read_text(voice_massage,@st_vo,@st_sp,@st_vl,@st_rc)
    end
  end
  #--------------------------------------------------------------------------
  # ● 数値入力の処理
  #--------------------------------------------------------------------------
  alias ed_softalk_exec_input_number input_number
  def input_number
    ed_softalk_exec_input_number
    if Input.trigger?(Input::C)
      pause_voice
    elsif not @st_exec
      @st_exec = Softalk::read_text(voice_massage,@st_vo,@st_sp,@st_vl,@st_rc)
    end
  end
  #--------------------------------------------------------------------------
  # ● 現在まで表示されている文章
  #--------------------------------------------------------------------------
  def voice_massage
    return @st_text
  end
  #--------------------------------------------------------------------------
  # ● メッセージの開始
  #--------------------------------------------------------------------------
  alias ed_softalk_exec_start_message start_message
  def start_message
    format_voice
    ed_softalk_exec_start_message
  end
  #--------------------------------------------------------------------------
  # ● 読み上げの初期設定
  #--------------------------------------------------------------------------
  def format_voice
    # SofTalkオプション保存変数
    @st_text = ""
    @now_text = ""
    @st_vo = nil
    @st_sp = nil
    @st_vl = nil
    @st_rc = nil
    @st_exec = false
    # 顔グラ表示時の処理
    name = $game_message.face_name
    index = $game_message.face_index
    for i in 1..$data_actors.size
      actor = $game_actors[i]
      next if actor == nil
      if name == actor.face_name and Softalk::ACTOR_VOICE[i] != nil
        # 表示顔グラファイル名とアクターの設定ファイル名が一致している
        # なおかつ、アクターの読み上げ設定がある場合。
        ary = Softalk::ACTOR_VOICE[i]
        if ary[3] or index == actor.face_index
          # 読み上げ設定で表情差分の顔グラファイル
          # もしくは、indexが一致している場合は設定を代入する。
          @st_vo = ary[0]
          @st_sp = ary[1]
          @st_vl = ary[2]
          break
        end
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 特殊文字の変換
  #--------------------------------------------------------------------------
  alias ed_softalk_exec_convert_special_characters convert_special_characters
  def convert_special_characters
    ed_softalk_exec_convert_special_characters
    
    a = @text.gsub!(/\\vo\[([0-8])\]/i) { "" }
    @st_vo = $1.to_i unless a == nil
    
    a = @text.gsub!(/\\sp\[([0-9]+)\]/i) { "" }
    @st_sp = $1.to_i unless a == nil
    
    a = @text.gsub!(/\\vl\[([0-9]+)\]/i) { "" }
    @st_vl = $1.to_i unless a == nil
    
    a = @text.gsub!(/\\rc/) { "" }
    @st_rc = true unless a == nil
  end

end

テンプレートのpondt