[向DH致敬]VA简易半身像对话框Beta

LBQ · 发表于 2013-6-30 09:01:15

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

本帖最后由 Sion 于 2013-12-21 20:54 编辑

【向Division Heaven致敬】

~~好的，于是这个脚本的语句混乱、逻辑不清、bug多多、异常的蛋疼，所以这个才是beta版=-=~~

于是乎二话不说上范例：

Bust Shot.rar (799.54 KB, 下载次数: 3402) （没有自带rgss300.dll请自己打开范例之后保存之后使用）

RUBY 代码复制

#encoding:utf-8
#==============================================================================
# ■ 半身像对话框 by LBQ
#------------------------------------------------------------------------------
# 　一个简单的半身像对话框罢了= =
#------------------------------------------------------------------------------
# ■ 用法一览
#     1：如何将半身像应用到游戏中？
#       ——如果想要把一个脸图替换成半身像，则需要找到这个脸图的编号，比如说拉尔
#           夫，就是Actor1的编号0，之后去在Graphics/Busts这个文件夹里面拷贝一个
#           叫做Actor1_0的图像，这个图像会被当做半身像替换原有图像。
#==============================================================================
# 2013.8.25 => 修复存档不能Bug （感谢小刀
#==============================================================================
$imported ||= {}
$imported[:LBQ_Bust]=true
 
module LBQ
  module Bust
    FOLDER="Busts"
    SUB1=[/【/,    "\\{\\c[6]-- "]
    SUB2=[/】/,    " --\\c[0]\\}"]
 
    TEXT_FOR_NEXT="[next]"
    TEXT_FOR_END ="[end]"
 
    INDENT=255 #半身像的缩进
  end
end
 
module Cache
  def self.busts(filename)
    load_bitmap("Graphics/#{LBQ::Bust::FOLDER}/", filename)
  end
end
 
 
 
class Sprite_Bust < Sprite_Base
  attr_accessor   :bust_graphics
  attr_accessor   :status
 
  def initialize(vp=nil)
    super(vp)
    @bust_graphics=nil
    @status=:nothing
  end
 
  def slide_in
    @status=:sliding_in
  end
 
  def slide_out
    @status=:sliding_out
    if $game_temp.do_not_slide_out
      @status=:slided_out 
      set_pos
    end
  end
 
 
 
 
  def set_pos(slide_in=true)
    self.x=0 - self.bitmap.width
    self.y=Graphics.height-self.bitmap.height
 
    self.x=0 unless slide_in
  end
 
 
  def set_graphics(bust_graphics)
    self.bitmap=Cache.busts(bust_graphics)
  end
 
 
 
  def update
    super
    case @status
    when :nothing
      # Do Nothing
    when :sliding_in
      #Slide In
      self.x+=12
      if self.x>=0
        self.x=0
        @status=:slided_in
      end
 
    when :sliding_out
      self.x-=12
      if self.x<= -self.bitmap.width
        self.x= -self.bitmap.width
        @status=:slided_out
      end
      #Slide Out
    when :slided_in
      #Slided in
    when :slided_out
      #Sliede out
    end
 
  end
 
 
end
 
 
 
class Game_Temp
  attr_accessor   :bust_name
  attr_accessor   :bust
  attr_accessor   :have_bust
  attr_accessor   :do_not_slide_out
 
  alias lbq_bust_shot_game_message_init initialize
  def initialize
    lbq_bust_shot_game_message_init
    @bust_name=""
    @bust=nil
    @have_bust=false
    @do_not_slide_out=false
  end
 
 
 
 
end
 
 class Game_Message
   #--------------------------------------------------------------------------
  # ● 添加内容
  #--------------------------------------------------------------------------
  def add(text)
    new_text=text.gsub(LBQ::Bust::SUB1[0],LBQ::Bust::SUB1[1])
    new_text2=new_text.gsub(LBQ::Bust::SUB2[0],LBQ::Bust::SUB2[1])
    if new_text2.include? LBQ::Bust::TEXT_FOR_NEXT
      new_text2.delete!(LBQ::Bust::TEXT_FOR_NEXT)
      $game_temp.do_not_slide_out=true
    end
 
    if new_text2.include? LBQ::Bust::TEXT_FOR_END
      new_text2.delete!(LBQ::Bust::TEXT_FOR_END)
      $game_temp.do_not_slide_out=false
    end
    @texts.push(new_text2)
  end
end
 
 
class Game_Interpreter
  alias lbq_bust_shot_command_101 command_101
  #--------------------------------------------------------------------------
  # ● 显示文字
  #--------------------------------------------------------------------------
  def command_101
    $game_temp.bust=nil
      unless @params[0].empty?
        if File.exist?("Graphics/#{LBQ::Bust::FOLDER}/#{@params[0]}_#{@params[1]}.png")
          $game_temp.have_bust=true
        else
          $game_temp.have_bust=false
          $game_temp.bust_name=""
        end
      end 
 
    unless @params[3] == 2
      $game_temp.have_bust=false
    end
 
    if $game_temp.have_bust
      $game_temp.bust_name="#{@params[0]}_#{@params[1]}"
      $game_temp.bust=nil
      $game_temp.bust=Sprite_Bust.new
      $game_temp.bust.set_graphics($game_temp.bust_name)
      $game_temp.bust.z=99999
      unless $game_temp.do_not_slide_out
        $game_temp.bust.set_pos
        $game_temp.bust.slide_in
      else
        $game_temp.bust.set_pos(false)
        $game_temp.bust.slide_in
      end
    end
 
    lbq_bust_shot_command_101
    if $game_temp.have_bust
        $game_temp.bust.slide_out
        Fiber.yield until $game_temp.bust.status==:slided_out
    end
    $game_temp.have_bust=false
    $game_temp.bust_name=""
 
  end
 
 
  alias lbq_bust_int_update update
  def update
    lbq_bust_int_update
    $game_temp.bust.update unless $game_temp.bust.nil?
  end
 
end
 
 
class Window_Message
  #--------------------------------------------------------------------------
  # ● 获取换行位置
  #--------------------------------------------------------------------------
  def new_line_x 
    # 如果有头像
    unless $game_message.face_name.empty?
      value=112
      value=LBQ::Bust::INDENT unless $game_temp.bust_name.empty?
    # 木有
    else
      value=0
    end
    return value
  end
end
 
 
class Window_Message
  #--------------------------------------------------------------------------
  # ● 翻页处理
  #--------------------------------------------------------------------------
  def new_page(text, pos)
    contents.clear
    draw_face($game_message.face_name, $game_message.face_index, 0, 0) if $game_temp.bust_name.empty?
    reset_font_settings
    pos[:x] = new_line_x
    pos[:y] = 0
    pos[:new_x] = new_line_x
    pos[:height] = calc_line_height(text)
    clear_flags
  end
end

#encoding:utf-8


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


# ■ 半身像对话框 by LBQ


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


# 　一个简单的半身像对话框罢了= =


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


# ■ 用法一览


#     1：如何将半身像应用到游戏中？


#       ——如果想要把一个脸图替换成半身像，则需要找到这个脸图的编号，比如说拉尔


#           夫，就是Actor1的编号0，之后去在Graphics/Busts这个文件夹里面拷贝一个


#           叫做Actor1_0的图像，这个图像会被当做半身像替换原有图像。


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


# 2013.8.25 => 修复存档不能Bug （感谢小刀


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


$imported ||= {}


$imported[:LBQ_Bust]=true


 


module LBQ


  module Bust


    FOLDER="Busts"


    SUB1=[/【/,    "\\{\\c[6]-- "]


    SUB2=[/】/,    " --\\c[0]\\}"]


 


    TEXT_FOR_NEXT="[next]"


    TEXT_FOR_END ="[end]"


 


    INDENT=255 #半身像的缩进


  end


end


 


module Cache


  def self.busts(filename)


    load_bitmap("Graphics/#{LBQ::Bust::FOLDER}/", filename)


  end


end


 


 


 


class Sprite_Bust < Sprite_Base


  attr_accessor   :bust_graphics


  attr_accessor   :status


 


  def initialize(vp=nil)


    super(vp)


    @bust_graphics=nil


    @status=:nothing


  end


 


  def slide_in


    @status=:sliding_in


  end


 


  def slide_out


    @status=:sliding_out


    if $game_temp.do_not_slide_out


      @status=:slided_out 


      set_pos


    end


  end


 


 


 


 


  def set_pos(slide_in=true)


    self.x=0 - self.bitmap.width


    self.y=Graphics.height-self.bitmap.height


 


    self.x=0 unless slide_in


  end


 


 


  def set_graphics(bust_graphics)


    self.bitmap=Cache.busts(bust_graphics)


  end


 


 


 


  def update


    super


    case @status


    when :nothing


      # Do Nothing


    when :sliding_in


      #Slide In


      self.x+=12


      if self.x>=0


        self.x=0


        @status=:slided_in


      end


 


    when :sliding_out


      self.x-=12


      if self.x<= -self.bitmap.width


        self.x= -self.bitmap.width


        @status=:slided_out


      end


      #Slide Out


    when :slided_in


      #Slided in


    when :slided_out


      #Sliede out


    end


 


  end


 


 


end


 


 


 


class Game_Temp


  attr_accessor   :bust_name


  attr_accessor   :bust


  attr_accessor   :have_bust


  attr_accessor   :do_not_slide_out


 


  alias lbq_bust_shot_game_message_init initialize


  def initialize


    lbq_bust_shot_game_message_init


    @bust_name=""


    @bust=nil


    @have_bust=false


    @do_not_slide_out=false


  end


 


 


 


 


end


 


 class Game_Message


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


  # ● 添加内容


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


  def add(text)


    new_text=text.gsub(LBQ::Bust::SUB1[0],LBQ::Bust::SUB1[1])


    new_text2=new_text.gsub(LBQ::Bust::SUB2[0],LBQ::Bust::SUB2[1])


    if new_text2.include? LBQ::Bust::TEXT_FOR_NEXT


      new_text2.delete!(LBQ::Bust::TEXT_FOR_NEXT)


      $game_temp.do_not_slide_out=true


    end


 


    if new_text2.include? LBQ::Bust::TEXT_FOR_END


      new_text2.delete!(LBQ::Bust::TEXT_FOR_END)


      $game_temp.do_not_slide_out=false


    end


    @texts.push(new_text2)


  end


end


 


 


class Game_Interpreter


  alias lbq_bust_shot_command_101 command_101


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


  # ● 显示文字


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


  def command_101


    $game_temp.bust=nil


      unless @params[0].empty?


        if File.exist?("Graphics/#{LBQ::Bust::FOLDER}/#{@params[0]}_#{@params[1]}.png")


          $game_temp.have_bust=true


        else


          $game_temp.have_bust=false


          $game_temp.bust_name=""


        end


      end 


 


    unless @params[3] == 2


      $game_temp.have_bust=false


    end


 


    if $game_temp.have_bust


      $game_temp.bust_name="#{@params[0]}_#{@params[1]}"


      $game_temp.bust=nil


      $game_temp.bust=Sprite_Bust.new


      $game_temp.bust.set_graphics($game_temp.bust_name)


      $game_temp.bust.z=99999


      unless $game_temp.do_not_slide_out


        $game_temp.bust.set_pos


        $game_temp.bust.slide_in


      else


        $game_temp.bust.set_pos(false)


        $game_temp.bust.slide_in


      end


    end


 


    lbq_bust_shot_command_101


    if $game_temp.have_bust


        $game_temp.bust.slide_out


        Fiber.yield until $game_temp.bust.status==:slided_out


    end


    $game_temp.have_bust=false


    $game_temp.bust_name=""


 


  end


 


 


  alias lbq_bust_int_update update


  def update


    lbq_bust_int_update


    $game_temp.bust.update unless $game_temp.bust.nil?


  end


 


end


 


 


class Window_Message


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


  # ● 获取换行位置


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


  def new_line_x 


    # 如果有头像


    unless $game_message.face_name.empty?


      value=112


      value=LBQ::Bust::INDENT unless $game_temp.bust_name.empty?


    # 木有


    else


      value=0


    end


    return value


  end


end


 


 


class Window_Message


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


  # ● 翻页处理


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


  def new_page(text, pos)


    contents.clear


    draw_face($game_message.face_name, $game_message.face_index, 0, 0) if $game_temp.bust_name.empty?


    reset_font_settings


    pos[:x] = new_line_x


    pos[:y] = 0


    pos[:new_x] = new_line_x


    pos[:height] = calc_line_height(text)


    clear_flags


  end


end

用法
在"Busts"文件夹里面命名半身像，比如名字是：Actor1_0 则代表这个会自动替换脸图Actor1中的0号（就是拉尔夫）
在句尾打[next]会进入不撤出半身像模式、[end]会结束该模式

Krabi · 发表于 2017-8-13 14:13:02

好厉害！谢谢！

LBQ · 发表于 2016-11-2 05:52:31

BWR 发表于 2016-11-1 21:04
舊的問題沒了新的問題來了嗚嗚嗚
是檔案名稱不能用中文嗎?
我半身像放在資料夾裡了，但遊戲中還是只有9 ...

实测发现中文可以，所以假如方便的话上传一个能够重复 bug 的工程。

或者也可以自己试着从中文改成英文。

或者可以对比一下范例看看有没有做错了什么（虽然可能性不大不过还是做一下吧）。

BWR · 发表于 2016-11-1 21:04:03

LBQ 发表于 2016-11-1 00:23
因为脚本有些时日了 + 学业繁忙，所以我恐怕需要一个能够直接出现 bug 的工程，或者出现 bug 的步骤我才 ...

舊的問題沒了新的問題來了嗚嗚嗚
是檔案名稱不能用中文嗎?
我半身像放在資料夾裡了，但遊戲中還是只有96*96的臉圖，不顯示半身像。

LBQ · 发表于 2016-11-1 00:23:52

BWR 发表于 2016-10-29 20:38
腳本我什ˊ麼都沒動，為什麼會這樣呢?

因为脚本有些时日了 + 学业繁忙，所以我恐怕需要一个能够直接出现 bug 的工程，或者出现 bug 的步骤我才有可能解决这个问题。

也许脚本本身写的不好会导致这种问题有时发生有时不发生，但是我也没有精力来修自己三年前写的脚本。

所以假如有工程的话希望上传工程嗯。

BWR · 发表于 2016-10-29 20:38:00

本帖最后由 BWR 于 2016-10-30 03:36 编辑

腳本我什ˊ麼都沒動，為什麼會這樣呢?

MinamiP · 发表于 2015-11-21 17:23:23

请问大大可不可以取消立绘从左边移过来这个动作呢？其实是如果开启了公共事件立绘会飞速的从左边过来，眼睛都花了{:2_280:}

一摸多汁 · 发表于 2014-9-2 10:28:04

好像战斗中的对话无法正常显示，如果设定了半身像的头像，头像和半身像都不会显示就一个空白，没有设定半身像的则显示头像

身高一米八 · 发表于 2014-4-21 19:03:08

本帖最后由身高一米八于 2014-4-21 19:05 编辑

身高一米八发表于 2014-4-13 20:34
发现了一个可以解决无法存档的办法，就是在用了半身像对话事件的最后加上一个非半身像的对话框。
就是每一 ...

有无BUG版吗太棒了2333！

身高一米八 · 发表于 2014-4-13 20:34:11

发现了一个可以解决无法存档的办法，就是在用了半身像对话事件的最后加上一个非半身像的对话框。
就是每一个事件后面都要加有点麻烦......

神原秋人 · 发表于 2014-2-9 17:53:00

要求不显示立绘那么就用不了 = =……

帐号		自动登录	找回密码
密码			注册会员

[RMVA发布] [向DH致敬]VA简易半身像对话框Beta

加入我们，或者，欢迎回来。

点评

评分

点评

开拓者