【4月13日更新】≮炸弹人≯【教程、范例，手稿】 - 人人可

end55rpg · 发表于 2012-4-4 14:10:49

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

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

x

本帖最后由 end55rpg 于 2012-5-6 21:43 编辑

让我们来学着做一个炸弹人游戏吧！

4月4号

首先，不要考虑效率问题。
然后来确定制作的列表吧

1.PP爆炸可以用动画的形式
（不足处：动画会建立至少15个sprite，影响移动时候的流畅。）
2.泡泡事件的制作内容
（需要涉及爆炸范围的碰撞检查：如事件，图块通行）
3.敌人的设置

目前就这些吧，开工！

遵循一个规律：先把简单的做好再慢慢完善：
泡泡爆炸时候威力我们先设为一个定值吧，就取2吧，也就是说泡泡爆炸的范围如下：
   ○
   ○
○○ X ○○
   ○
   ○

$power = 2 #威力设置为2

复制代码

现在制作泡泡了吧
1.先设置好图像（随便）
2.当按下C（空格）就会放炮所以如下：

3.如图设置好后，必须要把事件移动到主角位置上并显示图像
所以我们可以在按下空格后切换事件页：
在第一个事件页中我们必须把泡泡传送过去：

其实红框中的部分可以替代为：

x = $game_player.x #代入角色X坐标
y = $game_player.y #代入角色Y坐标
id = @event_id #获取本事件ID
event = $game_map.events[id]#用ID获取本事件
event.moveto(x,y) #移动到指定位置

复制代码

4.继续在第2张事件页里做，要勾一些选项如下图：

5.看完图了吧，然后进入3事件页，我们真正的制作就开始了！！

看完图片了吧？
下面讲解一下方块中的脚本：

#自己的坐标
ox = $game_map.events[@event_id].x
oy = $game_map.events[@event_id].y
#遍历地图所有事件
for event in $game_map.events.values
#获取事件XY
x = event.x
y = event.y
if (x - ox).abs <= 2 and (y - oy).abs <= 2
event.erase
end
end

复制代码

for event in $game_map.events.values这一句的意思是循环查询地图上的事件，
用来判断事件是否被炸。
（如果地图上事件越多查询就会越久，优化方案以后说明）
if (x - ox).abs <= 2 and (y - oy).abs <= 2
event.erase
end
这一句可能较难理解吧。
翻译过来是：
如果查询事件的X坐标减去自己的X坐标的绝对值小于等于 2（威力为2）并且查询事件的Y坐标减去自己的Y坐标的绝对值小于等于 2
那么此事件将被炸掉（消除）
完毕

好了，基本如此，如果想制作炸掉名字为带有“ENEMY”的事件需要慢慢完善。
这只是炸掉事件的简单部分，更复杂的元件通行阻碍泡泡需要完全颠覆上面的内容，而且动画也要随之变化。。。。
（说明：用4个动画来显示泡泡爆炸实在不是一种高效的办法，会发现FPS骤降）
这只是一个泡泡，如果要有许多泡泡还需要制作哦

= =废话少说！
5。制作爆炸后的页面并返回循环泡泡的一生！

今天的功课就这样了！！
以后持续更新最终完全成为一个炸弹人范例！
如果对这种游戏做法感兴趣可以下载去年我发布的QQ堂作为参考：
http://www.66rpg.com/articles/2679

‘‘──end55rpg于2012-4-4 15:28补充以下内容

4月8号
今天添加教程咯：添加了手稿= =

看不到下载范例吧= =！！！！！
4月9号

今天发布最后完整版的PP事件内容，还有爆炸时候的完整脚本哦：
那几个月制作脚本不知挖空了多少心思，前几个月，为了效率不知改了多少次：
下面有图有脚本：

脚本如下：

#4。0更新的东西：
#准备把CHECK_EVENT2建立一个HASH查询!
#全方面把BUG取缔，革命性的转折。
#-------------------------------如果要出ver5
#那么把4个方向的每块坐标运算改成范围只运算4次，并且还有……
#找出放15泡FPS降低的根源。。。。。
module QQT
def self.pp_data(event_id)
#===============================NEW这玩意儿比的是全局更新，故可以是全局变量
$phash = {}
for event in $game_map.events.values
if $phash[[event.x,event.y]]
$phash[[event.x,event.y]] += [event]
else
$phash[[event.x,event.y]] = [event]
end
end
#===============================
#begin-------------
id = $game_map.events[event_id]
x,y = id.x,id.y
po = $pp_power.to_i
event = $game_map.check_all_event(x, y,"敌人") rescue []
map_id = $game_map.map_id
damage = $game_party.actors[0].base_atk
suipian = []
person = "主角"
#Center Bing Bong
event.each{|e|
e.damage_hp(po*100)
}
event = $game_map.check_event2(x, y,"普通")
if $game_player.x == x and $game_player.y == y
$game_player.damage_hp_player2(damage)
end
if $game_player2.x == x and $game_player2.y == y
$game_player2.damage_hp_player2(damage)
end
if event != nil
event.each{|a|
$game_self_switches[[map_id,a.id,"A"]]=true
a.refresh
}
end
#Four Diraction
#UP
for yi in 1..po
event = $game_map.check_all_event(x, y-yi,"敌人") rescue []
if $game_map.tag_down(x, y-yi) == 1
$suipian.push Sprite_Suipian.new($v,x,y-yi)
suipian.push [x,y-yi]
yi -= 1
break
elsif $game_map.through?(x,y-yi,2) == false
yi -= 1
break
end
event.each{|e|e.damage_hp(damage)}
if $game_player.x == x and $game_player.y == y-yi
$game_player.damage_hp_player2(damage)
end
if $game_player2.x == x and $game_player2.y == y-yi
$game_player2.damage_hp_player2(damage)
end
event = $game_map.check_event2(x, y-yi,"普通")
if event != []
event.each{|a|
$game_self_switches[[map_id,a.id,"A"]]=true
a.refresh}
break
end
if $game_map.tag_down(x, y-yi) == 6 # 炸掉元件道具
edit(map_id,x,y-yi,1,0)
end
end
up=yi
#DOWN::3处修改加减号：y-yi
for yi in 1..po
event = $game_map.check_all_event(x, y+yi,"敌人") rescue []
if $game_map.tag_down(x, y+yi) == 1
$suipian.push Sprite_Suipian.new($v,x,y+yi)
suipian.push [x,y+yi]
yi -= 1
break
elsif $game_map.through?(x,y+yi,2) == false
yi -= 1
break
end
event.each{|e|e.damage_hp(damage)}
if $game_player.x == x and $game_player.y == y+yi
$game_player.damage_hp_player2(damage)
end
if $game_player2.x == x and $game_player2.y == y+yi
$game_player2.damage_hp_player2(damage)
end
event = $game_map.check_event2(x, y+yi,"普通")
if event != []
event.each{|a|
$game_self_switches[[map_id,a.id,"A"]]=true
a.refresh}
break
end
if $game_map.tag_down(x, y+yi) == 6
edit(map_id,x,y+yi,1,0)
end
end
down=yi
#LEFT
for xi in 1..po
event = $game_map.check_all_event(x-xi, y,"敌人") rescue []
if $game_map.tag_down(x-xi, y) == 1
#p"这里是可炸地，待会爆炸，并跳出FOR循环结束左泡浆！"
$suipian.push Sprite_Suipian.new($v,x-xi,y)
suipian.push [x-xi,y]
xi -= 1
break
elsif $game_map.through?(x-xi,y,2) == false
xi -= 1
break
end
event.each{|e|e.damage_hp(damage)}
if $game_player.x == x-xi and $game_player.y == y
$game_player.damage_hp_player2(damage)
end
if $game_player2.x == x-xi and $game_player2.y == y
$game_player2.damage_hp_player2(damage)
end
event = $game_map.check_event2(x-xi, y,"普通")
if event != []
event.each{|a|
$game_self_switches[[map_id,a.id,"A"]]=true
a.refresh}
break
end
if $game_map.tag_down(x-xi, y) == 6
edit(map_id,x-xi,y,1,0)
end
end
left=xi
###==RIGHT===========
for xi in 1..po
event = $game_map.check_all_event(x+xi, y,"敌人") rescue []
if $game_map.tag_down(x+xi, y) == 1
$suipian.push Sprite_Suipian.new($v,x+xi,y)
suipian.push [x+xi,y]
xi -= 1
break
elsif $game_map.through?(x+xi,y,2) == false
xi -= 1
break
end
event.each{|e|e.damage_hp(damage)}
if $game_player.x == x+xi and $game_player.y == y
$game_player.damage_hp_player2(damage)
end
if $game_player2.x == x+xi and $game_player2.y == y
$game_player2.damage_hp_player2(damage)
end
event = $game_map.check_event2(x+xi, y,"普通")
if event != []
event.each{|a|
$game_self_switches[[map_id,a.id,"A"]]=true
a.refresh}
break
end
if $game_map.tag_down(x+xi, y) == 6
edit(map_id,x+xi,y,1,0)
end
end
edit(map_id,x,y,1,0)
right=xi
return [up, down, left, right] , suipian
$game_map.events[event_id].animation_id = up-1+130
$game_map.events[event_id].animation_id = down-1+137 unless down-1+137 == 136
$game_map.events[event_id].animation_id = left-1+144 unless left-1+144 == 143
$game_map.events[event_id].animation_id = right-1+151 unless left-1+151 == 150
end
end
#=====================================================
class Game_Map
#--------------------------------------------------------------------------
# ● 获取指定位置的事件 ID
# x : X 坐标
# y : Y 坐标
#--------------------------------------------------------------------------
def check_event(x, y)
for event in $game_map.events.values
if event.x == x and event.y == y
next if event.character_name == ""
return ev_id
end
end
end
end
#New
class Game_Map
#--------------------------------------------------------------------------
# ● 获取指定位置的事件 ID
# x : X 坐标
# y : Y 坐标
#--------------------------------------------------------------------------
def check_event2(x, y,name)#name = 普通
for event in $game_map.events.values
if event.x == x and event.y == y
if event.character_name.index(name) or
(name == '敌人' and event.name.index('en='))
return event.id
end
end
end
return 0
end
end
#New
class Game_Map
#--------------------------------------------------------------------------
# ● 获取指定位置的事件 ID
# x : X 坐标
# y : Y 坐标
#--------------------------------------------------------------------------
def check_all_event(x, y,name)#name = 敌人
a = $phash[[x,y]].to_a
c = []
a.each{|b|c.push b if b.character_name.index(name) or (b.name.index('en=') and b.hp > 0)}
return c
end
def check_event2(x, y,name)#name = 普通
a = $phash[[x,y]].to_a
c = []
a.each{|b|c.push b if b.character_name.index(name)}
return c
end
end
#========================
↑找怪脚本↓爆炸动画
#=====================
class Sprite_PPJS < Sprite
#--------------------------------------------------------------------------
# ● 初始化对像
# viewport : 显示端口
#--------------------------------------------------------------------------
def initialize(viewport, cha, power, dir)
super(viewport)
@cha, @power, @dir = cha, power, dir
@count = 0
self.bitmap = RPG::Cache.picture("PPJS3")
# 将活动块设置为可见
self.visible = true
# 设置活动块的坐标
case @dir
when 2
self.angle = -90
@x2 = 32
@y2 = 32
when 4
self.angle = -180
@y2 = 32
when 6
self.angle = -0
@power += 1
when 8
self.angle = 90
end
self.x = @cha.screen_x - 16 + @x2.to_i
self.y = @cha.screen_y - 32 + @y2.to_i
self.z = @cha.screen_z(32)
self.opacity = 225
self.src_rect.set((10-@power)*32, 0, @power*32, 32)
self.zoom_x, self.zoom_y = 0.95,0.95
update
end
#--------------------------------------------------------------------------
# ● 释放
#--------------------------------------------------------------------------
def dispose
if self.bitmap != nil
self.bitmap.dispose
end
super
end
#--------------------------------------------------------------------------
# ● 释放
#--------------------------------------------------------------------------
def dispose2
if self.bitmap != nil
self.visible = false
end
#super
end
#--------------------------------------------------------------------------
# ● 更新画面
#--------------------------------------------------------------------------
def update
@count += 1
self.x = @cha.screen_x - 16 + @x2.to_i
self.y = @cha.screen_y - 32 + @y2.to_i
渐变x()
return false if @count == 15
super
end
def 渐变x()
self.zoom_x += 0.005
end
end

复制代码

因为那个动画效率太低，所以替换为自制类显示动画，图像也尽量改进加速！
泡泡动画图：请放在PICTURE包包里：（通过旋转，截取形成4方向爆炸和威力可改）

还是把范例拿出来吧：

（自己玩自己游戏玩疯了）
这个区人怎么这么少啊！
哇哈哈我的图没有崩！
请提问吧!
’’
4月13号
今天已经没有任务了哦，现在就动手制作吧，对了
有什么疑难请回复！！！

end55rpg · 发表于 2012-4-5 19:13:57

本帖最后由 end55rpg 于 2012-4-9 19:53 编辑

@kimuafhjbfsa
给分啊!
分享快乐如此简单

lxd986729825 · 发表于 2012-4-5 20:45:28

va可以试一下不？

迷糊的安安 · 发表于 2012-4-6 13:43:34

lxd986729825 发表于 2012-4-5 20:45
va可以试一下不？

VA的话更好做，因为VA有“获得指定位置的信息”还有区域功能，一句脚本都不用就能用纯事件做出来……
我以前写过一个用炸弹炸墙壁来开拓迷宫隐藏区域的功能。
http://rpg.blue/thread-225861-1-1.html
这个是用区域来判定的。

对于炸移动目标的话，可以用“获取指定位置的信息”来获取事件ID，然后用“分支条件”功能操作指定的开关使事件爆炸。

Wind2010 · 发表于 2012-4-6 17:53:48

动画连续显示4个的话最后一个不会把其他3个覆盖么……我记得播放动画的时候再播放个动画的话原来的动画会中断的

end55rpg · 发表于 2012-4-9 19:53:59

本帖最后由 end55rpg 于 2012-4-11 21:52 编辑

end55rpg 发表于 2012-4-5 19:13
@kimuafhjbfsa
给分啊!
分享快乐如此简单

@冰舞蝶恋
版主再来看看分值再来改改

‘‘──end55rpg于2012-4-11 14:13补充以下内容

[@]冰舞蝶恋[/@]版主求更新加分啊
我晕班主任快来
拿东西不回复者，可恶
’’

‘‘──end55rpg于2012-4-13 22:08补充以下内容

@kimu更新求查看
’’

wyongcan2008 · 发表于 2012-4-14 12:50:15

对于取出指定位置的事件，我有个可以不循环所有事件的想法，就是在初始化events时，
一起初始个eventinfo的哈希表，表的结构如下{"X坐标Y坐标" => 事件ID}，这样要取出事件ID只需要
eventinfo就有了.

不知道实际运用怎么样

end55rpg · 发表于 2012-4-14 12:54:13

wyongcan2008 发表于 2012-4-14 12:50
对于取出指定位置的事件，我有个可以不循环所有事件的想法，就是在初始化events时，
一起初始个eventinfo的 ...

娃终于有知音来访了！您说的没错，好像我的泡泡脚本就是这样的，一个全局变量记录了事件的以ID为序的哈希组在放泡泡的时候更新一下这个变量然后读取。。。目前ver4.0泡泡脚本就是这样滴哦，效率不见得多大改进，因为地图上事件没有成百上千哦

wyongcan2008 · 发表于 2012-4-14 13:03:18

本帖最后由 wyongcan2008 于 2012-4-14 13:05 编辑

我想还可以优化一下，在泡泡的判断中
如果炮炮威力*4+1>地图事件数，
就循环所有事件来判断，
如果小于的话就循环判断泡泡炸到的位置有没有事件。

我按照的做eventinfo的想法自己写了段脚本，用到了提取放置物脚本简洁版。
不过你说的事件是移动的这一点还真没考虑到。

module Event
def self.xy_tos (x,y)
ox = x.to_s
oy = y.to_s
while ox.size < 3
ox = "0" + ox
end
while oy.size < 3
oy = "0" + oy
end
ox + oy
end
def self.id_byxy(x,y)
$game_map.eventinfo[xy_tos(x,y)]
end
def self.id_byxys(xy)
$game_map.eventinfo[xy]
end
def self.event_byxy(x,y)
$game_map.events[$game_map.eventinfo[xy_tos(x,y)]]
end
def self.event_byxys(xy)
$game_map.events[$game_map.eventinfo[xy]]
end
end
module Drop_Item
def self.make_events(map_id,event_id,item_x,item_y,save=false)
return unless self.is_map?
map = load_data(sprintf("Data/Map%03d.rxdata", map_id))
temp = Marshal.load(Marshal.dump(map))
if !$game_system.map_events_number
$game_system.map_events_number = {}
end
sum = $game_system.map_events_number
m_id = $game_map.map_id
sum[m_id] == nil ? sum[m_id] = 2000 : sum[m_id] += 1
new_event_id = sum[m_id]
temp.events[event_id].id = new_event_id
temp.events[event_id].x,temp.events[event_id].y = item_x,item_y
$game_map.events[new_event_id] = Game_Event.new(m_id,temp.events[event_id])
#在添加事件时将事件也添加到eventinfo
$game_map.eventinfo[Event.xy_tos(item_x,item_y)] = new_event_id
refresh_map
end
def self.delete_events(event_id)
return unless self.is_map?
#在删除事件时将eventinfo中的事件也删除
$game_map.eventinfo.delete(Event.xy_tos($game_map.events[event_id].x,$game_map.events[event_id].y))
$game_map.events.delete(event_id)
self.refresh_map
end
end
class Game_Map
attr_reader :eventinfo # 事件信息
#--------------------------------------------------------------------------
# ● 设置
# map_id : 地图 ID
#--------------------------------------------------------------------------
def setup(map_id)
# 地图 ID 记录到 @map_id
@map_id = map_id
# 地图文件装载后、设置到 @map
@map = load_data(sprintf("Data/Map%03d.rxdata", @map_id))
# 定义实例变量设置地图元件信息
tileset = $data_tilesets[@map.tileset_id]
@tileset_name = tileset.tileset_name
@autotile_names = tileset.autotile_names
@panorama_name = tileset.panorama_name
@panorama_hue = tileset.panorama_hue
@fog_name = tileset.fog_name
@fog_hue = tileset.fog_hue
@fog_opacity = tileset.fog_opacity
@fog_blend_type = tileset.fog_blend_type
@fog_zoom = tileset.fog_zoom
@fog_sx = tileset.fog_sx
@fog_sy = tileset.fog_sy
@battleback_name = tileset.battleback_name
@passages = tileset.passages
@priorities = tileset.priorities
@terrain_tags = tileset.terrain_tags
# 初始化显示坐标
@display_x = 0
@display_y = 0
# 清除刷新要求标志
@need_refresh = false
# 设置地图事件数据************
@events = {}
@eventinfo = {}
for i in @map.events.keys
@events[i] = Game_Event.new(@map_id, @map.events[i])
@eventinfo[Event.xy_tos(@events[i].x,@events[i].y)] = i #####
end
# 设置公共事件数据
@common_events = {}
for i in 1...$data_common_events.size
@common_events[i] = Game_CommonEvent.new(i)
end
# 初始化雾的各种信息
@fog_ox = 0
@fog_oy = 0
@fog_tone = Tone.new(0, 0, 0, 0)
@fog_tone_target = Tone.new(0, 0, 0, 0)
@fog_tone_duration = 0
@fog_opacity_duration = 0
@fog_opacity_target = 0
# 初始化滚动信息
@scroll_direction = 2
@scroll_rest = 0
@scroll_speed = 4
end
end
class Game_Event < Game_Character
#--------------------------------------------------------------------------
# ● 暂时消失****
#--------------------------------------------------------------------------
def erase
@erased = true
$game_map.eventinfo.delete(Event.xy_tos(@x,@y))
refresh
end
end

复制代码

end55rpg · 发表于 2012-4-14 13:22:17

wyongcan2008 发表于 2012-4-14 13:03
我想还可以优化一下，在泡泡的判断中
如果炮炮威力*4+1>地图事件数，
就循环所有事件来判断，

的你代码看得云里雾里，你的文字我怎么理解不了了？请再说详细点吧

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

[原创发布] 【4月13日更新】≮炸弹人≯【教程、范例，手稿】 - 人人可

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

点评

评分

点评

评分

点评

点评

点评

点评

点评

点评

点评

开拓者

贵宾

短篇七成年组亚军

剧作品鉴家