DISABLING A SCRIPT WHILE IN GAME, [VX]

# GRS- Changed it so it works with the speed script which defines dash speeds
# instead of hardcoding them. Also changed it so the party train also gets on
# vehicles when the player does too

#===============================================================
# ● [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 = 48
  # Turn ON this switch to HIDE caterpillar actors
  # Turn OFF this switch to SHOW caterpillar actors

  CATERPILLAR_MAX_ACTORS = 14
  # 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[Wora::CATERPILLAR_HIDE_SWITCH] or
    $game_player.in_vehicle? or $game_player.transparent)
      @opacity = $game_player.opacity
      # GRS - Don't do any dash stuff here, just override the dash method
      @move_speed = $game_player.move_speed
      #@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
  
  # GRS - Have this event dash if the player is dashing
  def dash?
    return false if $game_player == nil
    return $game_player.dash?
  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
    
    #--------------------------
    # GRS changes
    #alias get_on_vehicle_caterpillar_ori get_on_vehicle unless $@
    
    GET_ON_NONE = 0
    GET_ON_BOAT = 1
    GET_ON_SHIP = 2
    GET_ON_AIR = 3
    
    def get_on_vehicle
      
      # Find out what vehicle the player is getting on but don't call the
      # method that makes the player board the vehicle. Just force-move the
      # player forward, move the caterpillar, THEN board the vehicle
      got_on = GET_ON_NONE
      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?
        got_on = GET_ON_AIR
      elsif $game_map.ship.pos?(front_x, front_y)   # Is there a ship in front?
        force_move_forward
        got_on = GET_ON_SHIP
      elsif $game_map.boat.pos?(front_x, front_y)   # Is there a boat in front?
        force_move_forward
        got_on = GET_ON_BOAT
      end
      
      if got_on != GET_ON_NONE
      
        # Move the caterpillar onto the vehicle
        count = 0
        while got_on and count < (32 / Speed.player) * $game_party.members.size
          Wora.add_upd_cater("") if count % (32 / Speed.player) * $game_party.members.size == 0
          $scene.update_basic        
          count += 1
        end
        
        # Call the appropriate board vehicle method
        case got_on
          when GET_ON_BOAT
            get_on_boat
          when GET_ON_SHIP
            get_on_ship
          when GET_ON_AIR
            get_on_airship
        end
        
        return true
        
      else
        # The player didn't get on a vehicle
        return false
      end
      
    end
    
    # Change get_on_boat/ship methods so the player doesn't move forward
    # when they get on, the caterpillar get_on_vehicle will do that
    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
    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
    
    
    #--------------------------------------------------------------------------
    # * 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

@transparent = ($game_switches[Wora::CATERPILLAR_HIDE_SWITCH] or
    $game_player.in_vehicle? or $game_player.transparent)