Window Karma

#===============================================================================->
# Rhyan - Karma Script
#
# - Para alterar os sons tocados:
#
# 1°: Và em Sounds,
#
# 2°.A: Para alterar o som que toca quando o karma:
# :add_karma => "Altere pelo sua SE"
# :remove_karma => "Altere pela sua SE"
# :reset_karma => "Altere pela sua SE"
# :set_karma => "Altere pela sua SE"
#
# OBS: A sua SE precisa estar entre aspas!
# OBS_2: Caso não tenbha entendido, poste uma resposta no tópico.
# OBS_3: Leia os termos de uso caso queiram usar.
#
# Termos de Uso:
#
# Credite Rhyan ou Polloyusrhyan (ambos codinomes meus) e me contate, claro.
#===============================================================================->

#=============#
# Karma_Script
#=============#

module Karma_Script

  Sounds = {
    :add_karma => "Bell3", #<- Toca quando o jogador recebe karma.
    :remove_karma => "Buzzer2", #<- Toca quando o jogador perde karma.
    :reset_karma => "Disappointment", #<- Toca quando o karma do jogador é resetado.
    :set_karma => "Chime2"
  }

  #-=--=--=--=--=--=--=--=--=--=--=--=-#
  # Método de adição de karma.
  #-=--=--=--=--=--=--=--=--=--=--=--=-#

  def self.add_karma(value)
    play_sound(Sounds[:add_karma])
    $game_player.karma += value
  end

  #-=--=--=--=--=--=--=--=--=--=--=--=-#
  # Método de subtração de karma.
  #-=--=--=--=--=--=--=--=--=--=--=--=-#

  def self.remove_karma(value)
    play_sound(Sounds[:remove_karma]) unless $game_player.karma <= 0
    $game_player.karma -= value unless $game_player.karma <= 0
  end

  #-=--=--=--=--=--=--=--=--=--=--=--=-#
  # Método de resetamento de karma.
  #-=--=--=--=--=--=--=--=--=--=--=--=-#

  def self.reset_karma
    play_sound(Sounds[:reset_karma]) unless $game_player.karma <= 0
    $game_player.karma = 0 unless $game_player.karma <= 0
  end

  #-=--=--=--=--=--=--=--=--=--=--=--=-#
  # Método de definir karma.
  #-=--=--=--=--=--=--=--=--=--=--=--=-#

  def self.set_karma(value)
    play_sound(Sounds[:set_karma]) unless $game_player.karma == value
    $game_player.karma = value unless $game_player.karma == value
  end

  #-=--=--=--=--=--=--=--=--=--=--=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-#
  # Método de tocar uma SE. (foi mal, não pensei em algo melhor, hehe.
  #-=--=--=--=--=--=--=--=--=--=--=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-#

  def self.play_sound(sound)
    RPG::SE.new(sound.to_s, 100).play
  end
end

#=============#
# Scene_Map
#=============#

class Scene_Map < Scene_Base
  alias karma_start start

  def start
    karma_start
    @window_karma = Window_Karma.new
  end
end

class Game_Player < Game_Character
  alias karma_initialize initialize

  attr_accessor   :karma

  def initialize
    karma_initialize
    @karma = 0
  end
end

#=============#
# Window_Karma
#=============#

class Window_Karma < Window_Base
  def initialize
    super(422, 0, 122, 48)
    self.opacity = 200
    refresh #<- Refresh inicial.
  end

  def update
    super
    refresh if @last_karma != $game_player.karma #<- Dar o refresh se o último karma for diferente do karma atual.
  end

  def refresh
    @last_karma = $game_player.karma
    contents.clear
    draw_text_ex(0, 0, @last_karma)
  end
end