# =============================================================================
# TheoAllen - Realtime States
# Version : 1.0
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# (This script documentation is written in informal indonesian language)
# =============================================================================
($imported ||= {})[:Theo_RealtimeState] = true
# =============================================================================
# CHANGE LOGS:
# -----------------------------------------------------------------------------
# 2013.05.18 - Started and Finished script
# =============================================================================
=begin
  
  Perkenalan :
  Script ini ngebikin sebuah state bisa expired secara realtime. Semisal status
  poison bisa hilang setelah 10 detik berada di map. Perhitungan realtime hanya 
  dilakukan jika player hanya berada pada map
  
  Cara penggunaan :
  Pasang script ini diatas main namun dibawah material.
  
  Gunakan tag ini pada database state
  <expired time: n>
  
  dimana n adalah angka dalam hitungan detik. Apabila kamu ingin satu menit,
  maka tulis 60. dst ...
  
  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 :
# =============================================================================
module THEO
  module STATE
    
    MESSAGE_PAUSE = true
    # set true jika ingin perhitungan realtime diberhentikan saat ada message
    # (ngomong ama NPC, dll...)
    
    PAUSE_SWITCH_ID = 0
    # Jika switch dengan id tersebut ON, maka perhitungan realtime akan
    # dihentikan.
    
  end
end
# =============================================================================
# Akhir konfigurasi. Setelah ini jangan diedit kecuali ente ngerti
# =============================================================================
module THEO
  module STATE
  module REGEXP
      
    TIME = /<(?:EXPIRED_TIME|expired time):[ ]*(\d+)>/i
      
  end
  end
end

module DataManager
  
  class << self
    alias pre_rt_states_db load_database
  end
  
  def self.load_database
    pre_rt_states_db
    load_realtime_states
  end
  
  def self.load_realtime_states
    $data_states.compact.each do |state|
      state.load_realtime_count
    end
  end
  
end

class RPG::State < RPG::BaseItem
  attr_accessor :expire_time
  
  def load_realtime_count
    @expire_time = 0
    self.note.split(/[\r\n]+/).each do |line|
      case line
      when THEO::STATE::REGEXP::TIME
        @expire_time = $1.to_i * 60
      end
    end
  end
  
end

class Game_System
  attr_accessor :rt_count
  
  alias pre_realtime_state_init initialize
  def initialize
    pre_realtime_state_init
    init_rt_state_count
  end
  
  def init_rt_state_count
    @rt_count = 0
  end
  
  def update_rt_count
    @rt_count += 1
  end
  
end

class Game_Actor < Game_Battler
  alias pre_realtime_states_init initialize
  def initialize(actor_id)
    pre_realtime_states_init(actor_id)
    init_rt_state_hash
  end
  
  def init_rt_state_hash
    @rt_hash = {}
  end
  
  alias pre_rt_reset_state_counts reset_state_counts
  def reset_state_counts(state_id)
    pre_rt_reset_state_counts(state_id)
    exp_time = $data_states[state_id].expire_time
    return if exp_time <= 0
    @rt_hash[state_id] = $game_system.rt_count + exp_time
  end
  
  def check_rt_states
    @states.each do |id|
      state = $data_states[id]
      next if state.expire_time <= 0
      remove_state(id) if remove?(id)
    end
  end
  
  def remove?(id)
    return false unless @rt_hash[id]
    return $game_system.rt_count >= @rt_hash[id]
  end
  
end

class Scene_Map < Scene_Base
  
  alias pre_rt_state_update update
  def update
    pre_rt_state_update
    update_rt_count
    check_realtime_states
  end
  
  def update_rt_count
    $game_system.update_rt_count unless message_pause?
    puts $game_system.rt_count
  end
  
  def check_realtime_states
    $game_party.members.each do |actor|
      actor.check_rt_states
    end
  end
  
  def message_pause?
    (THEO::STATE::MESSAGE_PAUSE && !scene_change_ok?) || 
      $game_switches[THEO::STATE::PAUSE_SWITCH_ID]
  end
  
end