Zobacz temat - Ruch w 8 kierunkach

Spoiler:

Kod:

# Skrypt by KGC edited by Ozzma
# www.ultimateam.pl

module KGC
module Dash_8DirMove
# 8 kierunkowe chodzenie true/false
ENABLE_8DIR = true

# 8 klatkowa animacja true/false
ENABLE_8DIR_ANIMATION = true

# SzybkoĹÄ chodzenia
DEFAULT_WALK_SPEED = 4

# SzybkoĹÄ podejĹcia
DASH_SPEED_RATE = 3
end
end
#------------------------------------------------------------------------------
#------------------------------------------------------------------------------
#------------------------------------------------------------------------------
$imported = {} if $imported == nil
$imported["Dash_8DirMove"] = true

module KGC::Dash_8DirMove

SLANT_SUFFIX = "#"
end

module KGC
module Commands
module_function

def reset_walk_speed
$game_player.reset_move_speed
end

def set_walk_speed(value)
$game_system.temp_walk_speed = value
end

def set_dash_speed(value)
$game_system.temp_dash_speed = value
end
end
end

class Game_Interpreter
include KGC::Commands
end

class Game_System

attr_accessor :temp_dash_speed
attr_accessor :temp_walk_speed

alias initialize_KGC_Dash_8DirMove initialize
def initialize
initialize_KGC_Dash_8DirMove
@temp_dash_speed = nil
@temp_walk_speed = nil
end
end
# www.ultimateam.pl
class Game_Party < Game_Unit

def decrease_steps
@steps -= 1
end
end

class Game_Character

def direction_8dir
return @direction
end

alias set_direction_KGC_Dash_8DirMove set_direction
def set_direction(direction)
last_dir = @direction

set_direction_KGC_Dash_8DirMove(direction)

if !@direction_fix && direction != 0
@direction_8dir = direction
end
end

alias move_lower_left_KGC_Dash_8DirMove move_lower_left
def move_lower_left
move_lower_left_KGC_Dash_8DirMove

@direction_8dir = 1 unless @direction_fix
end

alias move_lower_right_KGC_Dash_8DirMove move_lower_right
def move_lower_right
move_lower_right_KGC_Dash_8DirMove

@direction_8dir = 3 unless @direction_fix
end

alias move_upper_left_KGC_Dash_8DirMove move_upper_left
def move_upper_left
move_upper_left_KGC_Dash_8DirMove

@direction_8dir = 7 unless @direction_fix
end

alias move_upper_right_KGC_Dash_8DirMove move_upper_right
def move_upper_right
move_upper_right_KGC_Dash_8DirMove

@direction_8dir = 9 unless @direction_fix
end
end

class Game_Player < Game_Character

alias initialize_KGC_Dash_8DirMove initialize
def initialize
initialize_KGC_Dash_8DirMove

reset_move_speed
end

def direction_8dir
@direction_8dir = @direction if @direction_8dir == nil
return @direction_8dir
end

def reset_move_speed
@move_speed = KGC::Dash_8DirMove::DEFAULT_WALK_SPEED
end
# www.ultimateam.pl
if KGC::Dash_8DirMove::ENABLE_8DIR

def move_by_input
return unless movable?
return if $game_map.interpreter.running?

if @reserved_move != nil
case @reserved_move
when :down
move_down if passable_l?(2)
when :left
move_left if passable_l?(4)
when :right
move_right if passable_l?(6)
when :up
move_up if passable_l?(8)
end
@reserved_move = nil
return
end

last_steps = $game_party.steps

case Input.dir8
when 1
if !passable_l?(2) && passable_l?(4)

move_left
@reserved_move = :down
elsif passable_l?(2) && !passable_l?(4)

move_down
@reserved_move = :left
elsif passable_l?(2)

move_down
move_left
end
@direction = 2
when 2
move_down
when 3
if !passable_l?(2) && passable_l?(6)

move_right
@reserved_move = :down
elsif passable_l?(2) && !passable_l?(6)

move_down
@reserved_move = :right
elsif passable_l?(2)

move_down
move_right
end
@direction = 6
when 4
move_left
when 6
move_right
when 7
if !passable_l?(8) && passable_l?(4)

move_left
@reserved_move = :up
elsif passable_l?(8) && !passable_l?(4)

move_up
@reserved_move = :left
elsif passable_l?(8)

move_up
move_left
end
@direction = 4
when 8
move_up
when 9
if !passable_l?(8) && passable_l?(6)

move_right
@reserved_move = :up
elsif passable_l?(8) && !passable_l?(6)

move_up
@reserved_move = :right
elsif passable_l?(8)

move_up
move_right
end
@direction = 8
else
return
end
@direction_8dir = Input.dir8

if $game_party.steps - last_steps == 2
$game_party.decrease_steps
end
end

def passable_l?(d)
if $imported["TilesetExtension"]
return passable?(@x, @y, d)
else
case d
when 1
return passable?(@x-1, @y+1)
when 2
return passable?(@x, @y+1)
when 3
return passable?(@x+1, @y+1)
when 4
return passable?(@x-1, @y)
when 6
return passable?(@x+1, @y)
when 7
return passable?(@x-1, @y-1)
when 8
return passable?(@x, @y-1)
when 9
return passable?(@x+1, @y-1)
end
end
return false
end
end

def update_move
distance = 2 ** @move_speed
if dash?
distance *= KGC::Dash_8DirMove::DASH_SPEED_RATE

if $game_system.temp_dash_speed == nil
@move_speed = KGC::Dash_8DirMove::DASH_SPEED_RATE
else
@move_speed = $game_system.temp_dash_speed
end
else
if $game_system.temp_walk_speed == nil
@move_speed = KGC::Dash_8DirMove::DEFAULT_WALK_SPEED
else
@move_speed = $game_system.temp_walk_speed
end

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

if KGC::Dash_8DirMove::ENABLE_8DIR_ANIMATION

class Sprite_Character < Sprite_Base

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

alias update_bitmap_KGC_Dash_8DirMove update_bitmap
def update_bitmap
name_changed = (@character_name != @character.character_name)

update_bitmap_KGC_Dash_8DirMove

if @tile_id > 0
@enable_slant = false
return
end
return unless name_changed

@enable_slant = true
begin
@character_name_slant = @character_name + KGC::Dash_8DirMove::SLANT_SUFFIX
Cache.character(@character_name_slant)
rescue
@enable_slant = false
end
end

alias update_src_rect_KGC_Dash_8DirMove update_src_rect
def update_src_rect
return if @tile_id > 0

if @enable_slant
update_src_rect_for_slant
else
update_src_rect_KGC_Dash_8DirMove
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 = SLANT_ANIME_TABLE[dir]
end

sy = (index / 4 * 4 + (dir - 2) / 2) * @ch
self.src_rect.set(sx, sy, @cw, @ch)
end
end
end
# www.ultimateam.pl