=begin =========================================================================
Dekita's                                                                   v1.2
                        ★ Pokémon Natures ENEMY ADDON™ ★

================================================================================
 Script Information:
====================
 This script replicates the natures / iv / ev / levels feature from pokemon,
 e.g each pokemon, (in this case ENEMY) is given a random nature, iv/ev value
 and level upon encounter, That enemies stats are then determined by that.
 Use map notetags toset enemy levels and use script calls to make fixed encounters
 e.g set nature iv, ev and lvl.

 NOTE: This works 98% like pokemon.
 (minus trainer and wild calculations in the formula)

================================================================================
 ★☆★☆★☆★☆★☆★☆★☆★ TERMS AND CONDITIONS: ☆★☆★☆★☆★☆★☆★☆★☆★☆
================================================================================
 1. You must give credit to "Dekita"
 2. You are NOT allowed to repost this script.(or modified versions)
 3. You are NOT allowed to convert this script.(into other game engines e.g RGSS2)
 4. You are NOT allowed to use this script for Commercial games.
 5. ENJOY!

"FINE PRINT"
By using this script you hereby agree to the above terms and conditions,
 if any violation of the above terms occurs "legal action" may be taken.
Not understanding the above terms and conditions does NOT mean that
 they do not apply to you.
If you wish to discuss the terms and conditions in further detail you can
contact me at http://dekitarpg.wordpress.com/ or DekitaRPG@gmail.com

================================================================================
 History:
=========
 D /M /Y
 14/o1/2o13 - added enemy ev's,
            - fixed exp gain formula,
            - fixed gold gain formula,
            - fixed script header,
 16/11/2o12 - finished,

================================================================================
 Credit and Thanks to :
=======================

================================================================================
 Known Bugs:
============
 N/A

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 If a new bug is found please contact me at
 http://dekitarpg.wordpress.com/

================================================================================
 INSTRUCTIONS:
==============
 Place this script UNDER "▼ Materials" and ABOVE "▼ Main" in your script editor.

=end #==========================================================================#
module Dekita__Pokemon_Enemies

  # NOTETAGS :

  # <lv: min, max>
  # <ene lv: enemy_id, min, max>
  # these go in map noteboxes, replace min with the maps minimum map level, max
  # with the maximum,
  # enemy_id = the enemy id in the database.

  # SCRIPT CALLS :
  # fix_lv_battle(val)
  # fix_nature_battle(val)

  # fix_iv_battle(mhp, mmp, atk, def, mat, mdf, agi, luk)
  # val = an integer
  # replace mhp, mmp, atk, def, mat, mdf, agi and luk with values between 0 - 31
  # and this will change that enemies iv values to whatever you set.
  # REMEMBER iv values are different from the acctual param value, but they do
  # affect param values

  # fix_ev_battle(mhp, mmp, atk, def, mat, mdf, agi, luk)
  # val = an integer
  # replace mhp, mmp, atk, def, mat, mdf, agi and luk with values between 0 - 255
  # and this will change that enemies ev values to whatever you set.
  # REMEMBER ev values are different from the acctual param value, but they do
  # affect param values
  # ALSO a total ev amount should never go above 512, but you can if you want...

  # The maximum level for enemies
  Max_Level = 100

  # enemies will randomly gain UPTO and including this amount of
  # Ev points which can make a significant difference in later levels.
  Random_Ev_Amount = 100

  Use_Exp_Gain_Formula = true

  Use_Gold_Gain_Formula = true

  # as enemy levels are based on maps and during battle test there is no map id,
  # you have to set the min and max level for enemies in test battles here.
  BattleTest_Level = [5, 10] # [min, max]

end

$imported = {} if $imported.nil?
$imported[:Dekita_Pokémon_Enemies] = true

#################################################################################
#################################################################################
# As team rocket where once again "blasting off" Ash, Brock and Misty slowly    #
# lifted their bodies from the ground, turning, gasping at the horror they could#
# see before them...                                                            #
#################################################################################
#################### !! DONT MODIFY SHIT AFTER HERE !! ##########################
#################################################################################
class RPG::Map
#===============================================================================#

attr_accessor :map_level_range
attr_accessor :map_level_rangeind_poks

def load_enemy_levels
  @map_level_range = [1, Dekita__Pokemon_Enemies::Max_Level]
  @map_level_rangeind_poks = []
  self.note.split(/[\r\n]+/).each { |line|
  case line
  when /<lv: (.*), (.*)>/i
    @map_level_range = [$1.to_i, $2.to_i]
    #---
  when /<ene lv: (.*), (.*), (.*)>/i
    @map_level_rangeind_poks.push([$1.to_i, $2.to_i, $3.to_i])
    #---
  end
  } # self.note.split
end

end

#===============================================================================#
class Game_Map
#===============================================================================#

attr_reader :level_range_min
attr_reader :level_range_max
attr_reader :map_level_rangeind_poks

  alias enemylevelsmapsetup setup
  def setup(map_id)
    enemylevelsmapsetup(map_id)
    @map.load_enemy_levels
    @level_range_min = @map.map_level_range[0]
    @level_range_max = @map.map_level_range[1]
    @map_level_rangeind_poks = @map.map_level_rangeind_poks
#    p "@map_level_rangeind_poks = #{@map_level_rangeind_poks}"
  end

end

#===============================================================================#
class Game_Temp
#===============================================================================#

attr_accessor :fixed_level_battle
attr_accessor :fixed_nature_battle
attr_accessor :fixed_iv_battle
attr_accessor :fixed_ev_battle

  alias pokenemylvsgtinit initialize
  def initialize
    pokenemylvsgtinit
    init_fixed_enemies_info
  end

  def init_fixed_enemies_info
    @fixed_level_battle = [false, 0]
    @fixed_nature_battle = [false, 0]
    @fixed_iv_battle = [false, 0, 0, 0, 0, 0, 0, 0, 0]
    @fixed_ev_battle = [false, 0, 0, 0, 0, 0, 0, 0, 0]
  end

  def clear_fixed_level_data
    @fixed_level_battle = [false, 0]
  end

  def clear_fixed_nature_data
    @fixed_nature_battle = [false, 0]
  end

  def clear_fixed_iv_data
    @fixed_iv_battle = [false, 0, 0, 0, 0, 0, 0, 0, 0]
  end

  def clear_fixed_ev_data
    @fixed_ev_battle = [false, 0, 0, 0, 0, 0, 0, 0, 0]
  end

end # Game_Temp

#===============================================================================#
class Game_Enemy < Game_Battler
#===============================================================================#

  attr_accessor :level
  attr_accessor :nature
  attr_accessor :init_ivs
  attr_accessor :curr_evs

  alias init_for_enemy_levels initialize
  def initialize(index, enemy_id)
    setup_enemies_pokestylee(enemy_id)
    init_for_enemy_levels(index, enemy_id)
  end

  def setup_enemies_pokestylee(enemy_id)
    dekita_natures_for_enemies_agogo
    get_enemy_level(enemy_id)
  end

  def dekita_natures_for_enemies_agogo
    return if !$imported[:Dekita_Pokémon_Natures]
    @init_ivs = [0] * 8
    @curr_evs = [0] * 8
    @nature = get_rand_nature
    get_init_ivs
    get_init_evs
  end

  def get_enemy_level(enemy_id)
    @level = 1
    if $game_temp.fixed_level_battle[0] == true
      @level = $game_temp.fixed_level_battle[1]
      $game_temp.clear_fixed_level_data
    elsif $BTEST
      min = Dekita__Pokemon_Enemies::BattleTest_Level[0]
      max = Dekita__Pokemon_Enemies::BattleTest_Level[1]
      @level = (min+rand(max-min+1))
    else
      $game_map.map_level_rangeind_poks.size.times {|i|
      p "Checked"
      if $game_map.map_level_rangeind_poks[i][0] == enemy_id
        p "Returned"
        checker = $game_map.map_level_rangeind_poks[i]
        @level = (checker[1] + rand(checker[2] - checker[1]+1))
      else
        p "Not Returned"
        @level = ($game_map.level_range_min + rand($game_map.level_range_max - $game_map.level_range_min+1))
      end
      }
    end
    @level = [[@level, Dekita__Pokemon_Enemies::Max_Level].min, 1].max
  end

  def fixed_enemy_level_for_map(check)
    checker = $game_map.map_level_rangeind_poks[check]
    @level = (checker[1] + rand(checker[2] - checker[1]+1))
  end

  def get_init_ivs
    return get_fixed_ivs if $game_temp.fixed_iv_battle[0]
    8.times {|i|
    @init_ivs[i] = (rand(Dekita__Pokémon_Nature::Max_IV_Amount+1))
    p "Got enemies iv's #{@init_ivs[i]}"
    }
  end

  def get_init_evs
    return get_fixed_evs if $game_temp.fixed_iv_battle[0]
    8.times {|i|
    @curr_evs[i] = rand(Dekita__Pokemon_Enemies::Random_Ev_Amount)
    p "Got enemies ev's #{@curr_evs[i]}"
    }
  end

  def get_fixed_ivs
    fixed_val = $game_temp.fixed_iv_battle
    8.times {|i|
    @init_ivs[i] = fixed_val[i+1]
    p "Got enemies iv's #{@init_ivs[i]}"
    }
    $game_temp.clear_fixed_iv_data
  end

  def get_fixed_evs
    fixed_val = $game_temp.fixed_ev_battle
    8.times {|i|
    @curr_evs[i] = fixed_val[i+1]
    p "Got enemies ev's #{@curr_evs[i]}"
    }
    $game_temp.clear_fixed_ev_data
  end

  def get_rand_nature
    t1_ = $game_temp.fixed_nature_battle[0]
    dnar = (Dekita__Pokémon_Nature::Nature.size)
    val = rand(dnar)
    if t1_
      val = $game_temp.fixed_nature_battle[1]
      $game_temp.clear_fixed_nature_data
      return Dekita__Pokémon_Nature::Nature[val]
    end
    return Dekita__Pokémon_Nature::Nature[val]
  end

  alias enemiesparbase param_base
  def param_base(param_id)
    if $imported[:Dekita_Pokémon_Natures]
      par_id = param_id
      case par_id
      when 0, 1 # NOTE : if you change these calculations your a fucking moron ! ijs...
        return ( (((@init_ivs[par_id]+2*enemy.params[par_id]+(0/4))*@level/100)+10+@level)*@nature[par_id+1]).to_i
      when 2, 3, 4, 5, 6, 7
        return ( (((@init_ivs[par_id]+2*enemy.params[par_id]+(0/4))*@level/100)+5)*@nature[par_id+1]).to_i
      end
    else
      enemiesparbase(param_id)
    end
  end

  alias :nme_exp_natures :exp
  def exp
    if Dekita__Pokemon_Enemies::Use_Exp_Gain_Formula
      #(((enemy.exp * @level)) / 7).to_i#.round
      _A = ((@level * 2) + 10)
      _B = (enemy.exp * @level / 5)
      _C = (@level + $game_party.battle_members[0].level + 10)
      val = ((_A)*(_A*_A).floor).floor*_B/((_C)*(_C*_C)).floor+1
      return val
    else
      return nme_exp_natures
    end
  end
#floor
#  floor(floor(√(A)*(A*A))*B/floor(√(C)*(C*C)))+1
# Here, value A is equal to the (OpponentLevel * 2) + 10
# Value C is (OpponentLevel + UserLevel + 10)
# Value B is a more complicated variable and is where things start seeing changes.
# Normally, Value B is a simple (OpponentBaseExperience * OpponentLevel / 5).
# However, there are multiple additions and are calculated in order.
# In trainer battles, value B is multiplied by 1.5
# If a Pokémon has EXP. Share, then B is halved
# Value B is then divided by the amount of team members who have been in
# battle against the Pokémon that has been defeated.


  alias :pokgold :gold
  def gold
    if Dekita__Pokemon_Enemies::Use_Gold_Gain_Formula
      _A = ((@level * 2) + 10)
      _B = (enemy.gold * @level / 5)
      _C = (@level + $game_party.battle_members[0].level + 10)
      val = ((_A)*(_A*_A).floor).floor*_B/((_C)*(_C*_C)).floor+1
      return val
    else
      pokgold
    end
  end


end # Game_Enemy < Game_Battler

#==============================================================================
class Game_Interpreter
#==============================================================================

def fix_lv_battle(val)
  $game_temp.fixed_level_battle[0] = true
  $game_temp.fixed_level_battle[1] = val
end

def fix_nature_battle(val)
  $game_temp.fixed_nature_battle[0] = true
  $game_temp.fixed_nature_battle[1] = val
end

def fix_iv_battle(val_1,val_2,val_3,val_4,val_5,val_6,val_7,val_8)
  $game_temp.fixed_iv_battle[0] = true
  $game_temp.fixed_iv_battle[1] = val_1
  $game_temp.fixed_iv_battle[2] = val_2
  $game_temp.fixed_iv_battle[3] = val_3
  $game_temp.fixed_iv_battle[4] = val_4
  $game_temp.fixed_iv_battle[5] = val_5
  $game_temp.fixed_iv_battle[6] = val_6
  $game_temp.fixed_iv_battle[7] = val_7
  $game_temp.fixed_iv_battle[8] = val_8
end

def fix_ev_battle(val_1,val_2,val_3,val_4,val_5,val_6,val_7,val_8)
  $game_temp.fixed_ev_battle[0] = true
  $game_temp.fixed_ev_battle[1] = val_1
  $game_temp.fixed_ev_battle[2] = val_2
  $game_temp.fixed_ev_battle[3] = val_3
  $game_temp.fixed_ev_battle[4] = val_4
  $game_temp.fixed_ev_battle[5] = val_5
  $game_temp.fixed_ev_battle[6] = val_6
  $game_temp.fixed_ev_battle[7] = val_7
  $game_temp.fixed_ev_battle[8] = val_8
end

end # Game_Interpreter

#===============================================================================#
#                               - SCRIPT END -                                  #
#===============================================================================#
#                      http://dekitarpg.wordpress.com/                          #
#===============================================================================#