Chaos Project

#==================================================================#
#  #*****************#        Scroll camera v1.5 Falcao script     #
#  #*** By Falcao ***#        allow you move the game camera       #        
#  #*****************#        with the directional keys            #
#         RMXP                                                     #
# makerpalace.onlinegoo.com         V 1.5                          #
#==================================================================#
 
module Camera
 
# Button to run the script (Key "A" of the keyboard)
Button = Input::X  
 
# Speed of the camera (set 1 until 10)
Speed = 5
 
#Switch to disable or enable the script (on, off)
CameraDisable = 50
 
end
 
class Game_System
  attr_accessor :camera
  alias falcaoscroll_initialize initialize
  def initialize
    falcaoscroll_initialize
    @camera = false
  end
end
 
class Active_Arrow
  def initialize
    @arrow_up = Sprite.new
    @arrow_up.bitmap = RPG::Cache.icon("047-Skill04")
    @arrow_up.x = 325
    @arrow_up.y = 40
    @arrow_up.z = 200
    @arrow_up.angle = 180
    @arrow_up.visible = false
   
    @arrow_left = Sprite.new
    @arrow_left.bitmap = RPG::Cache.icon("047-Skill04")
    @arrow_left.x = 32
    @arrow_left.y = 220
    @arrow_left.z = 200
    @arrow_left.angle = 270
    @arrow_left.visible = false
   
    @arrow_down = Sprite.new
    @arrow_down.bitmap = RPG::Cache.icon("047-Skill04")
    @arrow_down.x = 316
    @arrow_down.y = 446
    @arrow_down.z = 200
    @arrow_down.visible = false
   
    @arrow_right = Sprite.new
    @arrow_right.bitmap = RPG::Cache.icon("047-Skill04")
    @arrow_right.x = 600
    @arrow_right.y = 242
    @arrow_right.z = 200
    @arrow_right.angle = 90
    @arrow_right.visible = false
  end
  def update
     if $game_system.camera == true
     case Input.dir4
     when 2
      @arrow_up.zoom_x = 1;  @arrow_up.zoom_y = 1
      @arrow_left.zoom_x = 1;  @arrow_left.zoom_y = 1
      @arrow_right.zoom_x = 1;  @arrow_right.zoom_y = 1
      @arrow_down.zoom_x = 1.4; @arrow_down.zoom_y = 1.4
     when 4
       @arrow_up.zoom_x = 1;  @arrow_up.zoom_y = 1
      @arrow_right.zoom_x = 1;  @arrow_right.zoom_y = 1
      @arrow_down.zoom_x = 1;  @arrow_down.zoom_y = 1
       @arrow_left.zoom_x = 1.4; @arrow_left.zoom_y = 1.4
     when 6
       @arrow_up.zoom_x = 1;  @arrow_up.zoom_y = 1
      @arrow_left.zoom_x = 1;  @arrow_left.zoom_y = 1
      @arrow_down.zoom_x = 1;  @arrow_down.zoom_y = 1
       @arrow_right.zoom_x = 1.4; @arrow_right.zoom_y = 1.4
     when 8
      @arrow_left.zoom_x = 1;  @arrow_left.zoom_y = 1
      @arrow_right.zoom_x = 1;  @arrow_right.zoom_y = 1
      @arrow_down.zoom_x = 1;  @arrow_down.zoom_y = 1
      @arrow_up.zoom_x = 1.4; @arrow_up.zoom_y = 1.4
    end
    @arrow_up.visible = true
      @arrow_left.visible = true
      @arrow_down.visible = true
      @arrow_right.visible = true
    else
      @arrow_up.visible = false
      @arrow_left.visible = false
      @arrow_down.visible = false
      @arrow_right.visible = false
     end
  end
  def dispose
    @arrow_up.dispose
    @arrow_up.bitmap.dispose
    @arrow_left.dispose
    @arrow_left.bitmap.dispose
    @arrow_down.dispose
    @arrow_down.bitmap.dispose
    @arrow_right.dispose
    @arrow_right.bitmap.dispose
  end
end
 
class Game_Player < Game_Character
  include Camera
  alias falcaocamera_update update
  def update
    falcaocamera_update
      if Input.trigger?(Button) and @camera_action == nil and
        $game_switches[CameraDisable] == false
        @walk_anime = false
        $game_system.camera = true
        @camera_action = 1
    elsif Input.trigger?(Button) and @camera_action == 1 and
      $game_switches[CameraDisable] == false
      center(x, y)
      @move_speed = 4
      @walk_anime = true
      $game_system.camera = false
      @camera_action = nil
    end
    if $game_system.camera == true
      @move_speed = -20
    unless $game_temp.message_window_showing
      case Input.dir4
      when 2
        turn_down
        $game_map.start_scroll(2, 1,Speed)
      when 4
        turn_left
        $game_map.start_scroll(4, 1,Speed)
      when 6
        turn_right
        $game_map.start_scroll(6, 1,Speed)
      when 8
        turn_up
        $game_map.start_scroll(8, 1,Speed)
      end
    end  
  end
end
end
 
class Scene_Map
  alias falcaoscroll_main main
  def main
    @arrow_active = Active_Arrow.new
    falcaoscroll_main
    @arrow_active.dispose
  end
  alias falcaoscroll_update update
  def update
    @arrow_active.update
    falcaoscroll_update
  end
end