RPG-Maker Quartier

#==============================================================================
# ** Game_KS
#------------------------------------------------------------------------------
#  In dieser Klasse wird das Kampfsystem angewendet. Es wird der
#  Schadens-In/Output berechnet und die Aggro-Reichweite der Gegner definiert.
#  uvm.
#==============================================================================
class Game_KS < Game_Interpreter
  #-----------------------------------------------------------------------------
  # * Attack Enemy
  #     Wird ausgeführt wenn man A drückt direkt vorm
  #     Gegner steht und zu ihm sieht.
  #-----------------------------------------------------------------------------
  def attack_enemy_start(event_id, enemy_id, index)
    @player = $game_player
    @index = index
    @enemy = $game_map.events[event_id]
    @lvl = $ks_enemy_lvl[index]
    dmg = $enemy_dmg[event_id]
    @key = $game_map.map_id*100 + event_id
    hp = $enemy_hpmax[@key]
    deff = $data_enemies[enemy_id].def
    agi = $data_enemies[enemy_id].agi
    @xp =((hp*(100+deff)/200.0)+(dmg*agi/50.0))
    @gold = $data_enemies[enemy_id].gold*@lvl
    if $enemy_hp[@key] > 0
      enemy_in_range?(event_id, enemy_id)
    end
  end
 
  def enemy_in_range?(event_id, enemy_id)
    if Input.trigger?(Input::X)
      if @player.x == @enemy.x
        #Darüber
        if @player.y == @enemy.y - 1
          if @player.direction == 2
            attack_enemy(event_id, enemy_id, 1)
          end
        end
        #Darunter
        if @player.y == @enemy.y + 1
          if @player.direction == 8
            attack_enemy(event_id, enemy_id, 2)
          end
        end
      end
      if @player.y == @enemy.y
        #Links
        if @player.x == @enemy.x - 1
          if @player.direction == 6
            attack_enemy(event_id, enemy_id, 3)
          end
        end
        #Rechts
        if @player.x == @enemy.x + 1
          if @player.direction == 4
            attack_enemy(event_id, enemy_id, 4)
          end
        end
      end
    end
  end
 
  def attack_enemy(event_id, enemy_id, dir)
    $enemy_id = enemy_id
    $event_id = event_id
    $enemy_index = @index
    $hud_enemy_frames = 180
    case dir
    when 1 # Blick nach unten
      @enemy.animation_id = rand(10)+83
    when 2 # Blick nach oben
      @enemy.animation_id = rand(10)+83
    when 3 # Blick nach rechts
      @enemy.animation_id = rand(10)+83
    when 4 # Blick nach links
      @enemy.animation_id = rand(10)+83
    end
    atk = $actor.atk
    fch = $actor.fch
    deff = $data_enemies[enemy_id].def
    f = atk*fch
    dmg = ((100*atk - f) + rand(2*f))/100
    case $data_enemies[enemy_id].eva
    when 1 #Untot
      dmg *= $actor.unt
    when 2 #Immun gegen Elementarschaden
    end
    rnd = rand()
    if rnd <= $actor.crit
      dmg *= $actor.critf + 1
      screen.start_shake(3, 6, 7)
    end
    weapon = $game_weapons[$actor.weapon_id]
    if deff != 1 then dmg *= (100.0-deff)/100.0 end
    if $actor.weapon_id != 0 and $data_enemies[enemy_id].eva != 2
      if weapon.feuer != 0 then $weapon_dotf = 60*3 end
      if weapon.eis != 0 then $weapon_dote = 60*5 end
      if weapon.gift != 0 then $weapon_dotg = 60*7 end
      if weapon.spl != 0 then $weapon_dotspl = 60*(rand()*4+3) #3-7 sek
    end
    $enemy_hp[@key] -= dmg
    $actor.hp += dmg * (weapon.vamp/100.0)
    $actor.mp += dmg * (weapon.vampm/100.0)
   
    #dmg = dmg.to_i
    #i = $hud_dmg_sprites
    #$temp_opacity_dmg[i] = 255
    #$hud_x[i] = @enemy.x*32-16-rand(16)
    #$hud_y[i] = @enemy.y*32-16-rand(16)
    #$hud_dmg[i] = dmg
    #$hud_dmg_sprites += 1
   
    if $enemy_hp[@key] <= 0
      $enemy_hp[@key] = 0
      @kss = KS_Sieg.new
    end
    $game_switches[14] = true
    $game_map.need_refresh = true
    return true
  end
 
  #-----------------------------------------------------------------------------
  # * Enemy Chase?
  #     Es wird abgefragt ob der Spieler nah genug beim Gegner steht, damit
  #     er von diesem verfolgt wird und ihn versucht anzugreifen.
  #-----------------------------------------------------------------------------
  def enemy_chase?(event_id, enemy_id, index)
    @event_id = event_id
    @enemy_id = enemy_id
    @index = index
    @lvl = $ks_enemy_lvl[@index]
    @player = $game_player
    @enemy = $game_map.events[@event_id]
    @atk = $data_enemies[@enemy_id].atk
   
    $enemy_dmg[@event_id] =(@atk*@lvl*@lvl)/100+@atk
    @key = $game_map.map_id*100 + @event_id
    if $enemy_hp[@key] == nil
      hp = $data_enemies[@enemy_id].maxhp
      $enemy_hp[@key] = ((7*(@lvl*@lvl*2))/100+4+@lvl)*(hp/5)
      $enemy_hpmax[@key] = $enemy_hp[@key]
    end   
    difx = @player.x - @enemy.x
    dify = @player.y - @enemy.y
    id = $game_map.events[@event_id].id
    a = "A"
    key = [$game_map.map_id, id, a]
    if difx < 5 and difx > -5 and  dify < 4 and dify > -4
      $game_self_switches[key] = true
      $game_map.need_refresh = true
      attack_player_start
    else
      $game_self_switches[key] = false
      $game_map.need_refresh = true
    end
  end
  #-----------------------------------------------------------------------------
  # * Attack Player
  #     Wird ausgeführt wenn der Gegner den Spieler verfolgt und
  #     direkt vor ihm steht.
  #-----------------------------------------------------------------------------
  def attack_player_start
    if $enemy_hp[@key] > 0
      player_in_range?
    end
  end
  def player_in_range?
      if @player.x == @enemy.x
        #Darüber
        if @player.y == @enemy.y - 1
          if @enemy.direction == 8
            attack_player(1)
          end
        end
        #Darunter
        if @player.y == @enemy.y + 1
          if @enemy.direction == 2
            attack_player(2)
          end
        end
      end
      if @player.y == @enemy.y
        #Links
        if @player.x == @enemy.x - 1
          if @enemy.direction == 4
            attack_player(3)
          end
        end
        #Rechts
        if @player.x == @enemy.x + 1
          if @enemy.direction == 6
            attack_player(4)
          end
        end
      end
    end
 
  def attack_player(dir)
    @key = $game_map.map_id*100 + @event_id
    if @key != nil
      enemy = $data_enemies[@enemy_id]
      case dir
      when 1
        @player.animation_id = rand(10)+83
      when 2
        @player.animation_id = rand(10)+83
      when 3
        @player.animation_id = rand(10)+83
      when 4
        @player.animation_id = rand(10)+83
      end
      fch = rand(40)-20
      f = 100+fch
      dmg = $enemy_dmg[@event_id]*f/100.0
   
      if $schild_hp != nil and $schild_hp > 0
        @player.animation_id = 94
        $schild_hp -= dmg
        if $schild_hp < 0
          dmg = $schild_hp * -1
          $schild_hp = 0
        else
          dmg = 0
        end
      end
   
      #Schadensreflektion
      if enemy.eva = 1 then uref = $actor.untref else uref = 0 end
        dmgref = (uref + $actor.ref) * dmg
        #spla1 = $game_armors[$actor.armor1_id].spl
        #spla2 = $game_armors[$actor.armor2_id].spl
        #spla3 = $game_armors[$actor.armor3_id].spl
        #if spla1 > 0 then $armor1_dotspl = 60*(rand()*4+3) end
        #if spla2 > 0 then $armor2_dotspl = 60*(rand()*4+3) end
        #if spla3 > 0 then $armor3_dotspl = 60*(rand()*4+3) end
      end
      $enemy_hp[@key] -= dmgref
      defp = $actor.def*0.005*0.97/(@lvl/2.0)
      if defp >= 0.97 then defp = 0.97 end
      f = 1.00 - defp
      $actor.hp -= dmg*f
      #$game_player.display_damage(dmg.to_i)
      if $enemy_hp[@key] <= 0
        @kss = KS_Sieg.new
      end
      $ks_enemy_cd[@index] = 60*100/(enemy.agi-$slow)
      $game_map.need_refresh = true
      return true
    end
  end
end

class KS_Sieg
  def initialize
    key = $game_map.map_id*100 + $event_id
    $enemy_hp[key] = 0
    @lvl = $ks_enemy_lvl[$enemy_index]
    dmg = $enemy_dmg[$event_id]
    hp = $enemy_hpmax[key]
    deff = $data_enemies[$enemy_id].def
    agi = $data_enemies[$enemy_id].agi
    @xp =((hp*(100+deff)/200.0)+(dmg*agi/50.0))
    @gold = $data_enemies[$enemy_id].gold*@lvl
    $hud_pixel = 0
    $hud_enemy_frames = 30
    $temp_opacity_win = 255
    $actor.kills += 1
    b = "B"
    key = [$game_map.map_id, $game_map.events[$event_id].id, b]
    $game_self_switches[key] = true
    xp = @xp*$actor.xp_rate
    $xp.gain(xp)
    gold = @gold*rand(200)*$actor.gold_rate/10000
    $game_party.gain_gold(gold)
    if @xp > 0 then $hud_xp = xp end
    if @gold > 0 then $hud_gold = gold end
    $droprate = $data_enemies[$enemy_id].exp/100.0
    rnd = rand(100)/$droprate
    if rnd < 50 then item_drop end
  end
 
  def item_drop
    rnd = rand(100)/$droprate
    if rnd < 65
      @gg = Game_Generator.new(@lvl,0,0,true)
      if rnd < 25
        @gg = Game_Generator.new(@lvl,0,0,true)
        if rnd < 10
          @gg = Game_Generator.new(@lvl,0,0,true)
          if rnd < 2
            @gg = Game_Generator.new(@lvl,0,0,true)
          end
        end
      end
    else
      rnd = rand(2)
      id = $actor.lvl/12.5+1
      if rnd == 0
        $game_party.gain_item($data_items[id.to_i],1)
        $hud.gain_item(id.to_i)
      else
        $game_party.gain_item($data_items[id.to_i+11],1)
        $hud.gain_item(id.to_i+11)
      end
    end
  end
end