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

LBQ

【向Division Heaven致敬】

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

于是乎二话不说上范例：
Bust Shot.rar (799.54 KB, 下载次数: 3402)

2013-12-21 20:54 上传

点击文件名下载附件

（没有自带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]会结束该模式

LBQ

JN1412 发表于 2013-7-26 03:59
如何在某些对话中不需要半身像，半身像为空。那么显示的文字会到后面去，怎么解决这个问题呢？求解...{:2_2 ...

1. #encoding:utf-8
   
2. #==============================================================================
   
3. # ■ 半身像对话框 by LBQ
   
4. #------------------------------------------------------------------------------
   
5. # 　一个简单的半身像对话框罢了= =
   
6. #------------------------------------------------------------------------------
   
7. # ■ 用法一览
   
8. #     1：如何将半身像应用到游戏中？
   
9. #       ——如果想要把一个脸图替换成半身像，则需要找到这个脸图的编号，比如说拉尔
   
10. #           夫，就是Actor1的编号0，之后去在Graphics/Busts这个文件夹里面拷贝一个
    
11. #           叫做Actor1_0的图像，这个图像会被当做半身像替换原有图像。
    
12. #==============================================================================
    
13. $imported ||= {}
    
14. $imported[:LBQ_Bust]=true
    
15. 
    
16. module LBQ
    
17.   module Bust
    
18.     FOLDER="Busts"
    
19.     SUB1=[/【/,    "\\{\\c[6]-- "]
    
20.     SUB2=[/】/,    " --\\c[0]\\}"]
    
21. 
    
22.     TEXT_FOR_NEXT="[next]"
    
23.     TEXT_FOR_END ="[end]"
    
24. 
    
25.     INDENT=255 #半身像的缩进
    
26.   end
    
27. end
    
28. 
    
29. module Cache
    
30.   def self.busts(filename)
    
31.     load_bitmap("Graphics/#{LBQ::Bust::FOLDER}/", filename)
    
32.   end
    
33. end
    
34. 
    
35. 
    
36. 
    
37. class Sprite_Bust < Sprite_Base
    
38.   attr_accessor   :bust_graphics
    
39.   attr_accessor   :status
    
40. 
    
41.   def initialize(vp=nil)
    
42.     super(vp)
    
43.     @bust_graphics=nil
    
44.     @status=:nothing
    
45.   end
    
46. 
    
47.   def slide_in
    
48.     @status=:sliding_in
    
49.   end
    
50. 
    
51.   def slide_out
    
52.     @status=:sliding_out
    
53.     if $game_message.do_not_slide_out
    
54.       @status=:slided_out
    
55.       set_pos
    
56.     end
    
57.   end
    
58. 
    
59. 
    
60. 
    
61. 
    
62.   def set_pos(slide_in=true)
    
63.     self.x=0 - self.bitmap.width
    
64.     self.y=Graphics.height-self.bitmap.height
    
65. 
    
66.     self.x=0 unless slide_in
    
67.   end
    
68. 
    
69. 
    
70.   def set_graphics(bust_graphics)
    
71.     self.bitmap=Cache.busts(bust_graphics)
    
72.   end
    
73. 
    
74. 
    
75. 
    
76.   def update
    
77.     super
    
78.     case @status
    
79.     when :nothing
    
80.       # Do Nothing
    
81.     when :sliding_in
    
82.       #Slide In
    
83.       self.x+=12
    
84.       if self.x>=0
    
85.         self.x=0
    
86.         @status=:slided_in
    
87.       end
    
88. 
    
89.     when :sliding_out
    
90.       self.x-=12
    
91.       if self.x<= -self.bitmap.width
    
92.         self.x= -self.bitmap.width
    
93.         @status=:slided_out
    
94.       end
    
95.       #Slide Out
    
96.     when :slided_in
    
97.       #Slided in
    
98.     when :slided_out
    
99.       #Sliede out
    
100.     end
     
101. 
     
102.   end
     
103. 
     
104. 
     
105. end
     
106. 
     
107. 
     
108. class Game_Message
     
109.   attr_accessor   :bust_name
     
110.   attr_accessor   :bust
     
111.   attr_accessor   :have_bust
     
112.   attr_accessor   :do_not_slide_out
     
113. 
     
114.   alias lbq_bust_shot_game_message_init initialize
     
115.   def initialize
     
116.     lbq_bust_shot_game_message_init
     
117.     @bust_name=""
     
118.     @bust=nil
     
119.     @have_bust=false
     
120.     @do_not_slide_out=false
     
121.   end
     
122. 
     
123. 
     
124. 
     
125.   #--------------------------------------------------------------------------
     
126.   # ● 添加内容
     
127.   #--------------------------------------------------------------------------
     
128.   def add(text)
     
129.     new_text=text.gsub(LBQ::Bust::SUB1[0],LBQ::Bust::SUB1[1])
     
130.     new_text2=new_text.gsub(LBQ::Bust::SUB2[0],LBQ::Bust::SUB2[1])
     
131.     if new_text2.include? LBQ::Bust::TEXT_FOR_NEXT
     
132.       new_text2.delete!(LBQ::Bust::TEXT_FOR_NEXT)
     
133.       $game_message.do_not_slide_out=true
     
134.     end
     
135. 
     
136.     if new_text2.include? LBQ::Bust::TEXT_FOR_END
     
137.       new_text2.delete!(LBQ::Bust::TEXT_FOR_END)
     
138.       $game_message.do_not_slide_out=false
     
139.     end
     
140.     @texts.push(new_text2)
     
141.   end
     
142. end
     
143. 
     
144. 
     
145. 
     
146. class Game_Interpreter
     
147.   alias lbq_bust_shot_command_101 command_101
     
148.   #--------------------------------------------------------------------------
     
149.   # ● 显示文字
     
150.   #--------------------------------------------------------------------------
     
151.   def command_101
     
152.     $game_message.bust=nil
     
153.       unless @params[0].empty?
     
154.         if File.exist?("Graphics/#{LBQ::Bust::FOLDER}/#{@params[0]}_#{@params[1]}.png")
     
155.           $game_message.have_bust=true
     
156.         else
     
157.           $game_message.have_bust=false
     
158.           $game_message.bust_name=""
     
159.         end
     
160.       end
     
161. 
     
162.     unless @params[3] == 2
     
163.       $game_message.have_bust=false
     
164.     end
     
165. 
     
166.     if $game_message.have_bust
     
167.       $game_message.bust_name="#{@params[0]}_#{@params[1]}"
     
168.       $game_message.bust=nil
     
169.       $game_message.bust=Sprite_Bust.new
     
170.       $game_message.bust.set_graphics($game_message.bust_name)
     
171.       $game_message.bust.z=99999
     
172.       unless $game_message.do_not_slide_out
     
173.         $game_message.bust.set_pos
     
174.         $game_message.bust.slide_in
     
175.       else
     
176.         $game_message.bust.set_pos(false)
     
177.         $game_message.bust.slide_in
     
178.       end
     
179.     end
     
180. 
     
181.     lbq_bust_shot_command_101
     
182.     if $game_message.have_bust
     
183.         $game_message.bust.slide_out
     
184.         Fiber.yield until $game_message.bust.status==:slided_out
     
185.     end
     
186.     $game_message.have_bust=false
     
187.     $game_message.bust_name=""
     
188. 
     
189.   end
     
190. 
     
191. 
     
192.   alias lbq_bust_int_update update
     
193.   def update
     
194.     lbq_bust_int_update
     
195.     $game_message.bust.update unless $game_message.bust.nil?
     
196.   end
     
197. 
     
198. end
     
199. 
     
200. 
     
201. class Window_Message
     
202.   #--------------------------------------------------------------------------
     
203.   # ● 获取换行位置
     
204.   #--------------------------------------------------------------------------
     
205.   def new_line_x
     
206.     value=0
     
207.     value=112 unless $game_message.face_name.empty?
     
208.     unless $game_message.face_name.empty? && $game_message.bust_name.empty?
     
209.       value=LBQ::Bust::INDENT
     
210.     end
     
211.    
     
212.     return value
     
213.   end
     
214. end
     
215. 
     
216. 
     
217. class Window_Message
     
218.   #--------------------------------------------------------------------------
     
219.   # ● 翻页处理
     
220.   #--------------------------------------------------------------------------
     
221.   def new_page(text, pos)
     
222.     contents.clear
     
223.     draw_face($game_message.face_name, $game_message.face_index, 0, 0) if $game_message.bust_name.empty?
     
224.     reset_font_settings
     
225.     pos[:x] = new_line_x
     
226.     pos[:y] = 0
     
227.     pos[:new_x] = new_line_x
     
228.     pos[:height] = calc_line_height(text)
     
229.     clear_flags
     
230.   end
     
231. end
     

复制代码

理论上应当修复完毕，对于这个不便深表歉意

LBQ

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

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

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

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

LBQ

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

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

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

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