ТЕМА: CIGUI 0.4.4 [xp]

def draw_item(index, color)
    self.contents.font.color = color
    cursor_width = self.width / @column_max - 32
    myx=index % @column_max * (cursor_width + 32)
    myy=(index.to_i / @column_max)* 32 # to_i, так как тут важны [b]индексы[/b]
    dx = (self.contents.width - 8) / @column_max # вместо ширины экрана - иначе затирает
    dy = 32
    rect = Rect.new(4+myx, myy, dx, dy) 
    self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
    self.contents.draw_text(rect, @commands[index])
  end
 

class Game_Temp
  attr_accessor :old_commands 
end
 
class Scene_Map
 
  #--------------------------------------------------------------------------
  # * Main Processing
  #--------------------------------------------------------------------------
  def main
    # Make sprite set
    @spriteset = Spriteset_Map.new
    # Make message window
    @message_window = Window_Message.new
    # Transition run
    Graphics.transition
    # Main loop
    @windows=[]
    @interpreter=Command_Interpreter.new(@windows)
    #p  $game_temp.old_commands
    if $command_map == nil && $game_temp.old_commands != nil
      $command_map = $game_temp.old_commands.clone
    end
    loop do
      if $command_map!=nil
				if $command_map.is_a?(String)
					@interpreter.work($command)
					$game_temp.old_commands = $command_map.clone
          $command_map=nil
				elsif $command_map.is_a?(Array)
					for i in 0..$command_map.size-1
						@interpreter.work($command_map[i])
					end
          $game_temp.old_commands = $command_map.clone
					$command_map=nil
				else
					p "#ОШИБКА:НЕПРАВИЛЬНО ЗАДАНА КОМАНДА!#\nЧИТАЙ СПРАВКУ"
				end
				@windows=@windows|@interpreter.windows
				$command_map=nil
			end
 
      for i in 0..@windows.size-1
        if @windows[i].active
          @windows[i].update
        end
			end
 
      # Update game screen
      Graphics.update
      # Update input information
      Input.update
      # Frame update
      update
      # Abort loop if screen is changed
      if $scene != self
        break
      end
    end
    # Prepare for transition
    Graphics.freeze
    # Dispose of sprite set
    @spriteset.dispose
    # Dispose of message window
    @message_window.dispose
    # Dispose custom windows
    for i in 0..@windows.size-1
      @windows[i].dispose
    end
    @windows=[]
  end
 
	def update
    # Loop
    loop do
      # Update map, interpreter, and player order
      # (this update order is important for when conditions are fulfilled 
      # to run any event, and the player isn't provided the opportunity to
      # move in an instant)
      $game_map.update
      $game_system.map_interpreter.update
      $game_player.update
      # Update system (timer), screen
      $game_system.update
      $game_screen.update
      # Abort loop if player isn't place moving
      unless $game_temp.player_transferring
        break
      end
      # Run place move
      transfer_player
      # Abort loop if transition processing
      if $game_temp.transition_processing
        break
      end
    end
    # Update sprite set
    @spriteset.update
    # Update message window
    @message_window.update
    # If game over
    if $game_temp.gameover
      # Switch to game over screen
      $scene = Scene_Gameover.new
      return
    end
    # If returning to title screen
    if $game_temp.to_title
      # Change to title screen
      $scene = Scene_Title.new
      return
    end
    # If transition processing
    if $game_temp.transition_processing
      # Clear transition processing flag
      $game_temp.transition_processing = false
      # Execute transition
      if $game_temp.transition_name == ""
        Graphics.transition(20)
      else
        Graphics.transition(40, "Graphics/Transitions/" +
          $game_temp.transition_name)
      end
    end
    # If showing message window
    if $game_temp.message_window_showing
      return
    end
    # If encounter list isn't empty, and encounter count is 0
    if $game_player.encounter_count == 0 and $game_map.encounter_list != []
      # If event is running or encounter is not forbidden
      unless $game_system.map_interpreter.running? or
             $game_system.encounter_disabled
        # Confirm troop
        n = rand($game_map.encounter_list.size)
        troop_id = $game_map.encounter_list[n]
        # If troop is valid
        if $data_troops[troop_id] != nil
          # Set battle calling flag
          $game_temp.battle_calling = true
          $game_temp.battle_troop_id = troop_id
          $game_temp.battle_can_escape = true
          $game_temp.battle_can_lose = false
          $game_temp.battle_proc = nil
        end
      end
    end
    # If B button was pressed
    if Input.trigger?(Input::B)
      #do nothing
			$game_system.se_play($data_system.cancel_se)
    end
    # If debug mode is ON and F9 key was pressed
    if $DEBUG and Input.press?(Input::F9)
      # Set debug calling flag
      $game_temp.debug_calling = true
    end
    # If player is not moving
    unless $game_player.moving?
      # Run calling of each screen
      if $game_temp.battle_calling
        call_battle
      elsif $game_temp.shop_calling
        call_shop
      elsif $game_temp.name_calling
        call_name
      elsif $game_temp.menu_calling
        call_menu
      elsif $game_temp.save_calling
        call_save
      elsif $game_temp.debug_calling
        call_debug
      end
    end
  end
end