能不能让选项文字根据变量变化？ - Project1

=begin
▼ 選択肢拡張 ver. 2.3
RPGツクールVXAce用スクリプト
制作 : 木星ペンギン
URL : http://woodpenguin.blog.fc2.com/
------------------------------------------------------------------------------
概要
□ 選択肢を連続して設定した場合、つなげて一つの選択肢にする機能の追加。
□ 条件を設定することで、その項目を表示しない機能の追加。
□ 選択肢内容が前回と同じだった場合、
カーソルの初期位置を前回選んだ項目にする機能の追加。
□ 選択肢ウィンドウの位置を一時的に変更する機能の追加。
□ 条件を設定することで、その項目を半透明にして選択不可にする機能の追加。
□ 選択肢毎にヘルプメッセージを表示できる機能の追加。
------------------------------------------------------------------------------
使い方
□ 選択肢の表示を続けて配置すると、一つの選択肢にまとめられます。
・「キャンセルの場合」の処理は、無効以外を設定したものが適用され、
複数ある場合は後に設定された選択肢のものが適用されます。
□ 選択肢の文章中に if(条件) と入れ、その条件が偽になると項目が表示されなくなります。
・s でスイッチ、v で変数を参照できます。
・「キャンセルの場合」の項目が表示されない場合、無効と同じ処理をします。
□ 注釈に以下の文字列を入れることで、選択肢ウィンドウの表示位置を
　一時的に変更することが出来ます。
　　選択肢位置(x, y[, row])
x : ウィンドウを表示する X 座標。
y : ウィンドウを表示する Y 座標。
row : 選択肢を表示する最大行数。
指定しない場合は、通常の最大行数を無視して
すべての選択肢が表示されます。
□ 選択肢の文章中に en(条件) と入れ、その条件が偽になると項目が半透明で表示されます。
□ 各項目の下に、注釈で以下の文字列を入れると、続きの文章を
項目のヘルプメッセージとしてカーソルを合わせたときに標示することができます。
　　選択肢ヘルプ
□ 詳細は下記のサイトを参照してください。
http://woodpenguin.web.fc2.com/rgss3/choice_ex.html
=end
module WdTk
module ChoiceEX
#//////////////////////////////////////////////////////////////////////////////
#
# 設定項目
#
#//////////////////////////////////////////////////////////////////////////////
#--------------------------------------------------------------------------
# ● 選択肢の最大行数
# 選択肢を表示するウィンドウの行数の最大数です。
# 選択肢がこの数より小さければ、選択肢の数に合わせます。
#--------------------------------------------------------------------------
RowMax = 4
#--------------------------------------------------------------------------
# ● 選択肢の位置記憶
# 前回表示した選択肢と全く同じ内容の選択肢を表示する場合、
# カーソルの初期位置を前回選んだ項目にする機能です。
# false で無効化できます。
#--------------------------------------------------------------------------
Store = true
#--------------------------------------------------------------------------
# ● 選択肢ヘルプを読み取る文字列
#--------------------------------------------------------------------------
Help = "選択肢ヘルプ"
end
#//////////////////////////////////////////////////////////////////////////////
#
# 以降、変更する必要なし
#
#//////////////////////////////////////////////////////////////////////////////
@material ||= []
@material << :ChoiceEX
def self.include?(sym)
@material.include?(sym)
end
end
#==============================================================================
# ■ Game_Message
#------------------------------------------------------------------------------
# 　文章や選択肢などを表示するメッセージウィンドウの状態を扱うクラスです。この
# クラスのインスタンスは $game_message で参照されます。
#==============================================================================
class Game_Message
#--------------------------------------------------------------------------
# ● 公開インスタンス変数
#--------------------------------------------------------------------------
attr_accessor :choice_x # 選択肢ウィンドウの表示 X 座標
attr_accessor :choice_y # 選択肢ウィンドウの表示 Y 座標
attr_accessor :choice_row_max # 選択肢ウィンドウの表示行数
attr_accessor :choice_enables # 選択肢の有効状態
attr_accessor :choice_help # 選択肢のヘルプ
#--------------------------------------------------------------------------
# ○ クリア
#--------------------------------------------------------------------------
alias _wdtk_choice_clear clear
def clear
_wdtk_choice_clear
@choice_x = @choice_y = nil
@choice_row_max = WdTk::ChoiceEX::RowMax
@choice_enables = []
@choice_help = {}
end
end
#==============================================================================
# ■ Game_Interpreter
#==============================================================================
class Game_Interpreter
#--------------------------------------------------------------------------
# ☆ 選択肢のセットアップ
#--------------------------------------------------------------------------
def setup_choices(params)
result = []
add_choices(params, @index, result)
$game_message.choice_enables = $game_message.choices.collect do |c|
!c.slice!(/\s*en$([^$]+)\)/i) || choice_eval($1)
end
unless $game_message.choices.empty?
m = result.index($game_message.choice_cancel_type - 1)
$game_message.choice_enables << (!m || $game_message.choice_enables[m])
result << $game_message.choice_cancel_type - 1
$game_message.choice_proc = Proc.new {|n| @branch[@indent] = result[n] }
else
@branch[@indent] = -1
end
end
#--------------------------------------------------------------------------
# ● 選択肢の追加
#--------------------------------------------------------------------------
def add_choices(params, i, result, d = 0)
params[0].each_with_index do |s, n|
choice = s.dup
next if choice.slice!(/\s*if$([^$]+)\)/i) && !choice_eval($1)
$game_message.choices << choice
result << n + d
end
if params[1] == 5 || (params[1] > 0 && result.include?(params[1] + d - 1))
$game_message.choice_cancel_type = params[1] + d
end
indent = @list[i].indent
loop do
i += 1
if @list[i].indent == indent
case @list[i].code
when 402 # [**] の場合
m = result.index(@list[i].parameters[0] + d)
get_help_texts(m, i + 1) if m
when 404 # 分岐終了
break
end
end
end
i += 1
add_choices(@list[i].parameters, i, result, d + 5) if @list[i].code == 102
end
#--------------------------------------------------------------------------
# ● 分岐用
#--------------------------------------------------------------------------
def choice_eval(formula)
s, v = $game_switches, $game_variables
begin
Kernel.eval(formula)
rescue
msgbox "以下の条件判定でエラーが出ました。\n\n", formula
true
end
end
#--------------------------------------------------------------------------
# ● ヘルプ用テキストの取得
#--------------------------------------------------------------------------
def get_help_texts(b, i)
if @list[i].code == 108 && @list[i].parameters[0] == WdTk::ChoiceEX::Help
$game_message.choice_help[b] = []
loop do
i += 1
break if @list[i].code != 408
$game_message.choice_help[b] << @list[i].parameters[0]
end
end
end
#--------------------------------------------------------------------------
# ◯ 注釈
#--------------------------------------------------------------------------
alias _wdtk_choice_command_108 command_108
def command_108
_wdtk_choice_command_108
@comments.each do |comment|
if comment =~ /選択肢位置$(\d+),\s*(\d+),?\s*(\d*)$/
$game_message.choice_x = $1.to_i
$game_message.choice_y = $2.to_i
$game_message.choice_row_max = ($3.empty? ? 99 : $3.to_i)
end
end
end
#--------------------------------------------------------------------------
# ● 分岐終了の場合
#--------------------------------------------------------------------------
def command_404
if next_event_code == 102
@branch[@indent] -= 5 if @branch.include?(@indent)
@index += 1
command_skip
#~ else
#~ @branch.delete(@indent)
end
end
end
#==============================================================================
# ■ Window_ChoiceList
#==============================================================================
class Window_ChoiceList
#--------------------------------------------------------------------------
# ☆ 入力処理の開始
#--------------------------------------------------------------------------
def start
return unless close?
last_choices = @list.collect {|c| c[:name] }
update_placement
refresh
unless WdTk::ChoiceEX::Store && last_choices == $game_message.choices
select(0)
end
open
activate
end
#--------------------------------------------------------------------------
# ○ ウィンドウ位置の更新
#--------------------------------------------------------------------------
alias _wdtk_choice_update_placement update_placement
def update_placement
_wdtk_choice_update_placement
self.height = [height, fitting_height($game_message.choice_row_max)].min
if @message_window.y >= Graphics.height / 2
self.y = @message_window.y - height
else
self.y = @message_window.y + @message_window.height
end
self.x = $game_message.choice_x if $game_message.choice_x
self.y = $game_message.choice_y if $game_message.choice_y
end
#--------------------------------------------------------------------------
# ☆ コマンドリストの作成
#--------------------------------------------------------------------------
def make_command_list
$game_message.choices.each_with_index do |choice, i|
add_command(choice, :choice, $game_message.choice_enables[i])
end
end
#--------------------------------------------------------------------------
# ○ 項目の描画
#--------------------------------------------------------------------------
alias _wdtk_choice_draw_item draw_item
def draw_item(index)
@choice_enabled = command_enabled?(index)
_wdtk_choice_draw_item(index)
end
#--------------------------------------------------------------------------
# ● テキスト描画色の変更
#--------------------------------------------------------------------------
def change_color(color, enabled = true)
super(color, enabled && @choice_enabled)
end
#--------------------------------------------------------------------------
# ● キャンセルボタンが押されたときの処理
#--------------------------------------------------------------------------
def process_cancel
if $game_message.choice_enables[item_max]
super
else
Sound.play_buzzer
end
end
#--------------------------------------------------------------------------
# ☆ キャンセルハンドラの呼び出し
#--------------------------------------------------------------------------
def call_cancel_handler
$game_message.choice_proc.call(item_max)
close
end
#--------------------------------------------------------------------------
# ● ウィンドウを閉じる
#--------------------------------------------------------------------------
def close
@message_window.on_show_fast unless $game_message.choice_help.empty?
super
end
#--------------------------------------------------------------------------
# ● ヘルプウィンドウ更新メソッドの呼び出し
#--------------------------------------------------------------------------
def call_update_help
update_help if active && !$game_message.choice_help.empty?
end
#--------------------------------------------------------------------------
# ● ヘルプウィンドウの更新
#--------------------------------------------------------------------------
def update_help
@message_window.force_clear
if $game_message.choice_help.include?(index)
$game_message.texts.replace($game_message.choice_help[index])
else
$game_message.texts.clear
end
end
end
#==============================================================================
# ■ Window_Message
#==============================================================================
class Window_Message
#--------------------------------------------------------------------------
# ● 文章の標示を強制クリア
#--------------------------------------------------------------------------
def force_clear
@gold_window.close
@fiber = nil
close
if WdTk.include?(:MesEff)
@character_sprites.each do |sprite, params|
next if params.empty?
sprite.bitmap.clear
sprite.visible = false
params.clear
end
end
end
#--------------------------------------------------------------------------
# ● 文章を最後まで表示する
#--------------------------------------------------------------------------
def on_show_fast
@show_fast = true
end
end

复制代码

#==============================================================================
# Global Text Codes [VXA]
# Version: 1.0a
# Author: modern algebra (rmrk.net)
# Date: April 5, 2012
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# Description:
#
# This script allows you to use special message codes in any window, not
# just message windows and help windows. Want to add an icon next to the
# menu commands? With this script you can do that and more.
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# Instructions:
#
# Simply paste this script into its own slot above Main and below Materials
# and other custom scripts.
#
# There are two settings for this script - automatic and manual. If set to
# automatic, then all you will need to do is put any of the special message
# codes in anything and they will automatically work. If set to manual, then
# you will also need to type the following code somewhere in the text field
# to activate it: \*
#
# The following default codes are available:
#
# \c[n] - Set the colour of the text being drawn to the nth colour of the
# Windowskin palette. 0 is the normal color and 16 is the system color.
# \i[n] - Draw icon with index n.
# \p[n] - Draw the name of the actor in the xth position in the party. 1 is
# the party leader, 2 is the second member, etc.
# \n[n] - Draw the name of the actor with ID n
# \v[n] - Draw the value of variable with ID n.
# \g - Draws the unit of currency.
#
# Depending on whether you are using any custom message script, you may have
# additional message codes at your disposal. This script is mostly compatible
# with my ATS and every code except \x and ones related to message control
# will work.
#==============================================================================
$imported = {} unless $imported
$imported[:MAGlobalTextCodes] = true
#\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
# Editable Region
#||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
# MAGTC_MANUAL_CODES - If this is true, then you must put a \* code in any
# field that you want to have codes interpreted in. Otherwise, codes will
# always automatically be interpreted. The recommended value for this is true,
# as the process for drawing text with codes is much slower than the process
# for drawing text without codes.
MAGTC_MANUAL_CODES = true
# MAGTC RCODES - This feature is designed to overcome the space limitations in
# much of the database - since codes take so much of that space, it might be
# difficult to write everything you want into one of those fields. This feature
# permits you to write the term you want in to the following array, and then
# access it in the database with the code \r[n], where n is the ID you assign
# to the phrase in the following way:
#
# n => "replacement",
#
# Please note that: it is =>, not =; the replacement must be within quotation
# marks; and there must be a comma after every line. If using double quotation
# marks ("", not ''), then you need to use two backslashes to access codes
# instead of one (\\c[1], not \c[1]).
#
# EXAMPLE:
# 0 => "\\i[112]\\c[14]New Game\\c[0]",
#
# Under the New Game field in the Terms of the Database, all I would then need
# to put is:
# \*\r[0]
# and it would be the same as if I had put:
# \*\i[112]\c[14]New Game\c[0]
MAGTC_RCODES = { # <- Do not touch
0 => "\\i[112]\\c[14]New Game\\c[0]", # Example
1 => "", # You can make as many of these as you want
2 => "\\i[40]Blood Hound",
#||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
# END Editable Region
#//////////////////////////////////////////////////////////////////////////////
}
MAGTC_RCODES.default = ""
#==============================================================================
# ** Window_Base
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# Summary of Changes:
# aliased methods - draw_text; convert_escape_characters; process_new_line;
# reset_font_settings
# new methods - magtc_align_x; magtc_test_process_escape_character;
# magtc_calc_line_width
#==============================================================================
class Window_Base
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# * Draw Text
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
alias ma_gtc_drwtxt_3fs1 draw_text
def draw_text(*args, &block)
# Get the arguments
if args[0].is_a?(Rect)
x, y, w, h = args[0].x, args[0].y, args[0].width, args[0].height
text, align = *args[1, 2]
else
x, y, w, h, text, align = *args[0, 6]
end
align = 0 unless align
# Draw normally if text is not a string, draw normally if the text is not
# long enough to hold a code, and draw normally when the script is set to
# manual and \* is included in the text
if !text.is_a?(String) || text.size < 2 || (MAGTC_MANUAL_CODES && text[/\\\*/].nil?)
ma_gtc_drwtxt_3fs1(*args, &block) # Run Original Method
else
@magtc_reset_font = contents.font.dup # Do not automatically reset font
@magtc_rect, @magtc_align = Rect.new(x, y, w, h), align
# Get first line of the text to test for alignment
@magtc_test_line = convert_escape_characters(text[/.*/])
y += [(h - calc_line_height(@magtc_test_line)) / 2, 0].max
# Draw text with message codes
draw_text_ex(magtc_align_x(x), y, text)
@magtc_reset_font = nil # Do not automatically reset font
@magtc_rect, @magtc_align = nil, nil # Reset Rect and Alignment
end
end
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# * Convert Escape Characters
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
alias ma_gtc_convescchar_5tk9 convert_escape_characters
def convert_escape_characters(text, *args, &block)
# Remove \* codes
new_text = text.gsub(/\\\*/, "")
# Substitute for the R Codes
new_text.gsub!(/\\[Rr]\[(\d+)\]/) { MAGTC_RCODES[$1.to_i].to_s }
ma_gtc_convescchar_5tk9(new_text, *args, &block) # Call Original Method
end
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# * Reset Font Settings
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
alias magtc_resetfonts_4ga5 reset_font_settings
def reset_font_settings(*args, &block)
magtc_resetfonts_4ga5(*args, &block) # Call Original Method
contents.font = @magtc_reset_font if @magtc_reset_font
end
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# * Process New Line
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
alias magtc_prcsnewl_5gn9 process_new_line
def process_new_line(text, pos, *args, &block)
magtc_prcsnewl_5gn9(text, pos, *args, &block) # Run Original Method
if @magtc_align && @magtc_rext
@magtc_test_line = text[/.*/] # Get new line
pos[:x] = magtc_align_x # Get the correct x, depending on alignment
end
end
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# * Get Alignment X
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
def magtc_align_x(start_x = @magtc_rect.x)
return start_x unless (@magtc_rect && @magtc_align && @magtc_test_line) || @magtc_align != 0
tw = magtc_calc_line_width(@magtc_test_line)
case @magtc_align
when 1 then return start_x + ((@magtc_rect.width - tw) / 2)
when 2 then return start_x + (@magtc_rect.width - tw)
end
start_x
end
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# * Calc Line Width
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
def magtc_calc_line_width(line)
# Remove all escape codes
line = line.clone
line.gsub!(/[\n\r\f]/, "")
real_contents = contents # Preserve Real Contents
# Create a dummy contents
self.contents = Bitmap.new(@magtc_rect.width, @magtc_rect.height)
reset_font_settings
pos = {x: 0, y: 0, new_x: 0, height: calc_line_height(line)}
tw = 0
while line[/^(.*?)\e(.*)/]
tw += text_size($1).width
line = $2
# Remove all ancillaries to the code, like parameters
code = obtain_escape_code(line)
magtc_test_process_escape_character(code, line, pos)
end
# Add width of remaining text, as well as the value of pos[:x] under the
# assumption that any additions to it are because the special code is
# replaced by something which requires space (like icons)
tw += text_size(line).width + pos[:x]
self.contents.dispose # Dispose dummy contents
self.contents = real_contents # Restore real contents
return tw
end
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# * Test Process Escape Character
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
def magtc_test_process_escape_character(code, text, pos)
if $imported[:ATS_SpecialMessageCodes] && ['X', 'HL'].include?(code.upcase)
obtain_escape_param(text)
return
end
process_escape_character(code, text, pos)
end
end

复制代码