Theo - Page Condition Eval Script

# =============================================================================
# TheoAllen - Page Condition Eval Script
# Version : 1.0
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# (This script documentation is written in informal indonesian language)
# =============================================================================
($imported ||= {})[:Theo_PageConditionScript] = true
# =============================================================================
# CHANGE LOGS:
# -----------------------------------------------------------------------------
# 2013.08.11 - Finished script
# =============================================================================
=begin

  Perkenalan :
  Secara default, page condition dalam event tidak ada kondisi berdasar script
  seperti dalam conditional branch. Script ini berguna untuk menambahkan fungsi
  eval script dalam page condition.

  Cara penggunaan :
  Pasang dibawah material namun diatas main.
  Gunakan tag seperti berikut pada comment event

  <eval cond>
  script
  </eval cond>

  Jika kamu menggunakan banyak baris, semuanya akan dihitung sebagai satu baris

  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
# =============================================================================
# Tidak ada konfigurasi
# =============================================================================
class Game_Event < Game_Character
  alias theo_eval_script_conditions_met? conditions_met?
  def conditions_met?(page)
    script = obtain_script_condition(page.list)
    unless script.empty?
      return eval(script)
    end
    return theo_eval_script_conditions_met?(page)
  end

  def obtain_script_condition(list)
    result = ""
    add_string = false
    list.each do |cmd|
      code = cmd.code
      next unless code == 108 || code == 408
      case cmd.parameters[0]
      when /<(?:EVAL_COND|eval cond)>/i
        add_string = true
      when /<\/(?:EVAL_COND|eval cond)>/i
        add_string = false
      else
        next unless add_string
        result += cmd.parameters[0]
      end
    end
    return result
  end

  def variables
    if $imported[:THEO_EventVariable]
      return $game_self_variables[$game_map.id,@id]
    end
  end

end