简易的ACT最终修正版 - Project1

$use = false #脚本开关
$airjump = 2 #空中连跳
$hight = 3
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
#==============================================================================
# ■ Game_Player
#------------------------------------------------------------------------------
# 　处理主角的类。事件启动的判定、以及地图的滚动等功能。
# 本类的实例请参考 $game_player。
#==============================================================================
class Game_Player < Game_Character
#--------------------------------------------------------------------------
# ● 常量
#--------------------------------------------------------------------------
CENTER_X = (544 / 2 - 16) * 8 # 画面中央 X 座标 * 8
CENTER_Y = (416 / 2 - 16) * 8 # 画面中央 Y 座标 * 8
#--------------------------------------------------------------------------
# ● 定义实例变量
#--------------------------------------------------------------------------
attr_reader :vehicle_type # 目前乘坐交通工具类型
#--------------------------------------------------------------------------
# ● 初始化对像
#--------------------------------------------------------------------------
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
@line_jp = 0
@cont = 2
@upcont = 0
end
#--------------------------------------------------------------------------
# ● 方向键移动处理
#--------------------------------------------------------------------------
def move_by_input
if @upcont > 0
move_up(false,true)
@upcont -= 1
end
if $use == false
return unless movable?
return if $game_map.interpreter.running?
case Input.dir4
when 2; move_down
when 4; move_left
when 6; move_right
when 8; move_up
end
end
if $use and @vehicle_type == -1
return if $game_map.interpreter.running?
@cont -=1
return unless movable?
if Input.dir4 == 8 and @line_jp <= $airjump
up1
@line_jp += 1
end
case Input.dir4
#when 2; move_down
when 4; move_left
when 6; move_right#
#when 8; up1#up1
end
if passable?(@x, @y+1) #and @cont <= 0
move_down(false,true)
check_event_trigger_here([0])
check_event_trigger_there([0,1,2])
@cont = 1
else
if @line_jp > 0
@line_jp = 0
end
end
end
end
def up1
#for i in 1..$hight
# check_event_trigger_here([0])
# check_event_trigger_there([0,1,2])
# end
@upcont = $hight
end
# def popbomb
#
# end
end
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

复制代码

#==============================================================================
# ■ Game_Character
#------------------------------------------------------------------------------
# 　处理角色的类。本类作为 Game_Player 类与 Game_Event 类的超级类使用。
#==============================================================================
class Game_Character
#--------------------------------------------------------------------------
# ● 向上移动
# turn_ok : 允许当场转向
#--------------------------------------------------------------------------
def move_up(turn_ok = true,act = false)
if passable?(@x, @y-1) # 可通行的场合
turn_up if turn_ok
@y = $game_map.round_y(@y-1)
@real_y = (@y+1)*256
increase_steps if not act
#check_event_trigger_touch(@x, @y-1) if act # 是否触发接触事件
@move_failed = false
else # 不可通行的场合
turn_up if turn_ok
check_event_trigger_touch(@x, @y-1) # 是否触发接触事件
@move_failed = true
end
end
#--------------------------------------------------------------------------
# ● 向下移动
# turn_ok : 允许当场转向
#--------------------------------------------------------------------------
def move_down(turn_ok = true,act = false)
if passable?(@x, @y+1) # 可通行的场合
turn_down if turn_ok
@y = $game_map.round_y(@y+1)
@real_y = (@y-1)*256
increase_steps if not act
#check_event_trigger_touch(@x, @y-1) if act
@move_failed = false
else # 不可通行的场合
turn_down if turn_ok
check_event_trigger_touch(@x, @y+1) # 是否触发接触事件
@move_failed = true
end
end
end
#==============================================================================
# ■ Game_Event
#------------------------------------------------------------------------------
# 　处理事件的类。条件判断、事件页的切换、并行处理、执行事件功能
# 在 Game_Map 类的内部使用。
#==============================================================================
class Game_Event < Game_Character
#--------------------------------------------------------------------------
# ● 我是敌人吗?
#--------------------------------------------------------------------------
def check_enemy
return if @erased
cx = $game_player.x
cy = $game_player.y
ev = $game_map.events[@id]
if ((cx == ev.x) and (cy == ev.y)) and (@event.name == "enemy")
$win = true
# p "Kill"
start
erase
end
if (((cx == ev.x+1) and (cy == ev.y)) and (@event.name == "enemy")) or
(((cx == ev.x-1) and (cy == ev.y)) and (@event.name == "enemy"))
# p "Died"
$died = true
start
erase
end
end
end
#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
# 　处理地图画面的类。
#==============================================================================
class Scene_Map < Scene_Base
#--------------------------------------------------------------------------
# ● 更新画面
#--------------------------------------------------------------------------
def update
super
$game_map.interpreter.update # 更新解释器
$game_map.update # 更新地图
$game_player.update # 更新主角
$game_system.update # 更新计时器
@spriteset.update # 更新活动块组
@message_window.update # 更新信息窗口
unless $game_message.visible # 信息窗口显示中除外
for i in 0..$game_map.events.keys.size
if $game_map.events[i] != nil
# $game_map.events[i].check_box
$game_map.events[i].check_enemy
end
end
update_transfer_player
update_encounter
update_call_menu
update_call_debug
update_scene_change
end
end
end

复制代码

#==============================================================================
# ■ Game_Event
#------------------------------------------------------------------------------
# 　处理事件的类。条件判断、事件页的切换、并行处理、执行事件功能
# 在 Game_Map 类的内部使用。
#==============================================================================
class Game_Event < Game_Character
#--------------------------------------------------------------------------
# ● 更新画面
#--------------------------------------------------------------------------
def update
super
check_event_trigger_auto # 自动事件启动判定
if @interpreter != nil # 并行处理的情况下
unless @interpreter.running? # 不在执行中的场合的情况下
@interpreter.setup(@list, @event.id) # 设置事件
end
@interpreter.update # 更新解释器
end
return if $use == false
if ($game_player.passable?(@x, @y+1)) and (@event.name != "box") #and @cont <= 0
move_down(false,true)
end
end
end

复制代码