[Game Discussion] What's up, RMers?

Code:
# * KBribe XP

#   Scripter : Kyonides Arkanthes

#   2022-07-10

# * Non Plug & Play Script * #



# Now you can bribe your foes!

# In the KBribe module you can find several CONSTANTS where you can set the

# initial values for the hit rate, damage percent, etc.



# * Script Calls * #



# $game_party.bribe_hit = Percent

# $game_party.bribe_gold_percent = Percent

# $game_party.bribe_dmg_percent = Percent

# $game_party.bribe_gold_min = Coins

# $game_party.bribe_show_dmg_pop = true  or  false



module KBribe

  SKILL_ID = 81

  ANIMATION_ID = 101 # Bribing Hero's Failure Animation

  START_HIT_RATE = 50

  START_GOLD_PERCENT = 5

  FAILURE_DMG_PERCENT = 25

  GOLD_MIN = 50

  SHOW_DMG_POP_UP = true

  SUCCESS_LABEL = "Bribed"

  extend self

  @battlers = []

  def <<(battler) @battlers << battler end

  def setup

    @battlers.each do |btlr|

      btlr.animation_id = ANIMATION_ID

      btlr.animation_hit = true

    end

  end



  def hurt!

    @battlers.each{|btlr| btlr.damage_pop = $game_party.bribe_show_dmg_pop }

    @battlers.clear

  end

end



class Game_Party

  alias :kyon_bribe_gm_pty_init :initialize

  def initialize

    kyon_bribe_gm_pty_init

    @bribe_hit = KBribe::START_HIT_RATE

    @bribe_gold_percent = KBribe::START_GOLD_PERCENT

    @bribe_dmg_percent = KBribe::FAILURE_DMG_PERCENT

    @bribe_gold_min = KBribe::GOLD_MIN

    @bribe_show_dmg_pop = KBribe::SHOW_DMG_POP_UP

  end



  def pay_bribe!

    return false if @bribe_gold_min > @gold

    amount = (@gold / 100 * @bribe_gold_percent).round

    lose_gold(amount)

    true

  end

  attr_accessor :bribe_hit, :bribe_gold_percent

  attr_accessor :bribe_dmg_percent, :bribe_gold_min, :bribe_show_dmg_pop

end



class Game_Battler

  alias :kyon_bribe_gm_btlr_skill_fx :skill_effect

  def check_bribe(user)

    hit = $game_party.pay_bribe!

    hit |= rand(100) < $game_party.bribe_hit

    if hit

      @damage = KBribe::SUCCESS_LABEL

      escape

    else

      user.damage = (user.hp / 100 * $game_party.bribe_dmg_percent).round

      user.hp -= user.damage

      KBribe << user

    end

  end



  def skill_effect(user, skill)

    return check_bribe(user) if self.enemy? and KBribe::SKILL_ID == skill.id

    kyon_bribe_gm_btlr_skill_fx(user, skill)

  end

  def actor?() @actor_id != nil end

  def enemy?() @enemy_id != nil end

end



class Scene_Battle

  alias :kyon_backfire_scn_btl_up_ph4_s4 :update_phase4_step4

  alias :kyon_backfire_scn_btl_up_ph4_s5 :update_phase4_step5

  def update_phase4_step4

    kyon_backfire_scn_btl_up_ph4_s4

    KBribe.setup

  end



  def update_phase4_step5

    kyon_backfire_scn_btl_up_ph4_s5

    KBribe.hurt!

  end

end