#===============================================================================
# * Minigame Tower of Hanoi
#-------------------------------------------------------------------------------
# Requested by om Oscar tercinta
#-------------------------------------------------------------------------------
# Cara pakai:
# - Copas script ini ke atas main
# - Panggil via event:
#    $scene = Scene_HanoiTower.new(jumlah_kotak, jumlah_tempat[, waktu])
#  keterangan:
#  - jumlah_kotak maksimal 64, jumlah_tempat maksimal 8
#  - kosongkan bagian waktu bila tidak ingin memakai waktu
# - Variabel dengan ID yg ditentukan di bawah akan bernilai 1 jika menang, dan 2
#  jika kalah (waktu habis)
#-------------------------------------------------------------------------------
module Hart
  module HanoiTower
#-------------------------------------------------------------------------------
# Konfigurasi
#-------------------------------------------------------------------------------
ICON_INDEX = 3
RESULT_VAR = 1
REMAINING_TIME_VAR = 2
#-------------------------------------------------------------------------------
  end
end
#===============================================================================
class Hanoi_Timer < Sprite
  attr_reader :time
 
  def initialize(x, y, time)
    super()
    self.visible = false if time < 0
    @framecount = 0
    @time = time
    self.x = x
    self.y = y
    self.z = 50
    self.bitmap = Bitmap.new(544, 12)
    self.bitmap.font = Font.new("Arial", 12)
  end
 
  def update
    super()
   
    @framecount += 1 if @time >= 0
    if @framecount >= 60
      @time -= 1 if @time > 0
      @framecount = 0
    end
   
    self.bitmap.clear
    self.bitmap.draw_text(0, 0, 544, 12, "Time: " + @time.to_s) if @time >= 0
  end
end

class Hanoi_Pointer < Sprite
  attr_accessor :tempats
  attr_accessor :index
  attr_accessor :active
 
  def initialize(tempats)
    super()
    @tempats = tempats
    @active = true
    @index = 0
   
    temp = Cache.system("IconSet.png")
    self.bitmap = Bitmap.new(24, 24)
    self.bitmap.blt(0, 0, temp, Rect.new((Hart::HanoiTower::ICON_INDEX % 16) *
                    24, (Hart::HanoiTower::ICON_INDEX / 16) * 24, 24, 24))
         
    self.x = @tempats[@index].x - 10
    self.y = 386
  end
 
  def update
    super
    self.x = @tempats[@index].x - 10
    self.y = 386
   
    if active
      self.opacity = 255
    else
      self.opacity = 128
    end
   
    update_input
  end
 
  def update_input
    if @active
      if Input.repeat?(Input::RIGHT)
        Sound.play_cursor
        @index = (@index + 1) % @tempats.size
      elsif Input.repeat?(Input::LEFT)
        Sound.play_cursor
        @index = (@index - 1 + @tempats.size) % @tempats.size
      end
    end
  end
end

class Hanoi_Block < Sprite
  attr_accessor :tempat
  attr_accessor :tempatpos
  attr_reader :size
 
  def initialize(size)
    super()
    @size = size
    @color = Color.new(rand(128) + 128, rand(128) + 128, rand(128) + 128)
    @tempat = nil
    @tempatpos = nil
   
    self.bitmap = Bitmap.new(size, 10)
  end
 
  def update
    super
    self.bitmap.fill_rect(0, 0, @size, 10, @color)
    self.x = @tempat.x - @size / 2
    self.y = 380 - @tempatpos * 10 if @tempat != nil
  end
end

class Hanoi_Tempat
  attr_accessor :blocks
  attr_reader :x
 
  def initialize(x)
    @x = x
    @blocks = []
  end
 
  def push(block)
    @blocks.push(block)
    block.tempat = self
    block.tempatpos = self.height
  end
 
  def pop
    @blocks.pop
  end
 
  def height
    return @blocks.size
  end
 
  def empty?
    return @blocks.empty?
  end
 
  def top_smaller?(other)
    return false if empty?
    return true if other.empty?
    return @blocks[height - 1].size < other.blocks[other.height - 1].size
  end
end

class Scene_HanoiTower < Scene_Base
  def initialize(jlh_kotak, jlh_tempat, waktu = -1)
    if jlh_kotak > 64
      @jlh_kotak = 64
    elsif jlh_kotak < 3
      @jlh_kotak = 3
    else
      @jlh_kotak = jlh_kotak
    end
   
    if jlh_tempat > 8
      @jlh_tempat = 8
    elsif jlh_tempat < 3
      @jlh_tempat = 3
    else
      @jlh_tempat = jlh_tempat
    end
   
    @waktu = waktu
    @blocks = []
    @tempats = []
    @timer = Hanoi_Timer.new(0, 0, @waktu)
  end
 
  def start
    for i in 0 ... @jlh_tempat
      @tempats[i] = Hanoi_Tempat.new((i * (544 / @jlh_tempat)) + (544 / @jlh_tempat) / 2)
    end
   
    for i in 0 ... @jlh_kotak
      @blocks[i] = Hanoi_Block.new((@jlh_kotak - i) * (100 / @jlh_kotak) + 5)
      @tempats[rand(@jlh_tempat)].push(@blocks[i])
    end
   
    @pointer1 = Hanoi_Pointer.new(@tempats)
    @pointer2 = Hanoi_Pointer.new(@tempats)
    @pointer2.active = false
    @pointer2.visible = false
  end
 
  def update   
    for block in @blocks
      block.update
    end
   
    if Input.trigger?(Input::C)
      if @pointer1.active
        if !@tempats[@pointer1.index].empty?
          Sound.play_decision
          @pointer2.index = @pointer1.index
          @pointer1.active = false
          @pointer2.visible = true
          @pointer2.active = true
        else
          Sound.play_buzzer
        end
      else
        if @tempats[@pointer1.index].top_smaller?(@tempats[@pointer2.index])
          Sound.play_equip
          @tempats[@pointer2.index].push(@tempats[@pointer1.index].pop)
          @pointer2.active = false
          @pointer2.visible = false
          @pointer1.index = @pointer2.index
          @pointer1.active = true
        else
          Sound.play_buzzer
        end
      end
    elsif Input.trigger?(Input::B)
      if @pointer2.active
        Sound.play_cancel
        @pointer2.active = false
        @pointer2.visible = false
        @pointer1.active = true
      end
    end
   
    @pointer1.update
    @pointer2.update
   
    if win?
      $game_variables[Hart::HanoiTower::RESULT_VAR] = 1
      $game_variables[Hart::HanoiTower::REMAINING_TIME_VAR] = @timer.time
      $scene = Scene_Map.new
    end
   
    if @waktu >= 0 && lose?
      $game_variables[Hart::HanoiTower::RESULT_VAR] = 2
      $game_variables[Hart::HanoiTower::REMAINING_TIME_VAR] = @timer.time
      $scene = Scene_Map.new
    end
   
    @timer.update
  end
 
  def win?
    for tempat in @tempats
      return true if tempat.height == @jlh_kotak
    end
   
    return false
  end
 
  def lose?
    return @timer.time<= 0
  end
 
  def terminate
    for block in @blocks
      next if block == nil
      block.dispose
    end
    @pointer1.dispose
    @pointer2.dispose
    @timer.dispose
  end
end