Theo - Simple Text over Event

# =============================================================================
# TheoAllen - Simple Text Over Event
# Version : 1.0
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# (This script documentation is written in informal indonesian language)
# =============================================================================
($imported ||= {})[:Theo_TextEvent] = true
# =============================================================================
# CHANGE LOGS:
# -----------------------------------------------------------------------------
# 2013.06.09 - Finished script
# =============================================================================
=begin

  Perkenalan :
  Script ini cuman nampilin text diatas event

  Cara penggunaan :
  Pasang dibawah material namun diatas main
  Tulis <text: terserah> pada nama event jika mau ditampilin

  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
# =============================================================================
# Konfigurasi kecil2an :
# =============================================================================
module THEO
  module MAP

    # Lebar window yg diisi text
    WINDOW_WIDTH = 200

    # Size font
    FONT_SIZE   = 17

    # Warnanya (red,green,blue
    FONT_COLOR  = Color.new(255,255,255)

    # Posisi offset dari koordinat y
    OFFSET_Y    = 0

  end
end
# =============================================================================
# Batas konfigurasi
# =============================================================================
module THEO
  module MAP
    module REGEXP

      TEXT = /<(?:TEXT|text):(.*)>/i

    end
  end
end


class Window_CharText < Window_Base

  include THEO::MAP

  def initialize(char,text)
    @char = char
    @text = text
    super(0,0,window_width,window_height)
    self.opacity = 0
    contents.font.size = FONT_SIZE
    update_placement
    refresh
  end

  def update_placement
    return unless @char
    self.x = @char.screen_x - self.width/2
    self.y = @char.screen_y - 20 - self.height - OFFSET_Y
  end

  def update
    super
    update_placement
  end

  def refresh
    contents.clear
    draw_text(0,0,contents.width,FONT_SIZE,@text,1)
  end

  def window_width
    WINDOW_WIDTH
  end

  def window_height
    return FONT_SIZE + standard_padding*2
  end

end

class Game_Event < Game_Character

  def name
    @event.name
  end

end

class Scene_Map < Scene_Base

  include THEO::MAP

  alias pre_text_over_event_start start
  def start
    pre_text_over_event_start
    create_text_event_windows
  end

  def create_text_event_windows
    @event_text_windows = []
    $game_map.events.values.each do |event|
      case event.name
      when REGEXP::TEXT
        text = $1.to_s
        @event_text_windows.push(Window_CharText.new(event,text))
      end
    end
  end

  alias pre_update_window_text update
  def update
    pre_update_window_text
    update_text_window
  end

  def update_text_window
    @event_text_windows.each {|w| w.update}
  end

  alias pre_text_event_terminate terminate
  def termminate
    pre_text_event_terminate
    dispose_text_event_windows
  end

  def dispose_text_event_windows
    @event_text_windows.each {|w| w.dispose}
  end

  alias text_event_post_transfer post_transfer
  def post_transfer
    dispose_text_event_windows
    create_text_event_windows
    text_event_post_transfer
  end

end