[RMVX ACE] CONVERT RGSS2 TO RGSS3

#
#    ダメージを受けたときにウインドウをシェイク(RGSS2)
#　　シェイク：(C)2011 イノビア
#　　アレンジ：(C)2011 TYPE74RX-T
#

# カスタマイズポイント：10～11行目

module RX_T
  SHAKE_TIMES = 64
  MOVES_WINDOW = 32
  # ※：SHAKE_TIMES：シェイク回数、MOVES_WINDOW：ウインドウの最大移動量
end

def shake(shakes = 64, moves = 32)
  # ウィンドウハンドルを取得して hwnd に代入
  # FindWindow関数を使った方が良いかもしれませんが。
 
  get_a_win = Win32API.new('user32','GetActiveWindow','v','l')
  hwnd = get_a_win.call()
 
  # ウィンドウの現在位置を取得 （スクリーン座標系）
  get_w_rect = Win32API.new('user32', 'GetWindowRect', 'l p', 'l')
  tmp = [0, 0, 0, 0].pack("l4")
  get_w_rect.call(hwnd, tmp)
  wRect = tmp.unpack("l4")
 
  # ウィンドウをシェイク♪
  # 以下では shakes 回シェイク、最大移動量を moves ピクセルまで（乱数）
  mw = Win32API.new('user32', 'MoveWindow', 'l l l l l l', 'l')
  i=0
  while i < shakes do
    mw.call(hwnd,wRect[0]+rand(moves),wRect[1]+rand(moves),wRect[2]-wRect[0],wRect[3]-wRect[1],1)
    i += 1
    sleep(0.01)
  end
 
  # 元の位置に戻す
  mw.call(hwnd,wRect[0],wRect[1],wRect[2]-wRect[0],wRect[3]-wRect[1],1)
end

class Scene_Battle < Scene_Base

  alias :apply_item_effects_shakeit :apply_item_effects unless $@
  def apply_item_effects(target, item)
    # Call the original method
    apply_item_effects_shakeit(target, item)
    # Then call the shake method if the action result means we shake it!
    shake(RX_T::SHAKE_TIMES, RX_T::MOVES_WINDOW) if target.actor? and target.result.hp_damage > 0
  end
end