module Biw
 
#===========================
# Début de la Configuration
#===========================
Var = 2 #ID de la variable qui stockera le côté choisi

# Ce qui suit concerne le choix :
# Si vous rajoutez un choix, n'oubliez pas de mettre la virgule !!
# N'oubliez pas non plus de mettre la Scene et l'icone
Choix = {
0 =>"Inventaire",
1=>"Equipement",
2=>"Compétence",
3=>"Statut",
4=>"Quitter",
5=>"Sauvegarde",
6=>"Map"
}

# Scene :
# A modifier en fonction des choix plus haut !
Scene = {
0=> Scene_Item.new, #Inventaire
1=> Scene_Equip.new, #Equipements
2=> Scene_Skill.new, #Compétences
3=> Scene_Status.new, #Statut
4=> nil, # Quitter
5=> Scene_File.new(true, false, false), # Sauvegarder
6=> Scene_Map.new
}

# Icone :
# A modifier en fonction des choix plus haut !
Icone = {
0=> 144,
1=> 52,
2=> 130,
3=> 145,
4=> 112,
5=> 141,
6=> 150
}

Opacity = 255 # Transparence de la fenêtre du choix (0 pour invisible)

#Icone de l'argent, de la localisation et des pas :
ICONE_GOLD = 147
ICONE_MAP = 153
ICONE_PAS = 137

#Texte de l'argent, de la localisation et des pas :
TEXT_MAP = "Local : "
TEXT_GOLD = "Argent : "
TEXT_PAS = "Pas : "

# Interrupteur qui active/desactive l'affichage de :
# - L'argent :
Gold = 1
# - Localisation :
Map = 2
# - Nombre des pas :
Pas = 3

#===========================
# Fin de la Configuration
#===========================
end

class Scene_Menu < Scene_Base

def start
create_menu_background

@choix = []
@commands = []

@for = Biw::Choix.size - 1

for id in 0..@for
 @commands.push(Biw::Choix[id])
end

@choix = Window_Command.new(150, @commands)

if $game_variables[BiwVar] == 0
@choix.x = 50
@choix.y = 0
else
@choix.x = 394
@choix.y = 0
end

@choix.z = 255
@choix.opacity = 0

@win = Windoo.new
@win.z = 200
@win.opacity = Biw::Opacity

@wind = Windo.new
@wind.z = 0
@wind.opacity = 255
end

def terminate
dispose_menu_background
@choix.dispose
@win.dispose
end

def update
update_menu_background
update_command_selection
@wind.update
@choix.update
if Input.trigger?(Input::B)
 Sound.play_cancel
 $scene = Scene_Map.new
end
@win.set_action(@choix.index)
end
end

class Windoo < Window_Base

 def initialize
   
 if $game_variables[BiwVar] == 0
  @x = 0
   @h = (Biw::Choix.size * 30) - (Biw::Choix.size * 10 / 5)
else
  @x = 344
  @h = Biw::Choix.size * 30
 end

  super(@x, 0, 200, @h)
  refresh
 end
 def set_action(num)
  @action = num
  refresh
 end
 def refresh
  @IY = -20
  @for = Biw::Choix.size - 1
 
   for ico in 0..@for.to_i
   @IX = 0
   @IY = @IY.to_i + 23
   @icone = Biw::Icone[ico]
    bitmap = Cache.system("Iconset")
    rect = Rect.new(@icone % 16 * 24, @icone / 16 * 24, 24, 24)
    self.contents.blt(0, @IY, bitmap, rect)

  end

  if Input.trigger?(Input::C)
   case @action
    when 0
     $scene = Biw::Scene[@action]
    when 1
     $scene = Biw::Scene[@action]      
    when 2
     $scene = Biw::Scene[@action]
    when 3
     $scene = Biw::Scene[@action]
   when 4
     $scene = Biw::Scene[@action]
   when 5
    $scene = Biw::Scene[@action]
   when 6
    $scene = Biw::Scene[@action]
   when 7
    $scene = Biw::Scene[@action]
  end
 end
end
end

#==============================================================================
# ** Windo
#==============================================================================

class Windo < Window_Base
 def initialize
   if $game_variables[BiwVar] == 0
     @x = 295
     @y = 315
   else
      @x = 0
      @y = 315
    end
   
      super (@x, @y, 250, 100)
   
    @gold = $game_party.gold
    @pas = $game_party.steps
    @map = $game_map.map_id
    refresh
  end
 
  def refresh
    $data_mapinfo = load_data("Data/MapInfos.rvdata")
    @mpname = $data_mapinfo[@map].name
   
   @textgold = Biw::TEXT_GOLD.to_s + @gold.to_s
    @textmap= Biw::TEXT_MAP.to_s + @mpname.to_s
    @textpas = Biw::TEXT_PAS.to_s + @pas.to_s
   
    if $game_switches[BiwGold] == true
    self.contents.draw_text(25, -40, 100, 100, @textgold, 0)
   
    @icone = Biw::ICONE_GOLD
    bitmap = Cache.system("Iconset")
    rect = Rect.new(@icone % 16 * 24, @icone / 16 * 24, 24, 24)
    self.contents.blt(0, 0, bitmap, rect)
  end
 
  if $game_switches[BiwMap] == true
     @icone = Biw::ICONE_MAP
    bitmap = Cache.system("Iconset")
    rect = Rect.new(@icone % 16 * 24, @icone / 16 * 24, 24, 24)
    self.contents.blt(0, 25, bitmap, rect)

    self.contents.draw_text(25, -40, 200, 150, @textmap, 0)
  end
 
    if $game_switches[BiwPas] == true
     @icone = Biw::ICONE_PAS
     bitmap = Cache.system("Iconset")
     rect = Rect.new(@icone % 16 * 24, @icone / 16 * 24, 24, 24)
    self.contents.blt(0, 45, bitmap, rect)

    self.contents.draw_text(25, 10, 100, 100, @textpas, 0)
    end
  end
end
   
#==============================================================================
# ** Scene_Item
#==============================================================================

class Scene_Item < Scene_Base

 def start
   super
   create_menu_background
   @viewport = Viewport.new(0, 0, 544, 416)
   @help_window = Window_Help.new
   @help_window.viewport = @viewport
   
     @X = (344/2) - (150/2)
     @Y = (216/2) - (Biw::Choix.size * 5)/2
     
   @item_window = Window_Item.new(@X, @Y, 344, 216)
   @item_window.viewport = @viewport
   @item_window.help_window = @help_window
   @item_window.active = false
   @target_window = Window_MenuStatus.new(0, 0)
   hide_target_window
 end

 def terminate
   super
   dispose_menu_background
   @viewport.dispose
   @help_window.dispose
   @item_window.dispose
   @target_window.dispose
 end

 def return_scene
   $scene = Scene_Menu.new(0)
 end

 def update
   super
   update_menu_background
   @help_window.update
   @item_window.update
   @target_window.update
   if @item_window.active
     update_item_selection
   elsif @target_window.active
     update_target_selection
   end
 end

 def update_item_selection
   if Input.trigger?(Input::B)
     Sound.play_cancel
     return_scene
   elsif Input.trigger?(Input::C)
     @item = @item_window.item
     if @item != nil
       $game_party.last_item_id = @item.id
     end
     if $game_party.item_can_use?(@item)
       Sound.play_decision
       determine_item
     else
       Sound.play_buzzer
     end
   end
 end

 def determine_item
   if @item.for_friend?
     show_target_window(@item_window.index % 2 == 0)
     if @item.for_all?
       @target_window.index = 99
     else
       if $game_party.last_target_index < @target_window.item_max
         @target_window.index = $game_party.last_target_index
       else
         @target_window.index = 0
       end
     end
   else
     use_item_nontarget
   end
 end

 def update_target_selection
   if Input.trigger?(Input::B)
     Sound.play_cancel
     if $game_party.item_number(@item) == 0    # If item is used up
       @item_window.refresh                    # Recreate the window contents
     end
     hide_target_window
   elsif Input.trigger?(Input::C)
     if not $game_party.item_can_use?(@item)
       Sound.play_buzzer
     else
       determine_target
     end
   end
 end

 def determine_target
   used = false
   if @item.for_all?
     for target in $game_party.members
       target.item_effect(target, @item)
       used = true unless target.skipped
     end
   else
     $game_party.last_target_index = @target_window.index
     target = $game_party.members[@target_window.index]
     target.item_effect(target, @item)
     used = true unless target.skipped
   end
   if used
     use_item_nontarget
   else
     Sound.play_buzzer
   end
 end

 def show_target_window(right)
   @item_window.active = false
   width_remain = 544 - @target_window.width
   @target_window.x = right ? width_remain : 0
   @target_window.visible = true
   @target_window.active = true
   if right
     @viewport.rect.set(0, 0, width_remain, 416)
     @viewport.ox = 0
   else
     @viewport.rect.set(@target_window.width, 0, width_remain, 416)
     @viewport.ox = @target_window.width
   end
 end

 def hide_target_window
   @item_window.active = true
   @target_window.visible = false
   @target_window.active = false
   @viewport.rect.set(0, 0, 544, 416)
   @viewport.ox = 0
 end

 def use_item_nontarget
   Sound.play_use_item
   $game_party.consume_item(@item)
   @item_window.draw_item(@item_window.index)
   @target_window.refresh
   if $game_party.all_dead?
     $scene = Scene_Gameover.new
   elsif @item.common_event_id > 0
     $game_temp.common_event_id = @item.common_event_id
     $scene = Scene_Map.new
   end
 end
end




#==============================================================================
# ** Window_Help
#==============================================================================

class Window_Help < Window_Base
 def initialize
   super(0, 0, 544, WLH + 32)
 end
 def set_text(text, align = 0)
   if text != @text or align != @align
     self.contents.clear
     self.contents.font.color = normal_color
     self.contents.draw_text(10, 0, self.width - 40, WLH, text, align)
     @text = text
     @align = align
   end
 end
end

#==============================================================================
# ** Scene_Equip

#==============================================================================

class Scene_Equip < Scene_Base

 EQUIP_TYPE_MAX = 5                      # Number of equip region

 def initialize(actor_index = 0, equip_index = 0)
   @actor_index = actor_index
   @equip_index = equip_index
 end

 def start
   super
   create_menu_background
   @actor = $game_party.members[@actor_index]
   @help_window = Window_Help.new
   create_item_windows
   @equip_window = Window_Equip.new(220, 56, @actor)
   @equip_window.help_window = @help_window
   @equip_window.index = @equip_index
   @status_window = Window_EquipStatus.new(0, 56, @actor)
 end

 def terminate
   super
   dispose_menu_background
   @help_window.dispose
   @equip_window.dispose
   @status_window.dispose
   dispose_item_windows
 end

 def return_scene
   $scene = Scene_Menu.new(2)
 end

 def next_actor
   @actor_index += 1
   @actor_index %= $game_party.members.size
   $scene = Scene_Equip.new(@actor_index, @equip_window.index)
 end

 def prev_actor
   @actor_index += $game_party.members.size - 1
   @actor_index %= $game_party.members.size
   $scene = Scene_Equip.new(@actor_index, @equip_window.index)
 end

 def update
   super
   update_menu_background
   @help_window.update
   update_equip_window
   update_status_window
   update_item_windows
   if Input.trigger?(Input::F5)
     next_actor
   end
   
   if @equip_window.active
     update_equip_selection
   elsif @item_window.active
     update_item_selection
   end
 end

 def create_item_windows
   @item_windows = []
   for i in 0...EQUIP_TYPE_MAX
     @X = (544/2) - (444/2)
     @Y = (216/2) - (Biw::Choix.size * 5)/2
     @item_windows[i] = Window_EquipItem.new(@X, @Y, 444, 100, @actor, i)
     @var = 1
     @item_windows[i].help_window = @help_window
     @item_windows[i].visible = (@equip_index == i)
     @item_windows[i].y = 208
     @item_windows[i].height = 208
     @item_windows[i].active = false
     @item_windows[i].index = -1
   end
 end

 def dispose_item_windows
   for window in @item_windows
     window.dispose
   end
 end

 def update_item_windows
   for i in 0...EQUIP_TYPE_MAX
     @item_windows[i].visible = (@equip_window.index == i)
     @item_windows[i].update
   end
   @item_window = @item_windows[@equip_window.index]
 end

 def update_equip_window
   @equip_window.update
 end

 def update_status_window
   if @equip_window.active
     @status_window.set_new_parameters(nil, nil, nil, nil)
   elsif @item_window.active
     temp_actor = @actor.clone
     temp_actor.change_equip(@equip_window.index, @item_window.item, true)
     new_atk = temp_actor.atk
     new_def = temp_actor.def
     new_spi = temp_actor.spi
     new_agi = temp_actor.agi
     @status_window.set_new_parameters(new_atk, new_def, new_spi, new_agi)
   end
   @status_window.update
 end

 def update_equip_selection
   if Input.trigger?(Input::B)
     Sound.play_cancel
     return_scene
   elsif Input.trigger?(Input::R)
     Sound.play_cursor
     next_actor
   elsif Input.trigger?(Input::L)
     Sound.play_cursor
     prev_actor
   elsif Input.trigger?(Input::C)
     if @actor.fix_equipment
       Sound.play_buzzer
     else
       Sound.play_decision
       @equip_window.active = false
       @item_window.active = true
       @item_window.index = 0
     end
   end
 end

 def update_item_selection
   if Input.trigger?(Input::B)
     Sound.play_cancel
     @equip_window.active = true
     @item_window.active = false
     @item_window.index = -1
   elsif Input.trigger?(Input::C)
     Sound.play_equip
     @actor.change_equip(@equip_window.index, @item_window.item)
     @equip_window.active = true
     @item_window.active = false
     @item_window.index = -1
     @equip_window.refresh
     for item_window in @item_windows
       item_window.refresh
     end
   end
 end
end


#==============================================================================
# ** Window_Command
#==============================================================================

class Window_Command < Window_Selectable

 attr_reader   :commands                 # command

 def initialize(width, commands, column_max = 1, row_max = 0, spacing = 32)
   if row_max == 0
     row_max = (commands.size + column_max - 1) / column_max
   end
   super(0, 0, width, row_max * WLH + 32, spacing)
   @commands = commands
   @item_max = commands.size
   @column_max = column_max
   refresh
   self.index = 0
 end

 def refresh
   self.contents.clear
   create_contents
   for i in 0...@item_max
     draw_item(i)
   end
 end

 def draw_item(index, enabled = true)
   rect = item_rect(index)
   rect.x += 4
   rect.width -= 8
   self.contents.clear_rect(rect)
   self.contents.font.color = normal_color
   self.contents.font.color.alpha = enabled ? 255 : 128
   self.contents.draw_text(rect, @commands[index])
 end
end

#==============================================================================
# ** Window_Equip
#------------------------------------------------------------------------------


class Window_Equip < Window_Selectable

 def initialize(x, y, actor)
   super(x, y, 300, 150)
   @actor = actor
   refresh
   self.index = 0
 end

 def item
   return @data[self.index]
 end

 def refresh
   self.contents.clear
   @data = []
   for item in @actor.equips do @data.push(item) end
   @item_max = @data.size
   self.contents.font.color = system_color
   if @actor.two_swords_style
     self.contents.draw_text(4, WLH * 0, 92, WLH, Vocab::weapon1)
     self.contents.draw_text(4, WLH * 1, 92, WLH, Vocab::weapon2)
   else
     self.contents.draw_text(4, WLH * 0, 92, WLH, Vocab::weapon)
     self.contents.draw_text(4, WLH * 1, 92, WLH, Vocab::armor1)
   end
   self.contents.draw_text(4, WLH * 2, 92, WLH, Vocab::armor2)
   self.contents.draw_text(4, WLH * 3, 92, WLH, Vocab::armor3)
   self.contents.draw_text(4, WLH * 4, 92, WLH, Vocab::armor4)
   draw_item_name(@data[0], 92, WLH * 0)
   draw_item_name(@data[1], 92, WLH * 1)
   draw_item_name(@data[2], 92, WLH * 2)
   draw_item_name(@data[3], 92, WLH * 3)
   draw_item_name(@data[4], 92, WLH * 4)
 end

 def update_help
   @help_window.set_text(item == nil ? "" : item.description)
 end
end


#==============================================================================
# ** Window_EquipStatus
#==============================================================================

class Window_EquipStatus < Window_Base

 def initialize(x, y, actor)
   super(15, y, 205, 150)
   @actor = actor
   refresh
 end

 def refresh
   self.contents.clear
   draw_actor_name(@actor, 4, 0)
   draw_parameter(0, WLH * 1, 0)
   draw_parameter(0, WLH * 2, 1)
   draw_parameter(0, WLH * 3, 2)
   draw_parameter(0, WLH * 4, 3)
 end

 def set_new_parameters(new_atk, new_def, new_spi, new_agi)
   if @new_atk != new_atk or @new_def != new_def or
      @new_spi != new_spi or @new_agi != new_agi
     @new_atk = new_atk
     @new_def = new_def
     @new_spi = new_spi
     @new_agi = new_agi
     refresh
   end
 end

 def new_parameter_color(old_value, new_value)
   if new_value > old_value      # Get stronger
     return power_up_color
   elsif new_value == old_value  # No change
     return normal_color
   else                          # Get weaker
     return power_down_color
   end
 end

 def draw_parameter(x, y, type)
   case type
   when 0
     name = Vocab::atk
     value = @actor.atk
     new_value = @new_atk
   when 1
     name = Vocab::def
     value = @actor.def
     new_value = @new_def
   when 2
     name = Vocab::spi
     value = @actor.spi
     new_value = @new_spi
   when 3
     name = Vocab::agi
     value = @actor.agi
     new_value = @new_agi
   end
   self.contents.font.color = system_color
   self.contents.draw_text(x + 4, y, 80, WLH, name)
   self.contents.font.color = normal_color
   self.contents.draw_text(x + 90, y, 30, WLH, value, 2)
   self.contents.font.color = system_color
   self.contents.draw_text(x + 122, y, 20, WLH, ">", 1)
   if new_value != nil
     self.contents.font.color = new_parameter_color(value, new_value)
     self.contents.draw_text(x + 142, y, 30, WLH, new_value, 2)
   end
 end
end

#==============================================================================
# ** Scene_Skill
#==============================================================================

class Scene_Skill < Scene_Base

 def initialize(actor_index = 0, equip_index = 0)
   @actor_index = actor_index
 end

 def start
   super
   create_menu_background
   @actor = $game_party.members[@actor_index]
   @viewport = Viewport.new(0, 0, 544, 416)
   @help_window = Window_Help.new
   @help_window.viewport = @viewport
   @status_window = Window_SkillStatus.new(0, 56, @actor)
   @status_window.viewport = @viewport
   @skill_window = Window_Skill.new(0, 250, 544, 100, @actor)
   @skill_window.viewport = @viewport
   @skill_window.help_window = @help_window
   @target_window = Window_MenuStatus.new(0, 0)
   hide_target_window
 end

 def terminate
   super
   dispose_menu_background
   @help_window.dispose
   @status_window.dispose
   @skill_window.dispose
   @target_window.dispose
 end

 def return_scene
   $scene = Scene_Menu.new(1)
 end

 def next_actor
   @actor_index += 1
   @actor_index %= $game_party.members.size
   $scene = Scene_Skill.new(@actor_index)
 end

 def prev_actor
   @actor_index += $game_party.members.size - 1
   @actor_index %= $game_party.members.size
   $scene = Scene_Skill.new(@actor_index)
 end

 def update
   super
   update_menu_background
   @help_window.update
   @status_window.update
   @skill_window.update
   @target_window.update
   if Input.trigger?(Input::F5)
     next_actor
   end
   
   if @skill_window.active
     update_skill_selection
   elsif @target_window.active
     update_target_selection
   end
 end

 def update_skill_selection
   if Input.trigger?(Input::B)
     Sound.play_cancel
     return_scene
   elsif Input.trigger?(Input::R)
     Sound.play_cursor
     next_actor
   elsif Input.trigger?(Input::L)
     Sound.play_cursor
     prev_actor
   elsif Input.trigger?(Input::C)
     @skill = @skill_window.skill
     if @skill != nil
       @actor.last_skill_id = @skill.id
     end
     if @actor.skill_can_use?(@skill)
       Sound.play_decision
       determine_skill
     else
       Sound.play_buzzer
     end
   end
 end

 def determine_skill
   if @skill.for_friend?
     show_target_window(@skill_window.index % 2 == 0)
     if @skill.for_all?
       @target_window.index = 99
     elsif @skill.for_user?
       @target_window.index = @actor_index + 100
     else
       if $game_party.last_target_index < @target_window.item_max
         @target_window.index = $game_party.last_target_index
       else
         @target_window.index = 0
       end
     end
   else
     use_skill_nontarget
   end
 end

 def update_target_selection
   if Input.trigger?(Input::B)
     Sound.play_cancel
     hide_target_window
   elsif Input.trigger?(Input::C)
     if not @actor.skill_can_use?(@skill)
       Sound.play_buzzer
     else
       determine_target
     end
   end
 end

 def determine_target
   used = false
   if @skill.for_all?
     for target in $game_party.members
       target.skill_effect(@actor, @skill)
       used = true unless target.skipped
     end
   elsif @skill.for_user?
     target = $game_party.members[@target_window.index - 100]
     target.skill_effect(@actor, @skill)
     used = true unless target.skipped
   else
     $game_party.last_target_index = @target_window.index
     target = $game_party.members[@target_window.index]
     target.skill_effect(@actor, @skill)
     used = true unless target.skipped
   end
   if used
     use_skill_nontarget
   else
     Sound.play_buzzer
   end
 end

 def show_target_window(right)
   @skill_window.active = false
   width_remain = 544 - @target_window.width
   @target_window.x = right ? width_remain : 0
   @target_window.visible = true
   @target_window.active = true
   if right
     @viewport.rect.set(0, 0, width_remain, 416)
     @viewport.ox = 0
   else
     @viewport.rect.set(@target_window.width, 0, width_remain, 416)
     @viewport.ox = @target_window.width
   end
 end

 def hide_target_window
   @skill_window.active = true
   @target_window.visible = false
   @target_window.active = false
   @viewport.rect.set(0, 0, 544, 416)
   @viewport.ox = 0
 end

 def use_skill_nontarget
   Sound.play_use_skill
   @actor.mp -= @actor.calc_mp_cost(@skill)
   @status_window.refresh
   @skill_window.refresh
   @target_window.refresh
   if $game_party.all_dead?
     $scene = Scene_Gameover.new
   elsif @skill.common_event_id > 0
     $game_temp.common_event_id = @skill.common_event_id
     $scene = Scene_Map.new
   end
 end
end

#==============================================================================
# ** Window_Status
#==============================================================================

class Window_Status < Window_Base

 def initialize(actor)
   super(0, 30, 544, 360)
   @actor = actor
   refresh
 end

 def refresh
   self.contents.clear
   draw_actor_name(@actor, 4, 0)
   draw_actor_class(@actor, 128, 0)
   draw_actor_face(@actor, 8, 32)
   draw_basic_info(128, 32)
   draw_parameters(32, 160)
   draw_exp_info(288, 32)
   draw_equipments(288, 160)
 end

 def draw_basic_info(x, y)
   draw_actor_level(@actor, x, y + WLH * 0)
   draw_actor_state(@actor, x, y + WLH * 1)
   draw_actor_hp(@actor, x, y + WLH * 2)
   draw_actor_mp(@actor, x, y + WLH * 3)
 end

 def draw_parameters(x, y)
   draw_actor_parameter(@actor, x, y + WLH * 0, 0)
   draw_actor_parameter(@actor, x, y + WLH * 1, 1)
   draw_actor_parameter(@actor, x, y + WLH * 2, 2)
   draw_actor_parameter(@actor, x, y + WLH * 3, 3)
 end

 def draw_exp_info(x, y)
   s1 = @actor.exp_s
   s2 = @actor.next_rest_exp_s
   s_next = sprintf(Vocab::ExpNext, Vocab::level)
   self.contents.font.color = system_color
   self.contents.draw_text(x, y + WLH * 0, 180, WLH, Vocab::ExpTotal)
   self.contents.draw_text(x, y + WLH * 2, 180, WLH, s_next)
   self.contents.font.color = normal_color
   self.contents.draw_text(x, y + WLH * 1, 180, WLH, s1, 2)
   self.contents.draw_text(x, y + WLH * 3, 180, WLH, s2, 2)
 end

 def draw_equipments(x, y)
   self.contents.font.color = system_color
   self.contents.draw_text(x, y, 120, WLH, Vocab::equip)
   for i in 0..4
     draw_item_name(@actor.equips[i], x + 16, y + WLH * (i + 1))
   end
 end
end


#==============================================================================
# ** Scene_Status
#==============================================================================

class Scene_Status < Scene_Base

 def initialize(actor_index = 0)
   @actor_index = actor_index
 end

 def start
   super
   create_menu_background
   @actor = $game_party.members[@actor_index]
   @status_window = Window_Status.new(@actor)
 end

 def terminate
   super
   dispose_menu_background
   @status_window.dispose
 end

 def return_scene
   $scene = Scene_Menu.new(3)
 end

 def next_actor
   @actor_index += 1
   @actor_index %= $game_party.members.size
   $scene = Scene_Status.new(@actor_index)
 end

 def prev_actor
   @actor_index += $game_party.members.size - 1
   @actor_index %= $game_party.members.size
   $scene = Scene_Status.new(@actor_index)
 end

 def update
   
   if Input.trigger?(Input::RIGHT)
     next_actor
   end
   
   if Input.trigger?(Input::LEFT)
     prev_actor
   end

   update_menu_background
   @status_window.update
   if Input.trigger?(Input::B)
     Sound.play_cancel
     return_scene
   elsif Input.trigger?(Input::R)
     Sound.play_cursor
     next_actor
   elsif Input.trigger?(Input::L)
     Sound.play_cursor
     prev_actor
   end
   super
 end
end

#==============================================================================
# ** Window_SaveFile
#==============================================================================

class Window_SaveFile < Window_Base

 attr_reader   :filename                 # filename
 attr_reader   :file_exist               # file existence flag
 attr_reader   :time_stamp               # timestamp
 attr_reader   :selected                 # selected

 def initialize(file_index, filename)
   super(100, 60 + file_index % 4 * 90, 350, 80)
   @file_index = file_index
   @filename = filename
   load_gamedata
   refresh
   @selected = false
 end

 def load_gamedata
   @time_stamp = Time.at(0)
   @file_exist = FileTest.exist?(@filename)
   if @file_exist
     file = File.open(@filename, "r")
     @time_stamp = file.mtime
     begin
       @characters     = Marshal.load(file)
       @frame_count    = Marshal.load(file)
       @last_bgm       = Marshal.load(file)
       @last_bgs       = Marshal.load(file)
       @game_system    = Marshal.load(file)
       @game_message   = Marshal.load(file)
       @game_switches  = Marshal.load(file)
       @game_variables = Marshal.load(file)
       @total_sec = @frame_count / Graphics.frame_rate
     rescue
       @file_exist = false
     ensure
       file.close
     end
   end
 end

 def refresh
   self.contents.clear
   self.contents.font.color = normal_color
   name = Vocab::File + " #{@file_index + 1}"
   self.contents.draw_text(4, 0, 200, WLH, name)
   @name_width = contents.text_size(name).width
   if @file_exist
     draw_party_characters(85, 49)
     draw_playtime(0, 12.5, contents.width - 4, 2)
   end
 end

 def draw_party_characters(x, y)
   for i in 0...@characters.size
     name = @characters[i][0]
     index = @characters[i][1]
     draw_character(name, index, x + i * 35, y)
   end
 end

 def draw_playtime(x, y, width, align)
   hour = @total_sec / 60 / 60
   min = @total_sec / 60 % 60
   sec = @total_sec % 60
   time_string = sprintf("%02d:%02d:%02d", hour, min, sec)
   self.contents.font.color = normal_color
   self.contents.draw_text(x, y, width, WLH, time_string, 2)
 end

 def selected=(selected)
   @selected = selected
   update_cursor
 end

 def update_cursor
   if @selected
     self.cursor_rect.set(0, 0, @name_width + 8, WLH)
   else
     self.cursor_rect.empty
   end
 end
end



#==============================================================================
# ** Window_Skill
#==============================================================================

class Window_Skill < Window_Selectable

 def initialize(x, y, width, height, actor)
   super(x, y, width, height)
   @actor = actor
   @column_max = 1
   self.index = 0
   refresh
 end

 def skill
   return @data[self.index]
 end

 def refresh
   @data = []
   for skill in @actor.skills
     @data.push(skill)
     if skill.id == @actor.last_skill_id
       self.index = @data.size - 1
     end
   end
   @item_max = @data.size
   create_contents
   for i in 0...@item_max
     draw_item(i)
   end
 end

 def draw_item(index)
   rect = item_rect(index)
   self.contents.clear_rect(rect)
   skill = @data[index]
   if skill != nil
     rect.width -= 4
     enabled = @actor.skill_can_use?(skill)
     draw_item_name(skill, rect.x, rect.y, enabled)
     self.contents.draw_text(rect, @actor.calc_mp_cost(skill), 2)
   end
 end

 def update_help
   @help_window.set_text(skill == nil ? "" : skill.description)
 end
end


#==============================================================================
# ** Window_Item
#==============================================================================

class Window_Item < Window_Selectable

 def initialize(x, y, width, height)
   super(x, y, width, height)
   @column_max = 1
   self.index = 0
   refresh
 end

 def item
   return @data[self.index]
 end

 def include?(item)
   return false if item == nil
   if $game_temp.in_battle
     return false unless item.is_a?(RPG::Item)
   end
   return true
 end

 def enable?(item)
   return $game_party.item_can_use?(item)
 end

 def refresh
   @data = []
   for item in $game_party.items
     next unless include?(item)
     @data.push(item)
     if item.is_a?(RPG::Item) and item.id == $game_party.last_item_id
       self.index = @data.size - 1
     end
   end
   @data.push(nil) if include?(nil)
   @item_max = @data.size
   create_contents
   for i in 0...@item_max
     draw_item(i)
   end
 end

 def draw_item(index)
   rect = item_rect(index)
   self.contents.clear_rect(rect)
   item = @data[index]
   if item != nil
     number = $game_party.item_number(item)
     enabled = enable?(item)
     rect.width -= 4
     draw_item_name(item, rect.x, rect.y, enabled)
     self.contents.draw_text(rect, sprintf(":%2d", number), 2)
   end
 end

 def update_help
   @help_window.set_text(item == nil ? "" : item.description)
 end
end

#==============================================================================

# ? [VX] ? Neo-Face System Advance {Version 3.1} + Name Box ?

#------------------------------------------------------------------------------

# ? by Woratana [woratana@hotmail.com]

# ? Thaiware RPG Maker Community

# ? Special Thanks: Mako, Rabu, Yatzumo

#------------------------------------------------------------------------------

# Released on: 20/02/2008

#

# +[Features in NFS Advance (a.k.a. Neo Face System 3)]+

#

# ? For Both Face Systems

# ? 2 Show Face Effects! You can use them together~

# ? [New!] Move Effect << Move Face from outside the screen to inside

# ? Fade Effect << Fade in Face Picture

#

# ? Easier to change face side! Just type \side[side you want] in message box

# (This change will change side for all the next messages until you change face side again)

# (You can still change by call script: $game_message.side = side you want)

#----------------------------------------------------------------------

# ? FACE SIDE [a.k.a. Face Mode ]

# ? \side[-1] << Switch to NORMAL Face System show in RIGHT SIDE

# ? \side[0] << Switch to NORMAL Face System show in LEFT SIDE

# ? \side[1] << Switch to NEO-FACE System show in LEFT SIDE

# ? \side[2] << Switch to NEO-FACE System show in RIGHT SIDE

#---------------------------------------------------------------------

#

# ? For Neo Face System

# ? Auto arrange Face Position (You can use any size of face file!)

# ? Choose to use 1 or 8 face(s) per file

#

# ? For Normal Face System

# ? Show face in right side!

#

# ? For Name Box

# ? Edit your name box easily~

# ? Change color of name text in game by call script

# $game_message.color = [Red,Green,Blue]

# ? Add text after name, e.g. add ":" after name >>result>> "name:"

# ? Move name box to right side when showing face in right side

# ? Change name text's font/size, and can  make it bold and/or has outline

#

# ? Call Name box by type this in message box:

# \na[name you want] << e.g. \na[Worale]

#

# ? If you don't want to type same name every time, use this way:

# \nn[name you want] << e.g. \nn[Worale]

# This will show the name box repeatly unless you have \na[name] in that window,

# and it will show until you type \nn[] to clear the repeat name.

#

#-----------------------------------------------------------------------------

#==============================================================================



class Window_Base

 #---------------------------------

 # [START] SETUP SCRIPT PART

 #-------------------------------



 #------------------------------------------------

 # ** NEO-FACE / NORMAL FACE SYSTEM SETUP

 #----------------------------------------------

 DEFAULT_SIDE = 0 # Default Face Side when game start~



 FACE_X_PLUS = 0 # Move Face Horizontally (Left: -, Right: +)

 FACE_Y_PLUS = -112 # Move Face Vertically (Up: -, Down: +)

 TEXT_X_PLUS = 0 # Move Text Horizontally

 CHOICE_INPUT_X_PLUS = 10

 # Move Choices Text and Input Number Text Horizontally



 MOVE_TEXT = false#true # (true/false)

 # Move text to right side of face, when showing face in left side.



 #-------------------------------

 # ** NEO FACE SYSTEM

 #----------------------------

 EightFaces_File = false

 # For NeoFace System: Use 8 Faces per file (or) 1 Face per file (true/false)



 #-------------------------------------

 # **SHOW FACE EFFECT

 # * For both Face Systems *

 #----------------------------------

 FADE_EFFECT = true # Turn on/off fade effect (true/false)

 FADE_SPEED = 20 # Speed up face's fade effect by increase this number



 MOVE_EFFECT = true # Turn on/off "move in" effect (true/false)

 MOVE_SPEED = 10 # Speed up face's "move in" effect by increase this number



 #------------------------------------

 # ** NAME BOX / NAME TEXT SETUP

 #----------------------------------

 NAMEBOX_SKIN = "Window" # Windowskin of Name Box (In folder 'Graphics/System')

 NAMEBOX_OPACITY = 255 # Name Box Opacity (Lowest 0 - 255 Highest)

 NAMEBOX_BACK_OPACITY = 180 # Name Box Background Opacity



 NAMEBOX_X_PLUS = 115#20 # Move Name Box & Text Horizontally (both faces system)

 NAMEBOX_X_PLUS_NF = 140 # Addtional Name Box X only for NeoFace Name Box

 # When using NeoFace, X Plus will calculate by: NAMEBOX_X_PLUS + NAMEBOX_X_PLUS_NF

 NAMEBOX_Y_PLUS = 0 # Move Name Box & Text Vertically



 NAMEBOX_TEXT_LENGTH_PER_LETTER = 10 # Length of Text Per Letter (in pixel)

 NAMEBOX_TEXT_FONT = "UmePlus Gothic" # Name Text Font's Name

 NAMEBOX_TEXT_SIZE = 22 # Name Text Font's Size

 NAMEBOX_TEXT_HEIGHT_PLUS = 2 # Increase Name Text Height (For Big Size Text)



 NAMEBOX_TEXT_BOLD = false # Make Text in Name Box Bold

 NAMEBOX_TEXT_OUTLINE = false # Make Black Outline around Text (Good with Opacity = 0)

 NAMEBOX_TEXT_DEFAULT_COLOR = [173,216,230]#[255,255,255] # [Red,Green,Blue]: Name Text Color (RGB)

 # You can easily find color code for RGB (RedGreenBlue) color in Google

 # You are allow to change color in game by call script:

 # $game_message.color = [Red,Green,Blue]



 NAMEBOX_TEXT_AFTER_NAME = ":" # Add Text after Name, leave "" to disable.



 NAMEBOX_BOX_WIDTH_PLUS = 6 # Increase Name Box Width

 NAMEBOX_BOX_HEIGHT_PLUS = 7 # Increase Name Box Height



 MOVE_NAMEBOX = true

 # (true/false) Move Text Box to Right Side if showing Face in Right side.



 #---------------------------------

 # [END] SETUP SCRIPT PART

 #-------------------------------

end

 $worale = {} if $worale == nil

 $worale["NeoFace"] = true

#==============================================================================

# Window_Message

#------------------------------------------------------------------------------

#==============================================================================

class Window_Message

   alias msg_ini initialize



   #------------------------------------

   # EDITED FROM ORIGINAL METHODS

   #----------------------------------

   def initialize

     msg_ini

     @face = Sprite.new

     @face.z = self.z + 5

     @nametxt = Sprite.new

     @nametxt.z = self.z + 15

     @namebox = nil

     @ori_x = 0

     @name_text = nil

   end



   alias msg_conspecha convert_special_characters

   def convert_special_characters

   clear_namebox if @namebox != nil

   msg_conspecha

 

   # CHECK FOR CALL NAME BOX/ CALL REPEAT NAME BOX/ CHANGE SIDE

   @text.scan(/\\na\[(.*?)\]/)

   if $1.to_s != ""

     @name_text = $1.to_s

     @text.sub!(/\\na\[(.*?)\]/) {}

   end



   @text.gsub!(/\\nn\[(.*?)\]/) do

     $game_message._name = $1.to_s

     a = ""

   end



   @text.scan(/\\side\[([-,0-9]+)\]/)

   if $1.to_s != ""

     $game_message.side = $1.to_i

     @text.sub!(/\\side\[([-,0-9]+)\]/) {}

   end



   @name_text = $game_message._name if @name_text == nil and $game_message._name != ""

   end



   def new_page

   contents.clear

   if @face.bitmap != nil

   @face.bitmap.dispose

   end

   if $game_message.face_name.empty?

   @contents_x = TEXT_X_PLUS

   else

     name = $game_message.face_name

     index = $game_message.face_index

     # CALL DRAW FACE METHOD

     draw_face2(name, self.x, self.y, index)

     # CHECK FOR MOVE EFFECT

     if MOVE_EFFECT == true

       @ori_x = @face.x

       if $game_message.side == 0 or $game_message.side == 1

         @face.x = 0 - @face.width

       else

         @face.x = 416 + @face.width

       end

     end

     @contents_x = get_x_face

   end

   @contents_y = 0

   @line_count = 0

   @show_fast = false

   @line_show_fast = false

   @pause_skip = false

   contents.font.color = text_color(0)

 end



 def start_message

   @text = ""

   for i in 0...$game_message.texts.size

     @text += "" if i >= $game_message.choice_start

@text += $game_message.texts[i].clone + "\x00"

   end

   @item_max = $game_message.choice_max

   convert_special_characters

   reset_window

   new_page

 end



 def new_line

   if $game_message.face_name.empty? or MOVE_TEXT == false

     @contents_x = TEXT_X_PLUS

   else

     @contents_x = get_x_face

   end

   @contents_x += CHOICE_INPUT_X_PLUS if $game_message.choice_max > 0

   @contents_y += WLH

   @line_count += 1

   @line_show_fast = false

 end



 def update

   super

   if @name_text != nil

     draw_name(@name_text,self.x,self.y)

   end

   update_gold_window

   update_number_input_window

   update_back_sprite

   update_show_fast

   if @face.bitmap != nil

     # UPDATE FADE IN EFFECT

     if @face.opacity < 255

       @face.opacity += FADE_SPEED

     end

     # UPDATE MOVE IN EFFECT

     if MOVE_EFFECT == true and @ori_x != @face.x

       if (@ori_x > @face.x and @face.x + MOVE_SPEED < @ori_x) or (@ori_x < @face.x and @face.x - MOVE_SPEED > @ori_x)

         @face.x += MOVE_SPEED if @ori_x > @face.x

         @face.x -= MOVE_SPEED if @ori_x < @face.x

       else

         @face.x = @ori_x

       end

     end

   end

   unless @opening or @closing

     if @wait_count > 0

       @wait_count -= 1

     elsif self.pause

       input_pause

     elsif self.active

       input_choice

     elsif @number_input_window.visible

       input_number

     elsif @text != nil

       update_message

     elsif continue?

       start_message

       open

       $game_message.visible = true

     else

       close

       if @face.bitmap != nil

       @face.bitmap.dispose

       end

       clear_namebox if @namebox != nil

       $game_message.visible = @closing

     end

   end

 end



   def start_number_input

   digits_max = $game_message.num_input_digits_max

   number = $game_variables[$game_message.num_input_variable_id]

   @number_input_window.digits_max = digits_max

   @number_input_window.number = number

   if $game_message.face_name.empty? or MOVE_TEXT == false

     @number_input_window.x = x - 23

   else

     case $game_message.side

     when 0

       @number_input_window.x = (x + 112) - 23

     when 1

       @number_input_window.x = (x + text_x) - 23

     when 2

       @number_input_window.x = x - 23

     when -1

       @number_input_window.x = x - 23

     end

   end

   @number_input_window.x += CHOICE_INPUT_X_PLUS

   @number_input_window.y = y + @contents_y

   @number_input_window.active = true

   @number_input_window.visible = true

   @number_input_window.update

 end



 def update_cursor

   if @index >= 0

     if $game_message.face_name.empty?

     x = TEXT_X_PLUS

     else

     x = get_x_face

     end

     y = ($game_message.choice_start + @index) * WLH

     # CHANGE WIDTH OF CURSOR FOR CHOICE SELECT

     if $game_message.face_name.empty? or MOVE_TEXT == false

       facesize = x

     else

       facesize = get_x_face

       facesize += @face.width if $game_message.side == 2

       facesize += @face.width + 16 if $game_message.side == -1

     end

     self.cursor_rect.set(x, y, contents.width - facesize, WLH)

   else

     self.cursor_rect.empty

   end

 end

 #--------------------------------

 # ADDITIONAL METHODS

 #------------------------------

 # RETURN Text X-Coordinate, DEPENDS ON FACE SIDE

 def get_x_face

 if MOVE_TEXT == true

   case $game_message.side

   when 0

     return 112 + TEXT_X_PLUS

   when 1

     return text_x

   when 2

     return TEXT_X_PLUS

   else

     return TEXT_X_PLUS

   end

 else

   return TEXT_X_PLUS

 end

 end



 # RETURN Text X-Coordinate for Face Side = 1

 def text_x

   return @face.width + TEXT_X_PLUS

 end



 # Clear Name Box & Name Text

 def clear_namebox

   @nametxt.bitmap.dispose

   @namebox.dispose

   @namebox = nil

   @name_text = nil

 end



 #--------------------------------------

 # DRAW FACE [Both Systems] METHOD

 #------------------------------------

 def draw_face2(face_name, x, y, index = 0)

 if $game_message.side == 0 or $game_message.side == -1 or EightFaces_File == true

   # USE 8 FACES PER FILE

   bitmap = Cache.face(face_name)

   rect = Rect.new(0,0,0,0)

   rect.width = (bitmap.width / 4)

   rect.height = (bitmap.height / 2)

   rect.x = index % 4 * rect.width

   rect.y = index / 4 * rect.height

   @face.bitmap = Bitmap.new(rect.width,rect.height)

   @face.bitmap.blt(0,0,bitmap,rect)

   bitmap.dispose

 else

   # USE 1 FACES PER FILE

   @face.bitmap = Cache.face(face_name)

 end

 # SET X/Y OF FACE DEPENDS ON FACE SIDE

 if $game_message.side == 1

   @face.mirror = false

   @face.x = x + 6

   @face.y = y - (@face.height - 123)

 elsif $game_message.side == 2

   @face.mirror = true

   @face.x = x + (538 - @face.width)

   @face.y = y - (@face.height - 123)

 elsif $game_message.side == 0

   @face.mirror = false

   @face.x = x + 16

   @face.y = y + 16

 elsif $game_message.side == -1

   @face.mirror = true

   @face.x = self.contents.width - @face.width + 16

   @face.y = y + 16

 end

   @face.x += FACE_X_PLUS

   @face.y += FACE_Y_PLUS

   @face.opacity = 0 if FADE_EFFECT == true

 end



 #--------------------------------------

 # DRAW NAME BOX METHOD

 #-----------------------------------

 def draw_name(name,x,y)

   name = name + NAMEBOX_TEXT_AFTER_NAME

   namesize = calculate_name_size(name)

   @nametxt.bitmap = Bitmap.new(16 + (namesize * NAMEBOX_TEXT_LENGTH_PER_LETTER), 24 + NAMEBOX_TEXT_HEIGHT_PLUS)

   @nametxt.x = x + 8 + NAMEBOX_X_PLUS

   @nametxt.x += NAMEBOX_X_PLUS_NF if $game_message.side == 1 or $game_message.side == 2

   @nametxt.y = y - 20 + NAMEBOX_Y_PLUS

   @nametxt.x = 544 - @nametxt.x - @nametxt.width if MOVE_NAMEBOX == true and ($game_message.side == 2 or $game_message.side == -1)

   @namebox = Window.new

   @namebox.windowskin = Cache.system(NAMEBOX_SKIN)

   @namebox.z = self.z + 10

   @namebox.opacity = NAMEBOX_OPACITY

   @namebox.back_opacity = NAMEBOX_BACK_OPACITY

   @namebox.openness = 255

   @namebox.x = @nametxt.x - NAMEBOX_BOX_WIDTH_PLUS

   @namebox.y = @nametxt.y - NAMEBOX_BOX_HEIGHT_PLUS

   @namebox.width = @nametxt.bitmap.width + (NAMEBOX_BOX_WIDTH_PLUS * 2)

   @namebox.height = @nametxt.bitmap.height + (NAMEBOX_BOX_HEIGHT_PLUS * 2)

   @nametxt.bitmap.font.name = NAMEBOX_TEXT_FONT

   @nametxt.bitmap.font.size = NAMEBOX_TEXT_SIZE

   @nametxt.bitmap.font.bold = NAMEBOX_TEXT_BOLD

   if NAMEBOX_TEXT_OUTLINE == true

     # MAKE TEXT OUTLINE

     @nametxt.bitmap.font.color = Color.new(0,0,0)

     @nametxt.bitmap.draw_text(0,2,@nametxt.bitmap.width,@nametxt.bitmap.height,name,1)

     @nametxt.bitmap.draw_text(0,0,@nametxt.bitmap.width,@nametxt.bitmap.height,name,1)

     @nametxt.bitmap.draw_text(2,0,@nametxt.bitmap.width,@nametxt.bitmap.height,name,1)

     @nametxt.bitmap.draw_text(2,2,@nametxt.bitmap.width,@nametxt.bitmap.height,name,1)

   end

   @nametxt.bitmap.font.color = Color.new($game_message.color[0],$game_message.color[1],$game_message.color[2])

   @nametxt.bitmap.draw_text(1,1,@nametxt.bitmap.width,@nametxt.bitmap.height,name,1)

   @name_text = nil

 end



 # CALCULATE REAL TEXT LENGTH (for Other Languages, e.g. Japanese)

 def calculate_name_size(name = "")

   name = name.scan(/./)

   return name.size

 end



end # Window_Message



#==============================================================================

# Game_Message: + store variables

#------------------------------------------------------------------------------

#==============================================================================

class Game_Message

 attr_accessor :side, :color, :_name

 alias wor_neoface_old_ini initialize

 def initialize

   @side = Window_Base::DEFAULT_SIDE

   @_name = ""

   @color = Window_Base::NAMEBOX_TEXT_DEFAULT_COLOR

   wor_neoface_old_ini

 end

end



#==============================================================================

# END Neo-Face System

# by Woratana (woratana@hotmail)

#==============================================================================