# coding: utf-8
#===============================================================================
# ■ HZM_VXAベーススクリプトさん for RGSS3
#-------------------------------------------------------------------------------
#　2017/11/14　Ruたん
#-------------------------------------------------------------------------------
#  他スクリプトを使用する際のベースとなるスクリプトです．
#  基本的にはこれ単体で何かが起こるわけでは無いです．
#-------------------------------------------------------------------------------
# 【更新履歴】
# 2017/11/14 [2.2.0] window_scale / window_scale= 追加
# 2012/08/01 [2.1.0] mkdir_p 追加
# 2012/08/01 【重要】仕様変更．メソッド名変更．ディレクトリ取得追加
# 2012/02/11 fps表示時にウィンドウハンドルを取得できない不具合を修正
# 2012/01/07 フルスクリーン時にウィンドウ拡大するとやばいことになる超不具合を修正
# 2012/01/02 ぶっぱ
#-------------------------------------------------------------------------------

#===============================================================================
# ↓ 以下、スクリプト部 ↓
#===============================================================================

module HZM_VXA
  module Base
    #---------------------------------------------------------------------------
    # ● ベーススクリプトのバージョン
    #    .区切りの3つの数字で表現
    #    1桁目：メジャーバージョン（仕様変更＝互換性破たん時に変更）
    #    2桁目：マイナーバージョン（機能追加時に変更）
    #    3桁目：パッチバージョン（不具合修正時に変更）
    #---------------------------------------------------------------------------
    VERSION = '2.2.0'
    #---------------------------------------------------------------------------
    # ● バージョン比較処理
    #---------------------------------------------------------------------------
    def self.check_version?(version_str)
      version     = version2array(VERSION)
      req_version = version2array(version_str)
      # メジャーバージョンが要求と一致するか？
      return false unless version[0] == req_version[0]
      # マイナーバージョンが要求より低くないか？
      return false unless version[1] >= req_version[1]
      true
    end
    #---------------------------------------------------------------------------
    # ● バージョン文字列の分解
    #---------------------------------------------------------------------------
    def self.version_to_array(version_str)
      version_str.split('.').map{|n| n.to_i}
    end
    #---------------------------------------------------------------------------
    # ● Win32API用意
    #---------------------------------------------------------------------------
    # ウィンドウハンドル取得
    FindWindow = Win32API.new('user32', 'FindWindow', %w(p p), 'l')
    # 文字コード変換
    MultiByteToWideChar = Win32API.new('kernel32', 'MultiByteToWideChar', %w(i i p i p i), 'i')
    WideCharToMultiByte = Win32API.new('kernel32', 'WideCharToMultiByte', %w(i i p i p i p p), 'i')
    # ini読込
    GetPrivateProfileString = Win32API.new('kernel32', 'GetPrivateProfileString', %w(p p p p i p), 'i')
    WritePrivateProfileString = Win32API.new('kernel32', 'WritePrivateProfileString', %w(p p p p), 'i')
    # ウィンドウサイズ操作
    GetWindowRect = Win32API.new('user32', 'GetWindowRect', %w(l p), 'i')
    MoveWindow = Win32API.new('user32', 'MoveWindow', %w(l i i i i i), 'i')
    GetClientRect = Win32API.new('user32', 'GetClientRect', %w(l p), 'i')
    # 関連付けされたプログラム起動
    ShellExecute = Win32API.new('shell32', 'ShellExecute', %w(p p p p p i), 'i')
    # ディレクトリ取得
    GetCurrentDirectory = Win32API.new('kernel32', 'GetCurrentDirectory', %(l p), 'i')
    SHGetFolderPath = Win32API.new('shell32', 'SHGetFolderPath', %(l i l i p), 'i')
    # ユーザ名取得
    GetUserName = Win32API.new('Advapi32', 'GetUserName', %w(p p), 'i')
    #---------------------------------------------------------------------------
    # ● Win32API用定数
    #---------------------------------------------------------------------------
    CP_ACP   = 0
    CP_UTF8  = 65001
    SW_SHOW  = 5
    MAX_PATH = 260
    #---------------------------------------------------------------------------
    # ● ウィンドウハンドルの取得
    #---------------------------------------------------------------------------
    def self.hwnd
      return @hwnd if @hwnd
      hwnd = FindWindow.call('RGSS Player', convUTF8toSJIS($data_system.game_title))
      return @hwnd = hwnd if hwnd != 0
      hwnd = FindWindow.call('RGSS Player', nil)
      (hwnd != 0 ? hwnd : nil)
    end
    #---------------------------------------------------------------------------
    # ● 文字コードの変換
    #    Win32APIはSJISじゃないといけないのでutf8と相互変換する
    #---------------------------------------------------------------------------
    def self.convert_sjis_to_utf8(str)
      convert_utf16_to_utf8(convert_sjis_to_utf16(str))
    end
    def self.convert_utf8_to_sjis(str)
      convert_utf16_to_sjis(convert_utf8_to_utf16(str))
    end
    def self.convert_sjis_to_utf16(str)
      length = MultiByteToWideChar.call(CP_ACP, 0, str, -1, nil, 0)
      buf = "\0" * (length * 2)
      MultiByteToWideChar.call(CP_ACP, 0, str, -1, buf, length)
      buf
    end
    def self.convert_utf16_to_utf8(str)
      length = WideCharToMultiByte.call(CP_UTF8, 0, str, -1, nil, 0, nil, nil)
      buf = "\0" * (length * 2)
      WideCharToMultiByte.call(CP_UTF8, 0, str, -1, buf, length, nil, nil)
      buf
    end
    def self.convert_utf8_to_utf16(str)
      length = MultiByteToWideChar.call(CP_UTF8, 0, str, -1, nil, 0)
      buf = "\0" * (length * 2)
      MultiByteToWideChar.call(CP_UTF8, 0, str, -1, buf, length)
      buf
    end
    def self.convert_utf16_to_sjis(str)
      length = WideCharToMultiByte.call(CP_ACP, 0, str, -1, nil, 0, nil, nil)
      buf = "\0" * (length * 2)
      WideCharToMultiByte.call(CP_ACP, 0, str, -1, buf, length, nil, nil)
      buf
    end
    #---------------------------------------------------------------------------
    # ● ウィンドウ表示倍率の変更
    #---------------------------------------------------------------------------
    def self.window_zoom(n = 1.0)
      self.window_scale = n
    end
    #---------------------------------------------------------------------------
    # ● フルスクリーンかどうか？
    #---------------------------------------------------------------------------
    def self.fullscreen?
      return false unless hwnd
      lp_rect1 = "\0" * 4 * 4
      lp_rect2 = "\0" * 4 * 4
      return false if GetClientRect.call(hwnd, lp_rect1) == 0 # 表示領域の大きさ
      return false if GetWindowRect.call(hwnd, lp_rect2) == 0 # ウィンドウの大きさ
      rect1 = lp_rect1.unpack('llll')
      rect2 = lp_rect2.unpack('llll')
      (rect1[2] - rect1[0] == rect2[2] - rect2[0] || rect1[3] - rect1[1] == rect2[3] - rect2[1])
    end
    #---------------------------------------------------------------------------
    # ● 関連付けされたプログラムで開く
    #---------------------------------------------------------------------------
    def self.open_program(path)
      ShellExecute.call(getHwnd, 'open', path, nil, nil, SW_SHOW) > 32
    end
    def self.open_browser(url)
      openProgram(url)
    end
    #---------------------------------------------------------------------------
    # ● URLエンコード
    #---------------------------------------------------------------------------
    def self.url_encode(str)
      ret = []
      str.each_byte { |s| ret.push "%#{s.to_s(16)}" }
      ret.join
    end
    #---------------------------------------------------------------------------
    # ● AppData取得
    #---------------------------------------------------------------------------
    def self.appdata_path
      buf = "\0" * (MAX_PATH + 1)
      SHGetFolderPath.call(0, 0x001a, 0, 0, buf)
      buf.strip
    end
    #---------------------------------------------------------------------------
    # ● ログインユーザ名取得
    #---------------------------------------------------------------------------
    def self.user_name
      str = "\0" * 257
      len = [256].pack('i')
      return nil unless GetUserName.call(str, len) != 0
      convert_sjis_to_utf8(str.strip)
    end
    #---------------------------------------------------------------------------
    # ● 再帰的なディレクトリ作成
    #---------------------------------------------------------------------------
    def self.mkdir_p(path)
      return if File.exist?(path)
      mkdir_p(File.dirname(path))
      Dir.mkdir(path)
    end

    class << self
      #---------------------------------------------------------------------------
      # ● ウィンドウ表示倍率の取得
      #    別スクリプト下で変更された場合は正しく取得できないです
      #---------------------------------------------------------------------------
      def window_scale
        @window_scale ||= 1
      end

      #---------------------------------------------------------------------------
      # ● ウィンドウ表示倍率の変更
      #---------------------------------------------------------------------------
      def window_scale=(n)
        return false unless hwnd
        return false if fullscreen?

        # 元の位置を確認しておく
        lp_rect = "\0" * 4 * 4
        return false if GetWindowRect.call(hwnd, lp_rect) == 0
        rect = lp_rect.unpack('llll')
        base_x = rect[0]
        base_y = rect[1]

        # ウィンドウサイズを一度もとに戻す
        base_w = Graphics.width
        base_h = Graphics.height
        Graphics.resize_screen((base_w < 640 ? base_w + 1 : base_w - 1), (base_h < 480 ? base_h + 1 : base_h - 1))
        Graphics.resize_screen(base_w, base_h)

        # ウィンドウの大きさを変更する
        return false if GetWindowRect.call(hwnd, lp_rect) == 0

        rect = lp_rect.unpack('llll')
        bw = (rect[2] - rect[0]) - Graphics.width
        bh = (rect[3] - rect[1]) - Graphics.height
        w = (Graphics.width * n).to_i
        h = (Graphics.height * n).to_i
        return if MoveWindow.call(hwnd, base_x, base_y, w + bw, h + bh, 0) == 0

        @window_scale = n
        true
      end
    end
  end
  class << Base
    # 互換用エイリアス
    alias version2array version_to_array
    alias getHwnd hwnd
    alias convSJIStoUTF8 convert_sjis_to_utf8
    alias convUTF8toSJIS convert_utf8_to_sjis
    alias windowZoom window_zoom
    alias openProgram open_program
    alias openBrowser open_browser
    alias urlEncode url_encode
    alias getAppDataPath appdata_path
  end
  module Input
    #---------------------------------------------------------------------------
    # ● Win32API用意
    #---------------------------------------------------------------------------
    GetKeyboardState = Win32API.new('user32', 'GetKeyboardState', %w(p), 'i')
    #---------------------------------------------------------------------------
    # ● 更新
    #---------------------------------------------------------------------------
    def self.update
      buf = "\0" * 256
      ret = GetKeyboardState.call(buf)
      return clear if ret == 0
      buf = buf.unpack('c*')
      buf.each_with_index do |data, i|
        if data < 0
          @press[i] += 1
          if @press[i] == 1
            @repeat[i] = wait1
            @repeat_flag[i] = true
          else
            @repeat_flag[i] = (@repeat[i] <= 0)
            @repeat[i] = (@repeat_flag[i] ? wait2 : @repeat[i] - 1)
          end
        else
          @press[i] = 0
          @repeat[i] = 0
          @repeat_flag[i] = false
        end
      end
    end
    #---------------------------------------------------------------------------
    # ● 押し続け状態
    #---------------------------------------------------------------------------
    def self.press?(n)
      @press[n] > 0
    end
    def self.press(n)
      @press[n]
    end
    #---------------------------------------------------------------------------
    # ● トリガー
    #---------------------------------------------------------------------------
    def self.trigger?(n)
      @press[n] == 1
    end
    #---------------------------------------------------------------------------
    # ● 繰り返し
    #---------------------------------------------------------------------------
    def self.repeat?(n)
      @repeat_flag[n]
    end
    #---------------------------------------------------------------------------
    # ● 入力状態を消去
    #---------------------------------------------------------------------------
    def self.clear
      @press = Array.new(256) unless @press
      @repeat = Array.new(256) unless @repeat
      @repeat_flag = Array.new(256) unless @repeat_flag
      for i in 0...255
        @press[i] = 0
        @repeat[i] = 0
        @repeat_flag[i] = false
      end
    end
    #---------------------------------------------------------------------------
    # ● repeat?のウェイト時間
    #---------------------------------------------------------------------------
    def self.wait1
      20
    end
    def self.wait2
      5
    end
    #---------------------------------------------------------------------------
    # ● 初期化処理実行
    #---------------------------------------------------------------------------
    self.clear
  end
  #-----------------------------------------------------------------------------
  # ■ INIファイル読込クラス
  #-----------------------------------------------------------------------------
  class Ini
    #---------------------------------------------------------------------------
    # ● 定数
    #---------------------------------------------------------------------------
    INI_FILENAME = './Game.ini'
    #---------------------------------------------------------------------------
    # ● 生成
    #---------------------------------------------------------------------------
    def initialize(filename)
      @filename = filename
    end
    #---------------------------------------------------------------------------
    # ● 読込
    #    戻り値：読み込んだ情報．数値の場合は自動的に型変換します．
    #  section …… セクション名（[]の見出し的な部分）
    #  key     …… キー名（●●=値　の●●部分）
    #  length  …… データの最大の長さ（半角）省略時は255文字
    #---------------------------------------------------------------------------
    def load(section, key, length = 255)
      buf = "\0" * length
      ret = HZM_VXA::Base::GetPrivateProfileString.call(section, key, "", buf, length, @filename)
      if ret > 0
        ret = HZM_VXA::Base.convSJIStoUTF8(buf).delete("\0")
        (ret =~ /^\d+$/ ? ret.to_i : (ret =~ /^\d+\.\d+$/ ? ret.to_f : ret.to_s))
      else
        nil
      end
    end
    #---------------------------------------------------------------------------
    # ● 保存
    #  section …… セクション名（[]の見出し的な部分）
    #  key     …… キー名（●●=値　の●●部分）
    #  value   …… 保存する情報（数値 or 文字列）
    #---------------------------------------------------------------------------
    def save(section, key, value)
      value = HZM_VXA::Base.convUTF8toSJIS(value.to_s)
      HZM_VXA::Base::WritePrivateProfileString.call(section, key, value, @filename) != 0
    end
    #---------------------------------------------------------------------------
    # ● クラス変数・メソッド群
    #    標準のgame.iniを編集する
    #---------------------------------------------------------------------------
    @@ini = Ini.new(INI_FILENAME)
    def self.load(section, key, length = 255)
      @@ini.load(section, key, length)
    end
    def self.save(section, key, value)
      @@ini.save(section, key, value)
    end
  end
end

# キー入力処理拡張
# ※使用しない場合はfalseにする
if true
  class << Input
    alias hzm_vxa_base_update update
    def update
      hzm_vxa_base_update
      HZM_VXA::Input.update
    end
  end
end