事件画面外移动,显示制作名单,打开网页,弹出对框等问题

余烬之中

RUBY 代码复制

#==============================================================================
# ** CreditsInTitleCommand
#==============================================================================
module CreditsInTitleCommand
 
# 按钮名
CommandName = "制作名单"
 
# 内容
Credits = <<Orz
编剧……………………A
图像……………………B
脚本……………………C
音效……………………D
随你发挥了
下面这个Orz不要删
Orz
 
end
#==============================================================================
# ** Window_Credits
#==============================================================================
class Window_Credits < Window_Base
  attr_accessor :to_active
  #--------------------------------------------------------------------------
  # * Object Initialization
  #--------------------------------------------------------------------------
  def initialize
    bitmap = Bitmap.new Graphics.width, Graphics.height
    width = height = 0
    CreditsInTitleCommand::Credits.each_line do |line|
      line.chomp!
      rect = bitmap.text_size(line).tap{|r|
        r.y = height
        width = [width, r.width += 2].max
        height += r.height += 2
      }
    end
    width += standard_padding * 2
    height += standard_padding * 2
    x = (Graphics.width - width) / 2
    y = (Graphics.height - height) / 2
    super x, y, width, height
    width -= standard_padding * 2
    height = 0
    CreditsInTitleCommand::Credits.each_line do |line|
      line.chomp!
      rect = bitmap.text_size(line).tap{|r|
        r.y = height
        r.width = width
        height += r.height += 2
      }
      contents.draw_text rect, line, 1
    end
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    super
    process_handling
  end
  #--------------------------------------------------------------------------
  # * Handling Processing for OK and Cancel Etc.
  #--------------------------------------------------------------------------
  def process_handling
    return unless open? && active
    return on_exit if Input.trigger?(:C) || Input.trigger?(:B)
  end
  #--------------------------------------------------------------------------
  # * On Exit
  #--------------------------------------------------------------------------
  def on_exit
    Sound.play_ok
    Input.update
    close
    deactivate
    to_active.activate
  end
end
#==============================================================================
# ** Window_TitleCommand
#==============================================================================
class Window_TitleCommand
  #--------------------------------------------------------------------------
  # * Create Command List
  #--------------------------------------------------------------------------
  alias :make_command_list_20140907_M :make_command_list
  def make_command_list
    make_command_list_20140907_M
    add_command(CreditsInTitleCommand::CommandName, :credits)
  end
end
#==============================================================================
# ** Scene_Title
#==============================================================================
class Scene_Title
  #--------------------------------------------------------------------------
  # * Create Command Window
  #--------------------------------------------------------------------------
  alias :create_command_window_20140907_M :create_command_window
  def create_command_window
    create_command_window_20140907_M
    @command_window.set_handler(:credits, method(:command_credits))
    @credits_window = Window_Credits.new
    @credits_window.to_active = @command_window
    @credits_window.openness = 0
  end
  #--------------------------------------------------------------------------
  # * [Credit] Command
  #--------------------------------------------------------------------------
  def command_credits
    @credits_window.open
    @credits_window.activate
  end
end

#==============================================================================


# ** CreditsInTitleCommand


#==============================================================================


module CreditsInTitleCommand


 


# 按钮名


CommandName = "制作名单"


 


# 内容


Credits = <<Orz


编剧……………………A


图像……………………B


脚本……………………C


音效……………………D


随你发挥了


下面这个Orz不要删


Orz


 


end


#==============================================================================


# ** Window_Credits


#==============================================================================


class Window_Credits < Window_Base


  attr_accessor :to_active


  #--------------------------------------------------------------------------


  # * Object Initialization


  #--------------------------------------------------------------------------


  def initialize


    bitmap = Bitmap.new Graphics.width, Graphics.height


    width = height = 0


    CreditsInTitleCommand::Credits.each_line do |line|


      line.chomp!


      rect = bitmap.text_size(line).tap{|r|


        r.y = height


        width = [width, r.width += 2].max


        height += r.height += 2


      }


    end


    width += standard_padding * 2


    height += standard_padding * 2


    x = (Graphics.width - width) / 2


    y = (Graphics.height - height) / 2


    super x, y, width, height


    width -= standard_padding * 2


    height = 0


    CreditsInTitleCommand::Credits.each_line do |line|


      line.chomp!


      rect = bitmap.text_size(line).tap{|r|


        r.y = height


        r.width = width


        height += r.height += 2


      }


      contents.draw_text rect, line, 1


    end


  end


  #--------------------------------------------------------------------------


  # * Frame Update


  #--------------------------------------------------------------------------


  def update


    super


    process_handling


  end


  #--------------------------------------------------------------------------


  # * Handling Processing for OK and Cancel Etc.


  #--------------------------------------------------------------------------


  def process_handling


    return unless open? && active


    return on_exit if Input.trigger?(:C) || Input.trigger?(:B)


  end


  #--------------------------------------------------------------------------


  # * On Exit


  #--------------------------------------------------------------------------


  def on_exit


    Sound.play_ok


    Input.update


    close


    deactivate


    to_active.activate


  end


end


#==============================================================================


# ** Window_TitleCommand


#==============================================================================


class Window_TitleCommand


  #--------------------------------------------------------------------------


  # * Create Command List


  #--------------------------------------------------------------------------


  alias :make_command_list_20140907_M :make_command_list


  def make_command_list


    make_command_list_20140907_M


    add_command(CreditsInTitleCommand::CommandName, :credits)


  end


end


#==============================================================================


# ** Scene_Title


#==============================================================================


class Scene_Title


  #--------------------------------------------------------------------------


  # * Create Command Window


  #--------------------------------------------------------------------------


  alias :create_command_window_20140907_M :create_command_window


  def create_command_window


    create_command_window_20140907_M


    @command_window.set_handler(:credits, method(:command_credits))


    @credits_window = Window_Credits.new


    @credits_window.to_active = @command_window


    @credits_window.openness = 0


  end


  #--------------------------------------------------------------------------


  # * [Credit] Command


  #--------------------------------------------------------------------------


  def command_credits


    @credits_window.open


    @credits_window.activate


  end


end

请叫我旋律大大

余烬之中 发表于 2014-9-7 16:22
#==============================================================================
# ** CreditsInTitleC ...

1.= =好吧到现在才发现原来第二页还有内容，我还以为你抛弃我了...

2.使用脚本后显示“发生systemstackerror，stack leave too deep”...用不了的样子...

....好吧我不知道怎么回复点评  谢谢点评那位以及发脚本的大大  问题已解决