Schermate Comandi segreti nel Titolo

[Ally 205]

Nome Script: Comandi segreti nel Titolo
Versione: 1.00
Autore/i: kaisouryouiki

Informazioni:
Lo script aggiunge dei comandi segreti nel titolo, vale a dire che se si digiterà una sequenza dei tasti impostati nello script, questo ti manda in una mappa prestabilita =)
Utile ad esempio se si vuole mandare il giocatore in un'area segreta dove guadagna più HP etc (esempio venuto sul momento) ^^

Istruzioni:
Inserite lo script sopra Main.
Questo pezzo di codice poi:
[c]SMT = [2, 10, 13][/c]
fa riferimtno a: il 2 è l'ID della mappa in cui si verrà teletrasportati, e 10/13 le coorinate della mappa.
Per modificare la sequenza dei tasti, fate riferimento a questo pezzo di codice:
 

# 1  => DOWN  (↓)
    # 2  => LEFT  (←)
    # 3  => RIGHT (→)
    # 4  => UP    (↑)
    # 5  => A     (Shift)
    # 6  => B     
    # 7  => X     (A)
    # 8  => Y     (S)
    # 9  => Z     (D)
    # 10 => L     (Q) # ゲームセレクトシステム導入時は使用不可
    # 11 => R     (W) # ゲームセレクトシステム導入時は使用不可
    TSC = [4, 1, 3, 2]

Dove 4,1,3,2 corrispondono quindi ai tasti (come indicato) Su, Giù, Destra e Sinistra.

Script:

=begin
      ★タイトル隠しコマンド★

      タイトル画面にて、特定のキーを特定の順番で入力した際に、
      指定マップへ飛ばすことができます。

      ● 仕様 ●==========================================================
      入力を間違えた時点で、入力情報はリセットされます。
      ====================================================================

      ● 挿入位置 ●======================================================
      「スタートコマンド拡張」導入時は、それより下にお願いします。
      ====================================================================

      ver1.00

      Last Update : 2010/07/29
      7/29 : 新規

      ろかん　　　http://kaisouryouiki.web.fc2.com/
=end

#===========================================
#   設定箇所
#===========================================
module Rokan
module Secret_Command
    # 隠しコマンド成功時に飛ばされるマップ情報
    # [開始マップID, マップX座標, マップY座標]
    SMT = [2, 10, 13]

    # 隠しコマンドの内容
    # 正しい入力順を以下の値を使って順番に設定
    # 1  => DOWN  (↓)
    # 2  => LEFT  (←)
    # 3  => RIGHT (→)
    # 4  => UP    (↑)
    # 5  => A     (Shift)
    # 6  => B     (    # 7  => X     (A)
    # 8  => Y     (S)
    # 9  => Z     (D)
    # 10 => L     (Q) # ゲームセレクトシステム導入時は使用不可
    # 11 => R     (W) # ゲームセレクトシステム導入時は使用不可
    TSC = [4, 1, 3, 2]

    # 隠しコマンド失敗判定をとるコマンド間のフレーム数
    # ここで指定したフレーム数の間、何も入力がないと入力情報はリセットされます。
    SIC = 90

    # 隠しコマンド成功時に演奏するSE
    SSS = RPG::SE.new("Decision1", 80, 70)
end
end
#===========================================
#   ここまで
#===========================================

$rsi = {} if $rsi == nil
$rsi["タイトル隠しコマンド"] = true

class Scene_Title < Scene_Base
  #--------------------------------------------------------------------------
  # ● インクルード Rokan::Secret_Command
  #--------------------------------------------------------------------------
  include Rokan::Secret_Command
  #--------------------------------------------------------------------------
  # ● フレーム更新   ※再定義
  #--------------------------------------------------------------------------
  alias secret_update update
  def update
    @input_sets ||= []
    @interval_count ||= SIC
    secret_update
    secret_input
    to_secret_map if success_secret?
  end
  #--------------------------------------------------------------------------
  # ● 隠しコマンド入力更新
  #--------------------------------------------------------------------------
  def secret_input
    if Input.trigger?(Input::DOWN)
      @input_sets << 1
    elsif Input.trigger?(Input::LEFT)
      @input_sets << 2
    elsif Input.trigger?(Input::RIGHT)
      @input_sets << 3
    elsif Input.trigger?(Input::UP)
      @input_sets << 4
    elsif Input.trigger?(Input::A)
      @input_sets << 5
    elsif Input.trigger?(Input::
      @input_sets << 6
    elsif Input.trigger?(Input:)
      @input_sets << 7
    elsif Input.trigger?(Input::Y)
      @input_sets << 8
    elsif Input.trigger?(Input::Z)
      @input_sets << 9
    elsif Input.trigger?(Input::L)
      @input_sets << 10
    elsif Input.trigger?(Input::R)
      @input_sets << 11
    elsif ! @input_sets.empty?
      @interval_count -= 1
      @input_sets << 0 if @interval_count.zero?
      return
    end
    @interval_count = SIC
  end
  #--------------------------------------------------------------------------
  # ● 隠しコマンド成功判定
  #--------------------------------------------------------------------------
  def success_secret?
    @input_sets.size.times do |i|
      unless @input_sets[i] == TSC[i]
        @input_sets = []
        break
      end
    end
    return (@input_sets.size == TSC.size)
  end
  #--------------------------------------------------------------------------
  # ● 隠しマップへ移行
  #--------------------------------------------------------------------------
  def to_secret_map
    SSS.play
    $game_party.setup_starting_members
    $game_map.setup(SMT[0])
    $game_player.moveto(SMT[1], SMT[2])
    $game_player.refresh
    $scene = Scene_Map.new
    RPG::BGM.fade(1500)
    close_command_window
    Graphics.fadeout(60)
    Graphics.wait(40)
    Graphics.frame_count = 0
    RPG::BGM.stop
    $game_map.autoplay
  end
end