Project1

标题: 新手求教该脚本使用方法 [打印本页]

作者: zhangjigeng 时间: 2014-7-15 22:33
标题: 新手求教该脚本使用方法
#==============================================================================
# ■ Sword Art Online
#------------------------------------------------------------------------------
# 　储存SAO常量及特殊方法
#==============================================================================
class Bitmap
@@fontName = ["sao", "SimHei"]
def draw_textSAO(x, y, text)
self.font.outline = false
xPlus = 0
tSize = font.size
tHalf = ::SAO::FONT_SIZE-1
text.gsub!("\\n") {"\n"}
text.split(//).each{|char|
if char == "\n"
y+=self.font.size
xPlus = 0
next
end
if char.ord > 0xFF
self.font.name = @@fontName[1]
self.font.size = tSize-::SAO::FONT_SIZE
fontSizeRect = text_size(char)
draw_text(x+xPlus, y+tHalf, fontSizeRect.width+2, fontSizeRect.height, char)
xPlus += fontSizeRect.width+2
else
self.font.name = @@fontName[0]
self.font.size = tSize
fontSizeRect = text_size(char)
draw_text(x+xPlus, y, fontSizeRect.width, fontSizeRect.height, char)
xPlus += fontSizeRect.width
end
}
self.font.size = tSize
self.font.name = @@fontName[0]
end
end
module SAO
SAO_GREY             = Color.new(90, 90, 90)
HEIGHT                = 46
PRESS_SHOW_COUNT       =  5       # 点击效果延长显示帧数
BTN_INIT_HRIGHT       = 50       # 初始化下落高度
BTN_INIT_COUNT       = 10       # 初始化效果帧数
BTN_INIT_COUNT_ADD    =  5       # 后续初始化效果增加帧数
FONT_SIZE             =  5       # 中文字体减小大小

def self.f(x)
return self.f(x+1) if x < 0
return self.f(x-1) if x > 2
(x-1)**2
end
def self.makeY(a, b, c)
c%2 == 0 ? (((a-b)%c-c/2)%c) : (((a-1-b)%c-c/2)%c)
end
def self.callMSGBOX(*arg)
$game_topZ = 4096
tmpRate = Graphics.frame_rate
sao = ::Sword_Art_Online_MessageBox.new(*arg)
Graphics.frame_rate = 60
loop {Graphics.update;Input.update;sao.update;break if sao.phase == :exit}
sao.dispose
Graphics.frame_rate = tmpRate
nil
end
def self.callMSGBOX_EX(t, c)
if c.is_a?(Array)
a = []
c.each{|i|a<<[nil,i]}
self.callMSGBOX(a, [[:String, t]])
else
self.callMSGBOX([[nil, c]], [[:String, t]])
end
end
end
#==============================================================================
# ■ Sword_Art_Online_MessageBox
#------------------------------------------------------------------------------
# 　刀剑神域       消息盒子
#==============================================================================

class Sword_Art_Online_MessageBox
SHOW_COUNT          = 40    # 显示一行帧数
ZOOM_COUNT          = 10    # 缩放帧数
SCROLL_COUNT       = 15    # 滚动帧数

LINE_HEIGHT       =  5    # 临时分界线位图高度

HEAD_INIT_8       = 16    # 顶层不动位置0~它
HEAD_INIT_5       = 46    # 顶层复制位置

YFix                = 32    # 整体向上移动距离

MDL_ADD_HEIGHT    = 26    # 中间层复制基础量
CONTENT_TEXT_X    = 80    # 中间层文字刻画X坐标
CONTENT_ICON_X    = 70    # 中间层图标刻画X坐标

#~ CONTENT_FONT_S    = 24    # 中间层文字大小

TOW_X1             = 32    # 显示2、3个时, 第一个的X坐标
TOW_X2             =280    # 显示2、3个时, 最后个的X坐标
TOW_XM             =170    # 中间坐标
attr_reader    :bool_SAOLeft
attr_reader    :phase
#--------------------------------------------------------------------------
# ● 初始化对像
#--------------------------------------------------------------------------
def initialize(contents=[[nil, "文字测试"]], title=[[:String, "Message"]], x=0, y=0, &block)
@contents = contents
@box_viewport = Viewport.new(0, 0, Graphics.width, Graphics.height)
@box_viewport.z = $game_topZ
@box8 = Sprite.new(@box_viewport)
@box8.bitmap = makeHead(title)
@box8.ox = @box8.bitmap.width/2
@box8.oy = @box8.bitmap.height
@box8.x = Graphics.width/2 + x
@box8.y = Graphics.height/2-YFix + y
@box8.opacity = 0
@box8.zoom_x = @box8.zoom_y = 0.0

@box2 = Sprite.new(@box_viewport)
@box2.bitmap = Cache.picture("box2")
@box2.ox = @box2.bitmap.width/2
@box2.x = @box8.x
@box2.y = @box8.y-1
@box2.opacity = 0
@box2.zoom_x = @box2.zoom_y = 0.0

@box5 = Sprite.new(@box_viewport)
tBMP = Cache.picture("box5")
@box5.bitmap = Bitmap.new(tBMP.width, tBMP.font.size*contents.size+MDL_ADD_HEIGHT)
@box5.bitmap.font.name = 'sao'
@box5.bitmap.font.color = SAO::SAO_GREY
makeContent!(@box5.bitmap, tBMP)
@box5.ox = @box5.bitmap.width/2
@box5.x = @box8.x
@box5.y = @box2.y+1

@box5.src_rect.height = 0
@phase = :zoom_out
@phaseCounter = ZOOM_COUNT
@bool_SAOLeft = false
@BLock = block
@block_called = false
end
#--------------------------------------------------------------------------
# ● 生成内容!
#--------------------------------------------------------------------------
def makeContent!(bitmap, bBmp)
bitmap.height.times{|y|bitmap.blt(0, y, bBmp, bBmp.rect)}
@contents.each_with_index{|content, index|
nowY = MDL_ADD_HEIGHT/2+bitmap.font.size*index
if content[0] # 图标
icon_index = content[0].icon_index
icobmp = Cache.system("Iconset")
rect = Rect.new(icon_index % 16 * 24, icon_index / 16 * 24, 24, 24)
bitmap.blt(TOW_X1, nowY, icobmp, rect)
bitmap.draw_textSAO(CONTENT_TEXT_X, nowY, content[0].name)
bitmap.draw_textSAO(TOW_X2, nowY, "×#{content[1]}")
next
end
bitmap.draw_textSAO(CONTENT_TEXT_X, nowY, content[1])
}
end
#--------------------------------------------------------------------------
# ● 重新刻画内容
#--------------------------------------------------------------------------
def redrawC(c)
@contents = c
@box5.bitmap.clear
makeContent!(@box5.bitmap, Cache.picture("box5"))
end
#--------------------------------------------------------------------------
# ● 刷新放大效果
#--------------------------------------------------------------------------
def update_zoom_out
@phaseCounter -= 1
vul = SAO.f(@phaseCounter.to_f/ZOOM_COUNT)
@box8.opacity = (vul*255).to_i
@box8.zoom_x = @box8.zoom_y = vul
@box2.opacity = @box8.opacity
@box2.zoom_x = @box2.zoom_y = @box8.zoom_x
if @phaseCounter <= 0
@box2.y+=1
@box8.zoom_x = @box8.zoom_y = 1.0
@box2.zoom_x = @box2.zoom_y = 1.0
@box8.opacity = 255
@box2.opacity = 255
@box8.move_to(nil, @[email protected]/2, nil, SCROLL_COUNT)
@box2.move_to(nil, @[email protected]/2, nil, SCROLL_COUNT)
@phase = :scrolling_out
playOUTSE
return @phaseCounter = SCROLL_COUNT
end
end
#--------------------------------------------------------------------------
# ● 刷新缩小效果
#--------------------------------------------------------------------------
def update_zoom_in
@phaseCounter -= 1
vul = SAO.f(@phaseCounter.to_f/ZOOM_COUNT)
@box8.opacity = 255-(vul*255).to_i
@box8.zoom_x = @box8.zoom_y = 1.0 - vul
@box2.opacity = @box8.opacity
@box2.zoom_x = @box2.zoom_y = @box8.zoom_x
if @phaseCounter <= 0
@phase = :exit
end
end
#--------------------------------------------------------------------------
# ● 展开音效
#--------------------------------------------------------------------------
def playOUTSE
Audio.se_play("Audio/SE/msg")
end
#--------------------------------------------------------------------------
# ● 刷新展开效果
#--------------------------------------------------------------------------
def update_scrolling_out
@phaseCounter -= 1
@box8.move_update
@box2.y = Graphics.height-YFix*[email protected]
@box5.src_rect.height = (@box2.y-Graphics.height/2+YFix)*2
@box5.src_rect.y = (@[email protected]_rect.height)/2
@box5.oy = @box5.src_rect.height/2
if @phaseCounter <= 0
@phase = :showing
return @phaseCounter = getShowCount
end
end
#--------------------------------------------------------------------------
# ● 刷新闭合效果
#--------------------------------------------------------------------------
def update_scrolling_in
@phaseCounter -= 1
@box8.move_update
@box2.y = Graphics.height-YFix*[email protected]
@box5.src_rect.height = (@box2.y-Graphics.height/2+YFix)*2
@box5.src_rect.y = (@[email protected]_rect.height)/2
@box5.oy = @box5.src_rect.height/2
if @phaseCounter <= 0
@box8.y = Graphics.height/2-YFix
@box2.y = @box8.y-1
@box5.src_rect.height = 0
@phase = :zoom_in
return @phaseCounter = ZOOM_COUNT
end
end
#--------------------------------------------------------------------------
# ● 刷新显示
#--------------------------------------------------------------------------
def update_showing
@phaseCounter -= 1
if @phaseCounter <= 0
@box8.move_to(nil, Graphics.height/2-YFix, nil, SCROLL_COUNT)
@box2.move_to(nil, Graphics.height/2-YFix+1, nil, SCROLL_COUNT)
@phase = :scrolling_in
return @phaseCounter = SCROLL_COUNT
end
end
#--------------------------------------------------------------------------
# ● 获取显示帧数
#--------------------------------------------------------------------------
def getShowCount
SHOW_COUNT * @contents.size
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def update
case @phase
when :zoom_out
update_zoom_out
when :scrolling_out
update_scrolling_out
when :showing
update_showing
when :scrolling_in
update_scrolling_in
when :zoom_in
update_zoom_in
end
#~ if (!@block_called || Mouse.trigger?(Mouse::RIGHT)) && @phase == :showing
#~ @block_called = true
#~ if @block
#~ re = @block.call
#~ eval(re) if re.is_a?(String)
#~ end
#~ end
end
#--------------------------------------------------------------------------
# ● 释放对像
#--------------------------------------------------------------------------
def dispose
@box2.dispose
@box5.dispose
@box5.bitmap.dispose
@box8.dispose
@box8.bitmap.dispose
@box_viewport.dispose
end
#--------------------------------------------------------------------------
# ● 生成头部 title.size-1的数来刻画分界线
#--------------------------------------------------------------------------
def makeHead(title)
tBMP = Cache.picture("box8")
reBMP= Bitmap.new(tBMP.width, (title.size-1)*HEAD_INIT_5+tBMP.height)
reBMP.font.color = SAO::SAO_GREY
reBMP.font.name = "SAO"
# 复制位图信息
bltRect = Rect.new(0, 0, tBMP.width, HEAD_INIT_8)
reBMP.blt(0, 0, tBMP, bltRect)
bltRect.set(0, HEAD_INIT_8, tBMP.width, HEAD_INIT_5)
title.size.times{|i|
reBMP.blt(0, HEAD_INIT_8+i*HEAD_INIT_5, tBMP, bltRect)
}
bltRect.set(0, HEAD_INIT_8+HEAD_INIT_5, tBMP.width, tBMP.height-HEAD_INIT_8-HEAD_INIT_5)
reBMP.blt(0, title.size*HEAD_INIT_5+HEAD_INIT_8, tBMP, bltRect)

title.each_with_index{|i, index|
if index > 0 # 分割线生成
lineBitmap = Bitmap.new(tBMP.width, LINE_HEIGHT)
lineWidth  = tBMP.width*17/20
lineBitmap.fill_rect((tBMP.width-lineWidth)/2,
LINE_HEIGHT/2-1, lineWidth, 3, Color.new(100, 100, 100, 100))

lineBitmap.fill_rect((tBMP.width-lineWidth)/2,
LINE_HEIGHT/2,lineWidth, 1, Color.new(100, 100, 100))

lineBitmap.blur

reBMP.blt(0, index*HEAD_INIT_5+HEAD_INIT_8, lineBitmap, lineBitmap.rect)

lineBitmap.dispose
end
case i[0]
when :String
rStrBMPRect = reBMP.text_size(i[1])
reBMP.draw_textSAO((reBMP.width-rStrBMPRect.width)/2,
index*HEAD_INIT_5+HEAD_INIT_8+(HEAD_INIT_5-rStrBMPRect.height)/2, i[1])
when :Three
reBMP.draw_textSAO(TOW_X1,
index*HEAD_INIT_5+HEAD_INIT_8+(HEAD_INIT_5-reBMP.font.size)/2, i[1])
reBMP.draw_textSAO(TOW_X2,
index*HEAD_INIT_5+HEAD_INIT_8+(HEAD_INIT_5-reBMP.font.size)/2, i[2])
reBMP.draw_textSAO(TOW_XM,
index*HEAD_INIT_5+HEAD_INIT_8+(HEAD_INIT_5-reBMP.font.size)/2, i[3]) if i[3]
end
}
reBMP
end
end

欢迎光临 Project1 (https://rpg.blue/)