Hime's Large Choices - German Version

=begin
#==============================================================================
 Titel: Large Choices ("Größere Auswahlmöglichkeiten")
 Autor: Hime
 Übersetzung: Puma
 Datum: Nov 18, 2013
 URL: http://himeworks.com/2012/12/large-choices-built-in-multiple-choices/
------------------------------------------------------------------------------
 ** Change log
 Nov 18, 2013
   - geupdated um die eventseite der originalen liste beizubehalten
 Apr 10, 2013
   - option zum ausschalten des automatischen kombinierens hinzugefügt
 Mär 26, 2013
   - bug gefixt, bei dem die abbruch-auswahl nicht richtig geupdated wurde
 Jän 12, 2013
   - bug gefixt, bei dem der erste satz der optionen falsch nummeriert wurde
 Dez 7, 2012
   - richtiger zweig-abbruch eingebaut
 Dez 6, 2012
   - ursprünglicher release
------------------------------------------------------------------------------
 ** Nutzungsbedingungen
 * Kostenlos für nicht-kommerzielle Projekte
 * Kontaktiert mich für kommerzielle Nutzung
 * Keine richtige Unterstützung. Das Skript wird so wie es ist zur Verfügung gestellt
 * Bugs werden behoben, aber keine Kompatibilitätsprobleme
 * Nach Features kann gefragt werden, aber es gibt keine Garantie, dass sie auch
   umgesetzt werden, besonders bei unnötigen Änderungen
 * Credits gehen in eurem Projekt an Hime Works
 * Dieser Teil muss erhalten bleiben
------------------------------------------------------------------------------
 ** Beschreibung

 Dieses Skript kombiniert Gruppen von "Show Choice" Optionen als einen großen
 Befehl. Das erlaubt es euch mehr als 4 Auswahlmöglichkeiten zu haben, indem ihr
 einfach mehrere "Show Choice" Befehle nutzt.
------------------------------------------------------------------------------
 ** Installation

 Platziert das Skript im Skripteditor unter Materials und über Main.

------------------------------------------------------------------------------
 ** Nutzung

 Fügt einen "Show Choice" Befehl hinzu.
 Wollt ihr mehr Befehle, fügt einen weiteren hinzu, füllt diesen wie gewohnt
 aus. Eine Nebenbemerkung, ihr solltet nur eine "Cancel" (Abbruch) Option wählen,
 nehmt ihr mehrere, wird vom Skript die letzte genommen.

 Für "Zweig-Abbrechen", solltet ihr beachten, dass *alle* Abbruch Zweige
 durchgeführt werden. Ihr solltet nur im letzten Set von Auswahlmöglichkeiten
 ein Zweig-Abbrechen durchführen.

 Ihr könnt das automatische Kombinieren ausschalten, indem ihr "Manual Combine"
 auf "true" setzt und damit anmacht. Ist die Option an, müsst ihr folgenden
 Script Call vor dem ersten "Show Choice" Befehl machen

    combine_choices

 um die folgenden zu kombinieren.
#==============================================================================
=end
$imported = {} if $imported.nil?
$imported["TH_LargeChoices"] = true
#==============================================================================
# ** Configuration
#==============================================================================
module TH
  module Large_Choices

    # Macht ihr diese Option an (true), wird es nötig, das Kombinieren manuell
    # durchzuführen.
    Manual_Combine = false

#==============================================================================
# ** Rest of the script
#==============================================================================
    Code_Filter = [402, 403, 404]
    Regex = /<large choices>/i
  end
end

class Game_Temp

  # temp solution to get this working
  attr_accessor :branch_choice

  def branch_choice
    @branch_choice || 5
  end
end

class Game_Interpreter

  #-----------------------------------------------------------------------------
  # Clean up
  #-----------------------------------------------------------------------------
  alias :th_large_choices_clear :clear
  def clear
    th_large_choices_clear
    @first_choice_cmd = nil
    @choice_search = 0
    @combine_choices = false
  end

  #-----------------------------------------------------------------------------
  # Prepare for more choices
  #-----------------------------------------------------------------------------
  alias :th_large_choices_setup_choices :setup_choices
  def setup_choices(params)

    # Make a copy of our list so we don't modify the original
    @list = Marshal.load(Marshal.dump(@list))

    # start with our original choices
    th_large_choices_setup_choices(params)

    return if TH::Large_Choices::Manual_Combine && !@combine_choices

    # store our "first" choice in the sequence
    @first_choice_cmd = @list[@index]

    # reset branch choice
    $game_temp.branch_choice = @first_choice_cmd.parameters[1]

    # Start searching for more choices
    @num_choices = $game_message.choices.size
    @choice_search = @index + 1
    search_more_choices
  end

  def combine_choices
    @combine_choices = true
  end

  #-----------------------------------------------------------------------------
  # New. Check whether the next command (after all branches) is another choice
  # command. If so, merge it with the first choice command.
  #-----------------------------------------------------------------------------
  def search_more_choices
    skip_choice_branches
    next_cmd = @list[@choice_search]

    # Next command isn't a "show choice" so we're done
    return if next_cmd.code != 102

    @choice_search += 1
    # Otherwise, push the choices into the first choice command to merge
    # the commands.
    @first_choice_cmd.parameters[0].concat(next_cmd.parameters[0])

    # Update all cases to reflect merged choices
    update_show_choices(next_cmd.parameters)
    update_cancel_choice(next_cmd.parameters)
    update_choice_numbers

    # delete the command to effectively merge the branches
    @list.delete(next_cmd)

    # Now search for more
    search_more_choices
  end

  #-----------------------------------------------------------------------------
  # New. Update the options for the first "show choice" command
  #-----------------------------------------------------------------------------
  def update_show_choices(params)
    params[0].each {|s| $game_message.choices.push(s) }
  end

  #-----------------------------------------------------------------------------
  # New. If cancel specified, update it to reflect merged choice numbers
  # The last one is taken if multiple cancel choices are specified
  #-----------------------------------------------------------------------------
  def update_cancel_choice(params)

    # disallow, just ignore
    return if params[1] == 0

    # branch on cancel
    return update_branch_choice if params[1] == 5

    # num_choices is not one-based
    cancel_choice = params[1] + (@num_choices)
    # update cancel choice, as well as the first choice command
    $game_message.choice_cancel_type = cancel_choice
    @first_choice_cmd.parameters[1] = cancel_choice
  end

  #-----------------------------------------------------------------------------
  # New. Set the initial choice command to "branch cancel"
  #-----------------------------------------------------------------------------
  def update_branch_choice
    branch_choice = $game_message.choices.size + 1
    $game_message.choice_cancel_type = branch_choice
    $game_temp.branch_choice = branch_choice
    @first_choice_cmd.parameters[1] = branch_choice
  end

  def command_403
    command_skip if @branch[@indent] != $game_temp.branch_choice - 1
  end

  #-----------------------------------------------------------------------------
  # New. For each branch, update it to reflect the merged choice numbers.
  #-----------------------------------------------------------------------------
  def update_choice_numbers

    # Begin searching immediately after cmd 102 (show choice)
    i = @choice_search

    # Rough search for "When" commands. The search must skip nested commands
    while TH::Large_Choices::Code_Filter.include?(@list[i].code) || @list[i].indent != @indent
      if @list[i].code == 402 && @list[i].indent == @indent
        @list[i].parameters[0] = @num_choices
        @num_choices += 1
      end
      i += 1
    end
  end

  #-----------------------------------------------------------------------------
  # New. Returns the next command after our choice branches
  #-----------------------------------------------------------------------------
  def skip_choice_branches
    # start search at the next command
    # skip all choice branch-related commands and any branches
    while TH::Large_Choices::Code_Filter.include?(@list[@choice_search].code) || @list[@choice_search].indent != @indent
      @choice_search += 1
    end
    return @choice_search
  end
end