bomb.rb

# Copyright 2019 Victor David Santos
#
# This file is part of Super Bombinhas.
#
# Super Bombinhas is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# Super Bombinhas is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Super Bombinhas.  If not, see <https://www.gnu.org/licenses/>.

require 'minigl'

include MiniGL

class Bomb < GameObject
  EXPLODE_COOLDOWN = 900
  STOP_TIME_DURATION = 300
  STOP_TIME_COOLDOWN = 1800
  LIGHT_TILES = [
    [0, 0, 0],
    [-1, 0, 25], [0, -1, 25], [1, 0, 25], [0, 1, 25],
    [-1, -1, 50], [1, -1, 50], [-1, 1, 50], [1, 1, 50],
    [-2, 0, 75], [0, -2, 75], [2, 0, 75], [0, 2, 75],
    [-1, -2, 100], [1, -2, 100], [2, -1, 100], [2, 1, 100], [1, 2, 100], [-1, 2, 100], [-2, 1, 100], [-2, -1, 100],
    [-3, 0, 125], [0, -3, 125], [3, 0, 125], [0, 3, 125],
    [-3, -1, 150], [-2, -2, 150], [-1, -3, 150], [1, -3, 150], [2, -2, 150], [3, -1, 150],
    [3, 1, 150], [2, 2, 150], [1, 3, 150], [-1, 3, 150], [-2, 2, 150], [-3, 1, 150],
    [0, -4, 175], [2, -3, 175], [3, -2, 175], [4, 0, 175], [3, 2, 175], [2, 3, 175],
    [0, 4, 175], [-2, 3, 175], [-3, 2, 175], [-4, 0, 175], [-3, -2, 175], [-2, -3, 175]
  ]

  attr_reader :type, :name, :hp, :max_hp, :saved_hp, :facing_right, :can_use_ability, :cooldown, :will_explode, :exploding,
              :poison_timer, :invulnerable, :invulnerable_time, :invulnerable_timer, :force_field
  attr_accessor :active, :power, :slipping, :sticking, :poisoned, :shielded, :in_vortex

  def initialize(type, hp)
    case type
    when :azul     then @name = 'Bomba Azul';     @def_hp = 2; @max_hp = 2;  x_g = -12; y_g = -8
    when :vermelha then @name = 'Bomba Vermelha'; @def_hp = 3; @max_hp = -1; x_g = -8;  y_g = -14
    when :amarela  then @name = 'Bomba Amarela';  @def_hp = 2; @max_hp = 2;  x_g = -14; y_g = -25
    when :verde    then @name = 'Bomba Verde';    @def_hp = 2; @max_hp = 3;  x_g = -14; y_g = -14
    else                @name = 'Aldan';          @def_hp = 2; @max_hp = 3;  x_g = -14; y_g = -30
    end

    super -1000, -1000, 16, 24, "sprite_Bomba#{type.to_s.capitalize}", Vector.new(x_g, y_g), 6, 2
    @hp = hp == 0 ? @def_hp : hp
    @saved_hp = @hp
    @max_speed_x = type == :amarela ? 5.5 : 4
    @max_speed_x_sq = @max_speed_x ** 2
    @max_speed.y = 15
    @jump_speed = type == :amarela ? 0.06 : 0.05
    @jump_frames = 0
    @stored_jump = 0
    @prev_bottom = 0
    @facing_right = true
    @active = true
    @type = type
    @power = 1

    @explosion_timer = 0
    @explosion_counter = 10
    @paralyze_timer = @poison_timer = 0

    @shield_fx = Sprite.new(0, 0, :fx_shield, 2, 1)
    @aura_fx = Sprite.new(0, 0, :fx_aura, 2, 1)

    @can_use_ability = true
  end

  def update(section)
    forces = Vector.new 0, 0
    switched = false
    if @dying
      animate [9, 10, 11], 8 unless @img_index == 11
    elsif @exploding
      animate [6, 7], 5
      @explosion.animate [0, 1, 2, 3], 5
      @explosion_timer += 1
      @exploding = false if @explosion_timer == 90
      forces.x -= 0.3 * @speed.x if @bottom and @speed.x != 0
    elsif @paralyze_timer > 0
      @paralyze_timer -= 1
    elsif @active
      if @shielded
        @shield_fx.animate([0, 0, 0, 0, 0, 0, 1], 5)
      end
      if @aura
        @aura_fx.animate([0, 1], 5)
        @aura_timer += 1
        if @aura_timer == @aura_duration
          @power = 1
          @aura = false
        end
      end
      if @will_explode
        @explosion_timer += 1
        if @explosion_timer == 60
          @explosion_counter -= 1
          explode if @explosion_counter == 0
          @explosion_timer = 0
        end
      end
      if SB.key_down?(:left)
        @facing_right = false
        forces.x -= @slipping ? 0.2 : 0.5
      end
      if SB.key_down?(:right)
        @facing_right = true
        forces.x += @slipping ? 0.2 : 0.5
      end
      if @bottom
        if @speed.x != 0
          animate [2, 3, 4, 3], 30 / @speed.x.abs
        else
          animate [0, 1], 10
        end
        if @bottom.is_a?(Spring)
          @jump_frames = 31
          @prev_bottom = 0
        else
          @jump_frames = 0
          @prev_bottom = C::LEDGE_JUMP_TOLERANCE
        end
      else
        if @prev_bottom > 0
          @prev_bottom -= 1
        else
          @jump_frames += 1 if @jump_frames < 31
        end
        @stored_jump -= 1 if @stored_jump > 0
        if SB.key_pressed?(:jump)
          @stored_jump = C::EARLY_JUMP_TOLERANCE
        end
      end
      if @jump_frames == 0 && (SB.key_pressed?(:jump) || @stored_jump > 0) || @jump_frames > 0 && @jump_frames < 31 && @speed.y < 0 && SB.key_down?(:jump)
        @prev_bottom = 0
        forces.y -= (1.5 + @jump_speed * @speed.x.abs) / (0.3 * @jump_frames + 0.33) - 0.1
        set_animation 5
        if @jump_frames == 0
          @speed.y = 0
          SB.play_sound(Res.sound(:jump))
        end
      end
      @stored_jump = 0 if @bottom

      if SB.key_pressed?(:prev)
        SB.player.change_item(-1)
      elsif SB.key_pressed?(:next)
        SB.player.change_item
      elsif SB.key_pressed?(:item)
        SB.player.use_item(section)
      elsif SB.key_pressed?(:bomb)
        switched = true
        SB.player.shift_bomb(section)
      elsif @can_use_ability
        if SB.key_pressed? :ability
          if @type == :verde
            explode(false)
            @can_use_ability = false
            @cooldown = EXPLODE_COOLDOWN
          elsif @type == :branca
            SB.stage.stop_time(STOP_TIME_DURATION)
            SB.play_sound(Res.sound(:portal), 1, 1.5)
            @can_use_ability = false
            @cooldown = STOP_TIME_COOLDOWN
          end
        end
      else
        @cooldown -= 1
        if @cooldown == 0
          @can_use_ability = true
        end
      end
    end

    if @force_field
      @force_field.animate([0, 1, 2, 1], 6)
      if @invulnerable_timer >= @invulnerable_time - 120 && @invulnerable_timer % 5 == 0
        @force_field_alpha = @force_field_alpha == 0 ? 255 : 0
      end
    end

    return if switched

    if @invulnerable
      @invulnerable_timer += 1
      if @invulnerable_timer >= @invulnerable_time
        @invulnerable = false
        @force_field = nil
      end
    end
    if @poisoned
      @poison_timer += 1
      if @poison_timer == 180
        hit
        @poison_timer = 0
      end
    else
      @poison_timer = 0
    end
    proj_type = section.projectile_hit?(self)
    if proj_type == 8
      paralyze(120) unless @invulnerable
    elsif proj_type
      hit
    end

    hit if section.explode?(self)

    friction_factor = @slipping ? @speed.x**2 / @max_speed_x_sq : @speed.x.abs / @max_speed_x
    friction_factor = 1 if friction_factor > 1
    friction_factor = 0.015 if friction_factor < 0.015
    forces.x -= (@slipping ? 0.2 : @sticking ? 1 : 0.5) * friction_factor * (@speed.x <=> 0)
    move(forces, section.get_obstacles(@x, @y), section.ramps) if @active
    @slipping = @sticking = false
  end

  def update_timers
    if @invulnerable
      @invulnerable_timer += 1
      if @invulnerable_timer >= @invulnerable_time
        @invulnerable = false
        @force_field = nil
      end
    end
    unless @can_use_ability
      @cooldown -= 1
      if @cooldown == 0
        @can_use_ability = true
      end
    end
    if @paralyze_timer > 0
      @paralyze_timer -= 1
    end
    if @poisoned
      @poison_timer += 1 if @poison_timer < 180
    end
    if @will_explode
      @explosion_timer += 1
      if @explosion_timer == 60
        @explosion_counter -= 1
        @will_explode = false if @explosion_counter == 0
        @explosion_timer = 0
      end
    end
  end

  def do_warp(x, y)
    @speed.x = @speed.y = 0
    @x = x + C::TILE_SIZE / 2 - @w / 2; @y = y + C::TILE_SIZE - @h
    @facing_right = true
    set_animation 0
  end

  def set_exploding(time)
    @will_explode = true
    @explosion_timer = 0
    @explosion_counter = time
  end

  def explode(gun_powder = true)
    @will_explode = false
    @exploding = true
    @explosion_timer = 0
    @explosion_radius = if gun_powder
                          @type == :verde ? 135 : 90
                        else
                          90
                        end
    @explosion = GameObject.new(@x + @w / 2 - @explosion_radius, @y + @h / 2 - @explosion_radius, @explosion_radius * 2, @explosion_radius * 2, :fx_Explosion, Vector.new(0, 0), 2, 2)
    set_animation 6
    SB.play_sound(Res.sound(:explode))
  end

  def explode?(obj, o_c_x = nil, o_c_y = nil)
    return false unless @exploding
    c_x = @explosion.x + @explosion.w / 2; c_y = @explosion.y + @explosion.h / 2
    o_c_x ||= obj.x + obj.w / 2; o_c_y ||= obj.y + obj.h / 2
    sq_dist = (o_c_x - c_x)**2 + (o_c_y - c_y)**2
    sq_dist <= (obj.is_a?(Chamal) ? @explosion_radius * 1.25 : @explosion_radius)**2
  end

  def collide?(obj)
    bounds.intersect? obj.bounds
  end

  def over?(obj, tolerance = nil)
    tolerance ||= @speed.y > C::PLAYER_OVER_TOLERANCE ? @speed.y : C::PLAYER_OVER_TOLERANCE
    @x + @w > obj.x && obj.x + obj.w > @x && @y + @h > obj.y && @y + @h <= obj.y + tolerance
  end

  def bounce(play_sound = true)
    @speed.y = -(C::BOUNCE_SPEED_BASE + (@speed.y / @max_speed.y) * C::BOUNCE_SPEED_INCREMENT)
    @speed.x = rand(-1..1) * @max_speed_x if @speed.x.abs < 0.5

    SB.play_sound(Res.sound(:stomp)) if play_sound
  end

  def hit(damage = 1, ignore_shield = false)
    if @active && !@invulnerable
      if @shielded && !ignore_shield
        @shielded = false
      else
        @hp -= damage
        @hp = 0 if @hp < 0
      end
      if @hp == 0
        SB.player.die
        return
      end
      set_invulnerable
    end
  end

  def paralyze(duration)
    @paralyze_timer = duration
  end

  def hp=(value)
    @hp = value
    @hp = @max_hp if @max_hp > 0 && @hp > @max_hp
  end

  def reset_hp
    @hp = @def_hp if @hp < @def_hp
  end

  def save_hp
    @saved_hp = @hp
  end

  def set_invulnerable(time = nil, timer = nil, force_field = false)
    @invulnerable = true
    @invulnerable_timer = timer || 0
    @invulnerable_time = time || C::INVULNERABLE_TIME
    if force_field
      @force_field = Sprite.new(0, 0, :sprite_ForceField, 3, 1)
      @force_field_alpha = 255
    end
  end

  def set_aura(power, duration)
    @power = power
    @aura = true
    @aura_timer = 0
    @aura_duration = duration
  end

  def reset_cooldown
    @cooldown = 0
    @can_use_ability = true
  end

  def reset(loaded = false)
    @will_explode = @exploding = @aura = @dying = @shielded = @poisoned = @invulnerable = false
    @active = @facing_right = @can_use_ability = true
    @force_field = nil
    @cooldown = @paralyze_timer = @poison_timer = @invulnerable_timer = 0
    @speed.x = @speed.y = @stored_forces.x = @stored_forces.y = 0
    @power = 1
    if loaded
      @hp = @saved_hp
    else
      @saved_hp = @hp = @def_hp
    end
  end

  def celebrate
    set_animation 8
  end

  def die
    @dying = true
    set_animation 9
    stop
  end

  def stop
    @speed.x = @speed.y = @stored_forces.x = @stored_forces.y = 0
    set_animation(0)
  end

  def is_visible(map)
    true
  end

  def draw(map, section)
    unless @invulnerable && @force_field.nil? && @invulnerable_timer % 6 < 3
      super(map, 2, 2, 255, @paralyze_timer > 0 ? 0xff6666 : 0xffffff, nil, @facing_right ? nil : :horiz)
    end
    unless SB.player.dead?
      if @shielded
        @shield_fx.x = @x + @img_gap.x + @img[0].width * 2 - 6
        @shield_fx.y = @y + @img_gap.y - 8
        @shield_fx.draw(map, 2, 2)
      end
      if @aura
        @aura_fx.x = @x - 10
        @aura_fx.y = @y - 30
        @aura_fx.draw(map, 2, 2)
      end
      if @force_field
        @force_field.x = @x + @w / 2 - 30
        @force_field.y = @y + @h / 2 - 30
        @force_field.draw(map, 2, 2, @force_field_alpha)
      end
      if @poisoned && @active
        SB.text_helper.write_line(((180 - @poison_timer).to_f / 60).ceil.to_s, 400, 250, :center, 0xffffff, 255, :border, 0, 1, 255, 1)
      end
      if @will_explode && @active && SB.state != :paused
        SB.text_helper.write_line SB.text(:count_down), 400, 200, :center, 0xffffff, 255, :border, 0, 1, 255, 1 if @explosion_counter > 6
        SB.text_helper.write_line @explosion_counter.to_s, 400, 220, :center, 0xffffff, 255, :border, 0, 1, 255, 1
      end
    end
    @explosion.draw map, 2 * @explosion_radius.to_f / 90, 2 * @explosion_radius.to_f / 90 if @exploding

    section.add_light_tiles(LIGHT_TILES, @x, @y, @w, @h)
  end
end