Theo - Message Shake

# =============================================================================
# TheoAllen - Message Shake
# Version : 0.8
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# (This script documentation is written in informal indonesian language)
# =============================================================================
($imported ||= {})[:Theo_MsgShake] = true
# =============================================================================
# CHANGE LOGS:
# -----------------------------------------------------------------------------
# 2013.09.28 - Started Script
# =============================================================================
=begin

  Perkenalan :
  Script ini ngebikin message window kamu bisa bergetar.

  Cara penggunaan :
  Pasang script ini dibawah material namun diatas main
  Gunakan tag <shake> pada show message biar window messagenya bergetar

  Terms of use :
  Credit gw, TheoAllen. Kalo semisal u bisa ngedit2 script gw trus jadi lebih
  keren, terserah. Ane bebasin. Asal ngga ngeklaim aja. Kalo semisal mau
  dipake buat komersil, jangan lupa, gw dibagi gratisannya.

=end
# =============================================================================
# Tidak ada konfigurasi
# =============================================================================
class Game_Message
  attr_reader :shake

  alias theo_msgshake_clear clear
  def clear
    theo_msgshake_clear
    clear_shake
  end

  def clear_shake
    @shake = false
  end

  alias theo_msgshake_add add
  def add(text)
    @shake = !(text =~ /<shake>/i).nil?
    theo_msgshake_add(text.gsub(/<shake>/i) {""})
  end

end

class MsgViewport < Viewport

  def initialize(*args)
    super(*args)
    @ox_pattern = create_pattern + create_pattern(true)
    @count = 0
    @pattern = 0
  end

  def create_pattern(minus = false)
    num = 2
    min = 0
    ary = []
    (num*2).times do |i|
      if i >= num
        min += 1
        i -= min
      end
      ary.push(i)
    end
    return ary.collect {|ptrn| ptrn * -1} if minus
    return ary
  end

  def update
    super
    @count += 1
    if shake? && $game_message.shake
      update_shake
    elsif !$game_message.shake
      self.ox = 0
    end
  end

  def shake?
    @count >= count_rate
  end

  def count_rate
    return 1
  end

  def update_shake
    @count = 0
    update_pattern
    self.ox = @ox_pattern[@pattern]
  end

  def update_pattern
    @pattern += 1
    @pattern = 0 if @pattern > @ox_pattern.size - 1
  end

end

class Scene_Map < Scene_Base

  alias theo_msgshake_start start
  def start
    @msg_viewport = MsgViewport.new
    @msg_viewport.z = 200
    theo_msgshake_start
  end

  alias theo_msgshake_msg_window create_message_window
  def create_message_window
    theo_msgshake_msg_window
    @message_window.viewport = @msg_viewport
  end

  alias theo_msgshake_update update
  def update
    theo_msgshake_update
    @msg_viewport.update
  end

  alias theo_msgshake_terminate terminate
  def terminate
    theo_msgshake_terminate
    @msg_viewport.dispose
  end

end