ТЕМА: Проект в стиле киберпанк

#===============================================================================
# * Window Browser
# * by DeadElf79
#-------------------------------------------------------------------------------
# Version: 1.1
# Last change data: 24.01.2013
# Read *.txt file and view in window
# Useful for menu as like 'Authors' or 'About'
# Text file MUST be saved as UTF-8 format
=begin
	Version history:
		1.1 - Features - can analys text from file
			and turn on parametrs like a Window_Message!
		1.0 - start release. Features - can view text from file
=end
#===============================================================================
#-------------------------------------------------------------------------------
# Begin Window_Browser
#-------------------------------------------------------------------------------
class Window_Browser <Window_Base
  attr_reader :scroll
  attr_accessor :line
  attr_reader :array
	def initialize(filename,system=100)
		super(0,64,640,480-64)
		self.contents=Bitmap.new(width - 32, height - 32)
    self.back_opacity=128
    self.contents.font.name='Archangelsk'
		@filename=filename
    @line=0
 
    @scroll=Sprite.new
    @scroll.bitmap=Bitmap.new(32,96)
    @scroll.visible=false
    @scroll.z=self.z+1
    @scroll.x=640-64
    @scroll.oy=48
    @scroll.y=224
 
		case system
			when "Ogle.net", "Ogle", 0
				@dir="Ogle.net"
			when "Rune", "Rune Society", 1
				@dir="Rune"
			when "Andex", 2
				@dir="Andex"
		else
			@dir=""
		end
 
    read_file
		refresh
	end
 
  def read_file
    if @dir!=nil
			if FileTest.exist?("Data/"+@dir+"/"+@filename)==nil
				p "File Data/"+@dir+"/"+@filename+" doesn't exist!"
			else
				@file=File.open("Data/"+@dir+"/"+@filename)
			end
		else
			if FileTest.exist?(@filename)==nil
				p "File "+@filename+" doesn't exist!"
			else
				@file=File.open(@filename)
			end
		end
    @array=[]
    @array=@file.readlines
    if @array.size*20>self.height
      set_scroll_gfx
      @scroll.visible=true
    end
  end
 
  alias bro_dispose dispose
  def dispose
    @scroll.bitmap.dispose
    @scroll.dispose
    bro_dispose
  end
 
	def refresh
		self.contents.clear
    self.contents.font.color = normal_color
		read_file
		if @filename[/\\system/]!=nil
			#Если использована специальная возможность открытия нестандартного
			#текстового файла, то включаем режим работы с системой
			#К сожалению, я пока не умею этого делать
		else
			#ВАА! Теперь есть анализ строк из стандартной системы
			#сообщений! Это дает такой простор оформления!
			for i in @line..@line+self.max_lines
        if @array[i]!=nil then
          analysis(@array[i],i-@line)
        else
          break
        end
			end
      #Еще добавим небольшую фичу - просмотр, сколько строк уже прочитано
      self.contents.font.color=Color.new(128,128,128,255)
			if @scroll.visible==true
				a=@line
				b=@array.size+1-self.max_lines
				self.contents.draw_text(self.width-100,self.height-96,64,64,a.to_s+"/"+b.to_s)
			end
		end
	end
 
	def analysis(mystring,line)
    x = 0
		y=line
    @cursor_width = 0
		text = mystring.clone
		# Control text processing
		begin
			last_text = text.clone
			text.gsub!(/\\[Vv]\[([0-9]+)\]/) { $game_variables[$1.to_i] }
		end until text == last_text
		text.gsub!(/\\[Nn]\[([0-9]+)\]/) do
			$game_actors[$1.to_i] != nil ? $game_actors[$1.to_i].name : ""
		end
		# Change "\\\\" to "\000" for convenience
		text.gsub!(/\\\\/) { "\000" }
		# Change "\\C" to "\001" and "\\G" to "\002"
		text.gsub!(/\\[Cc]\[([0-9]+)\]/) { "\001[#{$1}]" }
		text.gsub!(/\\[Gg]/) { "\002" }
		# Get 1 text character in c (loop until unable to get text)
		while ((c = text.slice!(/./m)) != nil)
			# If \\
			if c == "\000"
				# Return to original text
				c = "\\"
			end
			# If \C[n]
			if c == "\001"
				# Change text color
				text.sub!(/\[([0-9]+)\]/, "")
				color = $1.to_i
				if color >= 0 and color <= 7
					self.contents.font.color = text_color(color)
				end
				# go to next text
				next
			end
 
			self.contents.draw_text(x, 32 * y, 40, 32, c)
			# Add x to drawn text width
			x += self.contents.text_size(c).width
		end
	end
 
 
  def max_lines
    return self.height/32
  end
 
  def set_scroll_gfx
    @temp1=Sprite.new
    @temp1.bitmap=Bitmap.new("Graphics/Pictures/button_Up")
    @scroll.snapshot(@temp1.bitmap,Rect.new(0,0,32,32),Rect.new(0,0,32,32))
    @temp1.bitmap.dispose
    @temp1.dispose
    @temp1=Sprite.new
    @temp1.bitmap=Bitmap.new("Graphics/Pictures/button_Down")
    @scroll.snapshot(@temp1.bitmap,Rect.new(0,0,32,32),Rect.new(0,64,32,32))
    @temp1.bitmap.dispose
    @temp1.dispose
  end
end
#-------------------------------------------------------------------------------
# End Window_Browser
#-------------------------------------------------------------------------------

@gamehelp_view=Window_Browser.new("Help/datacube_#{$game_variables[12]}.txt")

#Положение скролла
    if @gamehelp_view.scroll.y>224
      @gamehelp_view.scroll.y-=2
    elsif @gamehelp_view.scroll.y<224
      @gamehelp_view.scroll.y+=2
    end

#Прокрутка вниз
    if Input.repeat?(Input::DOWN)
      if @gamehelp_view.scroll.visible
        @line=@gamehelp_view.line
        @max_line=@gamehelp_view.array.size+1
        if @line+@gamehelp_view.max_lines<@max_line then
          @gamehelp_view.scroll.y=224+12
          @line+=1
        end
        @gamehelp_view.line=@line
      end
      @gamehelp_view.refresh
      return
    end
    #Прокрутка вверх
    if Input.repeat?(Input::UP)
      if @gamehelp_view.scroll.visible
        @line=@gamehelp_view.line
        if @line>0 then
          @gamehelp_view.scroll.y=224-12
          @line-=1
        end
        @gamehelp_view.line=@line
      end
      @gamehelp_view.refresh
      return
    end