DOING IT! - WEEK FOUR

# ==============================
# Custom Event Speeds v1.1
# by GreatRedSpirit
# ==============================
# All default speeds are hard coded into the scripts which is silly and I'll
# be cutting that kind of gunk out!
# Now the adjusted speed 

module Speed
  
  # Move speed multiplier
  # A step up in speed is a speed multiplication of this value
  @multiplier = 2.0
  # Default move speed of the player
  @player = 5
  # Speed multiplier of the player when dashing
  @dash = 0.5
  # Default walking speed of events and the player
  @event = 4
  # Default speeds of the vehicles
  @airship = 6
  @ship = 5
  @boat = 5
  
  #-----------------------------------------------------------------------------
  # Get and set the default move speeds 
  def self.multiplier
    return @multiplier
  end
  
  def self.multiplier=(new)
    return @multiplier if @multiplier == new
    return @multiplier = new
  end
  
  def self.player
    return @player
  end
  
  def self.player=(new)
    return @player if @player == new
    return @player = new
  end
  
  def self.dash
    return @dash
  end
  
  def self.dash=(new)
    return @dash if @dash == new
    return @dash = new
  end
  
  def self.event
    return @event
  end
  
  def self.event=(new)
    return @event if @event == new
    return @event = new
  end
  
  def self.airship
    return @airship
  end
  
  def self.airship=(new)
    return @airship if @airship == new
    return @airship = new
  end
  
  def self.ship
    return @ship
  end
  
  def self.ship=(new)
    return @ship if @ship == new
    return @ship = new
  end
  
  def self.boat
    return @boat
  end
  
  def self.boat=(new)
    return @boat if @boat == new
    return @boat = new
  end
  
  # Dump the speeds into an array so they can be saved
  def self.save_speeds
    array = []
    array.push(@multiplier)
    array.push(@player)
    array.push(@dash)
    array.push(@event)
    array.push(@airship)
    array.push(@ship)
    array.push(@boat)
    return array
  end
    
  # Load an array of values into speeds (like from loading a game)
  def self.load_speeds(array)
    if array.size >= 7
      @multiplier = array[0]
      @player = array[1]
      @dash = array[2]
      @event = array[3]
      @airship = array[4]
      @ship = array[5]
      @boat = array[6]
    else
      print "Speed couldn't load array, bad dimensions"
    end
  end
end

#-------------------------------------------------------------------------------
# Set a character's move speed to its default value

class Game_Character
  # When initialized, set speed to default speed
  alias initialize_gc_cds_ori initialize unless $@
  def initialize
    # Init character
    initialize_gc_cds_ori
    # Set move speed to default value
    @move_speed = Speed.event
  end  
  
  # When the character moves, multiply the distance by the dash speed
  # Does not call original method, it modifies the event's position
  def update_move
    distance = Speed.multiplier ** @move_speed   # Convert to movement distance
    distance *= Speed.dash if dash?        # If dashing, double it
    @real_x = [@real_x - distance, @x * 256].max if @x * 256 < @real_x
    @real_x = [@real_x + distance, @x * 256].min if @x * 256 > @real_x
    @real_y = [@real_y - distance, @y * 256].max if @y * 256 < @real_y
    @real_y = [@real_y + distance, @y * 256].min if @y * 256 > @real_y
    update_bush_depth unless moving?
    if @walk_anime
      @anime_count += 1.5
    elsif @step_anime
      @anime_count += 1
    end
  end
  
  # Update the animation depending on the dash setting
  # Does not call the original method, it'd update the animation twice
  def update_animation
    if Speed.dash < 1
      dashMod = -(Speed.dash ** -1).to_i
    else
      dashMod = (Speed.dash / 2).to_i
    end
    speed = @move_speed + (dash? ? dashMod : 0)
    if @anime_count > 18 - speed * 2
      if not @step_anime and @stop_count > 0
        @pattern = @original_pattern
      else
        @pattern = (@pattern + 1) % 4
      end
      @anime_count = 0
    end
  end
  
end

#-------------------------------------------------------------------------------
# Set the move speed of a vehicle when getting on a vehicle

class Game_Vehicle < Game_Character
  # When the player gets on a vehicle set the vehicle's work speed
  alias get_on_cds_ori get_on unless $@
  def get_on
    # Set speed before getting on the vehicle
    case @type
    when 0;
      @move_speed = Speed.boat
    when 1;
      @move_speed = Speed.ship
    when 2;
      @move_speed = Speed.airship
    end
    # Now get on the vehicle
    get_on_cds_ori
  end
  
  # When refreshing a vehicle, regrab the correct move speed
  alias refresh_cds_ori refresh unless $@
  def refresh
    # First call the original method, we'll fix the speed last
    refresh_cds_ori
    # Set the move speed to the correct vehicle
    case @type
    when 0;
      @move_speed = Speed.boat
    when 1;
      @move_speed = Speed.ship
    when 2;
      @move_speed = Speed.airship
    end
  end
  
end

#-------------------------------------------------------------------------------
# The player character should remember its walking speed after getting off
# a vehicle
class Game_Player < Game_Character
  
  # Set the player's movement speed to its default value
  alias initialize_gp_cds_ori initialize unless $@
  def initialize
    # Create the player character
    initialize_gp_cds_ori
    # Set movement speed to default
    @move_speed = Speed.player
  end
  
  # When the player gets on a vehicle, remember their current speed
  alias get_on_vehicle_cds_ori get_on_vehicle unless $@
  def get_on_vehicle
    # Remember move speed
    @old_move_speed = @move_speed
    # Now get on the vehicle!
    get_on_vehicle_cds_ori
  end
  
  # When the player gets off a vehicle, set their move speed to the
  # remembered value
  alias get_off_vehicle_cds_ori get_off_vehicle unless $@
  def get_off_vehicle
    # Get off the vehicle (move speed set to 4)
    get_off_vehicle_cds_ori
    # If the player is getting off a vehicle, restore their walk speed
    @move_speed = @old_move_speed if @vehicle_getting_off == true 
  end
  
end

#-------------------------------------------------------------------------------
# When saving/loading the game, save/load the speeds set in the Speed module

class Scene_File < Scene_Base
  alias write_save_data_cds_ori write_save_data unless $@
  def write_save_data(file)
    # Call original method first
    write_save_data_cds_ori(file)
    # Save the speed array
    Marshal.dump(Speed.save_speeds, file)
  end
  
  alias read_save_data_cds_ori read_save_data unless $@
  def read_save_data(file)
    # Call the original method first (same order as saving)
    read_save_data_cds_ori(file)
    # Load the game speeds into the speed module
    Speed.load_speeds( Marshal.load(file) )
  end
end