Text Bar

#==============================================================================
# ** Text Bar
#==============================================================================
# Author: Death10
# http://gamesvts.com
# http://taotrochoi.com
#==============================================================================
# *Call script:
# -On: $game_system.ads_option = 1
# -Off: $game_system.ads_option = 2
# -Change:
# +Text: $game_system.ads_x = "Text"
# +Background: $game_system.ads_back = "Back.png"
#==============================================================================

$game_system = Game_System.new #DataManager.load_normal_database

module Cache
def self.load_bitmap2(file, hue = 0)
	@cache ||= {}
	if file.empty?
	 empty_bitmap
	elsif hue == 0
	 normal_bitmap(file)
	else
	 hue_changed_bitmap(file, hue)
	end
end
end

class Game_System
attr_accessor :ads
attr_accessor :ads_on
attr_accessor :ads_x
attr_accessor :ads_option
attr_accessor :ads_back
alias initialize_ads initialize
def initialize
	initialize_ads
	@ads = "Text Bar"
	@ads_back = "Graphics/Titles1/#{$data_system.title1_name}"
	@ads_option = 1
	@ads_on = 1
	@ads_x = 0
end
end
class TB < Window_Base
def initialize
	super(0, 0, 544, 64)
	self.opacity = 0
	#$game_system = Game_System.new
	check
	refresh
end
def check
	case $game_system.ads_option
	when 1
	$game_system.ads_on = 1
	$game_system.ads_x = -contents.text_size($game_system.ads).width
	$game_system.ads_option = 0
	when 2
	$game_system.ads_on = 0
	$game_system.ads_option = 0
end
end
def refresh
	check
	contents.clear
	cx = contents.text_size($game_system.ads).width
	if $game_system.ads_x == -cx
	$game_system.ads_x = 544
	else
	$game_system.ads_x -= 0.5
	end
	if $game_system.ads_on == 1
	contents.blt(0, 0, Cache.load_bitmap2($game_system.ads_back), Rect.new(0, 0, 544, 32), 160)
	contents.draw_text($game_system.ads_x, 0, cx, 32, $game_system.ads, 2)
	end
end
def open
	super
	refresh
end
end

class Scene_Map < Scene_Base
alias caw create_all_windows
def create_all_windows
	caw
	@ads = TB.new
end
alias update_ads update
def update
	update_ads
	@ads.open
end
alias utp update_transfer_player
def update_transfer_player
	utp
	case $game_system.ads_on
	when 0
	@map_name_window.y = 0
	when 1
	@map_name_window.y = 44
	end
end
end