[VXA] Simple Hud & Map Name Window

###############################################################################
#
#                                    RMID
#                            RPG MAKER INDONESIA
#                            www.rpgmakerid.com
#
#  SIMPLE HUD & MAP NAME WINDOW
#  Version : 1.0
#==============================================================================
#
#  Dibuat Oleh: Aidil Riski
#
#  TIDAK UNTUK PENGGUNAAN KOMERSIL.
#
#==============================================================================
#  CARA PAKAI:
#  Letakkan Skrip ini dibawah Materials di atas Main.
#  Untuk menampilkan HUD & MAP INFO, hidupkan switch dengan id yang ditentukan
#  di bawah.
#  Untuk mengatur kontras Window HUD & MAP INFO, atur dengan variable dengan id
#  yang telah ditentukan di bawah.
#  Untuk mengatur koordinat X dan Y dari Window HUD & MAP INFO, atur di konfigurasi.
#
#
#  AWAL KONFIGURASI

module MINF
  #Koordinat X untuk Window HUD.
  X = 0
  #Koordinat Y untuk Window HUD.
  Y = 0
  #Koordinat X untuk Gauge.
  X_HUD = 145
  #Lebar untuk Window HUD.
  WIDTH = 300
  #Tinggi untuk Window HUD.
  HEIGHT = 100
  #Jika 'true', Gold akan ditampilkan.
  GOLD = true
  #ID Icon untuk Icon Gold.
  ICON_ID =  361
  #Jika 'true', kontras Window diatur dengan Variabel. Default 'false'.
  VAR_TR = false
  #ID untuk variable untuk mengatur kontras Window.
  VARIABLE = 100
  #ID untuk switch untuk menampilkan HUD.
  SWITCH = 99
  #ID untuk switch untuk menampilkan Window MAP.
  SWITCH_M = 100
  #Koordinat X untuk Window MAP.
  X_MAP = 300
  #Koordinat Y untuk Window MAP.
  Y_MAP = 0
  #Lebar untuk Window MAP.
  WIDTH_MAP = 180
  #Tinggi untuk Window MAP.
  HEIGHT_MAP = 64
end
#
#  AKHIR KONFIGURASI
#
#  JANGAN MENG-EDIT SKRIP DI BAWAH APABILA ANDA TIDAK MENGERTI :p
#  SEGALA JENIS EROR YANG TERJADI SETELAH PERUBAHAN SKRIP DI BAWAH TIDAK DITANGGUNG
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

class Window_MapInfo < Window_Base
  def initialize
    super( MINF::X, MINF::Y, width, height)
    @actor = $game_party.members[0]
    @actor_hp = @actor.hp
    @actor_mp = @actor.mp
    @actor_name = @actor.name
    refresh
  end
  def refresh
    contents.clear
    gold
    create_hud
  end
  def create_hud
    draw_actor_name( @actor, 2, MINF::Y + 1)
    draw_actor_hp( @actor, MINF::X_HUD, MINF::Y + 1)
    draw_actor_mp( @actor, MINF::X_HUD, MINF::Y + 28)
    draw_icon(MINF::ICON_ID, 2, MINF::Y + 56, true)
    draw_currency_value(gold, voc, 2,MINF::Y + 56, contents.width - 8)
    if MINF::GOLD == false
      self.height = 118
    else
      self.height = height
    end
    if MINF::VAR_TR == true
      self.opacity = $game_variables[MINF::VARIABLE]
    else
      self.opacity = 255
    end
    self.visible = $game_switches[MINF::SWITCH]
  end
  def update
    super
    refresh
  end
  def terminate
    self.dispose
  end
  def HP
    @actor.hp
  end
  def MP
    @actor.mp
  end
  def width
    return MINF::WIDTH
  end
  def height
    return MINF::HEIGHT
  end
  def gold
    $game_party.gold
  end
  def voc
    Vocab::currency_unit
  end
end

class Window_Map < Window_Base
  include MINF
  def initialize
    super( MINF::X_MAP, MINF::Y_MAP, width, height)
    refresh
  end
  def refresh
    contents.clear
    @map_name = $game_map.display_name
    if @map_name.empty?
      self.visible = false
    else
      create_mapname
    end
   
  end

  def create_mapname
    unless $game_map.display_name.empty?
      draw_text( 0, 0, width - 7, height - 25, @map_name)
    end
    self.visible = $game_switches[MINF::SWITCH_M]
    if MINF::VAR_TR == true
      self.opacity = $game_variables[MINF::VARIABLE]
    else
      self.opacity = 255
    end
  end
  def update
    super
    refresh
  end
  def terminate
    self.dispose
  end
  def width
    return MINF::WIDTH_MAP
  end
  def height
    return MINF::HEIGHT_MAP
  end
end


class Scene_Map < Scene_Base
 
  alias starts start
  alias updates update
  alias dispose terminate
  def start
    starts
    create_hud
  end
  def create_hud
    create_windowhud
    create_map
  end
  def create_windowhud
    @hud = Window_MapInfo.new
  end
  def create_map
    @map = Window_Map.new
  end
 
  def terminate
    @hud.terminate
    @map.terminate
    dispose
  end

  def update
    updates
    @hud.update
    @map.update
  end
 
  def create_location_window
  end
 
  def pre_transfer
    case $game_temp.fade_type
    when 0
      fadeout(fadeout_speed)
    when 1
      white_fadeout(fadeout_speed)
    end
  end
 
  def post_transfer
    case $game_temp.fade_type
    when 0
      Graphics.wait(fadein_speed / 2)
      fadein(fadein_speed)
    when 1
      Graphics.wait(fadein_speed / 2)
      white_fadein(fadein_speed)
    end
  end
end