RMVX重力系统

zhong · 发表于 2009-12-28 22:12:04

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

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

x

本帖最后由 zhong 于 2009-12-29 16:41 编辑

吐槽:
好长时间没碰RM了,最近考完试,心情大好,就又拿RM来玩玩了~~~上次看过一个妹痛的视频,里面用VX做的重力系统很华丽....于是自己也花一两天时间写了一个.有些地方实现的还不够理想,不过已经效果方面已经比XP版本的那个重力脚本好一点了,不过将其作为一个完整的Act系统还有一段距离,本想要写一个完整的ACT系统,无奈又要投入学习了,所以就把这个东东放出来.不过这个东西这个时候出现已经没有多大意义了,因为AGM已经为act游戏的制作提供比较完善的解决方案.代码没有的优化过,如果有用就拿去吧.另:发现这个区超冷清,大半年了都没有一个更新....唉~~想起VX刚出来的时候,这区是每天N贴的啊~~今天回来一看才知道6R就要close了~伤心.......

系统说明:
按键盘A键跳跃
根据按键时间长短决定跳跃高度,但有上限,上限决定于初速度及重力加速度
可设置多段跳跃.默认2段跳
可设置起跳初速度,重力加数度,起跳行走图,起跳时的声音
支持爬梯,踏板(注:踏板效果还不够理想,鉴于RM自身的缺陷,而且我懒于完善,所以由它了)
事件也会受重,但可通过设置其飞行,从而忽视重力.
测试模式按ctrl会掉落.所以要角色在陆地上死亡,可通过设置其through为true,然后他就会掉下去,触发掉落开关.

简单实用说明:

1.地图的制作,首先是用透明可通行的图块涂满全地图,然后再进行绘图.

2.掉出屏幕后会自动打开50号开关,也可执行设置要打开哪一个.通过公共事件配合可作出一些东西.还有角色掉出屏幕后,调用脚本语句"$game_player.reborn"才能重新受力,否则将不受重力影响.

3.梯子的设置是通过事件完成的,通过设置脚本开头数组MAP_VEHICLE来完成,格式为:
地图id=>[[事件id,1],[事件id,1]....],如1号地图的3号是梯子,则 MAP_VEHICLE = {1=>[3,1]}

4.踏板设置和梯子类似,只是后面的1改为2,如:
MAP_VEHICLE = {1=>[3,2]}
就是1号地图的3号事件是踏板.这是推进型踏板,如果要该成即踩即落的踏板,可写为:
MAP_VEHICLE = {1=>[3,2,1]}
但是即踩即落的踏板有一定缺陷尚未修复.有待以后完善.

5.设置起跳时的行走图是设置JUMP_CHARACTER 这个变量,如果没有,其值设为nil,如果有格式是[名称,index]
如: JUMP_CHARACTER = [Monster,4]

6.地图飞行事件的设置,也就是不受重力影响的事件.在MAP_FLY_EVENT 这个变量,如:
MAP_FLY_EVENT = {1=>[10]}就是1号地图的10号事件不受重力影响.

7.设置重力模式是:
$game_map.scene_mode = 1
如果设为正常模式则是:
$game_map.scene_mode = 0
注意:重力模式须在切换场景前设置好,否则有些飞行事件和梯子都会失效.也就是说,你即将要进入重力环境时,最好就先调用$game_map.scene_mode = 1,不过这个时候你所在地图也会受重力影响,但这个可以通过黑屏来处理.

8.需要注意的是,梯子的顶端的图块需要设为不通行,否则角色上不了平台,这是一个未知的bug,但由于比较小,所以也就没去追究了...

9.其它的可仔细参考范例,至于脚本我可能没有太多时间去维护了,非常抱歉,幸好这脚本我估计使用的人也不会太多,至于那个VX的战斗脚本也有一大堆问题,但现在实在没时间维护了....在此对各位使用者表示歉意.

范例:
uushare:http://www.uushare.com/user/zhongrmvx/file/2363861
RayFile:http://www.rayfile.com/files/d66 ... -91dd-0014221b798a/
本站:

重力系统_范例.rar (253.79 KB, 下载次数: 2395)

顺便为了测试前阵子发现的录屏软件,录了段视频,但是效果不理想,卡帧卡的太厉害.....这个软件缺陷果然很大,仅供参考
[flash=http://player.youku.com/player.php/sid/XMTQxNzMyNTY0/v.swf,640]480[/flash]

脚本:

#=============================================================================
#★RMVX重力系统★
#-----------------------------------------------------------------------------
#★作者: Zhong_zw
#★联系方式: 66rpg.com论坛短信或 [email protected] 或 [email protected]
#★游戏中引用本脚本,请保留以上信息,并作相关说明.
#☆如若转载本脚本请联系本人☆
#==============================================================================
#==============================================================================
# ★ Game_Character
#------------------------------------------------------------------------------
# 　涉及角色的类。本类作为 Game_Player 类与 Game_Event 的超级类
# 使用。
#==============================================================================
#==============================================================================
#★参数设置
#==============================================================================
#跳跃初速度
JUMP_SPEED = 180
#重力加速度
GRAVITATIONAL = 9
#连跳次数
JUME_SERIES = 2
#连跳速度衰减
JUMP_SERIES_WEAKEN = 30
#跳跃键
JUMP_KEY = Input::X #默认为键盘A键
#弹跳时的行走图 (格式为:[名称,index])
JUMP_CHARACTER = nil
#弹跳时的声音 (注:声音文件放在SE文件夹下)
JUMP_SE = "Jump1.ogg"
#掉出屏幕时打开的开关(用于调用相关公共事件)
DEAD_SWITCHES_ID = 50
#各地图交通工具的摆放位置
MAP_VEHICLE = {1=>[[2,1],[3,1],[4,1],[5,1],[8,2],[6,2],[7,2,1]]}
#各地图可以飞的事件
MAP_FLY_EVENT = {1=>[10]}
#默认地图模式 0为正常模式 1为重力模式
DEFAULT_MAP_MODE = 0
#==============================================================================
class Game_Character
#--------------------------------------------------------------------------
# ● 定义实例变量
#--------------------------------------------------------------------------
attr_reader :id # ID
#===============================================================
attr_accessor :x # 地图 X 坐标 (理论坐标)
attr_accessor :y # 地图 Y 坐标 (理论坐标)
attr_accessor :real_x # 地图 X 坐标 (实际坐标 * 256)
attr_accessor :real_y # 地图 Y 坐标 (实际坐标 * 256)
attr_accessor :move_speed #角色移动速度
attr_accessor :jump_series #连跳次数
attr_accessor :gravitational #重力加速度
attr_accessor :vertical_speed #垂直速度
attr_accessor :can_fly #飞行开关
attr_accessor :jump_speed #跳跃初速度
attr_accessor :on_ladder #是否在梯子上
attr_accessor :map_vehicle #地图交通工具 0 无 1 为梯子 2 为踏板
attr_accessor :pedal_type #踏板类型
attr_accessor :on_pedal #是否在踏板
attr_accessor :jump_character #弹跳时的行走图
#=====================================================
#==========================================================================
# ★ 初始化对象
#==========================================================================
def initialize
@id = 0
@x = 0
@y = 0
@real_x = 0
@real_y = 0
@tile_id = 0
@character_name = ""
@character_index = 0
@opacity = 255
@blend_type = 0
@direction = 2
@pattern = 1
@move_route_forcing = false
@priority_type = 1
@through = false
@bush_depth = 0
@animation_id = 0
@balloon_id = 0
@transparent = false
@original_direction = 2 # 原朝向
@original_pattern = 1 # 原图案
@move_type = 0 # 移动类型
@move_speed = 4 # 移动速度
@move_frequency = 6 # 移动频度
@move_route = nil # 移动路径
@move_route_index = 0 # 移动路径执行位置
@original_move_route = nil # 原移动路径
@original_move_route_index = 0 # 原移动路径执行位置
@walk_anime = true # 步行动画
@step_anime = false # 踏步动画
@direction_fix = false # 朝向固定
@anime_count = 0 # 动画计数
@stop_count = 0 # 停止计数
@jump_count = 0 # 跳跃计数
@jump_peak = 0 # 跳跃顶点计数
@wait_count = 0 # 等待计数
@locked = false # 锁定标志
@prelock_direction = 0 # 锁定前的朝向
@move_failed = false # 移动失败标志
#===========================================================
@jump_speed = JUMP_SPEED #跳跃速度
#@jump_height = JUMP_HEIGHT
@jump_series = 0 #连跳次数累计
@jump_max_series = JUME_SERIES #最大连跳次数
@can_fly = false
#计算重力加速度
@gravitational = GRAVITATIONAL
#垂直速度为0
@vertical_speed = 0
#初始速度
@init_Vspeed = 0
#着陆
@is_land = true
#不需要继续下落的开关
@no_need_fall = false
#是否可以坠入悬崖
@can_falldown_screen = true
#交通工具性质
@map_vehicle = 0 #地图交通工具 0 无 1为梯子 2 为踏板
#是否在梯子上
@on_ladder = false
#踏板类型
@pedal_type = 0 # 0 为推进型踏板 1 为即落型踏板
#是否在踏板
@on_pedal = false
#弹跳时的行走图
@jump_character = nil
#跳前行走图
@last_character = nil
#乘客(踏板的情况下)
@passengers = nil
#===========================================================
end
#==========================================================================
#★ 设置跳跃初速度
#==========================================================================
def set_jump_speed(speed)
@jump_speed = speed
end #def
#==========================================================================
#--------------------------------------------------------------------------
# ★ 判断是否在跳跃
#--------------------------------------------------------------------------
def jumping?
if $game_map.scene_mode == 0
return @jump_count > 0
else
return false #废弃跳跃判定.主判定已放进update_falling里
end #if
end
#==========================================================================
# ★ 判断角色冲突
# x : X 坐标
# y : Y 坐标
# 包含玩家和交通工具、检测普通角色的冲突。
#==========================================================================
def collide_with_characters?(x, y)
for event in $game_map.events_xy(x, y) # 与事件坐标一致
if($game_map.scene_mode == 1 && event.map_vehicle == 1)
return false
end
unless event.through # 穿越 OFF？
return true if self.is_a?(Game_Event) # 自己是事件
return true if event.priority_type == 1 # 对方是普通角色
end
end
if @priority_type == 1 # 自己是普通角色
return true if $game_player.pos_nt?(x, y) # 与玩家的坐标一致
return true if $game_map.boat.pos_nt?(x, y) # 与小型船坐标一致
return true if $game_map.ship.pos_nt?(x, y) # 与大型船坐标一致
end
return false
end
#==========================================================================
# ★ 获取画面 Y 坐标
#==========================================================================
def screen_y
y = ($game_map.adjust_y(@real_y) + 8007) / 8 - 1000 + 32
#================================================
y -= 4 unless object? || $game_map.scene_mode == 1
#================================================
if $game_map.scene_mode == 0
if @jump_count >= @jump_peak
n = @jump_count - @jump_peak
else
n = @jump_peak - @jump_count
end
return y - (@jump_peak * @jump_peak - n * n) / 2
else
return y
end #if
end
#==========================================================================
# ★ 刷新画面
#==========================================================================
def update
if $game_map.scene_mode == 1
if falling?
update_falling
else
#如果本身是踏板的话检查上面有没乘客
check_passenger
if @real_y < @y*256 && !@on_ladder && !@can_fly && !on_pedal
free_fall
#update_horizontal_fly
else
if !@on_ladder && !@can_fly && !@on_pedal #不在梯子上
@real_y = @y*256 #修正
end
@vertical_speed = 0
@init_Vspeed = 0
@jump_count = 0
if moving?
update_move
else # 正在停止
update_stop
end
if @wait_count > 0 # 正在等待
@wait_count -= 1
elsif @move_route_forcing # 强制移动路径
move_type_custom
elsif not @locked # 被锁定以外
update_self_movement
end
update_animation
end
end
else
if jumping? # 正在跳跃
update_jump
elsif moving? # 正在移动
update_move
else # 正在停止
update_stop
end
if @wait_count > 0 # 正在等待
@wait_count -= 1
elsif @move_route_forcing # 强制移动路径
move_type_custom
elsif not @locked # 被锁定以外
update_self_movement
end
update_animation
end #if
end
#==========================================================================
#★判断是否会下落
#==========================================================================
def falling?
if @jump_series > 0 && !@on_ladder && @jump_character != nil
if @last_character == nil || @character_name != @jump_character[0]
@last_character = [@character_name,@character_index]
end
set_graphic(@jump_character[0],@jump_character[1])
elsif @last_character != nil && @last_character[0] != @character_name
set_graphic(@last_character[0],@last_character[1])
end
if @can_fly || @no_need_fall || @map_vehicle >= 1
return false
end
have_ladder = false
for event in $game_map.events_xy(@x, @y) # 与事件坐标一致
if event.map_vehicle == 1
have_ladder = true
@on_ladder = true
@is_land = true
end
end
if !have_ladder
@on_ladder = false if @on_ladder
else
return false
end
dir = @vertical_speed >= 0 ? 1 : -1
if @jump_count < 0 && @init_Vspeed < 0
dir = -1
end
x = @x
if @x*256-@real_x > 0 #向右
x = (@real_x*1.0/256).floor
elsif @x*256-@real_x < 0
x = (@real_x*1.0/256).ceil
end
result = passable?(x, @y+dir) && passable?(@x, @y+dir)
if ((@y+dir) >= $game_map.height || @real_y/256 > $game_map.height) && @can_falldown_screen
@y = ($game_map.height+1)
@no_need_fall = true
if self.is_a?(Game_Player)
$game_switches[DEAD_SWITCHES_ID] = true
end #
elsif (@y+dir) <= 0
result = true
end
if @on_pedal&&result
@on_pedal = false
end
last_state = @is_land
@is_land = !result && dir == 1
#判断上顶或着陆事件
if !result && (self.is_a?(Game_Player) || self.is_a?(Game_Event))
dir = -1 if @vertical_speed < 0
check_event_trigger_touch(@x,@y+dir)
end
return result
end
#==========================================================================
#★ 下落的更新
#==========================================================================
def update_falling
last_y = @real_y
y = (last_y/256).ceil
free_fall
dir = @vertical_speed >= 0 ? 1 : -1
d = (dir*@vertical_speed*1.00/256).ceil.abs
lst_i = 0
for i in 0..d
if !passable?(@x, y+i*dir)
break
end #if
lst_i = i
end #for
if i > 0
@y = y+lst_i*dir
if !passable?(@x, @y+dir) && @y +dir > 0
@real_y = @y*256
#@vertical_speed = 0
@init_Vspeed = 0
@jump_count = 0
end
end
update_horizontal_fly
end
#==========================================================================
#★自由落体运动
#==========================================================================
def free_fall
@jump_count += 1
@vertical_speed = @init_Vspeed + @gravitational*@jump_count
@real_y = @real_y + @vertical_speed
end
#=========================================================================
#★空中横向移动
#=========================================================================
def update_horizontal_fly
distance = 2 ** @move_speed*2 # 变换移动速度与移动距离
distance += 5 if dash? # 跑步状态时移动速度加倍
@real_x = [@real_x - distance, @x * 256].max if @x * 256 < @real_x
@real_x = [@real_x + distance, @x * 256].min if @x * 256 > @real_x
end
#=========================================================================
#★ 检查乘客(踏板专用)
#=========================================================================
def check_passenger
return if @map_vehicle != 2 || $game_map.scene_mode != 1
if @passengers == nil
@passengers = []
end
if @passengers.size > 0
@passengers.clear
end
for event in $game_map.events_xy(@x, @y-1)
if @pedal_type == 1 #即落型
@map_vehicle = 0 #设为普通角色(重力下自动掉落)
return
else
@passengers.push(event)
end
end
if $game_player.x == @x && $game_player.y == @y-1
if @pedal_type == 1 #即落型
@map_vehicle = 0 #设为普通角色(重力下自动掉落)
return
else
@passengers.push($game_player)
end
end
end
#==========================================================================
#--------------------------------------------------------------------------
# ★ 跳跃时的更新
#--------------------------------------------------------------------------
def update_jump
if $game_map.scene_mode == 0
@jump_count -= 1
@real_x = (@real_x * @jump_count + @x * 256) / (@jump_count + 1)
@real_y = (@real_y * @jump_count + @y * 256) / (@jump_count + 1)
update_bush_depth
end #if
end
#--------------------------------------------------------------------------
# ★ 向下移动
# turn_ok : 此地可以更改朝向
#--------------------------------------------------------------------------
def move_down(turn_ok = true)
if $game_map.scene_mode == 1
@on_ladder =true
end
if passable?(@x, @y+1) # 可以通过
if $game_map.scene_mode == 0 #正常模式下
turn_down
elsif $game_map.scene_mode == 1 #重力模式
turn_up if !@can_fly #设置爬梯时的朝向
#是否踏板,是否有乘客
if @map_vehicle == 2 && @passengers != nil && @passengers.size > 0
for event in @passengers
event.y = @y
event.on_pedal = true
end
end
end
@y = $game_map.round_y(@y+1)
@real_y = (@y-1)*256
increase_steps
@move_failed = false
else # 不可以通过
turn_down if turn_ok
check_event_trigger_touch(@x, @y+1) # 判断接触的事件启动
@move_failed = true
end
#end #if
end
#--------------------------------------------------------------------------
# ★ 向左移动
# turn_ok : 此地可以更改朝向
#--------------------------------------------------------------------------
def move_left(turn_ok = true)
if passable?(@x-1, @y) # 可以通过
turn_left
if $game_map.scene_mode == 1
if @map_vehicle == 2 && @passengers != nil && @passengers.size > 0
for event in @passengers
event.x = $game_map.round_x(@x-1)
event.on_pedal = true
end
end
end
@x = $game_map.round_x(@x-1)
@real_x = (@x+1)*256
increase_steps
@move_failed = false
else # 不可以通过
turn_left if turn_ok
check_event_trigger_touch(@x-1, @y) # 判断接触的事件启动
@move_failed = true
end
end
#--------------------------------------------------------------------------
# ★ 向右移动
# turn_ok : 此地可以更改朝向
#--------------------------------------------------------------------------
def move_right(turn_ok = true)
if passable?(@x+1, @y) # 可以通过
turn_right
if $game_map.scene_mode == 1
if @map_vehicle == 2 && @passengers != nil && @passengers.size > 0
for event in @passengers
event.x = $game_map.round_x(@x+1)
event.on_pedal = true
end #for
end
end
@x = $game_map.round_x(@x+1)
@real_x = (@x-1)*256
increase_steps
@move_failed = false
else # 不可以通过
turn_right if turn_ok
check_event_trigger_touch(@x+1, @y) # 判断接触的事件启动
@move_failed = true
end
end
#--------------------------------------------------------------------------
# ★ 向上移动
# turn_ok : 此地可以更改朝向
#--------------------------------------------------------------------------
def move_up(turn_ok = true)
if $game_map.scene_mode == 0 || ($game_map.scene_mode == 1 && (@on_ladder || @can_fly || @map_vehicle == 2))
pedal_passable = false
if @map_vehicle == 2 && $game_map.scene_mode == 1 && @passengers != nil && @passengers.size > 0
for event in @passengers
if (event.passable?(@x,@y-2))
pedal_passable = true
event.y = $game_map.round_y(@y-2)
event.on_pedal = true
end #if
end#for
end
if passable?(@x, @y-1) || pedal_passable # 可以通过
turn_up
@y = $game_map.round_y(@y-1)
@real_y = (@y+1)*256
increase_steps
@move_failed = false
else # 不可以通过
turn_up if turn_ok
check_event_trigger_touch(@x, @y-1) # 判断接触的事件启动
@move_failed = true
end
end #if
end
#--------------------------------------------------------------------------
# ★ 向左下移动(为了不引起不必要的bug,把重力模式暂时没用到的屏蔽了)
#--------------------------------------------------------------------------
def move_lower_left
if $game_map.scene_mode == 0
unless @direction_fix
@direction = (@direction == 6 ? 4 : @direction == 8 ? 2 : @direction)
end
if (passable?(@x, @y+1) and passable?(@x-1, @y+1)) or
(passable?(@x-1, @y) and passable?(@x-1, @y+1))
@x -= 1
@y += 1
increase_steps
@move_failed = false
else
@move_failed = true
end
end
end
#--------------------------------------------------------------------------
# ★ 向右下移动
#--------------------------------------------------------------------------
def move_lower_right
if $game_map.scene_mode == 0
unless @direction_fix
@direction = (@direction == 4 ? 6 : @direction == 8 ? 2 : @direction)
end
if (passable?(@x, @y+1) and passable?(@x+1, @y+1)) or
(passable?(@x+1, @y) and passable?(@x+1, @y+1))
@x += 1
@y += 1
increase_steps
@move_failed = false
else
@move_failed = true
end
end #if
end
#--------------------------------------------------------------------------
# ★ 向左上移动
#--------------------------------------------------------------------------
def move_upper_left
if $game_map.scene_mode == 0
unless @direction_fix
@direction = (@direction == 6 ? 4 : @direction == 2 ? 8 : @direction)
end
if (passable?(@x, @y-1) and passable?(@x-1, @y-1)) or
(passable?(@x-1, @y) and passable?(@x-1, @y-1))
@x -= 1
@y -= 1
increase_steps
@move_failed = false
else
@move_failed = true
end
end #if
end
#--------------------------------------------------------------------------
# ★ 向右上移动
#--------------------------------------------------------------------------
def move_upper_right
if $game_map.scene_mode == 0
unless @direction_fix
@direction = (@direction == 4 ? 6 : @direction == 2 ? 8 : @direction)
end
if (passable?(@x, @y-1) and passable?(@x+1, @y-1)) or
(passable?(@x+1, @y) and passable?(@x+1, @y-1))
@x += 1
@y -= 1
increase_steps
@move_failed = false
else
@move_failed = true
end
end #if
end
#==========================================================================
#★以下这几个是默认的,但是留着方便以后进一步扩展
#==========================================================================
#--------------------------------------------------------------------------
# ★ 随机移动
#--------------------------------------------------------------------------
def move_random
case rand(4)
when 0; move_down(false)
when 1; move_left(false)
when 2; move_right(false)
when 3; move_up(false)
end
end
#--------------------------------------------------------------------------
# ★ 接近玩家
#--------------------------------------------------------------------------
def move_toward_player
sx = distance_x_from_player
sy = distance_y_from_player
if sx != 0 or sy != 0
if sx.abs > sy.abs # 如果横向距离长
sx > 0 ? move_left : move_right # 左右方向优先
if @move_failed and sy != 0
sy > 0 ? move_up : move_down
end
else # 如果纵向距离等长
sy > 0 ? move_up : move_down # 上下方向优先
if @move_failed and sx != 0
sx > 0 ? move_left : move_right
end
end
end
end
#--------------------------------------------------------------------------
# ★ 远离玩家
#--------------------------------------------------------------------------
def move_away_from_player
sx = distance_x_from_player
sy = distance_y_from_player
if sx != 0 or sy != 0
if sx.abs > sy.abs # 如果横向距离长
sx > 0 ? move_right : move_left # 左右方向优先
if @move_failed and sy != 0
sy > 0 ? move_down : move_up
end #if
else # 如果纵向距离等长
sy > 0 ? move_down : move_up # 上下方向优先
if @move_failed and sx != 0
sx > 0 ? move_right : move_left
end #if
end #if
end #if
end
#--------------------------------------------------------------------------
# ★ 前进一步
#--------------------------------------------------------------------------
def move_forward
case @direction
when 2; move_down(false)
when 4; move_left(false)
when 6; move_right(false)
when 8; move_up(false)
end
end
#--------------------------------------------------------------------------
# ★ 后退一步
#--------------------------------------------------------------------------
def move_backward
last_direction_fix = @direction_fix
@direction_fix = true
case @direction
when 2; move_up(false)
when 4; move_right(false)
when 6; move_left(false)
when 8; move_down(false)
end
@direction_fix = last_direction_fix
end
#==========================================================================
#★以上这几个是默认的,但是留着方便以后进一步扩展
#==========================================================================
#--------------------------------------------------------------------------
# ★ 跳跃(重力模式该函数被屏蔽)
# x_plus : X 坐标增加值
# y_plus : Y 坐标增加值
#--------------------------------------------------------------------------
def jump(x_plus, y_plus)
if $game_map.scene_mode == 0
if x_plus.abs > y_plus.abs # 横向距离长
x_plus < 0 ? turn_left : turn_right
elsif x_plus.abs > y_plus.abs # 纵向距离长
y_plus < 0 ? turn_up : turn_down
end
@x += x_plus
@y += y_plus
distance = Math.sqrt(x_plus * x_plus + y_plus * y_plus).round
@jump_peak = 10 + distance - @move_speed
@jump_count = @jump_peak * 2
@stop_count = 0
straighten
end #if
end
end # class
#==============================================================================
# ★ Game_Map
#------------------------------------------------------------------------------
# 　处理地图的类。包含卷动以及可以通行的判断功能。
# 本类的实例请参考 $game_map 。
#==============================================================================
class Game_Map
attr_accessor :scene_mode #地图模式
attr_accessor :events # 事件
#--------------------------------------------------------------------------
# ● 初始化对象
#--------------------------------------------------------------------------
def initialize
@screen = Game_Screen.new
@interpreter = Game_Interpreter.new(0, true)
@map_id = 0
@display_x = 0
@display_y = 0
@scene_mode = DEFAULT_MAP_MODE #0为正常模式 1为重力模式
create_vehicles
end
#--------------------------------------------------------------------------
# ● 设置事件
#--------------------------------------------------------------------------
def setup_events
@events = {} # 地图事件
for i in @map.events.keys
@events[i] = Game_Event.new(@map_id, @map.events[i])
end
@common_events = {} # 公共事件
for i in 1...$data_common_events.size
@common_events[i] = Game_CommonEvent.new(i)
end
if @scene_mode == 1
if MAP_VEHICLE != nil && MAP_VEHICLE.include?(@map_id)
for v in MAP_VEHICLE[@map_id]
@events[v[0]].map_vehicle = v[1]
if v[1] == 2
#如果是踏板且有设定其类型的情况下设置其踏板类型
@events[v[0]].pedal_type = v[2] if v.size > 2
#设置踏板移动速度与角色速度相同,解决踏板与角色脱节的bug.但仍有缺陷,鉴于RM本身地图设计的局限性,忍了!
@events[v[0]].move_speed = $game_player.move_speed
end#if
end #for
end
if MAP_FLY_EVENT != nil && MAP_FLY_EVENT.include?(@map_id)
for v in MAP_FLY_EVENT[@map_id]
@events[v].can_fly = true
end #for
end
end #if
end
#=========================================================================
# ★ 判断是否可以通行
# x : X 坐标
# y : Y 坐标
# flag : 不能通行的点 (一般情况下为 0x01、可以在交通工具的情况下被更改)
#=========================================================================
def passable?(x, y, flag = 0x01)
for event in events_xy(x, y) # 调用坐标一致的事件
next if event.tile_id == 0 # 没有元件图片
next if event.priority_type > 0 # 不是"在普通角色下"
next if event.through # 直接通过状态
pass = @passages[event.tile_id] # 获取通行属性
next if pass & 0x10 == 0x10 # [☆] : 不受通行影响
return true if pass & flag == 0x00 # [○] : 可以通行
#=========================================================================
if($game_map.scene_mode == 1 && $game_player.on_ladder && event.map_vehicle == 1)
return true
end
#=========================================================================
return false if pass & flag == flag # [×] : 不可以通行
end
for i in [2, 1, 0] # 调用图层顺序
tile_id = @map.data[x, y, i] # 获取元件 ID
return false if tile_id == nil # 获取元件 ID 失败 : 不可以通行
pass = @passages[tile_id] # 获取通行属性
next if pass & 0x10 == 0x10 # [☆] : 不受通行影响
return true if pass & flag == 0x00 # [○] : 可以通行
return false if pass & flag == flag # [×] : 不可以通行
end
return false # 不可以通行
end
end #class
#==============================================================================
# ★ Game_Player
#------------------------------------------------------------------------------
# 　处理主角的类。事件启动的判定、以及地图的滚动等功能。
# 本类的实例请参考 $game_player。
#==============================================================================
class Game_Player < Game_Character
#--------------------------------------------------------------------------
# ★ 初始化对象
#--------------------------------------------------------------------------
def initialize
super
@vehicle_type = -1
@vehicle_getting_on = false # 乘座动作中标志
@vehicle_getting_off = false # 降下动作中标志
@transferring = false # 场所移动标志
@new_map_id = 0 # 移动目标地图 ID
@new_x = 0 # 移动目标 X 坐标
@new_y = 0 # 移动目标 Y 坐标
@new_direction = 0 # 移动后朝向
@walking_bgm = nil # 记忆步行时的 BGM 用
#=====================================================
@keypress_period = 0
@jump_character = JUMP_CHARACTER
#=====================================================
end
#==========================================================================
#★ 刷新输入
#==========================================================================
def update_input
return if $game_map.interpreter.running?
if @is_land
@jump_series = 0
end
#按下跳跃键时
if Input.press?(JUMP_KEY)
if @jump_series < @jump_max_series && @keypress_period == 0 && (@is_land || @jump_series > 0) && @y <= $game_map.height
@init_Vspeed = - @jump_speed + JUMP_SERIES_WEAKEN*@jump_series
@jump_count = -1
@jump_series += 1
if JUMP_SE != nil && JUMP_SE != ""
Audio.se_play("Audio/SE/"+JUMP_SE,100,100)
end
end
@keypress_period += 1
else
if @keypress_period > 0
@keypress_period = 0
@init_Vspeed = 0
@jump_count = -1
end
end
case Input.dir4
#向下
when 2;
move_down if movable?
#向左
when 4;
move_left if movable? || (!@is_land && flyable?)
#向右
when 6;
move_right if movable? || (!@is_land && flyable?)
#向上
when 8;
move_up if movable?
end #case
end
#==========================================================================
#★ 判断是否可以滑翔
#==========================================================================
def flyable?
return !(@real_x != @x * 256)
end
#==========================================================================
#★ 角色调入悬崖后重生(重新初始化相关重力数据)
#==========================================================================
def reborn
@no_need_fall = false
end
#==========================================================================
#--------------------------------------------------------------------------
# ★ 刷新画面
#--------------------------------------------------------------------------
def update
last_real_x = @real_x
last_real_y = @real_y
last_moving = moving?
if $game_map.scene_mode == 1 #重力模式
update_input
else
move_by_input
end
super
update_scroll(last_real_x, last_real_y)
update_vehicle
update_nonmoving(last_moving)
end
#==========================================================================
#★以下这几个是默认的,但是留着方便以后进一步扩展
#==========================================================================
#--------------------------------------------------------------------------
# ● 乘降交通工具
#--------------------------------------------------------------------------
def get_on_off_vehicle
return false unless movable?
if in_vehicle?
return get_off_vehicle
else
return get_on_vehicle
end
end
#--------------------------------------------------------------------------
# ● 乘座交通工具
# 前提是当前没有乘座交通工具。
#--------------------------------------------------------------------------
def get_on_vehicle
front_x = $game_map.x_with_direction(@x, @direction)
front_y = $game_map.y_with_direction(@y, @direction)
if $game_map.airship.pos?(@x, @y) # 与飞行船重合了吗？
get_on_airship
return true
elsif $game_map.ship.pos?(front_x, front_y) # 正面有大型船？
get_on_ship
return true
elsif $game_map.boat.pos?(front_x, front_y) # 正面有小型船？
get_on_boat
return true
end
return false
end
#--------------------------------------------------------------------------
# ● 乘座小型船
#--------------------------------------------------------------------------
def get_on_boat
@vehicle_getting_on = true # 乘座中标志
@vehicle_type = 0 # 设置交通工具类型
force_move_forward # 前进一步
@walking_bgm = RPG::BGM::last # 记忆步行时 BGM 用
$game_map.boat.get_on # 乘座处理
end
#--------------------------------------------------------------------------
# ● 乘座大型船
#--------------------------------------------------------------------------
def get_on_ship
@vehicle_getting_on = true # 乘座
@vehicle_type = 1 # 设置交通工具类型
force_move_forward # 前进一步
@walking_bgm = RPG::BGM::last # 记忆步行时 BGM 用
$game_map.ship.get_on # 乘座处理
end
#--------------------------------------------------------------------------
# ● 乘座飞行船
#--------------------------------------------------------------------------
def get_on_airship
@vehicle_getting_on = true # 开始乘座动作
@vehicle_type = 2 # 设置交通工具类型
@through = true # 穿越 ON
@walking_bgm = RPG::BGM::last # 记忆步行时 BGM 用
$game_map.airship.get_on # 乘座处理
end
#--------------------------------------------------------------------------
# ● 降下交通工具
# 前提是现在乘座了交通工具。
#--------------------------------------------------------------------------
def get_off_vehicle
if in_airship? # 飞行船
return unless airship_land_ok?(@x, @y) # 无法着陆？
else # 小型船·大型船
front_x = $game_map.x_with_direction(@x, @direction)
front_y = $game_map.y_with_direction(@y, @direction)
return unless can_walk?(front_x, front_y) # 无法靠岸？
end
$game_map.vehicles[@vehicle_type].get_off # 降下处理
if in_airship? # 飞行船
@direction = 2 # 面朝下
else # 小型船·大型船
force_move_forward # 前进一步
@transparent = false # 解除透明
end
@vehicle_getting_off = true # 开始降下动作
@move_speed = 4 # 还原移动速度
@through = false # 穿越 OFF
@walking_bgm.play # 还原步行时的 BGM
make_encounter_count # 初始化遇敌率
end
#==========================================================================
#★以上这几个是默认的,但是留着方便以后进一步扩展
#==========================================================================
end #class

复制代码

精灵使者 · 发表于 2009-12-29 10:59:58

很厉害……绝版收藏。

zhong · 发表于 2009-12-29 16:50:30

刚才发现6R原来就要关了,难怪精灵说"绝版",我来的真是时候啊~~~这贴大概就成为我在6R的最后一个脚本贴了.4年啊,6R刚开张,还在留言板时代的时候我就在这晃荡了....从一个中学生到一个大学生,6R对我的影响真的不小,看来我也要酝酿一下自己在6R的最后一个告别贴了~~做一下最后的吐槽,坦白说,很不舍.....

DeathKing · 发表于 2009-12-29 21:46:38

来看看，刚好这几天准备由XP转向VX而做个真真正正的传统RPG游戏{:nm_7:}。
虽然这个东西只有横版过关才能用，但是是我想到了沉影不器的那个“物理模型”{:nm_4:}。
另外，又见一和我一样的UUShare用户{:nm_7:}
额，仍广告一枚：http://myyxs.5d6d.com

237269025 · 发表于 2009-12-31 12:37:40

收下了
好东西

沉影不器 · 发表于 2009-12-31 19:24:59

提示: 作者被禁止或删除内容自动屏蔽

越前リョーマ · 发表于 2009-12-31 19:32:19

看上去很不错的系统，有素材的话极其好。话说我好想有素材来着……

zhong · 发表于 2009-12-31 22:08:56

嗯,不过这个系统还有很多不完善的地方,离实际应用还有一段距离~~~素材确实是也是个问题,默认VX的素材支持比较小.有机会希望可以做个这类型的游戏,只可惜现在可以做游戏的时间越来越少了~~6R也快关了,呵呵~~~

y3333269 · 发表于 2010-7-4 11:17:14

这东西可以配合做冒险岛了

ak68261095 · 发表于 2010-7-4 21:50:12

支持一下这个脚本貌似很不错啊

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

[RMVX发布] RMVX重力系统

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

开拓者

贵宾

第1届Title华丽大赛新人奖

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

第5届短篇游戏比赛亚军