[XP Script] LoanSharks - Printable Version

Code:
# * LoanSharks

#   Scripter : Kyonides-Arkanthos

#   2017-12-24



module Loans

  MAX = { 1 => 99999999, 2 => 99999 }

  TIME_LIMIT = { 1 => 300, 2 => 120 }

  SWITCH_IDS = { 1 => 10, 2 => 11 }

  INTEREST_STEPS = 100

  INTEREST_PERCENT = 10

  @disable_loans = nil

  def self.disable_loans?() @disable_loans end

  def self.disable_loans=(bool) @disable_loans = bool end

  def self.freeze_loans() @disable_loans = true end

  def self.thaw_loans() @disable_loans = nil end

end



class Game_System

  alias loans_gm_sys_up update

  def update

    loans_gm_sys_up

    timers = $game_party.loans_timer

    timers.keys.each do |ls_id|

      timers[ls_id] -= 1

      next if timers[ls_id] > 0

      sid = Loans::SWITCH_IDS[ls_id]

      $game_switches[sid] = true

      timers.delete(ls_id)

    end

  end

end



class Game_Party

  attr_reader :loans

  alias loans_gm_party_init initialize

  alias loans_gm_party_increase_steps increase_steps

  def initialize

    @loans = {}

    @loans_steps = {}

    @loans_timer = {}

    @loans.default = 0

    @loans_steps.default = 0

    @loans_timer.default = 0

    Loans.thaw_loans

    loans_gm_party_init

  end



  def new_loan(ls_id, amount)

    return if Loans.disable_loans

    @loans[ls_id] = amount

    @loans_steps[ls_id] = @steps

    @loans_timer[ls_id] = Loans::TIME_LIMIT[ls_id] * Graphics.frame_rate

  end



  def pay_loan(ls_id, amount)

    old_loans = @loans[ls_id]

    @loans[ls_id] = [old_loans - amount, 0].max

    lose_gold(old_loans - @loans[ls_id])

    return unless @loans[ls_id] == 0

    @loans.delete(ls_id)

    @loans_steps.delete(ls_id)

    @loans_timer.delete(ls_id)

  end



  def increase_loan(ls_id, amount)

    return if Loans.disable_loans

    old_loans = @loans[ls_id]

    @loans = [old_loans + amount, Loans::MAX[ls_id]].min

    gain_gold(@loans[ls_id] - old_loans)

  end



  def increase_steps

    loans_gm_party_increase_steps

    return unless @loans_steps.size == 0

    i_steps = Loans::INTEREST_STEPS

    i_perc = Loans::INTEREST_PERCENT

    @loans_steps.each do |k,v|

      next unless (@steps - v) % i_steps == 0

      @loans[k] += @loans[k] * i_perc / 100

    end

  end

end