# =============================================================================
# TheoAllen - Profile Slot
# Version : 1.0
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# (This script documentation is written in informal indonesian language)
# =============================================================================
($imported ||= {})[:Theo_ProfileSlot] = true
# =============================================================================
# Change Logs:
# -----------------------------------------------------------------------------
# 2013.11.14 - Finished script
# =============================================================================
=begin

  -----------------------------------------------------------------------------
  Perkenalan :
  Script ini menambahkan fitur profile slot. Apa itu profile slot? Yaitu
  sebuah slot untuk tempat kamu menyimpan data di dalam game kamu.
  Gampangannya, kamu memilih slot yang akan di gunakan buat save game nantinya
  di game. Nah, player tidak bisa mengganti slot / save index di tengah
  permainan. Cara new gamenya pun harus dengan memilih index kosong.
  
  -----------------------------------------------------------------------------
  Cara penggunaan :
  Pasang script ini dibawah main namun diatas material
  Edit konfigurasinya untuk mengatur preferensi kamu
  
  Untuk menyimpan game dalam peta (Misalnya checkpoint) cukup dengan
  menggunakan script call seperti ini :
  
  DataManager.save
  
  -----------------------------------------------------------------------------
  Catatan :
  Script ini menghapus command continue pada titlescreen
  Script ini mengalihfungsikan save dalam menu command untuk save game
  Script ini mengalihfungsikan new game untuk masuk ke select profile
  
  -----------------------------------------------------------------------------
  Terms of use :
  Credit gw, TheoAllen. Kalo semisal u bisa ngedit2 script gw trus jadi lebih
  keren, terserah. Ane bebasin. Asal ngga ngeklaim aja. Kalo semisal mau
  dipake buat komersil, jangan lupa, gw dibagi gratisannya.

=end
# =============================================================================
# Konfigurasi :
# =============================================================================
module Theo
  module ProfSlot
  # --------------------------------------------------------------------
  # Bantuan dan Konfirmasi :
  # --------------------------------------------------------------------
    HelpText        = "Select the profile slot. Press SHIFT to delete"
    DeleteConfirm   = "Are you sure want to delete this file?"
    YesConfirm      = "Yes"
    CancelConfirm   = "No"
    DeleteButton    = :SHIFT  # Tombol untuk delete
  # --------------------------------------------------------------------
    
  # --------------------------------------------------------------------
  # Vokab untuk isi slot :
  # --------------------------------------------------------------------
    VocabFilename   = "File %d"       # Nama file
    VocabLocation   = "Location : "   # Lokasi peta
    VocabPlaytime   = "Playtime : "   # Lama bermain
    VocabNewGame    = "New Game : "   # Untuk slot kosong
  # --------------------------------------------------------------------  
  
  # --------------------------------------------------------------------
  # Lain-lain :
  # --------------------------------------------------------------------
    Disable_Save    = false       # Hilangkan save di menu? (true/false)
    Use_Transition  = false       # Transisi saat load / new game?
    Background      = "Wallpaper"
  # -------------------------------------------------------------------
  # ^
  # Wallpaper untuk select profile. Isi dengan "nil" (tanpa kutip) atau
  # kosongkan text diantara "" jika kamu tidak menggunakannya
  # --------------------------------------------------------------------
  end
end
# =============================================================================
# Akhir dari konfigurasi
# =============================================================================
class << DataManager
  attr_accessor :profile_id
  
  alias theo_profile_slot_init init
  def init
    theo_profile_slot_init
    @profile_id = 0
  end
  
  def save
    save_game(profile_id)
  end
  
  alias theo_profslot_save_header make_save_header
  def make_save_header
    header = theo_profslot_save_header
    header[:gold] = $game_party.gold
    header[:location] = $game_map.display_name
    header
  end
  
  def delete_save(index)
    File.delete(make_filename(index))
  end
  
end

class Window_ProfileSlot < Window_Base
  attr_reader :index
  
  include Theo::ProfSlot
  
  def initialize(x,y,width,height,index)
    super(x,y,width,height)
    @index = index
    self.active = true
    refresh
    unselect
  end
  
  def item_rect
    xpos = 0
    ypos = 0
    width = 70
    height = line_height
    Rect.new(xpos,ypos,width,height)
  end
  
  def select
    cursor_rect.set(item_rect)
  end
  
  def unselect
    cursor_rect.empty
  end
  
  def refresh
    contents.clear
    change_color(normal_color)
    @header = DataManager.load_header(@index)
    rect = item_rect
    rect.x += 4
    draw_text(rect, sprintf(VocabFilename,@index+1))
    return draw_filled_slot unless slot_empty?
    return draw_empty_slot
  end
  
  def draw_filled_slot
    draw_party
    draw_info
    draw_gold
  end
  
  def draw_party
    x = 24
    y = item_rect.height + line_height * 2 + 12
    @header[:characters].each_with_index do |data, i|
      draw_character(data[0], data[1], x + i * 48, y)
    end
  end
  
  def draw_info
    y = contents.height - line_height*2
    s1 = VocabLocation
    s2 = VocabPlaytime
    width1 = text_size(s1).width
    width2 = text_size(s2).width
    change_color(system_color)
    draw_text(4,y,contents.width,line_height,s1)
    draw_text(4,y + line_height,contents.width,line_height,s2)
    change_color(normal_color)
    draw_text(4+width1,y,contents.width,line_height,@header[:location])
    playtime = @header[:playtime_s]
    draw_text(4+width2,y + line_height,contents.width,line_height,playtime)
  end
  
  def draw_gold
    draw_currency_value(@header[:gold],Vocab.currency_unit,
      4,0,contents.width - 8)
  end
  
  def draw_empty_slot
    rect = contents.rect
    draw_text(rect, VocabNewGame, 1)
  end
  
  def slot_empty?
    @header.nil?
  end
  
end

class Window_ProfConfirm < Window_Command
  
  def initialize
    super(0,0)
    self.openness = 0
    deactivate
  end
  
  def make_command_list
    add_command(Theo::ProfSlot::YesConfirm, :yes)
    add_command(Theo::ProfSlot::CancelConfirm, :cancel)
  end
  
  def alignment
    return 1
  end
  
end

class Window_ProfConfirmText < Window_Base
  
  def initialize
    super(0,0,1,fitting_height(1))
    resize_window
    self.openness = 0
  end
  
  def resize_window
    @text = Theo::ProfSlot::DeleteConfirm
    size = text_size(@text).width + standard_padding*2 + 4
    self.width = size
    create_contents
    to_center
    refresh
  end
  
  def to_center
    self.x = (Graphics.width - width) / 2
    self.y = ((Graphics.height - height) / 2) - 24
  end
  
  def refresh
    contents.clear
    draw_text(0,0,contents.width,line_height,@text,1)
  end
  
end

class Window_MenuCommand < Window_Command
  
  alias theo_profslot_make_command make_command_list
  def make_command_list
    theo_profslot_make_command
    @list.delete_if do |list|
      list[:symbol] == :save
    end if Theo::ProfSlot::Disable_Save
  end
  
end

class Window_TitleCommand < Window_Command
  
  alias theo_profslot_make_command make_command_list
  def make_command_list
    theo_profslot_make_command
    @list.delete_if do |list|
      list[:symbol] == :continue
    end 
  end
  
end

class Scene_Title < Scene_Base
  # --------------------------------------------------------------------------
  # Overwrite Command New Game
  # --------------------------------------------------------------------------
  def command_new_game
    close_command_window
    fadeout_all
    SceneManager.goto(Scene_ProfileSlot)
  end
  
end

class Scene_Menu < Scene_MenuBase
  # --------------------------------------------------------------------------
  # Overwrite Command Save
  # --------------------------------------------------------------------------
  def command_save
    DataManager.save
    @command_window.activate
  end
  
end

class Scene_ProfileSlot < Scene_MenuBase
  attr_reader :index
  
  def start
    super
    @index = 0
    @viewport2 = Viewport.new
    @viewport2.z = 300
    @active = true
    create_help
    create_slots
    create_confirmation
  end
  
  def create_background
    super
    bgname = Theo::ProfSlot::Background
    @background_sprite.bitmap = Cache.system(bgname) if bgname && !bgname.empty?
  end
  
  def create_help
    @help_window = Window_Help.new(1)
    @help_window.set_text(Theo::ProfSlot::HelpText)
  end
  
  def create_slots
    width = Graphics.width / 2
    height = (Graphics.height - @help_window.height) / 2
    @slots = Array.new(4) do |index|
      xpos = (index % 2) * width 
      ypos = (index / 2) * height + @help_window.height
      Window_ProfileSlot.new(xpos,ypos,width,height,index)
    end
    refresh_cursor
  end
  
  def create_confirmation
    @confirm_text = Window_ProfConfirmText.new
    @confirm_command = Window_ProfConfirm.new
    @confirm_command.x = (Graphics.width - @confirm_command.width)/2
    @confirm_command.y = @confirm_text.y + @confirm_text.height
    @confirm_command.set_handler(:yes, method(:on_delete_ok))
    @confirm_command.set_handler(:cancel, method(:on_delete_cancel))
  end
  
  def update
    super
    update_slot
    if @active
      update_cursor
      on_confirm if Input.trigger?(:C)
      on_cancel if Input.trigger?(:B)
      on_delete if Input.trigger?(Theo::ProfSlot::DeleteButton)
    end
  end
  
  def update_slot
    @slots.each {|slot| slot.update}
  end
  
  def update_cursor
    change_index(-2)if Input.trigger?(:UP)
    change_index(2)if Input.trigger?(:DOWN)
    change_index(-1)if Input.trigger?(:LEFT)
    change_index(1)if Input.trigger?(:RIGHT)
  end
  
  def change_index(new_index)
    return unless change_possible?(new_index)
    @index += new_index
    Sound.play_cursor
    refresh_cursor
  end
  
  def change_possible?(new_index)
    n = @index + new_index
    return n >= 0 && n <= 3
  end
  
  def refresh_cursor
    @slots.each do |slot|
      if slot.index == @index
        slot.select
      else
        slot.unselect
      end
    end
  end
  
  def on_confirm
    Sound.play_ok
    start_darken
  end
  
  def start_darken
    @viewport.color = Color.new(0,0,0,0)
    first_transition
    execute_slot
  end
  
  def execute_slot
    @slots[index].slot_empty? ? on_new_game : on_load_game
  end
  
  def on_cancel
    Sound.play_cancel
    return_scene
  end
  
  def on_delete
    if @slots[index].slot_empty?
      Sound.play_buzzer
      return
    end
    Sound.play_ok
    @active = false
    @confirm_text.open
    @confirm_command.open
    @confirm_command.activate
  end
  
  def on_delete_ok
    @active = true
    DataManager.delete_save(index)
    Sound.play_equip
    @slots[index].refresh
    close_confirmation
  end
  
  def on_delete_cancel
    @active = true
    close_confirmation
  end
  
  def close_confirmation
    @confirm_text.close
    @confirm_command.close
    @confirm_command.deactivate
  end
  
  def on_new_game
    second_transition
    DataManager.profile_id = @index
    DataManager.setup_new_game
    $game_map.autoplay
    SceneManager.goto(Scene_Map)
  end
  
  def on_load_game
    second_transition
    DataManager.profile_id = @index
    DataManager.load_game(@index)
    $game_system.on_after_load
    SceneManager.goto(Scene_Map)
  end
  
  def first_transition
    return unless Theo::ProfSlot::Use_Transition
    if $imported[:Theo_Movement]
      x = (Graphics.width - @slots[index].width) / 2
      y = (Graphics.height - @slots[index].height) / 2
      @slots[index].goto(x,y)
    end
    @help_window.viewport = @viewport
    @slots.each do |slot|
      if slot.index == index
        slot.viewport = @viewport2
      else
        slot.viewport = @viewport 
      end
    end
    until @viewport.color.alpha == 255
      update_basic
      @slots[index].update
      @viewport.color.alpha += 5
    end
  end
  
  def second_transition
    return unless Theo::ProfSlot::Use_Transition
    60.times { update_basic }
    @viewport2.color = Color.new(0,0,0,0)
    until @viewport2.color.alpha == 255
      update_basic
      @viewport2.color.alpha += 5
    end
    @slots[index].visible = false
    @viewport2.color.alpha = 0
  end
  
  def terminate
    super
    @slots.each {|slot| slot.dispose}
  end
  
end