[XP] Rei Emoticon

#===============================================================================
# ● [XP] ◦ Show Emoticon ◦ □
# * Munculkan emoticon pada karakter *
#-------------------------------------------------------------------------------
# ◦ by reijubv [aruyasoft@comic.com]
# ◦ Rpgmakerid
# ◦ Released on: 04/08/2009
# ◦ Version: 1.0
#-------------------------------------------------------------------------------
# ◦ Feature:
# Seperti script Rei New Balloon Command di VX, ini adalah versi XP nya.
#
# Cara pakai :
# Di Event Command "Script", ketik salah 1 baris dibawah :
# 1. Kalau kamu mau munculin balloon dengan file default (yang namanya di set
#    di Rei Module dibawah).
#
# emot(who,id)
#
# who  : -1 = player, 0 = 'this event', > 0 event dg Id tersebut
# id  : balloon index, dari 1 ke 10
#
# 2. Kalau kamu mau munculin balloon dengan file yang berbeda dari default.
#
# emot(who,id,name)
#
# who  : -1 = player, 0 = 'this event', > 0 event dg Id tersebut
# id  : balloon index, dari 1 ke 10
# name : nama file balloon, ex: "balloon01", harus di Pictures folder!
#
# contoh :
# @>Script: emot(-1,1,"balloon01")
#
# akan munculin balloon dg index 1 dari file "balloon01" pada player
#
#-------------------------------------------------------------------------------
# Credit reijubv
#-------------------------------------------------------------------------------
# ◦ Installation:
# Taroh diatas Main dibawah Scene_Debug, setup di Rei module
#===============================================================================
$imported = {} if $imported == nil
$imported["Rei_"+"Emoticon"] = true
#-------------------------------------------------------------------------------
# Rei Module
#-------------------------------------------------------------------------------
module Rei
  module Emoticon
    DEFAULT_BALLOON_FILE = "Balloon"  # Nama file defaultnya
    SE_OK = true                      # Bunyikan Sound Effect saat emot keluar?
    SE = "001-System01"              # Nama sound effectnya
    VOL = 100                        # Volume ( 0 - 100 )
    PIT = 100                        # Pitch ( 50 - 150 )
  end
end
#------------------------------------------------------------------------------
# JANGAN SENTUH DIBAWAH INI KECUALI KAMU TAU APA YANG AKAN KAMU LAKUKAN
#------------------------------------------------------------------------------
#===============================================================================
# ** Game_Character
#===============================================================================
class Game_Character;attr_accessor :balloon_id;alias rei_gc_initialize initialize
  def initialize;rei_gc_initialize;@balloon_id = 0;end;end
#===============================================================================
# ** Sprite_Character
#===============================================================================
class Sprite_Character < RPG::Sprite
  include Rei::Emoticon
  BALLOON_WAIT = 12
  def initialize(viewport, character = nil)
    super(viewport)
    @character = character
    @balloon_duration = 0
    update
  end
  alias rei_spc_update update
  def update
    rei_spc_update
    update_balloon
    if @character.balloon_id != 0
      @balloon_id = @character.balloon_id
      start_balloon
      @character.balloon_id = 0
    end
  end
  def start_balloon
    dispose_balloon
    Audio.se_play("Audio/SE/#{SE}",VOL,PIT) if SE_OK
    @balloon_duration = 8 * 8 + BALLOON_WAIT
    @balloon_sprite = Sprite.new(viewport)
    @balloon_sprite.bitmap = RPG::Cache.picture($game_system.balloon_file)
    @balloon_sprite.ox = 16
    @balloon_sprite.oy = 32
    update_balloon
  end
  def update_balloon
    if @balloon_duration > 0
      @balloon_duration -= 1
      if @balloon_duration == 0
        @balloon_id = 0
        dispose_balloon
      else
        @balloon_sprite.x = x
        if @tile_id >= 384
          he = 32
        else
          he = self.bitmap.height/4
        end
        @balloon_sprite.y = y - he
        @balloon_sprite.z = z + 200
        if @balloon_duration < BALLOON_WAIT
          sx = 7 * 32
        else
          sx = (7 - (@balloon_duration - BALLOON_WAIT) / 8) * 32
        end
        sy = (@balloon_id - 1) * 32
        @balloon_sprite.src_rect.set(sx, sy, 32, 32)
      end
    end
  end
  def dispose_balloon
    if @balloon_sprite != nil
      @balloon_sprite.dispose
      @balloon_sprite = nil
    end
  end
end
#==============================================================================
# ** Game_System
#==============================================================================
class Game_System;attr_accessor :balloon_file;end
#==============================================================================
# ** Interpreter
#==============================================================================
class Interpreter
  def emot(who,id,file=Rei::Emoticon::DEFAULT_BALLOON_FILE)
    character = get_character(who)
    $game_system.balloon_file = file
    if character != nil
      character.balloon_id = id
    end
  end
end
#==============================================================================
# END OF SCRIPT
#==============================================================================