类似勇者斗恶龙的那种跟随者移动实现

limaolinghu · 发表于 2012-7-9 11:26:40

本帖最后由 limaolinghu 于 2012-7-9 11:29 编辑

实现一个经典的勇者斗恶龙里面，角色队伍都显示在地图上，并且跟随主角移动。
我用创建事件和控制事件实现了一个，不知道有没有什么问题，或者有没有更好的方式，请大家帮忙看看

limaolinghu · 发表于 2012-7-9 11:30:05

本帖最后由 limaolinghu 于 2012-7-9 11:32 编辑

  #--------------------------------------------------------------------------
  # ● 设置事件
  #--------------------------------------------------------------------------
  def setup_events
@events = {}       # 地图事件

event_index = 0
for event_index in @map.events.keys
   @events[event_index] = Game_Event.new(@map_id, @map.events[event_index])
end

# 在Game_Map的setup_events里面创建5个跟随者，图片这里是随便写的，可以替换为真正的主角行走图
fellow_event1 = RPG::Event.new(5, 10)
fellow_event1.name = "fellow1"
fellow_event1.pages[0].graphic.character_name = "Evil"
fellow_event1.pages[0].graphic.character_index = 1
fellow_event1.pages[0].move_speed = 4
fellow_event1.pages[0].through = 1

fellow_event2 = RPG::Event.new(5, 10)
fellow_event2.name = "fellow2"
fellow_event2.pages[0].graphic.character_name = "Evil"
fellow_event2.pages[0].graphic.character_index = 2
fellow_event2.pages[0].move_speed = 4
fellow_event2.pages[0].through = 1

fellow_event3 = RPG::Event.new(5, 10)
fellow_event3.name = "fellow3"
fellow_event3.pages[0].graphic.character_name = "Evil"
fellow_event3.pages[0].graphic.character_index = 3
fellow_event3.pages[0].move_speed = 4
fellow_event3.pages[0].through = 1

fellow_event4 = RPG::Event.new(5, 10)
fellow_event4.name = "fellow4"
fellow_event4.pages[0].graphic.character_name = "Evil"
fellow_event4.pages[0].graphic.character_index = 4
fellow_event4.pages[0].move_speed = 4
fellow_event4.pages[0].through = 1

fellow_event5 = RPG::Event.new(5, 10)
fellow_event5.name = "fellow5"
fellow_event5.pages[0].graphic.character_name = "Evil"
fellow_event5.pages[0].graphic.character_index = 5
fellow_event5.pages[0].move_speed = 4
fellow_event5.pages[0].through = 1

#将者5个跟随者事件，添加到当前地图事件列表中
@events[event_index+=1] = Game_Event.new(@map_id, fellow_event1)
@events[event_index+=1] = Game_Event.new(@map_id, fellow_event2)
@events[event_index+=1] = Game_Event.new(@map_id, fellow_event3)
@events[event_index+=1] = Game_Event.new(@map_id, fellow_event4)
@events[event_index+=1] = Game_Event.new(@map_id, fellow_event5)

@common_events = {} # 公共事件
for i in 1...$data_common_events.size
   @common_events = Game_CommonEvent.new(i)
end
  end

在Game_Player里面：
  #--------------------------------------------------------------------------
  # ● 方向键移动处理
  #--------------------------------------------------------------------------
  def move_by_input
return unless movable?
return if $game_map.interpreter.running?

#loop当前地图所有事件，如果存在跟随者，则记录该跟随者的先驱对象
#其中，第一个跟随者的先驱是主角，其他跟随者则跟随前一个跟随者
for i in $game_map.events.keys.sort
   if $game_map.events.event.name == "fellow1"
      @before_move_locations["fellow1"] = self.clone
      fellow1_index = i
   elsif $game_map.events.event.name == "fellow2"
      @before_move_locations["fellow2"] = $game_map.events[fellow1_index].clone
      fellow2_index = i
   elsif $game_map.events.event.name == "fellow3"
      @before_move_locations["fellow3"] = $game_map.events[fellow2_index].clone
      fellow3_index = i
   elsif $game_map.events.event.name == "fellow4"
      @before_move_locations["fellow4"] = $game_map.events[fellow3_index].clone
      fellow4_index = i
   elsif $game_map.events.event.name == "fellow5"
      @before_move_locations["fellow5"] = $game_map.events[fellow4_index].clone
      fellow5_index = i
   end
end

#记录一个是否真正移动过得变量
moved = true
case Input.dir4
when 2;  move_down
when 4;  move_left
when 6;  move_right
when 8;  move_up
else
   moved = false
end

#如果地图事件中有跟随者，并且主角确实移动过，则让跟随者朝着先驱的方向移动
fellows = ["fellow1", "fellow2", "fellow3", "fellow4", "fellow5"]
for event in $game_map.events.values
   if fellows.include?(event.event.name) and moved
      event.follow_preemptor
   end
end
  end

Game_Event里面添加一个简单的函数，来跟随先驱：
  #--------------------------------------------------------------------------
  # ● 跟随前者
  #--------------------------------------------------------------------------
  def follow_preemptor
if @x < $game_player.before_move_locations[@event.name].x
   move_right
elsif @x > $game_player.before_move_locations[@event.name].x
   move_left
elsif @y > $game_player.before_move_locations[@event.name].y
   move_up
elsif @y < $game_player.before_move_locations[@event.name].y
   move_down
end
  end
end
��

铅笔描绘的思念 · 发表于 2012-7-21 22:08:46

我跟你说有脚本哦

class Game_Player
#--------------------------------------------------------------------------
# * Move Down
# turn_enabled : a flag permits direction change on that spot
#--------------------------------------------------------------------------
def move_down(turn_enabled = true)
super(turn_enabled)
end
#--------------------------------------------------------------------------
# * Move Left
# turn_enabled : a flag permits direction change on that spot
#--------------------------------------------------------------------------
def move_left(turn_enabled = true)
super(turn_enabled)
end
#--------------------------------------------------------------------------
# * Move Right
# turn_enabled : a flag permits direction change on that spot
#--------------------------------------------------------------------------
def move_right(turn_enabled = true)
super(turn_enabled)
end
#--------------------------------------------------------------------------
# * Move up
# turn_enabled : a flag permits direction change on that spot
#--------------------------------------------------------------------------
def move_up(turn_enabled = true)
super(turn_enabled)
end
#--------------------------------------------------------------------------
# * Move Lower Left
#--------------------------------------------------------------------------
def move_lower_left
super
end
#--------------------------------------------------------------------------
# * Move Lower Right
#--------------------------------------------------------------------------
def move_lower_right
super
end
#--------------------------------------------------------------------------
# * Move Upper Left
#--------------------------------------------------------------------------
def move_upper_left
super
end
#--------------------------------------------------------------------------
# * Move Upper Right
#--------------------------------------------------------------------------
def move_upper_right
super
end
end
class Game_Follower < Game_Character
#--------------------------------------------------------------------------
# * Public Instance Variables
#--------------------------------------------------------------------------
attr_reader :actor
attr_accessor :move_speed
#--------------------------------------------------------------------------
# * Object Initialization
#--------------------------------------------------------------------------
def initialize(actor)
super()
@through = true
@actor = actor
end
#--------------------------------------------------------------------------
# * Set Actor
#--------------------------------------------------------------------------
def actor=(actor)
@actor = actor
setup
end
#--------------------------------------------------------------------------
# * Setup
#--------------------------------------------------------------------------
def setup
if @actor != nil
@character_name = $game_actors[@actor].character_name
@character_index = $game_actors[@actor].character_index
else
@character_name = ""
@character_index = 0
end
@opacity = 255
@blend_type = 0
@priority_type = 0
end
#--------------------------------------------------------------------------
# * Screen Z
#--------------------------------------------------------------------------
def screen_z
if $game_player.x == @x and $game_player.y == @y
return $game_player.screen_z - 1
end
super
end
#--------------------------------------------------------------------------
# * Same Position Starting Determinant (Disabled)
#--------------------------------------------------------------------------
def check_event_trigger_here(triggers)
result = false
return result
end
#--------------------------------------------------------------------------
# * Front Envent Starting Determinant (Disabled)
#--------------------------------------------------------------------------
def check_event_trigger_there(triggers)
result = false
return result
end
#--------------------------------------------------------------------------
# * Touch Event Starting Determinant (Disabled)
#--------------------------------------------------------------------------
def check_event_trigger_touch(x, y)
result = false
return result
end
end
class Spriteset_Map
alias_method :spriteset_map_create_characters, :create_characters
def create_characters
spriteset_map_create_characters
$game_party.followers.each do |char|
@character_sprites << Sprite_Character.new(@viewport1, char)
end
end
end
class Game_Party
#--------------------------------------------------------------------------
# * Constants
#--------------------------------------------------------------------------
MAX_SIZE = 8
CATERPILLAR = 2
#--------------------------------------------------------------------------
# * Public Instance Variables
#--------------------------------------------------------------------------
attr_reader :followers
#--------------------------------------------------------------------------
# * Object Initialization
#--------------------------------------------------------------------------
alias_method :trick_caterpillar_party_initialize, :initialize
def initialize
trick_caterpillar_party_initialize
@followers = Array.new(MAX_SIZE - 1) {Game_Follower.new(nil)}
@move_list = []
end
#--------------------------------------------------------------------------
# * Update Followers
#--------------------------------------------------------------------------
def update_followers
flag = $game_player.transparent || $game_switches[CATERPILLAR]
@followers.each_with_index do |char, i|
char.actor = @actors[i + 1]
char.move_speed = $game_player.move_speed
if $game_player.dash?
char.move_speed += 1
end
char.update
char.transparent = flag
end
end
#--------------------------------------------------------------------------
# * Move To Party
#--------------------------------------------------------------------------
def moveto_party(x, y)
@followers.each {|char| char.moveto(x, y)}
@move_list.clear
end
#--------------------------------------------------------------------------
# * Move Party
#--------------------------------------------------------------------------
def move_party
@move_list.each_index do |i|
if @followers[i] == nil
@move_list[i...@move_list.size] = nil
next
end
case @move_list[i].type
when 2
@followers[i].move_down(*@move_list[i].args)
when 4
@followers[i].move_left(*@move_list[i].args)
when 6
@followers[i].move_right(*@move_list[i].args)
when 8
@followers[i].move_up(*@move_list[i].args)
when 1
@followers[i].move_lower_left
when 3
@followers[i].move_lower_right
when 7
@followers[i].move_upper_left
when 9
@followers[i].move_upper_right
when 5
@followers[i].jump(*@move_list[i].args)
end
end
end
#--------------------------------------------------------------------------
# * Add Move List
#--------------------------------------------------------------------------
def update_move(type, *args)
move_party
@move_list.unshift(Game_MoveListElement.new(type, args))
end
end
class Game_MoveListElement
#--------------------------------------------------------------------------
# * Object Initialization
#--------------------------------------------------------------------------
def initialize(type, args)
@type = type
@args = args
end
#--------------------------------------------------------------------------
# * Type
#--------------------------------------------------------------------------
def type
return @type
end
#--------------------------------------------------------------------------
# * Args
#--------------------------------------------------------------------------
def args
return @args
end
end
class Game_Player
#--------------------------------------------------------------------------
# * Public Instance Variables
#--------------------------------------------------------------------------
attr_reader :move_speed
#--------------------------------------------------------------------------
# * Update
#--------------------------------------------------------------------------
alias_method :trick_caterpillar_player_update, :update
def update
$game_party.update_followers
trick_caterpillar_player_update
end
#--------------------------------------------------------------------------
# * Moveto
#--------------------------------------------------------------------------
alias_method :trick_caterpillar_player_moveto, :moveto
def moveto(x, y)
$game_party.moveto_party(x, y)
trick_caterpillar_player_moveto(x, y)
end
#--------------------------------------------------------------------------
# * Move Down
#--------------------------------------------------------------------------
alias_method :trick_caterpillar_player_move_down, :move_down
def move_down(turn_enabled = true)
if passable?(@x, @y+1)
$game_party.update_move(2, turn_enabled)
end
trick_caterpillar_player_move_down(turn_enabled)
end
#--------------------------------------------------------------------------
# * Move Left
#--------------------------------------------------------------------------
alias_method :trick_caterpillar_player_move_left, :move_left
def move_left(turn_enabled = true)
if passable?(@x-1, @y)
$game_party.update_move(4, turn_enabled)
end
trick_caterpillar_player_move_left(turn_enabled)
end
#--------------------------------------------------------------------------
# * Move Right
#--------------------------------------------------------------------------
alias_method :trick_caterpillar_player_move_right, :move_right
def move_right(turn_enabled = true)
if passable?(@x+1, @y)
$game_party.update_move(6, turn_enabled)
end
trick_caterpillar_player_move_right(turn_enabled)
end
#--------------------------------------------------------------------------
# * Move Up
#--------------------------------------------------------------------------
alias_method :trick_caterpillar_player_move_up, :move_up
def move_up(turn_enabled = true)
if passable?(@x, @y-1)
$game_party.update_move(8, turn_enabled)
end
trick_caterpillar_player_move_up(turn_enabled)
end
#--------------------------------------------------------------------------
# * Move Lower Left
#--------------------------------------------------------------------------
alias_method :trick_caterpillar_player_move_lower_left, :move_lower_left
def move_lower_left
if passable?(@x - 1, @y) and passable?(@x, @y + 1)
$game_party.update_move(1)
end
trick_caterpillar_player_move_lower_left
end
#--------------------------------------------------------------------------
# * Move Lower Right
#--------------------------------------------------------------------------
alias_method :trick_caterpillar_player_move_lower_right, :move_lower_right
def move_lower_right
if passable?(@x + 1, @y) and passable?(@x, @y + 1)
$game_party.update_move(3)
end
trick_caterpillar_player_move_lower_right
end
#--------------------------------------------------------------------------
# * Move Upper Left
#--------------------------------------------------------------------------
alias_method :trick_caterpillar_player_move_upper_left, :move_upper_left
def move_upper_left
if passable?(@x - 1, @y) and passable?(@x, @y - 1)
$game_party.update_move(7)
end
trick_caterpillar_player_move_upper_left
end
#--------------------------------------------------------------------------
# * Move Upper Right
#--------------------------------------------------------------------------
alias_method :trick_caterpillar_player_move_upper_right, :move_upper_right
def move_upper_right
if passable?(@x + 1, @y) and passable?(@x, @y - 1)
$game_party.update_move(9)
end
trick_caterpillar_player_move_upper_right
end
#--------------------------------------------------------------------------
# * Jump
#--------------------------------------------------------------------------
alias_method :trick_caterpillar_player_jump, :jump
def jump(x_plus, y_plus)
new_x = @x + x_plus
new_y = @y + y_plus
if (x_plus == 0 and y_plus == 0) or passable?(new_x, new_y)
$game_party.update_move(5, x_plus, y_plus)
end
trick_caterpillar_player_jump(x_plus, y_plus)
end
end###########
###########
###########

复制代码

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

[已经过期] 类似勇者斗恶龙的那种跟随者移动实现

点评

浏览过的版块

开拓者