SKP-Core

$imported = {} if $imported.nil?
$imported["SKP-Core"] = true

=begin
This is my very first attempt at any form of scripting. I just pray that
it doesnt break your game or your computer of your life, so please make
a backup before importing any of my scripts.


CREDITS

SKP-April
Yanfly
=end

module SKP
	module CORE
		RESIZE_WIDTH = 640
		RESIZE_HEIGHT = 416

		GROUP_DIGITS = false

		QUICK_SCROLLING = true

	end #CORE
end #SKP-Core

Graphics.resize_screen(SKP::CORE::RESIZE_WIDTH, SKP::CORE::RESIZE_HEIGHT)

class Numeric
	def group
		return self.to_s unless SKP::CORE::GROUP_DIGITS
		self.to_s.gsub(/(\d)(?=\d{3}+(?:\.|$))(\d{3}\..*)?/,'\1,\2')
	end
end

class Window_Selectable < Window_Base
	if SKP::CORE::QUICK_SCROLLING
	def process_cursor_move
		return unless cursor_movable?
		last_index = @index
		cursor_down (Input.trigger?(:DOWN)) if Input.repeat?(:DOWN)
		cursor_up (Input.trigger?(:UP)) if Input.repeat?(:UP)
		cursor_right (Input.trigger?(:RIGHT)) if Input.repeat?(:RIGHT)
		cursor_left (Input.trigger?(:LEFT)) if Input.repeat?(:LEFT)
		cursor_pagedown if !handle?(:pagedown) && Input.repeat?(:R)
		cursor_pageup if !handle?(:pageup) && Input.repeat?(:L)
		Sound.play_cursor if @index != last_index
		end
	end

end