[VX] Rei Text Balloon

#===============================================================================
# † [VX] † Rei Text Balloon † †
# † Memunculkan balloon yang berisi text †
#-------------------------------------------------------------------------------
# † oleh reijubv [aruyasoft@comic.com]
# † Rpgmakerid.com
# † Dipublikasikan pada: 02/10/2009
# † Versi: 1.0 (2 Oktober 2009)
#-------------------------------------------------------------------------------
# > Changelog:
#  V.1.0 (02-10-09) = Awal dipublikasikan
#-------------------------------------------------------------------------------
# Script ini gunanya untuk memunculkan balon seperti emoticon itu, tapi isinya
# adalah text, bukan gambar . . .
#-------------------------------------------------------------------------------
# How to use :
# tulis script dibawah di kotak script di event . . .
#
# txt_bln(wichevent,text1,text2,text3,text4)
#
# wichevent = dimana balon akan muncul (-1 = player, 0 = 'this event',
#                                      >1 = di atas event dg Id itu)
# text1 sampai text4 =  text yang akan dimunculkan di baris 1 sampai 4 . . .
#
#-------------------------------------------------------------------------------
# Untuk merubah settingan yg ada di Rei Module dalam game, gunakan salah 1 baris
# berikut, utk keterangan masing2 baris, bisa dilihat di Rei Module.
#    $game_system.txt_bln_dur    = ( angka ) ( 0 - 9999999 )
#    $game_system.txt_bln_typ    = ( angka ) ( 0 - 1 )
#    $game_system.txt_bln_clr1    = ( warna ) (Color.new(red,green,blue,alpha))
#    $game_system.txt_bln_clr2[n] = ( warna ) (Color.new(red,green,blue,alpha))
#    $game_system.txt_bln_shd[n]  = (boolean) ( true/false )
#    $game_system.txt_bln_bld[n]  = (boolean) ( true/false )
#    $game_system.txt_bln_ita[n]  = (boolean) ( true/false )
#    $game_system.txt_bln_spd    = ( angka ) ( 0 - 9999999 )
#    $game_system.txt_bln_opa    = ( angka ) ( 0 - 255 )
#    $game_system.txt_bln_y1      = ( angka ) ( 0 - 416 )
#    $game_system.txt_bln_y2      = ( angka ) ( 0 - 416 )
#    $game_system.txt_bln_fnt[n]  = ( string) ( \"Nama font\" )
#    $game_system.txt_bln_alg[n]  = ( angka ) ( 0 - 2 )
# SEMUA yang diatas akan direset SETIAP balon baru muncul.
# Ganti n (Kalau ada) dengan nomor baris, yaitu 1 sampai 4 . . .
# Tapi ingat, selalu mulai dari 0, jadi baris 4 nomornya 3. . .
#-------------------------------------------------------------------------------
# Credits:
# Reijubv untuk membuat script ini.
# Vlad karena script ini berbasis pada scriptnya dia . . .
#-------------------------------------------------------------------------------
# Pemasangan:
# Taroh di atas Main, di Material. Setup dibawah..
#===============================================================================
$imported = {} if $imported == nil
$imported[\"Rei_\"+\"Text_Balloon\"] = true
#---------------------------------------------------------------------------
# ** Rei Module
#---------------------------------------------------------------------------
module Rei
  module Text_Balloon
    #---------------------------------------------------------------------------
    # Ini adalah settingan defaultnya
    #---------------------------------------------------------------------------
    # Durasi balloonnya
    DUR  = 120
    # Tipe munculnya balon, 0 = popup, 1 = instant
    TYP  = 0
    # Warna background balon
    CLR1 = Color.new(255,255,255,200)
    # Warna text
    CLR2 = Color.new(0,0,0)
    # Gunakan bayangan pada text ?
    SHD = false
    # Gunakan bold pada text ?
    BLD = false
    # Gunakan italic pada text ?
    ITA = false
    # Seberapa cepat baloon akan pop-up kalau TYP = 0
    SPD = 2
    # Seberapa cepat baloon akan muncul dan menghilang?
    OPA = 10
    # Berapa jarak awal koordinat Y balloon saat muncul dari sumbernya?
    # (hanya jika TYP = 0 )
    Y1  = 16
    # Berapa jarak akhir koordinat Y balloon saat menghilang dari sumbernya?
    # (hanya jika TYP = 0 )
    Y2  = 32
    # Nama font yang akan digunakan
    FNT = Font.default_name
    # Alignment text, 0 = LEFT, 1 = CENTER, 2 = RIGHT
    ALG = 1
    #-----------------------------------------------------------------------------
    # Jangan rubah apapun mulai dari sini
    #-----------------------------------------------------------------------------
  end
end
#==============================================================================
# ** Game_System
#==============================================================================
class Game_System
  attr_accessor (:txt_bln_dur, :txt_bln_typ, :txt_bln_clr1, :txt_bln_clr2,
                :txt_bln_shd, :txt_bln_bld, :txt_bln_ita , :txt_bln_spd,
                :txt_bln_opa, :txt_bln_y1 , :txt_bln_y2  , :txt_bln_fnt,
                :txt_bln_alg)
  alias rei_gs_bln_initialize initialize
  def initialize
    rei_gs_bln_initialize
    @txt_bln_clr2 = [];@txt_bln_shd  = [];@txt_bln_bld  = [];@txt_bln_ita  = []
    @txt_bln_alg  = [];@txt_bln_fnt  = []
    reset_baloon_vars
  end
  def reset_baloon_vars
    @txt_bln_dur      = Rei::Text_Balloon::DUR
    @txt_bln_typ      = Rei::Text_Balloon::TYP
    @txt_bln_y1        = Rei::Text_Balloon::Y1
    @txt_bln_y2        = Rei::Text_Balloon::Y2
    @txt_bln_spd      = Rei::Text_Balloon::SPD
    @txt_bln_opa      = Rei::Text_Balloon::OPA
    @txt_bln_clr1      = Rei::Text_Balloon::CLR1
    @txt_bln_clr2.clear;@txt_bln_shd.clear;@txt_bln_bld.clear
    @txt_bln_ita.clear;@txt_bln_alg.clear;@txt_bln_fnt.clear
    for i in 0..3
      @txt_bln_clr2.push(Rei::Text_Balloon::CLR2)
      @txt_bln_shd.push (Rei::Text_Balloon::SHD)
      @txt_bln_bld.push (Rei::Text_Balloon::BLD)
      @txt_bln_ita.push (Rei::Text_Balloon::ITA)
      @txt_bln_fnt.push (Rei::Text_Balloon::FNT)
      @txt_bln_alg.push (Rei::Text_Balloon::ALG)
    end
  end
end
#==============================================================================
# ** Sprite_Base
#==============================================================================
class Sprite_Base
  alias rei_spb_bln_initialize initialize
  def initialize(viewport = nil)
    rei_spb_bln_initialize(viewport)
    @_message_duration = 0
    @up = false
  end
  alias rei_spb_bln_update update
  def update;update_show_message;rei_spb_bln_update;end;
  def move_up
    return if @_message_duration == 0
    @_message_sprite.y = self.y + $game_system.txt_bln_y1 if @up
    @_message_sprite.opacity+=$game_system.txt_bln_opa+($game_system.txt_bln_spd)
    case $game_system.txt_bln_typ
    when 0
      if @_message_sprite.y > self.y + $game_system.txt_bln_y1
        @_message_sprite.y -= $game_system.txt_bln_spd
      else
        @up = true
        return
      end
    when 1
      @_message_sprite.y = self.y + $game_system.txt_bln_y1
    else
      raise \"Type munculnya balloon harus 0 atau 1 !\"
    end
  end
  def move_down
    return if @_message_duration > 0
    @_message_sprite.opacity -= $game_system.txt_bln_opa + (@_message_duration/2)
    case $game_system.txt_bln_typ
    when 0
      @_message_sprite.y += $game_system.txt_bln_spd unless
        @_message_sprite.y >= self.y + $game_system.txt_bln_y2
    when 1
      @_message_sprite.y =  self.y + $game_system.txt_bln_y1
    end
  end
  def update_show_message
    unless @_message_sprite == nil or @_message_sprite.disposed?
      @_message_sprite.x = self.x
      move_up
    end
    if @_message_duration > 0
      @_message_duration -= 1
    elsif @_message_duration <= 0 and @_message_sprite != nil
      move_down
      dispose_message if @_message_sprite.opacity <= 0
    end
    if @character.message1 != \"\" or @character.message2 != \"\" or
      @character.message3 != \"\" or @character.message4 != \"\"
      show_message(
                  @character.message1, @character.message2,
                  @character.message3, @character.message4
                  )
      @character.message1 = @character.message2 = @character.message3 =
      @character.message4 = \"\"
    end
  end
  def show_message(msg1, msg2, msg3, msg4)
    dispose_message
    @up = false
    if (msg1 != \"\" or msg2 != \"\" or msg3 != \"\" or msg3 != \"\")
      color = $game_system.txt_bln_clr1
      b = Bitmap.new(1,1)
      b.font.name = $game_system.txt_bln_fnt[rand(3)]
      w1 = b.text_size(msg1).width
      w2 = b.text_size(msg2).width
      w3 = b.text_size(msg3).width
      w4 = b.text_size(msg4).width
      b.dispose
      height=28;l=k=0;m=[];m<<msg1;oy=64
      unless msg2==\"\";height=48;k=1;m<<msg2;oy=84;end
      unless msg3==\"\";height=68;k=2;m<<msg3;oy=104;end
      unless msg4==\"\";height=88;k=3;m<<msg4;oy=124;end
      bitmap = Bitmap.new([([w1, w2, w3, w4].max)-64,416].min, height)
      bitmap.fill_rect(1, 1, bitmap.width-2, bitmap.height-9, color)
      bitmap.fill_rect(1, 0, bitmap.width-2, 1, color)
      bitmap.fill_rect(1, bitmap.height-10, bitmap.width-2, 1, color)
      bitmap.fill_rect(0, 1, 1, bitmap.height-10, color)
      bitmap.fill_rect(bitmap.width-1, 1, 1, bitmap.height-10, color)
      center = (bitmap.width-8)/2
      bitmap.fill_rect(center,  bitmap.height-8, 1, 8, color)
      bitmap.fill_rect(center+1, bitmap.height-8, 1, 7, color)
      bitmap.fill_rect(center+2, bitmap.height-8, 1, 6, color)
      bitmap.fill_rect(center+3, bitmap.height-8, 1, 5, color)
      bitmap.fill_rect(center+4, bitmap.height-8, 1, 4, color)
      bitmap.fill_rect(center+5, bitmap.height-8, 1, 3, color)
      bitmap.fill_rect(center+6, bitmap.height-8, 1, 2, color)
      bitmap.fill_rect(center+7, bitmap.height-8, 1, 1, color)
      bitmap.font.size = 16
      loop do
        bitmap.font.name = $game_system.txt_bln_fnt[l]
        bitmap.font.color = $game_system.txt_bln_clr2[l]
        bitmap.font.shadow = $game_system.txt_bln_shd[l]
        bitmap.font.bold = $game_system.txt_bln_bld[l]
        bitmap.font.italic = $game_system.txt_bln_ita[l]
        bitmap.draw_text( 2, (l*18)+2, bitmap.width-4, bitmap.font.size, m[l],
                          $game_system.txt_bln_alg[l] )
        break if l>=k;l+=1
      end
    else;bitmap = Bitmap.new(1,1)
    end
    yy=0;yy=$game_system.txt_bln_y2 if $game_system.txt_bln_typ==0
    @_message_sprite = Sprite.new
    @_message_sprite.bitmap = bitmap
    @_message_sprite.ox = bitmap.width/2
    @_message_sprite.oy = oy+Font.default_size
    @_message_sprite.x = self.x
    @_message_sprite.y = self.y + yy
    @_message_sprite.z = self.z + 1000
    @_message_sprite.opacity = 0
    @_message_duration = $game_system.txt_bln_dur
    @character.text_balloon_exist = true
    $game_system.reset_baloon_vars
  end
  alias rei_spb_bln_dispose dispose
  def dispose;rei_spb_bln_dispose;dispose_message;end
  def dispose_message
    return if @_message_sprite == nil
    @_message_sprite.bitmap.dispose
    @_message_sprite.dispose
    @_message_sprite = nil
    @character.text_balloon_exist = false
  end
end
#==============================================================================
# ** Game_Character
#==============================================================================
class Game_Character;attr_accessor (:message1, :message2, :message3, :message4,
  :text_balloon_exist)
  alias rei_gc_bln_initialize initialize;def initialize;rei_gc_bln_initialize
  @message1 = \"\";@message2 = \"\";@message3 = \"\";;@message4 = \"\"
  @text_balloon_exist =false;end
end
#==============================================================================
# ** Game_Interpreter
#==============================================================================
class Game_Interpreter
  def txt_bln(wichevent=0,text1=\"\",text2=\"\",text3=\"\",text4=\"\")
    character = get_character(wichevent)
    if character != nil
      character.message1=text1;character.message2=text2;character.message3=text3
      character.message4=text4
    end;return true
  end
end
#==============================================================================
# ** End of script
#==============================================================================