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

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

复制代码

#自己的坐标
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

复制代码

#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

复制代码

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

复制代码