#===============================================================================
# † [VX] † Rei Stamina System † †
# † Membuat pemain memiliki stamina... †
#-------------------------------------------------------------------------------
# † by reijubv [aruyasoft@comic.com]
# † RMID (Rpgmakerid.forumotion.com)
# † Dipublikasikan pada : 05/07/2009
# † Versi: 1.0 (5 Juli 2009)
#-------------------------------------------------------------------------------
# > Changelog:
#  V.1.0 (5-07-09) = Skrip selesai, di publikasikan.
#-------------------------------------------------------------------------------
# Dengan script ini, player bisa memiliki stamina system, dimana bila ia berlari
# (atau melakukan sesuatu) staminanya akan berkurang, dan tanpa stamina, pemain
# ga bisa lari (atau kecepatan berkurang) atau  mungkin ga bisa melakukan hal
# lain!
#
# Stamina bakal otomatis bertambah waktu player diam, atau jalan tanpa berlari.
#
# Waktu pemain diam, kecepatan penyembuhan stamina bisa lebih cepat!
#
# Cara pakai :
# > Untuk menyembuhkan stamina, di Event Command "Script" ketik ini :
# heal_sta(jumlah)
# dimana jumlah adalah angka, seberapa banyak kamu mau nyembuhin stamina.
# > Untuk mengurangi stamina,  di Event Command "Script" ketik ini :
# sub_sta(jumlah)
# dimana jumlah adalah angka, seberapa banyak kamu mau ngurangin stamina.
#
# Untuk membuat Item yang menyembuhkan/mengurangi stamina :
# Tulis salah satu dari 2 baris berikut ke note boxnya barang.
# > Untuk menyembuhkan/mengurangi dari sekian % stamina maksimal :
# %modsta persentase
# > Untuk menyembuhkan/mengurangi stamina :
# *modsta angka
#
#
# Kalau kamu pake event command Recover All, otomatis stamina juga sembuh!
#
# Kamu juga bisa pakai variable untuk menyimpan jumlah stamina saat ini,
# silakan edit di Rei module dibawah
#-------------------------------------------------------------------------------
# Credits:
# reijubv
#-------------------------------------------------------------------------------
# ? Pemasangan:
# Taroh diatas Main, edit Rei module dibawah...
# Taroh diatas semua script baru kalau bisa...
#==============================================================================
$imported = {} if $imported == nil
$imported["Rei_"+"StaminaSystem"] = true
#---------------------------------------------------------------------------
# ** Rei Module
#---------------------------------------------------------------------------
module Rei
  module StaminaSystem
    VARIABEL1  = 1  # Variable Id untuk menyimpan jumlah stamina saat ini.
    VARIABEL2  = 2  # Variable Id untuk menyimpan jumlah stamina maksimal.
    JUMLAHAWAL = 100 # Jumlah stamina pada awalnya.
    NAIKLEVEL  = 1.2 # Setiap naik level, stamina dikali segini.
                    # Kalau mau stamina tetap waktu naik level, ganti jadi 1.0
    AWALPNYMBHN= 30  # Kecepatan penyembuhan awal (dalam frame), makin kecil
                    # makin cepet sembuhnya.
    NAIKLVLSMBH= 1.2 # Setiap naik level, penyembuhan stamina dibagi segini.
                    # Kalau mau tetap waktu naik level, ganti jadi 1.0
    SIAPA      =  0  # Siapa yang punya stamina? (0 sampai 3)
                    # 0 berarti anggota party yang pertama.
    JUMLAH    = 1  # Tiap 1 frame ngurangi/nambahin berapa stamina (waktu lari
                    # ngurangi , waktu ga lari nambahin ).
    PRSEN      = 10  # Waktu diam (ga gerak) kecepatan penyembuhan naik brp %?
    STOP      = true# Hentikan penyembuhan stamina waktu message lagi muncul?
    SWITCH    = 1  # Switch Id untuk matiin/nyalain Stamina System!
                    # (Tapi ga matiin HUDnya, switch HUD ada di settingannya
                    # sendiri.)
  end
end
#---------------------------------------------------------------------------
# ** Rei Commands Module
# Ini module untuk menyimpan perintah game interpreter dari scriptnya Rei.
#---------------------------------------------------------------------------
module Rei::Commands
  module_function
  def heal_sta(jumlah)
    $game_party.members[Rei::StaminaSystem::SIAPA].add_sta(jumlah)
  end
  def sub_sta(jumlah)
    $game_party.members[Rei::StaminaSystem::SIAPA].red_sta(jumlah)
  end
end
#---------------------------------------------------------------------------
# ** Game_Interpreter
#---------------------------------------------------------------------------
class Game_Interpreter
  include Rei::Commands
  alias reistacommand_314 command_314 unless $@
  def command_314
    heal_sta($game_party.members[Rei::StaminaSystem::SIAPA].maxsta)
    reistacommand_314
  end
end
#---------------------------------------------------------------------------
# ** RPG
#---------------------------------------------------------------------------
module RPG
  class Item
  def mod_sta
    self.note.each_line {|line|
    return line.gsub!('*modsta ', '').chomp.to_i if line.include?('*modsta ')
    }
    return 0
  end
  def prc_sta
    self.note.each_line {|line|
    return line.gsub!('%modsta ', '').chomp.to_i if line.include?('%modsta ')
    }
    return 0
  end
  end
end
#---------------------------------------------------------------------------
# ** Game_Actor
#---------------------------------------------------------------------------
class Game_Actor
  attr_accessor :maxsta, :stamina, :recover
  attr_reader :default_recover
  alias reistaminainit12345 initialize unless $@
  def initialize(actor_id)
    reistaminainit12345(actor_id)
    @stamina = Rei::StaminaSystem::JUMLAHAWAL
    @maxsta = @stamina
    @recover = Rei::StaminaSystem::AWALPNYMBHN
    @default_recover = @recover
    $game_variables[Rei::StaminaSystem::VARIABEL2] = @maxsta
  end
  alias reistaminalevel_up12345 level_up unless $@
  def level_up
    @maxsta = @maxsta * Rei::StaminaSystem::NAIKLEVEL
    @recover = @recover / Rei::StaminaSystem::NAIKLVLSMBH
    @maxsta = @maxsta.to_i
    @recover = @recover.to_i
    @default_recover = @recover
    $game_variables[Rei::StaminaSystem::VARIABEL2] = @maxsta
    reistaminalevel_up12345
  end
  def stamina_text
    return (@stamina).to_s + '/' + (@maxsta).to_s
  end
  def sta_text_width
    bitmap = Bitmap.new(1,1)
    nsize = bitmap.text_size(stamina_text)
    bitmap.dispose
    return nsize
  end
  def red_sta(x)
    if (@stamina - x) >= 0
      @stamina = @stamina - x
    else
      @stamina = 0
    end
  end
  def add_sta(x)
    if (@stamina + x) <= @maxsta
      @stamina = @stamina + x
    else
      @stamina = @maxsta
    end
  end
end
#---------------------------------------------------------------------------
# ** Game_Battler
#---------------------------------------------------------------------------
class Game_Battler
  def calc_sta_recovery(user, item)
    result = user.maxsta * item.prc_sta / 100 + item.mod_sta
    result *= 2 if user.pharmacology
    return result
  end
  def item_test(user, item)
    tester = self.clone
    tester.make_obj_damage_value(user, item)
    tester.apply_state_changes(item)
    if tester.hp_damage < 0 or tester.calc_hp_recovery(user, item) > 0
      return true if tester.hp < tester.maxhp
    end
    if tester.mp_damage < 0 or tester.calc_mp_recovery(user, item) > 0
      return true if tester.mp < tester.maxmp
    end
    act = $game_party.members[Rei::StaminaSystem::SIAPA]
    if act.stamina <= act.maxsta or calc_sta_recovery(user, item) != 0
      return true
    end
    return true unless tester.added_states.empty?
    return true unless tester.removed_states.empty?
    return true if item.parameter_type > 0
    return false
  end
  def item_effect(user, item)
    clear_action_results
    unless item_effective?(user, item)
      @skipped = true
      return
    end
    if rand(100) >= calc_hit(user, item)          # determine hit ratio
      @missed = true
      return
    end
    if rand(100) < calc_eva(user, item)          # determine evasion rate
      @evaded = true
      return
    end
    sta_rec = calc_sta_recovery(user, item)
    hp_recovery = calc_hp_recovery(user, item)
    mp_recovery = calc_mp_recovery(user, item)
    make_obj_damage_value(user, item)
    @hp_damage -= hp_recovery
    @mp_damage -= mp_recovery
    if sta_rec > 0
      $game_party.members[Rei::StaminaSystem::SIAPA].add_sta(sta_rec)
    else
      sta_rec -= sta_rec*2
      $game_party.members[Rei::StaminaSystem::SIAPA].red_sta(sta_rec)
    end
    make_obj_absorb_effect(user, item)
    execute_damage(user)
    item_growth_effect(user, item)
    if item.physical_attack and @hp_damage == 0
      return                                 
    end
    apply_state_changes(item)
  end
end
#---------------------------------------------------------------------------
# ** Scene_Map
#---------------------------------------------------------------------------
class Scene_Map
  alias reistaminastart start unless $@
  def start
    reistaminastart
    $game_system.sta_delay_refresh
  end
  alias reistaupdate update unless $@
  def update
    reistaupdate
    if Rei::StaminaSystem::STOP
      return if $game_message.visible
    end
    return if not $game_switches[Rei::StaminaSystem::SWITCH]
    member = $game_party.members[Rei::StaminaSystem::SIAPA]
    itung2an = (member.recover-(member.recover*Rei::StaminaSystem::PRSEN/100))
    if $game_player.moving? and !$game_player.dash?
      if $game_system.waiting_sta >= member.recover
        member.add_sta(Rei::StaminaSystem::JUMLAH)
      end
    elsif !$game_player.moving? and !$game_player.dash?
      if $game_system.waiting_sta >= itung2an
        member.add_sta(Rei::StaminaSystem::JUMLAH)
      end
    elsif $game_player.moving? and $game_player.dash?
      member.red_sta(Rei::StaminaSystem::JUMLAH)
    end
    $game_variables[Rei::StaminaSystem::VARIABEL1] = member.stamina
  end
end
#---------------------------------------------------------------------------
# ** Game_Player
#---------------------------------------------------------------------------
class Game_Player < Game_Character
  alias reista_dash? dash?
  def dash?
    return false if $game_party.members[Rei::StaminaSystem::SIAPA].stamina == 0
    reista_dash?
  end
end
#---------------------------------------------------------------------------
# ** Game_System
#---------------------------------------------------------------------------
class Game_System
  attr_reader :waiting_sta
  alias reistainitialize initialize unless $@
  def initialize
    @waiting_sta = 0
    reistainitialize
  end
  def sta_delay_refresh
    @waiting_sta = 0
  end
  alias reistaupdate update unless $@
  def update
    member = $game_party.members[Rei::StaminaSystem::SIAPA]
    @waiting_sta = @waiting_sta + 1
    @waiting_sta = 0 if @waiting_sta > member.recover
    reistaupdate
  end
end

#===============================================================================
# † [VX] † Rei Stamina System HUD † †
# † HUD buat nongolin jumlah stamina †
#-------------------------------------------------------------------------------
# † by reijubv [aruyasoft@comic.com]
# † RMID (Rpgmakerid.forumotion.com)
# † Dipublikasikan pada : 05/07/2009
# † Versi: 1.0 (5 Juli 2009)
#-------------------------------------------------------------------------------
# > Changelog:
#  V.1.0 (5-07-09) = Skrip selesai, di publikasikan.
#-------------------------------------------------------------------------------
# Credits:
# reijubv
#-------------------------------------------------------------------------------
# ? Pemasangan:
# Taroh diatas Main, HARUS punya Rei Stamina System, edit Rei module dibawah...
#==============================================================================
$imported = {} if $imported == nil
$imported["Rei_"+"StaminaSystemHud"] = true
#---------------------------------------------------------------------------
# ** Rei Module
#---------------------------------------------------------------------------
module Rei
  module StaminaSystemHud
    KOORDINAT = [0,0]# Koordinat HUDnya, [x,y]
    PANJANG  = 100  # Panjang bar-nya, dalam pixel
    LEBAR    = 8    # Lebar bar-nya, dalam pixel
    SWITCH    = 2    # Switch Id untuk nyala/matiin HUDnya.
    WARNA1    = Color.new(32,32,0)  # Warna awal bar-nya
    WARNA2    = Color.new(255,255,0) # Warna akhir bar-nya
    BACKGRND  = Color.new(0,0,0)    # Warna background bar-nya,
    TEXT      = true # Munculin text "stamina_sekarang/stamina_maximal" kagak?
    FONT      = Font.default_name # nama fontnya
    UKURAN    = 12  # Ukuran fontnya
    BOLD      = true # Bold?
    ITALIC    = false# Italic?
    Y        = 8    # Koordinat vertikal dari text tersebut
  end
end
#------------------------------------------------------------------------------
#------------------------------------------------------------------------------
if $imported["Rei_"+"StaminaSystem"]
class Stamina_HUD < Window_Base
  include Rei::StaminaSystemHud , Rei::StaminaSystem
  def initialize(x,y)
    super(x,y,PANJANG+32,LEBAR+48)
    @actor = $game_party.members[SIAPA]
    @stamina = @actor.stamina
    @maxsta = @actor.stamina
    @identifier = 0
    self.opacity = 0
    self.visible = $game_switches[Rei::StaminaSystemHud::SWITCH]
  end
  def update
    refresh
  end
  def refresh
    if @identifier != @actor.stamina
      @identifier = @actor.stamina
      self.contents.clear
      draw_stamina_gauge
      if TEXT
        self.contents.font.name = FONT
        self.contents.font.size = UKURAN
        self.contents.font.bold = BOLD
        self.contents.font.italic = ITALIC
        self.contents.draw_text(0, Y, PANJANG, WLH, @actor.stamina_text, 1)
      end
    end
  end
  def draw_stamina_gauge
    a1 = @actor.stamina
    a2 = @actor.maxsta
    gw = PANJANG * a1 / a2
    gc1 = WARNA1
    gc2 = WARNA2
    self.contents.fill_rect(0, 0, PANJANG,LEBAR, BACKGRND)
    self.contents.gradient_fill_rect(0, 0, gw,LEBAR, gc1, gc2)
  end
end
class Scene_Map
  alias reistaminastarthud start unless $@
  def start
    kord = Rei::StaminaSystemHud::KOORDINAT
    @stamina_hud = Stamina_HUD.new(kord[0],kord[1])
    reistaminastarthud
  end
  alias reistaupdatehud update unless $@
  def update
    @stamina_hud.update unless !@stamina_hud.visible
    @stamina_hud.visible = $game_switches[Rei::StaminaSystemHud::SWITCH]
    reistaupdatehud
  end
  alias reistaterminatehud terminate unless $@
  def terminate
    @stamina_hud.dispose
    reistaterminatehud
  end
end
else
  p "Hey, kamu membutuhkan Rei Stamina System!"
  exit
end