module RUSTED
  module ESCAPE
    RATIO_EXP = 0.02 # <= klo exp rata musuh di bawah 2% exp rata2 actor, runnya di ganti
    LET_GO_STRING = "%s let go the enemie troop"
    LET_GO_COMMAND = "Let Go"
  end
end



class Window_PartyCommand < Window_Command
  #--------------------------------------------------------------------------
  # * Object Initialization
  #--------------------------------------------------------------------------
  def set(id = 0)
    self.contents.clear
    s1 = Vocab::fight
    id == 0 ? s2 = Vocab::escape : s2 = RUSTED::ESCAPE::LET_GO_COMMAND
    @commands = [s1,s2]
    draw_item(0, true)
    draw_item(1, $game_troop.can_escape)
  end
end
class Scene_Battle < Scene_Base
  def start_party_command_selection
    if $game_temp.in_battle
      @status_window.refresh
      @status_window.index = @actor_index = -1
      @active_battler = nil
      @info_viewport.visible = true
      @message_window.visible = false
      check_average_exp
      @run_id == 1 ?  @party_command_window.set(1) : @party_command_window.set(0)
      @party_command_window.active = true
      @party_command_window.index = 0
      @actor_command_window.active = false
      $game_party.clear_actions
      if $game_troop.surprise or not $game_party.inputable?
        start_main
      end
    end
  end
  def make_escape_ratio
    if @run_id == 0
      actors_agi = $game_party.average_agi
      enemies_agi = $game_troop.average_agi
      @escape_ratio = 150 - 100 * enemies_agi / actors_agi
    else
      @escape_ratio = 100
    end
  end
  def check_average_exp
    @EscapeAwal = Vocab::EscapeStart
    @enemies_average_exp = 0
    @actors_average_exp = 0
    for i in 0...$game_troop.members.size
      @enemies_average_exp += $data_enemies[$game_troop.members[i].enemy_id].exp
    end
    for i in 0...$game_party.members.size
      @actors_average_exp += $game_party.members[i].next_exp_s
    end
    @enemies_average_exp = @enemies_average_exp/$game_troop.members.size
    @actors_average_exp = @actors_average_exp/$game_party.members.size
    @actors_average_exp * RUSTED::ESCAPE::RATIO_EXP < @enemies_average_exp ? @run_id = 0 : @run_id = 1
  end
  def process_escape
    @info_viewport.visible = false
    @message_window.visible = true
    @run_id == 0 ? text = sprintf(Vocab::EscapeStart, $game_party.name) :
      text = sprintf(RUSTED::ESCAPE::LET_GO_STRING, $game_party.name)
    $game_message.texts.push(text)
    if $game_troop.preemptive
      success = true
    else
      success = (rand(100) < @escape_ratio)
    end
    Sound.play_escape
    if success
      wait_for_message
      battle_end(1)
    else
      @escape_ratio += 10
      $game_message.texts.push('\.' + Vocab::EscapeFailure)
      wait_for_message
      $game_party.clear_actions
      start_main
    end
  end
end

module Hart
  module LetGo
    #--------------------------------------------------------------------------
    # * Atur command let go dan message nya di sini
    #--------------------------------------------------------------------------
    LetGoCommand = "Let Go"
    LetGoMessage = "%s Let the enemies go."
    #--------------------------------------------------------------------------
    # * Atur perbedaan level agar command escape berubah menjadi let go
    #--------------------------------------------------------------------------
    LevelDifference = 10
    #--------------------------------------------------------------------------
  end
end

module RPG
  class Enemy   
    alias level_initialize initialize
    def initialize
      level_initialize
      @level = 0
    end

    def create_level_cache
      temp = self.note[/<level\s+[0-9]+>/]
      if temp != nil
        @level = temp[/[0-9]+/].to_i
      else
        @level = 0
      end
    end
   
    attr_accessor :level
  end
end

class Scene_Title
  alias level_load_database load_database
  def load_database
    level_load_database
    for enemy in $data_enemies
      next if enemy == nil
      enemy.create_level_cache
    end
  end
end
 
class Game_Enemy < Game_Battler
  def level
    return enemy.level
  end
end

class Game_Troop < Game_Unit
  def max_level
    level = 0
    for enemy in @enemies
      level = enemy.level if level < enemy.level
    end
    return level
  end
end
 
class Window_PartyCommand < Window_Command
  #--------------------------------------------------------------------------
  # * Object Initialization
  #--------------------------------------------------------------------------
  def initialize
    s1 = Vocab::fight
    if $game_party.max_level > $game_troop.max_level + Hart::LetGo::LevelDifference
      s2 = Hart::LetGo::LetGoCommand
    else
      s2 = Vocab::escape
    end
    super(128, [s1, s2], 1, 4)
    draw_item(0, true)
    draw_item(1, $game_troop.can_escape)
    self.active = false
  end
end


class Scene_Battle < Scene_Base
  def process_escape
    @info_viewport.visible = false
    @message_window.visible = true
    if $game_party.max_level > $game_troop.max_level + Hart::LetGo::LevelDifference
      text = sprintf(Hart::LetGo::LetGoMessage, $game_party.name)
      @escape_ratio = 101
    else
      text = sprintf(Vocab::EscapeStart, $game_party.name)
    end
    $game_message.texts.push(text)
    if $game_troop.preemptive
      success = true
    else
      success = (rand(100) < @escape_ratio)
    end
    Sound.play_escape
    if success
      wait_for_message
      battle_end(1)
    else
      @escape_ratio += 10
      $game_message.texts.push('\.' + Vocab::EscapeFailure)
      wait_for_message
      $game_party.clear_actions
      start_main
    end
  end 
end