[PPG-Q堂式炸弹人【教程】]给需要制作PPG游戏的人的帖子! - Project1

#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(([url=mailto:10-@power)*32]10-@power)*32[/url], 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

复制代码