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

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

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

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

×

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

【向Division Heaven致敬】

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

于是乎二话不说上范例：

Bust Shot.rar (799.54 KB, 下载次数: 3412) （没有自带rgss300.dll请自己打开范例之后保存之后使用）
[pre lang="ruby" line="1"]#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
[/pre]
用法
在"Busts"文件夹里面命名半身像，比如名字是：Actor1_0 则代表这个会自动替换脸图Actor1中的0号（就是拉尔夫）
在句尾打[next]会进入不撤出半身像模式、[end]会结束该模式

liminglun · 发表于 2013-6-30 09:12:55

好棒，马克一个。正需要这个呢

JN1412 · 发表于 2013-7-26 03:59:14

如何在某些对话中不需要半身像，半身像为空。那么显示的文字会到后面去，怎么解决这个问题呢？求解...{:2_270:}

Fin丶 · 发表于 2013-7-26 18:49:00

如果一个头像有几种状态<如害羞、愤怒等>该如何更换？小白一个....

JN1412 · 发表于 2013-7-27 00:37:35

Fin丶发表于 2013-7-26 18:49
如果一个头像有几种状态该如何更换？小白一个....

这个很简单啊。用PS把表情和半身像拼合一下就行咯！关键是如果在某些对话中不需要半身像时，显示出来的文字怎么靠前一点，不留半身像空出来的地方。

迷蓝の海 · 发表于 2013-7-27 17:49:22

表示用了这个无法存档是怎么回事啊T T……
本来是还不错的脚本的T T

674998887 · 发表于 2013-7-28 11:50:40

打包时，如何将Busts文件一起打出来？

我真的很想问，也是大家想问的。

674998887 · 发表于 2013-7-28 11:51:03

本帖最后由 674998887 于 2013-7-28 11:52 编辑

帮忙删掉我这个回复，连续了。

LBQ · 发表于 2013-7-28 21:29:08

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

#encoding:utf-8
#==============================================================================
# ■ 半身像对话框 by LBQ
#------------------------------------------------------------------------------
# 　一个简单的半身像对话框罢了= =
#------------------------------------------------------------------------------
# ■ 用法一览
# 1：如何将半身像应用到游戏中？
# ——如果想要把一个脸图替换成半身像，则需要找到这个脸图的编号，比如说拉尔
# 夫，就是Actor1的编号0，之后去在Graphics/Busts这个文件夹里面拷贝一个
# 叫做Actor1_0的图像，这个图像会被当做半身像替换原有图像。
#==============================================================================
$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_message.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_Message
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
#--------------------------------------------------------------------------
# ● 添加内容
#--------------------------------------------------------------------------
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_message.do_not_slide_out=true
end
if new_text2.include? LBQ::Bust::TEXT_FOR_END
new_text2.delete!(LBQ::Bust::TEXT_FOR_END)
$game_message.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_message.bust=nil
unless @params[0].empty?
if File.exist?("Graphics/#{LBQ::Bust::FOLDER}/#{@params[0]}_#{@params[1]}.png")
$game_message.have_bust=true
else
$game_message.have_bust=false
$game_message.bust_name=""
end
end
unless @params[3] == 2
$game_message.have_bust=false
end
if $game_message.have_bust
$game_message.bust_name="#{@params[0]}_#{@params[1]}"
$game_message.bust=nil
$game_message.bust=Sprite_Bust.new
$game_message.bust.set_graphics($game_message.bust_name)
$game_message.bust.z=99999
unless $game_message.do_not_slide_out
$game_message.bust.set_pos
$game_message.bust.slide_in
else
$game_message.bust.set_pos(false)
$game_message.bust.slide_in
end
end
lbq_bust_shot_command_101
if $game_message.have_bust
$game_message.bust.slide_out
Fiber.yield until $game_message.bust.status==:slided_out
end
$game_message.have_bust=false
$game_message.bust_name=""
end
alias lbq_bust_int_update update
def update
lbq_bust_int_update
$game_message.bust.update unless $game_message.bust.nil?
end
end
class Window_Message
#--------------------------------------------------------------------------
# ● 获取换行位置
#--------------------------------------------------------------------------
def new_line_x
value=0
value=112 unless $game_message.face_name.empty?
unless $game_message.face_name.empty? && $game_message.bust_name.empty?
value=LBQ::Bust::INDENT
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_message.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

复制代码

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

JN1412 · 发表于 2013-7-28 21:55:57

LBQ 发表于 2013-7-28 21:29
理论上应当修复完毕，对于这个不便深表歉意

那个在特定对话下无需立绘，文字靠后留出立绘位置的问题，昨晚看了看脚本，自己也尝试改了一下。虽然和你的这个有点不一样，但也达到了预期的效果。非常感谢你的脚本，之前还一直在为立绘对话烦恼呐。嘻嘻...

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

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

点评

评分

点评