#=========================================
# [VX] 2 Players Engine
#------------------------------------------------
# By Woratana [woratana@hotmail.com]
# Version: 1.0
# Date: 14/03/2008 *HAPPY PIE DAY! lol*
#
# CREDIT: Original XP Version by Hima

=begin

+[FEATURES]+
- Create Player 2 that you can control, interact with other events in map,
as same as Main Player.

- Editable Input Buttons for Player 2

- Player 2 can walk & Run 8 directions

+[HOW TO USE]+
To Create Player 2, use call script:
$game_player2 = Game_Player2.new
$game_player2.create(x, y, actor id, follow?)

x and y = X and Y that you want new player to appear

actor id = Character from ID of Actor that you want to use for new player
(ID from Database)

follow? = true (Screen follow new player), false (not follow new player)
*NOT RECOMMEND TO USE FOLLOW*

To Delete Player 2, use call script:
$game_player2.delete

=end
#==========================================

class Game_Player2 < Game_Character
#--------------------------------------------------------------------------
# START SETUP script PART
# * Constants: Commande du 2em joueur
#--------------------------------------------------------------------------
DOWN = Input::Y # S du clavier
LEFT = Input::X # A du clavier
RIGHT = Input::Z # D du clavier
UP = Input::R # W du clavier
ENTER = Input::L # Q du clavier
RUN = Input::A # Shift du clavier
#--------------------------------------------------------------------------
# END SETUP script PART
#--------------------------------------------------------------------------

CENTER_X = (544 / 2 - 16) * 8 # Screen center X coordinate * 8
CENTER_Y = (416 / 2 - 16) * 8 # Screen center Y coordinate * 8
#--------------------------------------------------------------------------
# * Public Instance Variables
#--------------------------------------------------------------------------
attr_reader :vehicle_type # type of vehicle currenting being ridden
attr_accessor :character_name
#--------------------------------------------------------------------------
# * Create and Set Player 2 Location
#--------------------------------------------------------------------------
def create(x,y,id,need_center = false)
@actor_id = id
moveto(x,y)
@need_center = need_center
refresh
end
#--------------------------------------------------------------------------
# * Clear Player 2
#--------------------------------------------------------------------------
def delete
@actor_id = nil
refresh
$game_player2 = nil
end
#--------------------------------------------------------------------------
# * Object Initialization
#--------------------------------------------------------------------------
def initialize
super
@vehicle_type = -1
@vehicle_getting_on = false # Boarding vehicle flag
@vehicle_getting_off = false # Getting off vehicle flag
@transferring = false # Player transfer flag
@new_map_id = 0 # Destination map ID
@new_x = 0 # Destination X coordinate
@new_y = 0 # Destination Y coordinate
@new_direction = 0 # Post-movement direction
@walking_bgm = nil # For walking BGM memory
end
#--------------------------------------------------------------------------
# * Determine if Stopping
#--------------------------------------------------------------------------
def stopping?
return false if @vehicle_getting_on
return false if @vehicle_getting_off
return super
end
#--------------------------------------------------------------------------
# * Player Transfer Reservation
# map_id : Map ID
# x : x-coordinate
# y : y coordinate
# direction : post-movement direction
#--------------------------------------------------------------------------
def reserve_transfer(map_id, x, y, direction)
@transferring = true
@new_map_id = map_id
@new_x = x
@new_y = y
@new_direction = direction
end
#--------------------------------------------------------------------------
# * Determine if Player Transfer is Reserved
#--------------------------------------------------------------------------
def transfer?
return @transferring
end
#--------------------------------------------------------------------------
# * Execute Player Transfer
#--------------------------------------------------------------------------
def perform_transfer
return unless @transferring
@transferring = false
set_direction(@new_direction)
if $game_map.map_id != @new_map_id
$game_map.setup(@new_map_id) # Move to other map
end
moveto(@new_x, @new_y)
end
#--------------------------------------------------------------------------
# * Determine if Map is Passable
# x : x-coordinate
# y : y-coordinate
#--------------------------------------------------------------------------
def map_passable?(x, y)
case @vehicle_type
when 0 # Boat
return $game_map.boat_passable?(x, y)
when 1 # Ship
return $game_map.ship_passable?(x, y)
when 2 # Airship
return true
else # Walking
return $game_map.passable?(x, y)
end
end
#--------------------------------------------------------------------------
# * Determine if Walking is Possible
# x : x-coordinate
# y : y-coordinate
#--------------------------------------------------------------------------
def can_walk?(x, y)
last_vehicle_type = @vehicle_type # Remove vehicle type
@vehicle_type = -1 # Temporarily set to walking
result = passable?(x, y) # Determine if passable
@vehicle_type = last_vehicle_type # Restore vehicle type
return result
end
#--------------------------------------------------------------------------
# * Determine if Airship can Land
# x : x-coordinate
# y : y-coordinate
#--------------------------------------------------------------------------
def airship_land_ok?(x, y)
unless $game_map.airship_land_ok?(x, y)
return false # The tile passable attribute is unlandable
end
unless $game_map.events_xy(x, y).empty?
return false # Cannot land where there is an event
end
return true # Can land
end
#--------------------------------------------------------------------------
# * Determine if Riding in Some Kind of Vehicle
#--------------------------------------------------------------------------
def in_vehicle?
return @vehicle_type >= 0
end
#--------------------------------------------------------------------------
# * Determine if Riding in Airship
#--------------------------------------------------------------------------
def in_airship?
return @vehicle_type == 2
end
#--------------------------------------------------------------------------
# * Determine if Dashing
#--------------------------------------------------------------------------
def dash?
return false if @move_route_forcing
return false if $game_map.disable_dash?
return false if in_vehicle?
return Input.press?(RUN)
end
#--------------------------------------------------------------------------
# * Determine if Debug Pass-through State
#--------------------------------------------------------------------------
def debug_through?
return false unless $TEST
return Input.press?(Input::CTRL)
end
#--------------------------------------------------------------------------
# * Set Map Display Position to Center of Screen
# x : x-coordinate
# y : y-coordinate
#--------------------------------------------------------------------------
def center(x, y)
display_x = x * 256 - CENTER_X # Calculate coordinates
unless $game_map.loop_horizontal? # No loop horizontally?
max_x = ($game_map.width - 17) * 256 # Calculate max value
display_x = [0, [display_x, max_x].min].max # Adjust coordinates
end
display_y = y * 256 - CENTER_Y # Calculate coordinates
unless $game_map.loop_vertical? # No loop vertically?
max_y = ($game_map.height - 13) * 256 # Calculate max value
display_y = [0, [display_y, max_y].min].max # Adjust coordinates
end
$game_map.set_display_pos(display_x, display_y) # Change map location
end
#--------------------------------------------------------------------------
# * Move to Designated Position
# x : x-coordinate
# y : y-coordinate
#--------------------------------------------------------------------------
def moveto(x, y)
super
# center(x, y)
make_encounter_count # Initialize encounter
if in_vehicle? # Riding in vehicle
vehicle = $game_map.vehicles[@vehicle_type] # Get vehicle
vehicle.refresh # Refresh
end
end
#--------------------------------------------------------------------------
# * Increase Steps
#--------------------------------------------------------------------------
def increase_steps
super
return if @move_route_forcing
return if in_vehicle?
$game_party.increase_steps
$game_party.on_player_walk
end
#--------------------------------------------------------------------------
# * Get Encounter Count
#--------------------------------------------------------------------------
def encounter_count
return @encounter_count
end
#--------------------------------------------------------------------------
# * Make Encounter Count
#--------------------------------------------------------------------------
def make_encounter_count
if $game_map.map_id != 0
n = $game_map.encounter_step
@encounter_count = rand(n) + rand(n) + 1 # As if rolling 2 dice
end
end
#--------------------------------------------------------------------------
# * Determine if in Area
# area : Area data (RPG::Area)
#--------------------------------------------------------------------------
def in_area?(area)
return false if area == nil
return false if $game_map.map_id != area.map_id
return false if @x < area.rect.x
return false if @y < area.rect.y
return false if @x >= area.rect.x + area.rect.width
return false if @y >= area.rect.y + area.rect.height
return true
end
#--------------------------------------------------------------------------
# * Create Group ID for Troop Encountered
#--------------------------------------------------------------------------
def make_encounter_troop_id
encounter_list = $game_map.encounter_list.clone
for area in $data_areas.values
encounter_list += area.encounter_list if in_area?(area)
end
if encounter_list.empty?
make_encounter_count
return 0
end
return encounter_list[rand(encounter_list.size)]
end
#--------------------------------------------------------------------------
# * Refresh
#--------------------------------------------------------------------------
def refresh
if @actor_id != nil and $game_actors[@actor_id] != nil
actor = $game_actors[@actor_id] # Get front actor
@character_name = actor.character_name
@character_index = actor.character_index
else
@character_name = ""
end
end
#--------------------------------------------------------------------------
# * Determine if Same Position Event is Triggered
# triggers : Trigger array
#--------------------------------------------------------------------------
def check_event_trigger_here(triggers)
return false if $game_map.interpreter.running?
result = false
for event in $game_map.events_xy(@x, @y)
if triggers.include?(event.trigger) and event.priority_type != 1
event.start
result = true if event.starting
end
end
return result
end
#--------------------------------------------------------------------------
# * Determine if Front Event is Triggered
# triggers : Trigger array
#--------------------------------------------------------------------------
def check_event_trigger_there(triggers)
return false if $game_map.interpreter.running?
result = false
front_x = $game_map.x_with_direction(@x, @direction)
front_y = $game_map.y_with_direction(@y, @direction)
for event in $game_map.events_xy(front_x, front_y)
if triggers.include?(event.trigger) and event.priority_type == 1
event.start
result = true
end
end
if result == false and $game_map.counter?(front_x, front_y)
front_x = $game_map.x_with_direction(front_x, @direction)
front_y = $game_map.y_with_direction(front_y, @direction)
for event in $game_map.events_xy(front_x, front_y)
if triggers.include?(event.trigger) and event.priority_type == 1
event.start
result = true
end
end
end
return result
end
#--------------------------------------------------------------------------
# * Determine if Touch Event is Triggered
# x : x-coordinate
# y : y-coordinate
#--------------------------------------------------------------------------
def check_event_trigger_touch(x, y)
return false if $game_map.interpreter.running?
result = false
for event in $game_map.events_xy(x, y)
if [1,2].include?(event.trigger) and event.priority_type == 1
event.start
result = true
end
end
return result
end
#--------------------------------------------------------------------------
# * Processing of Movement via input from the Directional Buttons
#--------------------------------------------------------------------------
def move_by_input
return unless movable?
return if $game_map.interpreter.running?
if Input.press?(DOWN)
move_down
end
if Input.press?(LEFT)
move_left
end
if Input.press?(RIGHT)
move_right
end
if Input.press?(UP)
move_up
end
end
#--------------------------------------------------------------------------
# * Determine if Movement is Possible
#--------------------------------------------------------------------------
def movable?
return false if moving? # Moving
return false if @move_route_forcing # On forced move route
return false if @vehicle_getting_on # Boarding vehicle
return false if @vehicle_getting_off # Getting off vehicle
return false if $game_message.visible # Displaying a message
return false if in_airship? and not $game_map.airship.movable?
return true
end
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
def update
last_real_x = @real_x
last_real_y = @real_y
last_moving = moving?
move_by_input
super
update_scroll(last_real_x, last_real_y) if @need_center
update_vehicle
update_nonmoving(last_moving)
end
#--------------------------------------------------------------------------
# * Update Scroll
#--------------------------------------------------------------------------
def update_scroll(last_real_x, last_real_y)
ax1 = $game_map.adjust_x(last_real_x)
ay1 = $game_map.adjust_y(last_real_y)
ax2 = $game_map.adjust_x(@real_x)
ay2 = $game_map.adjust_y(@real_y)
if ay2 > ay1 and ay2 > CENTER_Y
$game_map.scroll_down(ay2 - ay1)
end
if ax2 < ax1 and ax2 < CENTER_X
$game_map.scroll_left(ax1 - ax2)
end
if ax2 > ax1 and ax2 > CENTER_X
$game_map.scroll_right(ax2 - ax1)
end
if ay2 < ay1 and ay2 < CENTER_Y
$game_map.scroll_up(ay1 - ay2)
end
end
#--------------------------------------------------------------------------
# * Update Vehicle
#--------------------------------------------------------------------------
def update_vehicle
return unless in_vehicle?
vehicle = $game_map.vehicles[@vehicle_type]
if @vehicle_getting_on # Boarding?
if not moving?
@direction = vehicle.direction # Change direction
@move_speed = vehicle.speed # Change movement speed
@vehicle_getting_on = false # Finish boarding operation
@transparent = true # Transparency
end
elsif @vehicle_getting_off # Getting off?
if not moving? and vehicle.altitude == 0
@vehicle_getting_off = false # Finish getting off operation
@vehicle_type = -1 # Erase vehicle type
@transparent = false # Remove transparency
end
else # Riding in vehicle
vehicle.sync_with_player # Move at the same time as player
end
end
#--------------------------------------------------------------------------
# * Processing when not moving
# last_moving : Was it moving previously?
#--------------------------------------------------------------------------
def update_nonmoving(last_moving)
return if $game_map.interpreter.running?
return if moving?
return if check_touch_event if last_moving
if not $game_message.visible and Input.trigger?(ENTER)
return if get_on_off_vehicle
return if check_action_event
end
update_encounter if last_moving
end
#--------------------------------------------------------------------------
# * Update Encounter
#--------------------------------------------------------------------------
def update_encounter
return if $TEST and Input.press?(Input::CTRL) # During test play?
return if in_vehicle? # Riding in vehicle?
if $game_map.bush?(@x, @y) # If in bush
@encounter_count -= 2 # Reduce encounters by 2
else # If not in bush
@encounter_count -= 1 # Reduce encounters by 1
end
end
#--------------------------------------------------------------------------
# * Determine Event Start Caused by Touch (overlap)
#--------------------------------------------------------------------------
def check_touch_event
return false if in_airship?
return check_event_trigger_here([1,2])
end
#--------------------------------------------------------------------------
# * Determine Event Start Caused by [OK] Button
#--------------------------------------------------------------------------
def check_action_event
return false if in_airship?
return true if check_event_trigger_here([0])
return check_event_trigger_there([0,1,2])
end
#--------------------------------------------------------------------------
# * Getting On and Off Vehicles
#--------------------------------------------------------------------------
def get_on_off_vehicle
return false unless movable?
if in_vehicle?
return get_off_vehicle
else
return get_on_vehicle
end
end
#--------------------------------------------------------------------------
# * Board Vehicle
# Assumes that the player is not currently in a vehicle.
#--------------------------------------------------------------------------
def get_on_vehicle
front_x = $game_map.x_with_direction(@x, @direction)
front_y = $game_map.y_with_direction(@y, @direction)
if $game_map.airship.pos?(@x, @y) # Is it overlapping with airship?
get_on_airship
return true
elsif $game_map.ship.pos?(front_x, front_y) # Is there a ship in front?
get_on_ship
return true
elsif $game_map.boat.pos?(front_x, front_y) # Is there a boat in front?
get_on_boat
return true
end
return false
end
#--------------------------------------------------------------------------
# * Board Boat
#--------------------------------------------------------------------------
def get_on_boat
@vehicle_getting_on = true # Boarding flag
@vehicle_type = 0 # Set vehicle type
force_move_forward # Move one step forward
@walking_bgm = RPG::BGM::last # Memorize walking BGM
$game_map.boat.get_on # Boarding processing
end
#--------------------------------------------------------------------------
# * Board Ship
#--------------------------------------------------------------------------
def get_on_ship
@vehicle_getting_on = true # Board
@vehicle_type = 1 # Set vehicle type
force_move_forward # Move one step forward
@walking_bgm = RPG::BGM::last # Memorize walking BGM
$game_map.ship.get_on # Boarding processing
end
#--------------------------------------------------------------------------
# * Board Airship
#--------------------------------------------------------------------------
def get_on_airship
@vehicle_getting_on = true # Start boarding operation
@vehicle_type = 2 # Set vehicle type
@through = true # Passage ON
@walking_bgm = RPG::BGM::last # Memorize walking BGM
$game_map.airship.get_on # Boarding processing
end
#--------------------------------------------------------------------------
# * Get Off Vehicle
# Assumes that the player is currently riding in a vehicle.
#--------------------------------------------------------------------------
def get_off_vehicle
if in_airship? # Airship
return unless airship_land_ok?(@x, @y) # Can't land?
else # Boat/ship
front_x = $game_map.x_with_direction(@x, @direction)
front_y = $game_map.y_with_direction(@y, @direction)
return unless can_walk?(front_x, front_y) # Can't touch land?
end
$game_map.vehicles[@vehicle_type].get_off # Get off processing
if in_airship? # Airship
@direction = 2 # Face down
else # Boat/ship
force_move_forward # Move one step forward
@transparent = false # Remove transparency
end
@vehicle_getting_off = true # Start getting off operation
@move_speed = 4 # Return move speed
@through = false # Passage OFF
@walking_bgm.play # Restore walking BGM
make_encounter_count # Initialize encounter
end
#--------------------------------------------------------------------------
# * Force One Step Forward
#--------------------------------------------------------------------------
def force_move_forward
@through = true # Passage ON
move_forward # Move one step forward
@through = false # Passage OFF
end
end

class Scene_Title < Scene_Base
alias wor_twopla_scetit_cregam create_game_objects
def create_game_objects
wor_twopla_scetit_cregam
$game_player2 = nil
end
end

class Scene_Map < Scene_Base
alias wor_twopla_scemap_upd update
def update
wor_twopla_scemap_upd
$game_player2.update if $game_player2 != nil
end
end

class Spriteset_Map
alias wor_twopla_sprmap_crecha create_characters
alias wor_twopla_sprmap_updcha update_characters
def create_characters
wor_twopla_sprmap_crecha
@character_sprites.push(Sprite_Character.new(@viewport1, $game_player))
@chara_two_pushed = false
end

def update_characters
if !(@chara_two_pushed) and $game_player2 != nil
@character_sprites.push(Sprite_Character.new(@viewport1, $game_player2))
@chara_two_pushed = true
elsif @chara_two_pushed and $game_player2 == nil
for i in 0..@character_sprites.size
if @character_sprites[i].character.is_a?(Game_Player2)
@character_sprites[i].character.character_name = ""
@character_sprites[i].update
@character_sprites.delete_at(i)
break
end
end
@chara_two_pushed = false
end
wor_twopla_sprmap_updcha
end
end

class Game_Map
alias wor_twopla_gammap_passable passable?
def passable?(x, y, flag = 0x01)
if $game_player2 != nil and flag
return false if $game_player2.x == x and $game_player2.y == y
end
wor_twopla_gammap_passable(x, y, flag)
end
end