#===============================================================
# ● [VX] ◦ Plug 'n Play Caterpillar System ◦ □
# * Create party members follow the player on map *
#--------------------------------------------------------------
# ◦ by Woratana [woratana@hotmail.com]
# ◦ Thaiware RPG Maker Community
# ◦ Released on: 29/02/2009
# ◦ Version: 2.0
#--------------------------------------------------------------
# ◦ Update:
#--------------------------------------------------------------
# □ Version 2.0 (29/02/2009)
# - Fix direction bug
# - Fix vehicle bug
# - Add max following members
# □ Version 1.5 (17/02/2009)
# - Fix dash bug
# - More compatible with script that edit Spriteset_Map.create_characters
#--------------------------------------------------------------
# ◦ Compatibility:
#--------------------------------------------------------------
# □ This script will rewrite 0 method(s):
#
#
# □ This script will alias 14 method(s):
# Spriteset_Map.create_characters
# Spriteset_Map.update_characters
# Game_Player.move_down
# Game_Player.move_left
# Game_Player.move_right
# Game_Player.move_up
# Game_Player.move_lower_left
# Game_Player.move_lower_right
# Game_Player.move_upper_left
# Game_Player.move_upper_right
# Game_Player.jump
# Game_Player.get_off_vehicle
# Game_Player.moveto
# Game_Map.setup
#
# □ This script should work with most scripts
#
#--------------------------------------------------------------
# ◦ Installation:
#--------------------------------------------------------------
# 1) This script should be placed JUST BEFORE ▼ Main Process.
#
# □ Like this:
# ▼ Materials
# ...
# ...
# * Caterpillar System
# ▼ Main Process
# Main
#
# 2) Setup this script in Setup Part below.
#
#--------------------------------------------------------------
# ◦ How to use:
#--------------------------------------------------------------
# □ Place this script and setup in the setup part.
#
#=================================================================

module Wora

#=================================================================
# ++ Setup Part
#-----------------------------------------------------------------

CATERPILLAR_HIDE_SWITCH = 1
# Turn ON this switch to HIDE caterpillar actors
# Turn OFF this switch to SHOW caterpillar actors

CATERPILLAR_MAX_ACTORS = 5
# Maximum number of the following actors

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

def self.add_upd_cater(code = nil)
# Add new move action to caterpillar
$game_cateracter.each_index do |i|
act = $game_cateracter[i]
eval($cater_movelist[$cater_movelist.size - 1 - i])
end
$cater_movelist.shift
$cater_movelist.push(code) unless code.nil?
end

def self.reset_cater_pos
# Reset caterpillar position
$game_cateracter.each_index {|i| $game_cateracter[i].refresh }
$cater_movelist = Array.new(Wora::CATERPILLAR_MAX_ACTORS - 1) {''}
end
end

class Game_WCateracter < Game_Character
attr_accessor :actor

def initialize(member_id)
super()
@wmember_id = member_id
refresh
end

def update(*args)
super(*args)
actor = $game_party.members[@wmember_id]
unless actor.nil?
@character_name = actor.character_name
@character_index = actor.character_index
@transparent = ($game_switches[WoraCATERPILLAR_HIDE_SWITCH] or
$game_player.in_vehicle? or $game_player.transparent)
@opacity = $game_player.opacity
@move_speed = $game_player.move_speed + ($game_player.dash? ? 1 : 0)
else
@character_name = ''
@character_index = 0
end
end

def screen_z
return $game_player.screen_z
end

def check_event_trigger_touch(x, y)
return false
end

def passable?(x, y)
return true
end

def refresh
@direction = $game_player.direction
moveto($game_player.x, $game_player.y)
end
end

class Spriteset_Map
alias wora_cater_sprmap_crechara create_characters
alias wora_cater_sprmap_updchara update_characters
#--------------------------------------------------------------------------
# * Create Character Sprite
#--------------------------------------------------------------------------
def create_characters(*args)
wora_cater_sprmap_crechara(*args)
# Remove Game_Player sprite, this will be add later
((@character_sprites.size-1)..0).each do |i|
next if @character_sprites[i].nil?
if @character_sprites[i].character.is_a?(Game_Player)
@character_sprites[i].dispose
@character_sprites.delete_at(i)
break
end
end
# Create party members sprite
(1..(Wora::CATERPILLAR_MAX_ACTORS-1)).each do |n|
@character_sprites.push(Sprite_Character.new(@viewport1, $game_cateracter[n-1]))
end
@character_sprites.push(Sprite_Character.new(@viewport1, $game_player))
end
#--------------------------------------------------------------------------
# * Update Character Sprite
#--------------------------------------------------------------------------
def update_characters(*args)
$game_cateracter.each {|cater| cater.update }
wora_cater_sprmap_updchara(*args)
end
end

class Game_Player < Game_Character
attr_reader :move_speed
unless method_defined?('wora_cater_gampla_movdown')
alias wora_cater_gampla_movdown move_down
alias wora_cater_gampla_movleft move_left
alias wora_cater_gampla_movright move_right
alias wora_cater_gampla_movup move_up
alias wora_cater_gampla_movll move_lower_left
alias wora_cater_gampla_movlr move_lower_right
alias wora_cater_gampla_movul move_upper_left
alias wora_cater_gampla_movur move_upper_right
alias wora_cater_gampla_jump jump
alias wora_cater_gampla_getoffveh get_off_vehicle
alias wora_cater_gampla_moveto moveto

#--------------------------------------------------------------------------
# * Move Down
#--------------------------------------------------------------------------
def move_down(turn_ok = true)
wora_cater_gampla_movdown(turn_ok)
Wora.add_upd_cater("act.move_down(#{turn_ok})") unless @move_failed
end
#--------------------------------------------------------------------------
# * Move Left
#--------------------------------------------------------------------------
def move_left(turn_ok = true)
wora_cater_gampla_movleft(turn_ok)
Wora.add_upd_cater("act.move_left(#{turn_ok})") unless @move_failed
end
#--------------------------------------------------------------------------
# * Move Right
#--------------------------------------------------------------------------
def move_right(turn_ok = true)
wora_cater_gampla_movright(turn_ok)
Wora.add_upd_cater("act.move_right(#{turn_ok})") unless @move_failed
end
#--------------------------------------------------------------------------
# * Move up
#--------------------------------------------------------------------------
def move_up(turn_ok = true)
wora_cater_gampla_movup(turn_ok)
Wora.add_upd_cater("act.move_up(#{turn_ok})") unless @move_failed
end
#--------------------------------------------------------------------------
# * Move Lower Left
#--------------------------------------------------------------------------
def move_lower_left
wora_cater_gampla_movll
Wora.add_upd_cater('act.move_lower_left') unless @move_failed
end
#--------------------------------------------------------------------------
# * Move Lower Right
#--------------------------------------------------------------------------
def move_lower_right
wora_cater_gampla_movlr
Wora.add_upd_cater('act.move_lower_right') unless @move_failed
end
#--------------------------------------------------------------------------
# * Move Upper Left
#--------------------------------------------------------------------------
def move_upper_left
wora_cater_gampla_movul
Wora.add_upd_cater('act.move_upper_left') unless @move_failed
end
#--------------------------------------------------------------------------
# * Move Upper Right
#--------------------------------------------------------------------------
def move_upper_right
wora_cater_gampla_movur
Wora.add_upd_cater('act.move_upper_right') unless @move_failed
end
#--------------------------------------------------------------------------
# * Jump
#--------------------------------------------------------------------------
def jump(x, y)
wora_cater_gampla_jump(x, y)
Wora.add_upd_cater("act.jump(#{x},#{y})")
end
#--------------------------------------------------------------------------
# * Get Off Vehicle
#--------------------------------------------------------------------------
def get_off_vehicle(*args)
wora_cater_gampla_getoffveh(*args)
Wora.reset_cater_pos
end
#--------------------------------------------------------------------------
# * Move to Designated Position
#--------------------------------------------------------------------------
def moveto(*args)
wora_cater_gampla_moveto(*args)
Wora.reset_cater_pos
end
end
end

class Game_Map
attr_accessor :events

alias wora_cater_gammap_setup setup
def setup(*args)
wora_cater_gammap_setup(*args)
# Create caterpillar actors
$game_cateracter = []
(1..(Wora::CATERPILLAR_MAX_ACTORS-1)).each do |n|
$game_cateracter.push(Game_WCateracter.new(n))
end
$cater_movelist = Array.new(Wora::CATERPILLAR_MAX_ACTORS - 1) {''}
end
end