# =============================================================================
# THEOALLEN - WINDOW AND SPRITE CORE FADE
# VERSION : 1.0
# CONTACT : www.rpgmakerid.com
# (This script documentation is written in informal indonesian language)
# =============================================================================
$imported = {} if $imported.nil?
$imported[:Theo_CoreFade] = true
# =============================================================================
# CHANGE LOGS:
# -----------------------------------------------------------------------------
# 2013.05.06 - Finished script
# =============================================================================
=begin

  PERKENALAN :
  Script ini sebagai devtool para scripter untuk membikin sebuah object atau
  sprite berubah opacitynya dengan cara fade. Script ini hanya menyediakan
  fungsi-fungsi dasar fade dan ngga akan gitu kerasa tanpa implementasi nyata
  dalam script
  
  CARA PENGGUNAAN :
  Tulis dalam script (object harus window / sprite)
  - object.fade(opacity[,durasi]) >> fade ke opacity tertentu dengan durasi.
  - object.fadeout(durasi) >> untuk nge-fadeout
  - object.fadein(durasi) >> untuk nge-fadein
  durasi default untuk fade bisa disetting sendiri dibawah
  
  KHUSUS UNTUK WINDOW :
  - window.contents_fade(opacity[,durasi]) >> ngubah opacity konten window
  - window.back_fade(opacity[,durasi]) >> ngubah opacity background window
  
  TERMS OF USE :
  Karena ini emang cuman buat tool para scripter, silahkan2 aja kalo mo dipake.
  Mau komersil juga boleh. Btw, kalo ada ide trus mo ngembangil ni modul
  monggo terserah. Gw mah dmen banget kalo ada yg mo ngembangin script gw yg
  satu ini. Tapi tetep kredit ya? \=w=/
  
  NOTE :
  Script bagian bawah sendiri adalah script untuk testing cara kerja script
  ini. Jadi kalo semisal stelah u pasang script ini ga mo masuk ke titlescreen
  atau battle, hapus aja bagian bawah script ini.
  
=end
# =============================================================================
# Module THEO::FADE (Diimplement ke Window ama Sprite)
# =============================================================================
module THEO
  module FADE
    
    DEFAULT_DURATION = 60
    # set default durationnya disini (dalam satuan frame)
    
    def init_fade_members
      @obj = nil
      @target_opacity = 0
      @target_contents_opacity = 0
      @fade_speed = 0.0
      @fade_speed2 = 0.0
    end
    
    def setfade_obj(obj)
      @obj = obj
      @target_opacity = @obj.opacity
      @target_contents_opacity = @obj.contents_opacity if window?
    end
    
    def fade(opacity, duration = DEFAULT_DURATION)
      @target_opacity = opacity
      @target_contents_opacity = opacity if @obj.is_a?(Window)
      make_fade_speed(duration)
    end
    
    def contents_fade(opacity, duration = DEFAULT_DURATION)
      return unless window?
      @target_contents_opacity = opacity
      make_fade_speed(duration)
    end
    
    def back_fade(opacity, duration = DEFAULT_DURATION)
      return unless window?
      @target_opacity = opacity
      make_fade_speed(duration)
    end
    
    def make_fade_speed(duration)
      @fade_speed = (@target_opacity - @obj.opacity)/duration.to_f
      @fade_speed2 = (@target_contents_opacity - @obj.contents_opacity) / 
      duration.to_f if window?
    end
    
    def window?
      @obj.is_a?(Window)
    end
    
    def fadeout(duration = DEFAULT_DURATION)
      fade(0, duration)
    end
    
    def fadein(duration = DEFAULT_DURATION)
      fade(255, duration)
    end
    
    def update_fade
      return unless fade?
      @obj.opacity += @fade_speed
      @obj.contents_opacity += @fade_speed2 if window?
    end
    
    def fade?
      if window?
        (@target_opacity != @obj.opacity) && 
        (@target_contents_opacity != @obj.contents_opacity)
      else
        @target_opacity != @obj.opacity
      end
    end
    
  end
end

class Window
  
  include THEO::FADE
  
  alias pre_fade_init initialize
  def initialize(x,y,width,height)
    pre_fade_init(x,y,width,height)
    init_fade_members
    setfade_obj(self)
  end
  
  alias pre_fade_update update
  def update
    pre_fade_update
    update_fade
  end
  
end

class Sprite
  
  alias pre_fade_init initialize
  def initialize(viewport = nil)
    pre_fade_init(viewport)
    init_fade_members
    setfade_obj(self)
  end
  
  alias pre_fade_update update
  def update
    pre_fade_update
    update_fade
  end
  
end
# =============================================================================
# Fade Testing. Mulai bagian sini untuk bagian testing doank. Kalo pengen
# ngilangin bagian sini, bisa u bikin komen semuanya dengan cara
# - block semuanya
# - ctrl + q
# Atau u delet aja semuanya
# =============================================================================
DataManager.init

def updates
  Graphics.update
  Input.update
  $window.update
  if Input.trigger?(:CTRL) # Input CTRL
    $window.fadeout
  elsif Input.trigger?(:ALT) # Input ALT
    $window.fadein
  end
end

$window = Window_Base.new(100,100,100,100)
$window.viewport = Viewport.new
updates while true