求八方向新思路

冰舞蝶恋 · 发表于 2012-12-4 18:16:03

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

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

x

铅笔姐那个我用着略有点儿冲突……谁能帮忙把这个vx的转成va？拜托唷~
或者以别的什么思路写也可以，只是在下思量着直接转似乎会快一些……
在下对RGSS3一窍不通什么的，就拜托大家了~事后转账vip过去好了。发帖写好酬劳唷=v=

RUBY 代码复制

#==============================================================================
# ■ Game_Character
#==============================================================================
 
class Game_Character
  #--------------------------------------------------------------------------
  # ● 八方向
  #--------------------------------------------------------------------------
  def direction_8dir
    return @direction
  end
  #--------------------------------------------------------------------------
  # ● 变成指定方向
  #     direction : 方向
  #--------------------------------------------------------------------------
  alias set_direction_8fangxiang set_direction
  def set_direction(direction)
    last_dir = @direction
    set_direction_8fangxiang(direction)
    if !@direction_fix && direction != 0
      @direction_8dir = direction
    end
  end
  #--------------------------------------------------------------------------
  # ● 向左下移动
  #--------------------------------------------------------------------------
  alias move_lower_left_8fangxiang move_lower_left
  def move_lower_left
    move_lower_left_8fangxiang
    @direction_8dir = 1 unless @direction_fix
  end
  #--------------------------------------------------------------------------
  # ● 向右下移动
  #--------------------------------------------------------------------------
  alias move_lower_right_8fangxiang move_lower_right
  def move_lower_right
    move_lower_right_8fangxiang
    @direction_8dir = 3 unless @direction_fix
  end
  #--------------------------------------------------------------------------
  # ● 向左上移动
  #--------------------------------------------------------------------------
  alias move_upper_left_8fangxiang move_upper_left
  def move_upper_left
    move_upper_left_8fangxiang
    @direction_8dir = 7 unless @direction_fix
  end
  #--------------------------------------------------------------------------
  # ● 向右上移动
  #--------------------------------------------------------------------------
  alias move_upper_right_8fangxiang move_upper_right
  def move_upper_right
    move_upper_right_8fangxiang
    @direction_8dir = 9 unless @direction_fix
  end
end
#==============================================================================
# ■ Game_Party
#==============================================================================
 
class Game_Party < Game_Unit
  def decrease_steps
    @steps -= 1
  end
end
 
#==============================================================================
# ■ Game_Player
#==============================================================================
 
class Game_Player < Game_Character
 
  #--------------------------------------------------------------------------
  # ●八方向
  #--------------------------------------------------------------------------
  def direction_8dir
    @direction_8dir = @direction if @direction_8dir == nil
    return @direction_8dir
  end
  #--------------------------------------------------------------------------
  # ● 八方向按键
  #--------------------------------------------------------------------------
  def move_by_input
    return unless movable?
    return if $game_map.interpreter.running?
    last_steps = $game_party.steps
    case Input.dir8
    when 1;  move_down; move_left; @direction = 2
    when 2;  move_down
    when 3;  move_down; move_right; @direction = 6
    when 4;  move_left
    when 6;  move_right
    when 7;  move_up; move_left; @direction = 4
    when 8;  move_up
    when 9;  move_up; move_right; @direction = 8
    else;    return
    end
    @direction_8dir = Input.dir8
    # 斜方向移动正确步数计算
    if $game_party.steps - last_steps == 2
      $game_party.decrease_steps
    end
  end
 
  #--------------------------------------------------------------------------
  # ● 移动更新
  #--------------------------------------------------------------------------
  def update_move
    distance = 2 ** @move_speed   
    if dash?                      
      distance *= 2
    end
    distance = Integer(distance)
    @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
    @real_y = [@real_y - distance, @y * 256].max if @y * 256 < @real_y
    @real_y = [@real_y + distance, @y * 256].min if @y * 256 > @real_y
    update_bush_depth unless moving?
    if @walk_anime
      @anime_count += 1.5
    elsif @step_anime
      @anime_count += 1
    end
  end
end
#==============================================================================
# ■ Sprite_Character
#==============================================================================
class Sprite_Character < Sprite_Base
 
  ANIME_TABLE = { 1=>2, 3=>6, 7=>4, 9=>8 }
  #--------------------------------------------------------------------------
  # ● 更新位图
  #--------------------------------------------------------------------------
  alias update_bitmap_8fangxiang update_bitmap
  def update_bitmap
    name_changed = (@character_name != @character.character_name)
    update_bitmap_8fangxiang
    if @tile_id > 0             
      @enable_slant = false
      return
    end
    return unless name_changed  
    @enable_slant = true
    begin
      @character_name_slant = @character_name + "#"
      Cache.character(@character_name_slant)
    rescue
      @enable_slant = false
    end
  end
  #--------------------------------------------------------------------------
  # ● 更新传送矩形
  #--------------------------------------------------------------------------
  alias update_src_rect_8fangxiang update_src_rect
  def update_src_rect
    return if @tile_id > 0  
    if @enable_slant
      update_src_rect_for_slant
    else
      update_src_rect_8fangxiang
    end
  end
  #--------------------------------------------------------------------------
  # ● 更新斜方向传送矩形
  #--------------------------------------------------------------------------
  def update_src_rect_for_slant
    index = @character.character_index
    pattern = @character.pattern < 3 ? @character.pattern : 1
    sx = (index % 4 * 3 + pattern) * @cw
    dir = @character.direction_8dir
    case dir % 2
    when 0  # 上下左右
      if @last_slant
        self.bitmap = Cache.character(@character_name)
        @last_slant = false
      end
    else    
      unless @last_slant
        self.bitmap = Cache.character(@character_name_slant)
        @last_slant = true
      end
      dir = ANIME_TABLE[dir]
    end
    sy = (index / 4 * 4 + (dir - 2) / 2) * @ch
    self.src_rect.set(sx, sy, @cw, @ch)
  end
end

#==============================================================================


# ■ Game_Character


#==============================================================================


 


class Game_Character


  #--------------------------------------------------------------------------


  # ● 八方向


  #--------------------------------------------------------------------------


  def direction_8dir


    return @direction


  end


  #--------------------------------------------------------------------------


  # ● 变成指定方向


  #     direction : 方向


  #--------------------------------------------------------------------------


  alias set_direction_8fangxiang set_direction


  def set_direction(direction)


    last_dir = @direction


    set_direction_8fangxiang(direction)


    if !@direction_fix && direction != 0


      @direction_8dir = direction


    end


  end


  #--------------------------------------------------------------------------


  # ● 向左下移动


  #--------------------------------------------------------------------------


  alias move_lower_left_8fangxiang move_lower_left


  def move_lower_left


    move_lower_left_8fangxiang


    @direction_8dir = 1 unless @direction_fix


  end


  #--------------------------------------------------------------------------


  # ● 向右下移动


  #--------------------------------------------------------------------------


  alias move_lower_right_8fangxiang move_lower_right


  def move_lower_right


    move_lower_right_8fangxiang


    @direction_8dir = 3 unless @direction_fix


  end


  #--------------------------------------------------------------------------


  # ● 向左上移动


  #--------------------------------------------------------------------------


  alias move_upper_left_8fangxiang move_upper_left


  def move_upper_left


    move_upper_left_8fangxiang


    @direction_8dir = 7 unless @direction_fix


  end


  #--------------------------------------------------------------------------


  # ● 向右上移动


  #--------------------------------------------------------------------------


  alias move_upper_right_8fangxiang move_upper_right


  def move_upper_right


    move_upper_right_8fangxiang


    @direction_8dir = 9 unless @direction_fix


  end


end


#==============================================================================


# ■ Game_Party


#==============================================================================


 


class Game_Party < Game_Unit


  def decrease_steps


    @steps -= 1


  end


end


 


#==============================================================================


# ■ Game_Player


#==============================================================================


 


class Game_Player < Game_Character


 


  #--------------------------------------------------------------------------


  # ●八方向


  #--------------------------------------------------------------------------


  def direction_8dir


    @direction_8dir = @direction if @direction_8dir == nil


    return @direction_8dir


  end


  #--------------------------------------------------------------------------


  # ● 八方向按键


  #--------------------------------------------------------------------------


  def move_by_input


    return unless movable?


    return if $game_map.interpreter.running?


    last_steps = $game_party.steps


    case Input.dir8


    when 1;  move_down; move_left; @direction = 2


    when 2;  move_down


    when 3;  move_down; move_right; @direction = 6


    when 4;  move_left


    when 6;  move_right


    when 7;  move_up; move_left; @direction = 4


    when 8;  move_up


    when 9;  move_up; move_right; @direction = 8


    else;    return


    end


    @direction_8dir = Input.dir8


    # 斜方向移动正确步数计算


    if $game_party.steps - last_steps == 2


      $game_party.decrease_steps


    end


  end


 


  #--------------------------------------------------------------------------


  # ● 移动更新


  #--------------------------------------------------------------------------


  def update_move


    distance = 2 ** @move_speed   


    if dash?                      


      distance *= 2


    end


    distance = Integer(distance)


    @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


    @real_y = [@real_y - distance, @y * 256].max if @y * 256 < @real_y


    @real_y = [@real_y + distance, @y * 256].min if @y * 256 > @real_y


    update_bush_depth unless moving?


    if @walk_anime


      @anime_count += 1.5


    elsif @step_anime


      @anime_count += 1


    end


  end


end


#==============================================================================


# ■ Sprite_Character


#==============================================================================


class Sprite_Character < Sprite_Base


 


  ANIME_TABLE = { 1=>2, 3=>6, 7=>4, 9=>8 }


  #--------------------------------------------------------------------------


  # ● 更新位图


  #--------------------------------------------------------------------------


  alias update_bitmap_8fangxiang update_bitmap


  def update_bitmap


    name_changed = (@character_name != @character.character_name)


    update_bitmap_8fangxiang


    if @tile_id > 0             


      @enable_slant = false


      return


    end


    return unless name_changed  


    @enable_slant = true


    begin


      @character_name_slant = @character_name + "#"


      Cache.character(@character_name_slant)


    rescue


      @enable_slant = false


    end


  end


  #--------------------------------------------------------------------------


  # ● 更新传送矩形


  #--------------------------------------------------------------------------


  alias update_src_rect_8fangxiang update_src_rect


  def update_src_rect


    return if @tile_id > 0  


    if @enable_slant


      update_src_rect_for_slant


    else


      update_src_rect_8fangxiang


    end


  end


  #--------------------------------------------------------------------------


  # ● 更新斜方向传送矩形


  #--------------------------------------------------------------------------


  def update_src_rect_for_slant


    index = @character.character_index


    pattern = @character.pattern < 3 ? @character.pattern : 1


    sx = (index % 4 * 3 + pattern) * @cw


    dir = @character.direction_8dir


    case dir % 2


    when 0  # 上下左右


      if @last_slant


        self.bitmap = Cache.character(@character_name)


        @last_slant = false


      end


    else    


      unless @last_slant


        self.bitmap = Cache.character(@character_name_slant)


        @last_slant = true


      end


      dir = ANIME_TABLE[dir]


    end


    sy = (index / 4 * 4 + (dir - 2) / 2) * @ch


    self.src_rect.set(sx, sy, @cw, @ch)


  end


end

tseyik · 发表于 2012-12-4 18:28:41

本帖最后由 tseyik 于 2012-12-4 18:47 编辑

原網址
http://artificialprovidence.web.fc2.com/

8方向移動

#==============================================================================
# ■ RGSS3 8方向移動スクリプト Ver1.01 by 星潟
#------------------------------------------------------------------------------
# 　プレイヤーキャラクターの8方向移動を可能にします。
# その他、プレイヤーの移動に関する一部機能について設定できます。
# 基本的に機能拡張依頼や競合対応は受け付けておりません。ご了承ください。
#
# 更新履歴
# Ver1.01 不要な記述一点を削除。
# スイッチ切り替えによるダッシュ禁止機能を追加。
#==============================================================================
module MOVE_CONTROL
#这个开关on，禁止在八个方向的运动，只可四个方向移动。
FOUR_MOVE_SWITCH = 51
#这个开关on、禁止的操作的玩家角色。
MOVE_SEAL_SWITCH = 52
#这个开关on、短跑判断是相反。
#（平常時短跑、短跑鍵押下是通常歩行）
DASH_REV = 53
#这个开关on、禁止使用短跑。
#（通过切换开关，、同一地图上
# 可分別設定可短跑和禁止短跑的地区）
DASH_SEAL = 54
#当這变量的数値大于零，则短跑速度进一步增加。
DASH_PLUS = 19
end
class Game_CharacterBase
#--------------------------------------------------------------------------
# ● 移動速度の取得（ダッシュを考慮）
#--------------------------------------------------------------------------
alias real_move_speed_8direction real_move_speed
def real_move_speed
if $game_variables[MOVE_CONTROL::DASH_PLUS] > 0
dash_plus = 1 + ($game_variables[MOVE_CONTROL::DASH_PLUS] * 0.1)
@move_speed + (dash? ? dash_plus : 0)
else
real_move_speed_8direction
end
end
end
class Game_Player < Game_Character
#--------------------------------------------------------------------------
# ● ダッシュ状態判定
#--------------------------------------------------------------------------
alias dash_rev? dash?
def dash?
return false if $game_switches[MOVE_CONTROL::DASH_SEAL] == true
if $game_switches[MOVE_CONTROL::DASH_REV] == true
return false if @move_route_forcing
return false if $game_map.disable_dash?
return false if vehicle
return false if Input.press?(:A)
return true
else
dash_rev?
end
end
#--------------------------------------------------------------------------
# ● 方向ボタン入力による移動処理
#--------------------------------------------------------------------------
alias move_by_input_8direction move_by_input
def move_by_input
return if $game_switches[MOVE_CONTROL::MOVE_SEAL_SWITCH] == true
if $game_switches[MOVE_CONTROL::FOUR_MOVE_SWITCH] == true
move_by_input_8direction
return
end
return if !movable? || $game_map.interpreter.running?
if Input.press?(:LEFT) && Input.press?(:DOWN)
if passable?(@x, @y, 4) && passable?(@x, @y, 2) &&
passable?(@x - 1, @y, 2) && passable?(@x, @y + 1, 4) &&
passable?(@x - 1, @y + 1, 6) && passable?(@x - 1, @y + 1, 8)
move_diagonal(4, 2)
elsif @direction == 4
if passable?(@x, @y, 2) && passable?(@x, @y + 1, 8)
move_straight(2)
elsif passable?(@x, @y, 4) && passable?(@x - 1, @y, 6)
move_straight(4)
end
elsif @direction == 2
if passable?(@x, @y, 4) && passable?(@x - 1, @y, 6)
move_straight(4)
elsif passable?(@x, @y, 2) && passable?(@x, @y + 1, 8)
move_straight(2)
else
move_straight(Input.dir4) if Input.dir4 > 0
end
else
move_straight(Input.dir4) if Input.dir4 > 0
end
elsif Input.press?(:RIGHT) && Input.press?(:DOWN)
if passable?(@x, @y, 6) && passable?(@x, @y, 2) &&
passable?(@x + 1, @y, 2) && passable?(@x, @y + 1, 6) &&
passable?(@x + 1, @y + 1, 4) && passable?(@x + 1, @y + 1, 8)
move_diagonal(6, 2)
elsif @direction == 6
if passable?(@x, @y, 2) && passable?(@x, @y + 1, 8)
move_straight(2)
elsif passable?(@x, @y, 6) && passable?(@x + 1, @y, 4)
move_straight(6)
end
elsif @direction == 2
if passable?(@x, @y, 6) && passable?(@x + 1, @y, 4)
move_straight(6)
elsif passable?(@x, @y, 2) && passable?(@x, @y + 1, 8)
move_straight(2)
else
move_straight(Input.dir4) if Input.dir4 > 0
end
else
move_straight(Input.dir4) if Input.dir4 > 0
end
elsif Input.press?(:LEFT) && Input.press?(:UP)
if passable?(@x, @y, 4) && passable?(@x, @y, 8) &&
passable?(@x - 1, @y, 8) && passable?(@x, @y - 1, 4) &&
passable?(@x - 1, @y - 1, 2) && passable?(@x - 1, @y - 1, 6)
move_diagonal(4, 8)
elsif @direction == 4
if passable?(@x, @y, 8) && passable?(@x, @y - 1, 2)
move_straight(8)
elsif passable?(@x, @y, 4) && passable?(@x - 1, @y, 6)
move_straight(4)
else
move_straight(Input.dir4) if Input.dir4 > 0
end
elsif @direction == 8
if passable?(@x, @y, 4) && passable?(@x - 1, @y, 6)
move_straight(4)
elsif passable?(@x, @y, 8) && passable?(@x, @y - 1, 2)
move_straight(8)
else
move_straight(Input.dir4) if Input.dir4 > 0
end
else
move_straight(Input.dir4) if Input.dir4 > 0
end
elsif Input.press?(:RIGHT) && Input.press?(:UP)
if passable?(@x, @y, 6) && passable?(@x, @y, 8) &&
passable?(@x + 1, @y, 8) && passable?(@x, @y - 1, 6) &&
passable?(@x + 1, @y - 1, 2) && passable?(@x + 1, @y - 1, 4)
move_diagonal(6, 8)
elsif @direction == 6
if passable?(@x, @y, 8) && passable?(@x, @y - 1, 2)
move_straight(8)
elsif passable?(@x, @y, 6) && passable?(@x + 1, @y, 4)
move_straight(6)
else
move_straight(Input.dir4) if Input.dir4 > 0
end
elsif @direction == 8
if passable?(@x, @y, 6) && passable?(@x + 1, @y, 4)
move_straight(6)
elsif passable?(@x, @y, 8) && passable?(@x, @y - 1, 2)
move_straight(8)
else
move_straight(Input.dir4) if Input.dir4 > 0
end
else
move_straight(Input.dir4) if Input.dir4 > 0
end
else
move_straight(Input.dir4) if Input.dir4 > 0
end
unless moving?
@direction = Input.dir4 unless Input.dir4 == 0
end
end
end

复制代码

冰舞蝶恋 · 发表于 2012-12-5 20:33:51

自顶成吗？

冰舞蝶恋 · 发表于 2012-12-20 18:32:08

再一次的自頂成嗎？

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

[已经过期] 求八方向新思路

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

点评

点评

贵宾