[Request] Lv down script

class Game_Interpreter
  def command_311
    value = operate_value(@params[1], @params[2], @params[3])
    iterate_actor_id(@params[0]) do |actor|
      next if actor.dead?
      if @params[4] == false and actor.hp + value <= 0
        if actor.level > 1    # If incapacitation is not allowed, make 1
          actor.change_level(actor.level - 1, true)
          actor.hp = actor.maxhp
        else
          $game_temp.next_scene = "gameover"
        end
      else
        actor.hp += value
      end
      actor.perform_collapse
    end
    if $game_party.all_dead?
      $game_temp.next_scene = "gameover"
    end
    return true
  end
end

class Game_Interpreter
  def command_311
    value = operate_value(@params[1], @params[2], @params[3])
    iterate_actor_id(@params[0]) do |actor|
      next if actor.dead?
      if @params[4] == false and actor.hp + value <= 0
        if actor.level > 1    # If incapacitation is not allowed, make 1
          character = get_character(0)
          if character != nil
            character.animation_id = 1
          end
          actor.change_level(actor.level - 1, true)
          actor.hp = actor.maxhp
        else
          $game_temp.next_scene = "gameover"
        end
      else
        actor.hp += value
      end
      actor.perform_collapse
    end
    if $game_party.all_dead?
      $game_temp.next_scene = "gameover"
    end
    return true
  end
end

module Hart
  module LevelDown
  #--------------------------------------------------------------------------
  # * Pengaturan
  #--------------------------------------------------------------------------
    LevelDownAnimationId = 1
    LevelUpAnimationId = 37
    GoldLimit = 100
    ShowLevelChange = false
  #--------------------------------------------------------------------------
  end
end

class Game_Party < Game_Unit
  def gain_gold(n)
    @gold = [[@gold + n, 0].max, 9999999].min
    if $game_party.gold >= Hart::LevelDown::GoldLimit
      @gold -= Hart::LevelDown::GoldLimit
      actor = $game_party.members[0]
      actor.change_level(actor.level + 1, Hart::LevelDown::ShowLevelChange)
      $game_player.animation_id = Hart::LevelDown::LevelUpAnimationId
    end
  end
end

class Game_Interpreter
  def command_311
    value = operate_value(@params[1], @params[2], @params[3])
    iterate_actor_id(@params[0]) do |actor|
      next if actor.dead?
      if @params[4] == false and actor.hp + value <= 0
        if actor.level > 1    # If incapacitation is not allowed, make 1
          character = get_character(-1)
          if character != nil
            character.animation_id = Hart::LevelDown::LevelDownAnimationId
          end
          actor.change_level(actor.level - 1, Hart::LevelDown::ShowLevelChange)
          actor.hp = actor.maxhp
        else
          $game_temp.next_scene = "gameover"
        end
      else
        actor.hp += value
      end
      actor.perform_collapse
    end
    if $game_party.all_dead?
      $game_temp.next_scene = "gameover"
    end
    return true
  end
end

#===============================================================================
# Script untuk jabbar
# dari reijubv
#===============================================================================
# Cara pakai :
#===============================================================================
# o Kalau mau nambahin gold, di event command halaman 4, klik tombol script dan
#  masukkan :
#
#  add_gold(jumlah_gold)
#
#  Kalau jumlah gold yang sedang dimiliki ada 100, otomatis naik 1 level dan gold
#  kembali jadi 0 (atau, misal gold saat ini 99 trus player dapet 10 gold, gold
#  saat ini jadi 9 ( 99 + 10 - 100 ) , terserah kamu, ganti aja yg dibawah ini
#  jadi true kalau mau metode ini, kalau tidak ya false )
 KURANGI_100 = true
#
# o Kalau mau ngurangin HP, pakai aja ini ( jangan eventing biasa ):
# 
#  damage_hp(jumlah_hp_yg_dikurangi)
# 
#  angka negatif = heal
#  angka positif = damage
#
#  otomatis level berkurang 1 dan hp direset jadi full lagi waktu level berkurang
#  otomatis gameover kalau level 0 (asalkan damagenya dari fungsi diatas)
#
#===============================================================================
# Ini untuk window statusnya
#===============================================================================
# o Apa nama variabelnya ? Biar ditulis sebelum value dari variable itu
 NAMA_VARIABELNYA = "Test_Variable : "
#
# o Set koordinat x
#  Ubah angka ini kalau misalnya text untuk variabel itu bentrok dg nama char
#  atau posisinya terlalu jauh (atau terlalu dekat)
#  positif = pindahin ke kanan
#  negatif = pindahin ke kiri
 X_FIX = 0
#
# o Set koordinat y
#  Ubah angka ini kalau posisi vertikal textnya kurang enak
#  positif = pindahin ke bawah
#  negatif = pindahin ke atas
 Y_FIX = 0
#
# o Variabel yang digunakan :
 VARIABLE_YANG_DIGUNAKAN = 4
#===============================================================================
class Game_Party < Game_Unit
  attr_accessor  :gold
end
class Game_Actor < Game_Battler
  attr_accessor  :level
end
class Game_Interpreter
 
  def add_gold(n)
    $game_party.gold += n
    if $game_party.gold >= 100
      $game_party.gold -= 100 if KURANGI_100
      $game_party.gold = 0 if !KURANGI_100
      $game_party.members[0].level += 1
    end
  end
 
  def damage_hp(n)
    $game_party.members[0].hp -= n
    if $game_party.members[0].hp <= 0
      $game_party.members[0].hp = $game_party.members[0].maxhp
      $game_party.members[0].level -= 1
    end
    if $game_party.members[0].level <= 0
      $game_temp.next_scene = "gameover"
    end
  end
 
end

class Window_Status < Window_Base
  alias rei_wndw_sts_rfresh refresh
  def refresh
    rei_wndw_sts_rfresh
    self.contents.draw_text(72+X_FIX,0+Y_FIX,self.width,WLH,NAMA_VARIABELNYA)
    self.contents.draw_text(72+X_FIX+text_size(NAMA_VARIABELNYA),0+Y_FIX,
                            self.width,WLH,"#{$game_variables[VARIABLE_YANG_DIGUNAKAN]}")
                           
  end
end
#===============================================================================
#                                    Selesai
#===============================================================================

class Game_Interpreter
  def command_311
    value = operate_value(@params[1], @params[2], @params[3])
    iterate_actor_id(@params[0]) do |actor|
      next if actor.dead?
      if @params[4] == false and actor.hp + value <= 0
        actor.hp = 1    # If incapacitation is not allowed, make 1
      else
        actor.hp += value
      end
      actor.perform_collapse
    end
    return true
  end
end

class Window_Status < Window_Base
  alias rei_wndw_sts_rfresh refresh
  def refresh
    rei_wndw_sts_rfresh
    self.contents.draw_text(72+X_FIX,0+Y_FIX,self.width,WLH,NAMA_VARIABELNYA)
    self.contents.draw_text(72+X_FIX+text_size(NAMA_VARIABELNYA),0+Y_FIX,
                            self.width,WLH,"#{$game_variables[VARIABLE_YANG_DIGUNAKAN]}")
                         
  end
end

class Window_Status < Window_Base
  alias rei_wndw_sts_rfresh refresh
  def refresh(sesuatu)
    rei_wndw_sts_rfresh(sesuatu)
    self.contents.draw_text(72+X_FIX,0+Y_FIX,self.width,WLH,NAMA_VARIABELNYA)
    self.contents.draw_text(72+X_FIX+text_size(NAMA_VARIABELNYA),0+Y_FIX,
                            self.width,WLH,"#{$game_variables[VARIABLE_YANG_DIGUNAKAN]}")
                         
  end
end