(0..3).each do |item|
    debug_log item #0～3まで順番に出力される
end

def message(m='', args = {}) # 引数はハッシュテーブル
  # 引数初期値
  #座標, サイズ, テキストサイズ・色・太字・イタリック, 背景透明度、色, 枠色
  arguments = {:x => 100, :y => 300, :w => 600, :h => 125, :size => 18, :c => '#FFFFFF', :b => false, :it => false, :bg_opacity => 80, :bg_c => 0, :frame_c => 1}
  # 引数書換え
  args.each do |key, value|
    arguments[key] = value
  end
～略～

message("うおおお！", {:c => '#FF0000'})

message("あああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああ",
        {:bg_c => 1, :c => '#0000FF', :frame_c => 0, :size => 36})

#========== 塗り潰し ==========#
#===== 素材定義 =====#
sprite 'color_sprite' do
  image 'color_sp'
  origin :left_top
end

#===== 関数定義 =====#
#配置座標, サイズ, 色0~, 不透明度0~100, カメラ独立
def filling(x, y, w, h, c, opacity, camera = true)
  filsp = put_sprite 'color_sprite' do
    src_rect(opacity*$parts_size+2, c*$parts_size+2, $clip_size, $clip_size)
    position x, y
    scale w / $clip_size, h / $clip_size
    if camera
      camera_fixed!
    end
  end
  return filsp
end


#========== メッセージウィンドウ ==========#
#===== 素材定義 =====#
text 'message-text' do
  origin :left_top
end

#===== 関数定義 =====#
def message(m='', args = {}) # 引数はハッシュテーブル
  # 引数初期値
  #座標, サイズ, テキストサイズ・色・太字・イタリック, 背景不透明度、色, 枠色
  arguments = {:x => 100, :y => 300, :w => 600, :h => 125, :size => 18, :c => '#FFFFFF', :b => false, :it => false, :bg_opacity => 80, :bg_c => 0, :frame_c => 1}
  # 引数書換え
  args.each do |key, value|
    arguments[key] = value
  end

  #Zキーを離していなければtrue
  if keyboard.down?('Z')
    waitloop = true
  else
    waitloop = false
  end

  #画像用設定
  ofst = 10 #枠と文字位置決定用
  fr_w = 2 #フレーム幅 2pxに設定

  #背景の設定
  msbg_sprite = filling(arguments[:x], arguments[:y], arguments[:w], arguments[:h], arguments[:bg_c], arguments[:bg_opacity])

  #枠の設定
  msfr = []
  #上
  msfr << filling(arguments[:x], arguments[:y], arguments[:w], fr_w, arguments[:frame_c], 100)
  #左
  msfr << filling(arguments[:x], arguments[:y], fr_w, arguments[:h], arguments[:frame_c], 100)
  #右
  msfr << filling(arguments[:x] + arguments[:w], arguments[:y], -fr_w, arguments[:h], arguments[:frame_c], 100)
  #下
  msfr << filling(arguments[:x], arguments[:y] + arguments[:h], arguments[:w], -fr_w, arguments[:frame_c], 100)

  #テキストの設定
  message_sprite = put_text 'message-text' do
    position arguments[:x] + ofst, arguments[:y] + ofst
    font_size arguments[:size]
    color arguments[:c]
    bold arguments[:b]
    italic arguments[:it]
    wordwrap true
    wordwrap_width arguments[:w] - ofst*2
    camera_fixed!
    text m
  end
  
  #レイヤー設定
  $system_layer.add msbg_sprite #背景
  $system_layer.add message_sprite #テキスト
  msbg_sprite.layer_index 0
  message_sprite.layer_index 2
  msfr.each do |item| #枠
    $system_layer.add item
    item.layer_index 1
  end


  #離すのを待つ
  while waitloop
    if !keyboard.down?('Z')
      break
    end
    wait_time(10)
  end

  #Zキー押したら終了
  while !keyboard.down?('Z')
    wait_time(10)
  end
  #スプライトの削除
  message_sprite.destroy
  msbg_sprite.destroy
  msfr.each do |item|
    item.destroy
  end
end

  #枠の設定
  msfr = []
  #上
  msfr << filling(arguments[:x], arguments[:y], arguments[:w], fr_w, arguments[:frame_c], 100)
  #左
  msfr << filling(arguments[:x], arguments[:y], fr_w, arguments[:h], arguments[:frame_c], 100)
  #右
  msfr << filling(arguments[:x] + arguments[:w], arguments[:y], -fr_w, arguments[:h], arguments[:frame_c], 100)
  #下
  msfr << filling(arguments[:x], arguments[:y] + arguments[:h], arguments[:w], -fr_w, arguments[:frame_c], 100)