Quellcode

class Battler_Informations < Gravitation
  #================================
  # Initialize
  #---------------------------------------------------------------
  # battler = Battler
  # id = Party/Troop ID
  #================================  
  def initialize battler, id, player=false
    @battler=battler
    @id=id
    @character_id=id
    @player=player
    initialize_char
    setup
  end
  #================================
  # Setup
  #================================  
  def setup
    @need_refresh=false
    @magic_start=false
    @use_skill=false
    @attacked=false
    @critical=false
    @damaged=false
    @droped=false
    @magic_id=0
    @skill_frames=0
    @damage=0
    @combo=0
    @target_index=1
    @direction=6
    @action='Stand'
    @object_damage=3
    @bore_count=0
    if actor?
      @job=$data_classes[@battler.class_id].name
      @hp=@battler.hp
      @sp=@battler.sp
      @maxhp=@battler.maxhp
      @maxsp=@battler.maxsp
      @weapon_id=@battler.weapon_id #Equipped weapon ID
      @animation2_id=$data_weapons[@weapon_id].animation2_id
      @max_combo=$my_actors[battler.id].max_combo
      @aggresive=$my_actors[battler.id].aggresive
      @attack_rate=$my_actors[battler.id].attack_rate
      @defend_rate=$my_actors[battler.id].defend_rate
      @backeyes_faktor=$my_actors[battler.id].backeyes_faktor
      @defend_break_base=$my_actors[battler.id].defend_break
      @exp=0
      @money=0
      @drop_id=0
      @drop_typ="None"
    else
      @job='ENEMY'
      @hp=@battler.maxhp
      @sp=@battler.maxsp
      @maxhp=@hp
      @maxsp=@sp
      @weapon_id=@battler.animation1_id #NO id of Weapon, ID OF ANIMATION
      @animation2_id=@battler.animation2_id
      @max_combo=$my_enemies[battler.id].max_combo
      @aggresive=$my_enemies[battler.id].aggresive
      @attack_rate=$my_enemies[battler.id].attack_rate
      @defend_rate=$my_enemies[battler.id].defend_rate
      @backeyes_faktor=$my_enemies[battler.id].backeyes_faktor
      @defend_break_base=$my_enemies[battler.id].defend_break
      @exp=@battler.exp
      @money=@battler.gold
      @treasure_prob=@battler.treasure_prob
      lucky=(rand(100) < @treasure_prob)
      if @battler.weapon_id > 0 and lucky
        @drop_id=@battler.weapon_id
        @drop_typ="Weapon"
      elsif @battler.item_id > 0 and lucky
        @drop_id=@battler.weapon_id
        @drop_typ="Item"
      elsif @battler.armor_id > 0 and lucky
        @drop_id=@battler.weapon_id
        @drop_typ="Armor"
      else
        @drop_id=0
        @drop_typ="None"        
      end
      if ((@drop_typ == "Weapon" or @drop_typ == "Armor") and rand(100) <= 15) or  #15% auf Falle bei Waffen und Rüstungen
        ((@drop_typ == "Item" or @drop_typ == "None") and rand(100) <= 8) #8%  auf Falle bei Item und Nichts
        @drop_id=$my_game.local_trap
        @drop_typ="Trap"
      end
    end
    @name=@battler.name
    @atk=battler.atk
    @pdef=battler.pdef
    @mdef=battler.mdef
    @agi=battler.agi
    @str=battler.str
    @dex=battler.dex
    @int=battler.int
    @eva=battler.eva
    @frames=Battler_Action_Informations.new @battler
    @brain_action='none'
    @action_count=0
    @defend_break_counter=0
    @attacked_frame=[]
    @animation_id=0
  end
  #================================
  # Battler is Game_Actor?
  #================================  
  def actor?
    return @battler.is_a? Game_Actor
  end
  #================================
  # Battler is Human?
  #================================  
  def is_player?
    return (actor? and @player)
  end
  #================================
  # Dead?
  #================================  
  def dead?
    return @hp <= 0
  end
  #================================
  # Cast Skill is able?
  #================================
  def cast? sp_min=0
    return @sp >= sp_min
  end
  #================================
  # Magic (Addon for Skill)
  #================================
  def cast_magic
    user=$my_battle.get_character(@character_id)
    user.loop_animation_id=-1
    @magic_counter=0
    @magic_start=false
    return if dead?
    s=$data_skills[@magic_id]
    unless cast? s.sp_cost
      @action='Break'
      return
    end
    @use_skill=true
    @action="Use Magic"
    @sp-=s.sp_cost
    animation1=$data_animations[s.animation1_id]
    animation2=$data_animations[s.animation2_id]
    if actor?
      return if $my_battle.troop[@target_index-1].dead?
      target=$my_battle.get_character(@target_index)
    else
      return if $my_battle.actors[@target_index-1].dead?
      target=$my_battle.get_character(@target_index+4)
    end
    if target.nil?
      #Das Momentane Ziel ist nicht erreichbar (nicht exestensiel) also suche ein neues aus.
      auto_index
      #Neustart der Ziel wahl
      if actor?
        target=$my_battle.get_character(@target_index)
      else
        target=$my_battle.get_character(@target_index+4)
      end
    end
    return if target.nil? #Kein Ziel kann erreicht werden also breche den angriff ab. (= Map ist leer)
    if actor?
      $my_battle.troop[@target_index-1].action='Hurt'
    else
      $my_battle.actors[@target_index-1].action='Hurt'
    end
    case animation1.position
    when 3
      $my_battle.screen.animation animation1, true
    else
      user.animation_id=animation1.id
    end
    case animation2.position
    when 3
      if animation1.position != 3
        $my_battle.screen.animation animation2, true
      else
        target.animation_id=animation2.id
      end
    else
      target.animation_id=animation2.id
    end
    @used_skill=s
    $my_battle.help_window.set_text s.name, 1
    $my_battle.help_window.countdown 100
    $my_battle.refresh
  end
  #================================
  # Skill
  #================================
  def skill(tech_pos_id=0)
    skill_id=@battler.equiped_skills[tech_pos_id]
    return if skill_id <= 0
    s=$data_skills[skill_id]
    return unless cast? s.sp_cost
    @skill_frames=$my_skills.skill[s.name].frames
    if $my_skills.skill[s.name].misc
      $game_switches[$my_skills.skill[s.name].switch_id+@id]=false
      a=[5,5,6,7,8]
      m=[80,81,82,83]
      char=$my_battle.get_character(a[@id])
      d= @direction == 4 ? -1 : 1
      $my_battle.get_character(m[@id]).moveto(char.x+d, char.y)
      $game_variables[$my_skills.skill[s.name].variable_id+@id]=@direction
      $game_switches[$my_skills.skill[s.name].switch_id+@id]=true
    end
    if $my_skills.skill[s.name].magic
      @action="Cast Magic"
      @magic_id=s.id
      @magic_start=true
      @magic_counter=cast_time(s)
      $my_battle.get_character(@character_id).loop_animation_id=$my_battle.magic_animation[element(s)]
      return
    else
      @action="Skill#{s.name}"
    end
    @sp-=s.sp_cost
    ani=s.animation1_id
    if ani != nil and ani > 0
      $my_battle.get_character(@character_id).animation_id=ani+(@direction == 4 ? 1:0)
    end
    @use_skill=true
    @used_skill=s
    $my_battle.help_window.set_text s.name, 1
    $my_battle.help_window.countdown 100
    $my_battle.refresh
  end
  #================================
  # Time for Casting
  #================================
  def cast_time(s)
    return ((s.agi_f**2)*2/@int)
  end
  #================================
  # Element of Skill
  #================================
  def element(s)
    return s.element_set[0]
  end
  #================================
  # Update
  #================================
  def update
    if @action_count >= 0
      @action_count -= 1
    end
    update_gravitation
    if moving?
      update_move
    end
    pattern_update
    execute
    if @magic_start
      @magic_counter-=1
      if @magic_counter <= 0
        cast_magic
      end
    end
  end
  #================================
  # Auto Index
  #================================
  def auto_index
    #Wer nimmt alles NOCH AKTIV am Kampf teil? (GEGNERISCHES TEAM)
    combat_character=[]
    eok=[]
    way=[]
    if actor?
      for i in 0..$my_battle.troop.size-1
        if not $my_battle.troop[i].nil? and not $my_battle.troop[i].dead?
          eok.push i
          combat_character.push $my_battle.troop[i]
          way.push ($my_battle.troop[i].x-@x).abs
        end
      end
    else
      for i in 0..$my_battle.actors.size-1
        if not $my_battle.actors[i].nil? and not $my_battle.actors[i].dead?
          eok.push i
          combat_character.push $my_battle.actors[i]
          way.push ($my_battle.actors[i].x-@x).abs
        end
      end
    end
    return if combat_character.empty?
    #Sortiere
    sort=way.clone
    sort.sort!
    #Nächstes Event herausfinden
    for i in 0..way.size-1
      if way[i]==sort[0]
        id= i
        break
      end
    end
    #Rückschlüsse auf Character nehmen und dann als Ziel festlegen
    @target_index=eok[id]
    if @id == 0
      $my_battle.camera_select 2, @target_index
    end
  end
  #================================
  # After battle transfering the status.
  #================================
  def transfer_status
    return unless actor?
    @battler.hp=@hp
    @battler.sp=@sp
  end
  #================================
  # Turn Face toward Target Position
  #================================
  def face_toward_target
    if actor?
      return auto_index if $my_battle.troop[@target_index].nil?
      wx=@x-$my_battle.troop[@target_index].x
    else
      return auto_index if $my_battle.actors[@target_index].nil?
      wx=@x-$my_battle.actors[@target_index].x
    end
    if wx > 0
      @direction=4
    elsif wx < 0
      @direction=6
    end
  end
  #================================
  # Turn Face away Target Position
  #================================
  def face_away_target
    if actor?
      return auto_index if $my_battle.troop[@target_index].nil?
      wx=@x-$my_battle.troop[@target_index].x
    else
      return auto_index if $my_battle.actors[@target_index].nil?
      wx=@x-$my_battle.actors[@target_index].x
    end
    if wx < 0
      @direction=4
    elsif wx > 0
      @direction=6
    end
  end
  #================================
  # Public Instance Variables
  #================================  
  attr_writer :player
  attr_writer :jump_mode
  attr_reader :job
  attr_reader :maxhp
  attr_reader :maxsp
  attr_reader :battler
  attr_reader :atk
  attr_reader :pdef
  attr_reader :mdef
  attr_reader :agi
  attr_reader :str
  attr_reader :dex
  attr_reader :int
  attr_reader :eva
  attr_reader :attack_rate
  attr_reader :defend_rate
  attr_reader :backeyes_faktor
  attr_reader :defend_break_base
  attr_reader :id
  attr_reader :exp
  attr_reader :money
  attr_reader :drop_typ
  attr_reader :drop_id
  attr_reader :treasure_prob
  attr_reader :name
  attr_reader :action
  attr_reader :x
  attr_reader :y
  attr_reader :real_x
  attr_reader :real_y
  attr_accessor :pattern
  attr_reader :width
  attr_reader :height
  attr_reader :object_damage
  attr_accessor :loop_animation_id
  attr_accessor :attacked_frame
  attr_accessor :droped
  attr_accessor :frozen
  attr_accessor :animation2_id
  attr_accessor :weapon_id
  attr_accessor :frames
  attr_accessor :combo
  attr_accessor :max_combo
  attr_accessor :direction
  attr_accessor :hp
  attr_accessor :sp
  attr_accessor :damage
  attr_accessor :damaged
  attr_accessor :critical
  attr_accessor :attacked
  attr_accessor :use_skill
  attr_accessor :skill_frames
  attr_accessor :target_index
  attr_accessor :aggresive
  attr_accessor :character_id
  attr_accessor :used_skill
  attr_accessor :magic_start
  attr_accessor :magic_id
  attr_accessor :need_refresh
  attr_accessor :brain_action
  attr_accessor :action_count
  attr_accessor :defend_break_counter
  attr_accessor :animation_id
  attr_accessor :bore_count
end