在地图上面“华丽”地扣血魔（0.9版本）

IamI · 发表于 2008-4-6 00:40:56

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

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

x

恩，清明节闲着没事干写的，大概就是地图上扣两滴血，加两点魔的效果
原来是出现在《探望》这个游戏里面的，后来才发现Bug无语的多……这个是从头重新写起的
效果截图

那个实际上头上的数字是从0200到0000，这是其中的一帧
脚本如下：

=begin
说明：调用方法如下：
$scene.cut_new(num,hp_or_not,can_die,matrix,whom)
num : 字面数字，不超过9999
hp_or_not : 该值为真，扣血；反之扣魔
can_die : 允许死亡？
matrix : 数据处理的时候乘上该数值，[-1]扣数值，1加数值
whom : 给谁扣血？写-1的话全体
例如，$scene.cut_new(200,true,false,-1,[0,1])
则给队伍上前面两个人扣血200点，不允许死亡。
0.9更新说明：允许多个处理同时存在，后面的处理将在上面。
方法作了修改
=end
#==============================================================================
# ■ Cuter
#------------------------------------------------------------------------------
# 　地图上面削血用脚本
# IamI制作
#==============================================================================
class Cuter < Sprite
#常量表
#数字图片的位置，每一横列必须是0123456789。
PIC_NAME = "Graphics/Windowskins/num"
#有多少列？
Y_NUM = 5
#扣血的时候用多少步？40步相当于1s
STEPS = 20
#一开始的时候等待多少帧？
START_WAIT = 10
#非全体扣血的列
ONE_HP_CUT = 1
#全体扣血的列
ALL_HP_CUT = 2
#非全体加血的列
ONE_HP_GET = 4
#全体加血的列
ALL_HP_GET = 4
#非全体扣魔的列
ONE_SP_CUT = 3
#全体扣魔的列
ALL_SP_CUT = 3
#非全体加魔的列
ONE_SP_GET = 5
#全体加魔的列
ALL_SP_GET = 5
#对外接口
attr_accessor :cutting
attr_accessor :up_num
attr_accessor :where_is
#--------------------------------------------------------------------------
# ● 初始化
#--------------------------------------------------------------------------
def initialize
super
@cutting = false
@from_bitmap = Bitmap.new(PIC_NAME)
self.bitmap = Bitmap.new(640,480)
self.x = 0
self.y = 0
self.z = 9999
self.ox = 0
self.oy = 0
@one_rect_x = @from_bitmap.width / 10
@one_rect_y = @from_bitmap.height / Y_NUM
@hp_or_not = true
@can_die = false
@matrix = -1
@all_num = 100
@now_num = 0
@type = 1
@now_step = 0
@whom = []
@real_step = STEPS
@wait_count = 0
@up_num = 0
@where_is = -1
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def update(up_num = 0)
if disposed?
return
end
super()
if @wait_count > 0
@wait_count -= 1
return
end
self.bitmap.clear
if @cutting == true
@up_num = up_num
@now_num = @now_num - @all_num / @real_step
broke(@now_num,@type)
@now_step += 1
if @now_step >= @real_step
@now_step = 0
@cutting = false
cut_num
end
end
end
#--------------------------------------------------------------------------
# ● 最后的数值处理
#--------------------------------------------------------------------------
def cut_num
for i in @whom
actor = $game_party.actors[i]
if @hp_or_not == true
if @can_die == true
actor.hp += @all_num * @matrix
if $game_party.all_dead?
$scene = Scene_Gameover.new
end
else
actor.hp = [actor.hp + @all_num * @matrix,1].max
end
else
actor.sp = [actor.sp + @all_num * @matrix,0].max
end
end
end
#--------------------------------------------------------------------------
# ● 对外的方法
# num : 字面数字，不超过9999
# hp_or_not : 该值为真，扣血；反之扣魔
# can_die : 允许死亡？
# matrix : 数据处理的时候乘上该数值，-1扣数值，1加数值
# whom : 给谁扣血？写[-1]的话全体
#--------------------------------------------------------------------------
def cut(num,hp_or_not,can_die,matrix,whom,up_num = 0)
if num > 9999
return
end
@all_num = num
@now_num = num
@hp_or_not = hp_or_not
@can_die = can_die
@matrix = matrix
@type = 0
if hp_or_not == true
if whom == -1
if matrix > 0
@type = ALL_HP_GET
else
@type = ALL_HP_CUT
end
else
if matrix > 0
@type = ONE_HP_GET
else
@type = ONE_HP_CUT
end
end
else
if whom == -1
if matrix > 0
@type = ALL_SP_GET
else
@type = ALL_SP_CUT
end
else
if matrix > 0
@type = ONE_SP_GET
else
@type = ONE_SP_CUT
end
end
end
if whom[0] < 0
@whom = 0..$game_party.actors.size - 1
else
@whom = whom
end
@real_step = STEPS
if @all_num < STEPS
@real_step = @all_num
end
@up_num = up_num
broke(@all_num,@type)
@wait_count = START_WAIT
@cutting = true
end
def set_for_water_water(num,up_num,type,where_is)
@all_num = num
@now_num = num
@type = type
@up_num = up_num
@real_step = STEPS
if @all_num < STEPS
@real_step = @all_num
end
@where_is = where_is
@cutting = true
end
#--------------------------------------------------------------------------
# ● 拆数字，并且向下调用draw方法
# num : 数字（xxxx）
# type : 类型，即第几列
#--------------------------------------------------------------------------
def broke(num,type)
# num必须是一个最高千位数字
gotnum = num
# 千位获取
thousand = gotnum / 1000
gotnum -= thousand * 1000
# 百位获取
hundred = gotnum / 100
gotnum -= hundred * 100
# 十位获取
ten = gotnum / 10
gotnum -= ten * 10
# 个位……不能算获取，应该叫捡便宜= =b
one = gotnum
# 开始描画
if @where_is < 0
gotx = $game_player.real_x / 4.0
goty = $game_player.real_y / 4.0
else
gotx = $game_map.events.values[@where_is - 1].x * 32.0
goty = $game_map.events.values[@where_is - 1].y * 32.0
end
gotx = gotx + 16 - (@one_rect_x * 2)
goty = goty - @one_rect_y - 16 - @up_num * @one_rect_y
draw(thousand,type,gotx + @one_rect_x * 0,goty)
draw(hundred, type,gotx + @one_rect_x * 1,goty)
draw(ten, type,gotx + @one_rect_x * 2,goty)
draw(one, type,gotx + @one_rect_x * 3,goty)
end
#--------------------------------------------------------------------------
# ● 描画单个的数字
# num : 数值（x）
# type : 类型，即第几列
# x : x实际坐标
# y : y实际坐标
#--------------------------------------------------------------------------
def draw(num,type,x,y)
rectangle = Rect.new(num * @one_rect_x ,(type - 1) * @one_rect_y, @one_rect_x,@one_rect_y)
self.bitmap.blt(x, y, @from_bitmap,rectangle)
end
end
#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
# 　接入系统的处理
#==============================================================================
class Scene_Map
attr_accessor :cuter
alias old_main main
def main
@cuter = []
old_main
@cuter = []
end
alias old_update update
def update
old_update
for i in [email protected] - 1
if @cuter[i].where_is < 0 then
@cuter[i].update(i)
else
@cuter[i].update
end
end
for i in [email protected] - 1
if @cuter[i].cutting == false
@cuter[i].dispose
@cuter.delete_at i
break
end
end
end
alias old_call_menu call_menu
def call_menu
unless @cuter == []
old_call_menu
end
end
def cut_new(num,hp_or_not,can_die,matrix,whom)
p = Cuter.new
p.cut(num,hp_or_not,can_die,matrix,whom,@cuter.size)
@cuter.push(p)
end
def water_cut(num,type,where_is)
p = Cuter.new
p.set_for_water_water(num,0,type,where_is)
@cuter.push(p)
end
end

复制代码

因为估计还是有很多Bug（这是我的一贯风格），所以说明写得很简略，而且也没有范例工程，以后还会有后续的版本。当然如果火星、被54，大多数人认为毫无意义的话就不写了。
要实验的话请在Windowskin下放入这张图：

就是RTAB系统的那张……
如果有什么问题，欢迎指正。

lxshww · 发表于 2008-4-6 01:04:50

占
这个在ARPG里有了吧……

小传子 · 发表于 2008-4-6 01:22:36

不错噢,跳动的数字..

记得某人写过一个类似脚本
思路大致相同
但是他解决了一个小问题
重复扣血的时候图片重叠的问题
当两次显示的时间小于图片的消失时间时
将第2次显示的Y坐标提*个数值

另:这个脚本会有很多冲突的{/hx}

IamI · 发表于 2008-4-6 01:27:12

以下引用传说VS天涯于2008-4-5 17:22:36的发言：

不错噢,跳动的数字..

记得某人写过一个类似脚本
思路大致相同
但是他解决了一个小问题
重复扣血的时候图片重叠的问题
当两次显示的时间小于图片的消失时间时
将第2次显示的Y坐标提*个数值

另:这个脚本会有很多冲突的

alias也可以有这么多冲突……
还有这个脚本只允许存在一个处理……{/gg}

越前リョーマ · 发表于 2008-4-6 04:08:13

我做的ARPG是用变量控制的……

水迭澜 · 发表于 2008-4-6 21:26:08

这个...scene么...
从没想过的思路= =
提问提问.给NPC扣血要怎么办?

IamI · 发表于 2008-4-6 21:56:23

以下引用水迭澜于2008-4-6 13:26:08的发言：

这个...scene么...
从没想过的思路= =
提问提问.给NPC扣血要怎么办?

[本贴由作者于 2008-4-6 13:26:30 最后编辑]

没有的鸟……NPC有HP吗？有吗？没有吗？要修改的话，请修改Cut_Num方法。
还有就是broke方法里面的x，y坐标值
更新完毕，方法作了修改，允许多个处理同时存在

水迭澜 · 发表于 2008-4-6 22:23:05

汗，一开始还以为是做ARPG的
继续提问：能否再修改或者扩展一下cut_num的做法，
减少的数值使用代入变量处理，并且让它可以显示在事件上~扣血可以不用直接扣
因为角色的HP也可以用事件变量增减的，而且如果用变量的话可以显示其他东西，扩展起来MS比较方便-v-

IamI · 发表于 2008-4-6 23:13:56

制作完毕，新定义的方法名很邪恶{/hx}

=begin
说明：调用方法如下：
$scene.cut_new(num,hp_or_not,can_die,matrix,whom)
num : 字面数字，不超过9999
hp_or_not : 该值为真，扣血；反之扣魔
can_die : 允许死亡？
matrix : 数据处理的时候乘上该数值，[-1]扣数值，1加数值
whom : 给谁扣血？写-1的话全体
例如，$scene.cut_new(200,true,false,-1,[0,1])
则给队伍上前面两个人扣血200点，不允许死亡。
0.9更新说明：允许多个处理同时存在，后面的处理将在上面。
方法作了修改
=end
#==============================================================================
# ■ Cuter
#------------------------------------------------------------------------------
# 　地图上面削血用脚本
# IamI制作
#==============================================================================
class Cuter < Sprite
#常量表
#数字图片的位置，每一横列必须是0123456789。
PIC_NAME = "Graphics/Windowskins/num"
#有多少列？
Y_NUM = 5
#扣血的时候用多少步？40步相当于1s
STEPS = 20
#一开始的时候等待多少帧？
START_WAIT = 10
#非全体扣血的列
ONE_HP_CUT = 1
#全体扣血的列
ALL_HP_CUT = 2
#非全体加血的列
ONE_HP_GET = 4
#全体加血的列
ALL_HP_GET = 4
#非全体扣魔的列
ONE_SP_CUT = 3
#全体扣魔的列
ALL_SP_CUT = 3
#非全体加魔的列
ONE_SP_GET = 5
#全体加魔的列
ALL_SP_GET = 5
#对外接口
attr_accessor :cutting
attr_accessor :up_num
attr_accessor :where_is
#--------------------------------------------------------------------------
# ● 初始化
#--------------------------------------------------------------------------
def initialize
super
@cutting = false
@from_bitmap = Bitmap.new(PIC_NAME)
self.bitmap = Bitmap.new(640,480)
self.x = 0
self.y = 0
self.z = 9999
self.ox = 0
self.oy = 0
@one_rect_x = @from_bitmap.width / 10
@one_rect_y = @from_bitmap.height / Y_NUM
@hp_or_not = true
@can_die = false
@matrix = -1
@all_num = 100
@now_num = 0
@type = 1
@now_step = 0
@whom = []
@real_step = STEPS
@wait_count = 0
@up_num = 0
@where_is = -1
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def update(up_num = 0)
if disposed?
return
end
super()
if @wait_count > 0
@wait_count -= 1
return
end
self.bitmap.clear
if @cutting == true
@up_num = up_num
@now_num = @now_num - @all_num / @real_step
broke(@now_num,@type)
@now_step += 1
if @now_step >= @real_step
@now_step = 0
@cutting = false
cut_num
end
end
end
#--------------------------------------------------------------------------
# ● 最后的数值处理
#--------------------------------------------------------------------------
def cut_num
for i in @whom
actor = $game_party.actors[i]
if @hp_or_not == true
if @can_die == true
actor.hp += @all_num * @matrix
if $game_party.all_dead?
$scene = Scene_Gameover.new
end
else
actor.hp = [actor.hp + @all_num * @matrix,1].max
end
else
actor.sp = [actor.sp + @all_num * @matrix,0].max
end
end
end
#--------------------------------------------------------------------------
# ● 对外的方法
# num : 字面数字，不超过9999
# hp_or_not : 该值为真，扣血；反之扣魔
# can_die : 允许死亡？
# matrix : 数据处理的时候乘上该数值，-1扣数值，1加数值
# whom : 给谁扣血？写[-1]的话全体
#--------------------------------------------------------------------------
def cut(num,hp_or_not,can_die,matrix,whom,up_num = 0)
if num > 9999
return
end
@all_num = num
@now_num = num
@hp_or_not = hp_or_not
@can_die = can_die
@matrix = matrix
@type = 0
if hp_or_not == true
if whom == -1
if matrix > 0
@type = ALL_HP_GET
else
@type = ALL_HP_CUT
end
else
if matrix > 0
@type = ONE_HP_GET
else
@type = ONE_HP_CUT
end
end
else
if whom == -1
if matrix > 0
@type = ALL_SP_GET
else
@type = ALL_SP_CUT
end
else
if matrix > 0
@type = ONE_SP_GET
else
@type = ONE_SP_CUT
end
end
end
if whom[0] < 0
@whom = 0..$game_party.actors.size - 1
else
@whom = whom
end
@real_step = STEPS
if @all_num < STEPS
@real_step = @all_num
end
@up_num = up_num
broke(@all_num,@type)
@wait_count = START_WAIT
@cutting = true
end
def set_for_water_water(num,up_num,type,where_is)
@all_num = num
@now_num = num
@type = type
@up_num = up_num
@real_step = STEPS
if @all_num < STEPS
@real_step = @all_num
end
@where_is = where_is
@cutting = true
end
#--------------------------------------------------------------------------
# ● 拆数字，并且向下调用draw方法
# num : 数字（xxxx）
# type : 类型，即第几列
#--------------------------------------------------------------------------
def broke(num,type)
# num必须是一个最高千位数字
gotnum = num
# 千位获取
thousand = gotnum / 1000
gotnum -= thousand * 1000
# 百位获取
hundred = gotnum / 100
gotnum -= hundred * 100
# 十位获取
ten = gotnum / 10
gotnum -= ten * 10
# 个位……不能算获取，应该叫捡便宜= =b
one = gotnum
# 开始描画
if @where_is < 0
gotx = $game_player.real_x / 4.0
goty = $game_player.real_y / 4.0
else
gotx = $game_map.events.values[@where_is - 1].x * 32.0
goty = $game_map.events.values[@where_is - 1].y * 32.0
end
gotx = gotx + 16 - (@one_rect_x * 2)
goty = goty - @one_rect_y - 16 - @up_num * @one_rect_y
draw(thousand,type,gotx + @one_rect_x * 0,goty)
draw(hundred, type,gotx + @one_rect_x * 1,goty)
draw(ten, type,gotx + @one_rect_x * 2,goty)
draw(one, type,gotx + @one_rect_x * 3,goty)
end
#--------------------------------------------------------------------------
# ● 描画单个的数字
# num : 数值（x）
# type : 类型，即第几列
# x : x实际坐标
# y : y实际坐标
#--------------------------------------------------------------------------
def draw(num,type,x,y)
rectangle = Rect.new(num * @one_rect_x ,(type - 1) * @one_rect_y, @one_rect_x,@one_rect_y)
self.bitmap.blt(x, y, @from_bitmap,rectangle)
end
end
#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
# 　接入系统的处理
#==============================================================================
class Scene_Map
attr_accessor :cuter
alias old_main main
def main
@cuter = []
old_main
@cuter = []
end
alias old_update update
def update
old_update
for i in [email protected] - 1
if @cuter[i].where_is < 0 then
@cuter[i].update(i)
else
@cuter[i].update
end
end
for i in [email protected] - 1
if @cuter[i].cutting == false
@cuter[i].dispose
@cuter.delete_at i
break
end
end
end
alias old_call_menu call_menu
def call_menu
unless @cuter == []
old_call_menu
end
end
def cut_new(num,hp_or_not,can_die,matrix,whom)
p = Cuter.new
p.cut(num,hp_or_not,can_die,matrix,whom,@cuter.size)
@cuter.push(p)
end
def water_cut(num,type,where_is)
p = Cuter.new
p.set_for_water_water(num,0,type,where_is)
@cuter.push(p)
end
end

复制代码

（原来给主角的调用仍然不变）
调用为：$scene.water_cut(num,type,where_is)
num:字面数字
type:第几行的数字
where_is:事件的ID
一个事件不允许进行两个调用

顶楼暂不刷新。

喵，刚才改脚本半个小时没去逛自由提问区，水水要……算了，反正也全都是你在答题{/gg}

水迭澜 · 发表于 2008-4-7 00:27:31

- -我经常一整天不答题的
辛苦了~去吧~（华丽地飘走）

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

在地图上面“华丽”地扣血魔（0.9版本）

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

开拓者

贵宾

第3届短篇游戏大赛主流游戏组亚军

第5届短篇游戏比赛亚军

第2届TG大赛亚军