#=============================================================
# Ascension title by Adurna  the 08/05/2010
#=============================================================
# Coded for the game Ascension
# http://projet-apocalypse.forumactif.org/index.html
#http://www.rpgmakervx-fr.com/projets-en-cours-f9/ascension-t5182.htm
##########################################################


module Adurna
  Choix = ["Play", "site", "partner", "Credit", "Exit"]
 
  Site = "http://projet-apocalypse.forumactif.org/index.html"#site address
 
  Partenaire = [ "comu'","autre_site","google"]#partner list
  Purl = ["www.rpgmakervx-fr.com","www.autre-site.fr","www.google.com"]#partners address
 
  Possition_en_x = 150#X position of window
 
  Possition_en_y = 170 #Y position of window
 
  Crédit = "credit" #name of image credit
 
end


class Scene_Title
alias dudu_start start
alias dudu_terminate terminate

  def start
    dudu_start
@choix = Window_Command.new(160,Adurna::Choix)
x=Adurna::Possition_en_x
y=Adurna::Possition_en_y
@choix.x= x
@choix.y= y
@choix.active = true
@choix.visible = true
@choix.index = 0

@site=Window_Confirme.new
@site.x= x+160
@site.y= y+24
@site.active = false
@site.visible = false
@site.index = 0

@partenaires = Window_Command.new(160,Adurna::Partenaire)
@partenaires.x =x+160
@partenaires.y =y+48
@partenaires.active = false
@partenaires.visible = false
@partenaires.index = 0
end

def terminate
  dudu_terminate
  @choix.dispose
  @partenaires.dispose
  @site.dispose
end

  def create_command_window
    x=Adurna::Possition_en_x
    y=Adurna::Possition_en_y
    s1 = Vocab::new_game
    s2 = Vocab::continue
    @command_window = Window_Command.new(160, [s1, s2])
    @command_window.active=false
    @command_window.visible = false
    @command_window.x =x+160
    @command_window.y =y
    if @continue_enabled                    # If continue is enabled
      @command_window.index = 1            # Move cursor over command
    else                                    # If disabled
      @command_window.draw_item(1, false)  # Make command semi-transparent
    end
    @command_window.openness = 0
    @command_window.open
  end
 
def siteweb(url)
  url='http://'<<url if url[0..6]!='http://'
  Thread.new{system("explorer",url)}
end

 def update
    super
    #jeux
    if  @command_window.active == true
      @command_window.update
      if Input.trigger?(Input::B)
        @command_window.active = false
        @command_window.visible = false
        @choix.active = true
    elsif Input.trigger?(Input::C)
      case @command_window.index
      when 0    #New game
        command_new_game
      when 1    # Continue
        command_continue
      end
    end
   
    #partenaire
    elsif  @partenaires.active == true
      @partenaires.update
      if Input.trigger?(Input::B)
        @partenaires.active = false
        @partenaires.visible = false
        @choix.active = true
      elsif Input.trigger?(Input::C)
        @partenaires.active = false
        @partenaires.visible = false
        @choix.active = true
      siteweb(Adurna::Purl[@partenaires.index])
    end
   
    #site
    elsif  @site.active == true
      @site.update
      if Input.trigger?(Input::C)
        @site.active = false
        @site.visible = false
        @choix.active = true
      siteweb(Adurna::Site) if @site.index == 0
    end
   
    # choix
  elsif @choix.active == true
    @choix.update
    if Input.trigger?(Input::C)
      case @choix.index
      when 0   
        @choix.active = false
        @command_window.active = true
        @command_window.visible =true
      when 1   
        @choix.active = false
        @site.active = true
        @site.visible =true
      when 2   
        @choix.active = false
        @partenaires.active = true
        @partenaires.visible = true
      when 3
        $scene=Crédit.new
      when 4
        command_shutdown
      end
    end
  end
 end
end
#==============================================================================
# ** Window_Command
#------------------------------------------------------------------------------
#  This window deals with general command choices.
#==============================================================================

class Window_Confirme < Window_Selectable
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_reader  :commands                # command
  #--------------------------------------------------------------------------
  # * Object Initialization
  #    width      : window width
  #    commands  : command string array
  #    column_max : digit count (if 2 or more, horizontal selection)
  #    row_max    : row count (0: match command count)
  #    spacing    : blank space when items are arrange horizontally
  #--------------------------------------------------------------------------
  def initialize(row_max = 0, spacing = 32)
    if row_max == 0
      row_max = 1
    end
    super(0, 0, 230, 2 * WLH + 32, spacing)
    @commands = ["oui", "non"]
    @item_max = commands.size
    @column_max = 2
    refresh
    self.index = 0
  end
  #--------------------------------------------------------------------------
  # * Refresh
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    self.contents.draw_text(0, 0, self.width, WLH, "Se connecter au site?")
    for i in 0...@item_max
      draw_item(i)
    end
  end
  #--------------------------------------------------------------------------
  # * Get rectangle for displaying items
  #    index : item number
  #--------------------------------------------------------------------------
  def item_rect(index)
    rect = Rect.new(0, 0, 0, 0)
    rect.width = (contents.width + @spacing) / @column_max - @spacing
    rect.height = WLH
    rect.x = index % @column_max * (rect.width + @spacing)
    rect.y = WLH
    return rect
  end
  #--------------------------------------------------------------------------
  # * Draw Item
  #    index  : item number
  #    enabled : enabled flag. When false, draw semi-transparently.
  #--------------------------------------------------------------------------
  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], 1)
  end
end

class Crédit<Scene_Base
  def initialize
    @crédit = Sprite.new
    @crédit.bitmap = Cache.picture(Adurna::Crédit)
    @crédit.x = 0
    @crédit.y=0
  end
  def terminate
    @crédit.dispose
  end
  def update
    if Input.trigger?(Input::B)
    $scene=Scene_Title.new
  end
end
end