Theo - Multiple Variable Operators

# =============================================================================
# TheoAllen - Multiple Variable Operators
# Version : 1.0
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# (This script documentation is written in informal indonesian language)
# =============================================================================
($imported ||= {})[:Theo_MultiVarOperator] = true
# =============================================================================
# CHANGE LOGS:
# -----------------------------------------------------------------------------
# 2013.08.23 - Finished script
# =============================================================================
=begin

  -----------------------------------------------------------------------------
  Perkenalan :
  -----------------------------------------------------------------------------
  Script ini berfungsi untuk mencari nilai variable tertinggi atau terendah.
  Atau ngerandom nilai variable (Untuk mempermudah eventing)

  -----------------------------------------------------------------------------
  Cara penggunaan :
  -----------------------------------------------------------------------------
  Pasang dibawah material namun diatas main

  *) Untuk mencari nilai tertinggi dari variable
     - Gunakan control variable
     - Pilih variable yang akan digunakan buat nyimpen nilai
     - Gunakan script call kek gini
       highvar(1,2,3,4,5,6) # <-- membandingkan variable 1,2,3,4,5 dan 6
     - Nilai variable yang kamu pilih akan menyimpan nilai tertinggi dari
       variable2 yang dibandingkan.

  *) Untuk mencari variable id nilai tertinggi
     - Gunakan control variable
     - Pilih variable yang akan digunakan buat nyimpen nilai
     - Gunakan script call kek gini
       highvar_id(1,2,3,4,5,6) # <-- membandingkan variable 1,2,3,4,5 dan 6
     - Nilai variable yang kamu pilih akan menyimpan id variable yang punya
       nilai tertinggi

  *) Untuk mencari nilai terendah dari variable
     - Gunakan control variable
     - Pilih variable yang akan digunakan buat nyimpen nilai
     - Gunakan script call kek gini
       lowvar(1,2,3,4,5,6) # <-- membandingkan variable 1,2,3,4,5 dan 6
     - Nilai variable yang kamu pilih akan menyimpan nilai terendah dari
       variable2 yang dibandingkan.

  *) Untuk mencari variable id nilai terendah
     - Gunakan control variable
     - Pilih variable yang akan digunakan buat nyimpen nilai
     - Gunakan script call kek gini
       lowvar_id(1,2,3,4,5,6) # <-- membandingkan variable 1,2,3,4,5 dan 6
     - Nilai variable yang kamu pilih akan menyimpan id variable yang punya
       nilai terendah

  *) Untuk ngerandom nilai variable tertentu.
     - Gunakan command script call di event
     - Tulis kek gini di script callnya
       random(min, max, id, id, id ...)
       dimana :
       - min >> nilai minimalnya
       - max >> nilai maksimalnya
       - id >> id dari variablenya. Kamu bisa masukin sebanyak-banyaknya

  *) Untuk per operasi manual
      - Gunakan control variable
      - Pilih variable yang akan digunakan untuk nyimpen nilai
      - Tulis formula variablenya. Gunakan v[id] untuk ngambil nilai variable
      - Misalnya kek gini :
        (v[1] * v[2]) / v[3]
      - Nilai variable yang kamu pilih akan menyimpan nilai hasil dari nilai
        variable 1 dikali variable 2 dan dibagi variable 3

  -----------------------------------------------------------------------------
  Terms of use :
  Ini cuman snippet simple. Kredit ato ngga terserah
  Bebas untuk komersil

=end
# =============================================================================
# Tidak ada konfigurasi
# =============================================================================
class Game_Interpreter
  # --------------------------------------------------------------------------
  # Simplify variable call
  # --------------------------------------------------------------------------
  def v
    $game_variables
  end

  def highvar_id(*args)
    args.sort {|a,b| v[b] <=> v[a]}[0]
  end

  def highvar(*args)
    args.collect {|id| v[id]}.max
  end

  def lowvar_id(*args)
    args.sort {|a,b| v[a] <=> v[b]}[0]
  end

  def lowvar(*args)
    args.collect {|id| v[id] }.min
  end

  def average(*args)
    result = times  = 0
    args.collect {|id| v[id] }.each do |var|
      result += var
      times += 1
    end
    return result/times
  end

  def random(min, max, *args)
    args.each do |id|
      v[id] = min + rand(max - min)
    end
  end

end