ТЕМА: (XP) ARK Game Time

#==============================================================================
# AK Game 	Time Script
# Автор: 	  Arykray
# Версия: 	1.0.1
# Дата 		  31.07.2008
# E-Mail: 	[email protected]
# ICQ: 		  264-291-954
# WEB: 		  arykray.narod.ru
#==============================================================================

#==============================================================================
# : Window_PlayTime
#------------------------------------------------------------------------------
#  Это окно показывает игорвое время в экране меню и на карте
#==============================================================================

class Window_PlayTime   Window_Base
  #--------------------------------------------------------------------------
  # * Инициализация объектов
  #--------------------------------------------------------------------------
  def initialize
    super(0, 0, 160, 96)
    self.contents = Bitmap.new(width - 32, height - 32)
    @year = 2008        # Стартовый год игры
    @mon  = 12          # Стартовый месяц игры
    @mday = 30          # Стартовый день игры
    @hour = 23          # Стартовый час игры
    @min  = 55          # Стартовая минута игры
    @my = 12            # Количество месяцев в году
    @dm = 30            # Количество дней в месяце
    @hd = 23            # Количество часов в дне  
    @mh = 59            # Количество минут в часе
    @sm = 59            # Количество секунд в минуте
    @month = [ Января ,  Февраля ,  Марта ,  Апреля ,  Мая ,  Июня ,
               Июля , Августа , Сентября , Октября , Ноября , Декабря ]
    errors          
    refresh
  end
  #--------------------------------------------------------------------------
  # * Обработка возможных ошибок
  # В случае если введенное значение больше допустимого, 
  # программа самостоятельно исправит ошибку.
  #--------------------------------------------------------------------------
  def errors
    if @min   @mh  # Проверка стартовой минуты
      @hour += @min / @mh
      @min = @min % @mh
    end
    if @hour   @hd # Проверка стартового часа
      @mday += @hour / @hd
      @hour = @hour % @hd
    end
    if @mday   @dm  # Проверка стартового дня
      @mon += @mday / @dm
      @mday = @mday % @dm
    end
    if @mon   @my  # Проверка ставтового месяца
      @year += @mon / @my
      @mon = @mon % @my
    end
    if @mon != 0 
      @mon -= 1
    end
  end
  #--------------------------------------------------------------------------
  # * Обновление
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    @total_sec = Graphics.frame_count / (Graphics.frame_rate / 40)
    year  = @total_sec / @sm / @mh / @hd / @dm / @my + @year.to_f
    mon   = @total_sec / @sm / @mh / @hd / @dm % @my + @mon.to_f 
    mday  = @total_sec / @sm / @mh / @hd % @dm + @mday.to_f
    hour  = @total_sec / @sm / @mh % @hd + @hour.to_f
    min   = @total_sec / @sm  % @mh + @min.to_f
    sec   = @total_sec % @sm
    if min   @mh 
      hour += min / @mh
      min = min % @mh
      min -= 1
    end
    if hour   @hd
      mday += hour / @hd
      hour = hour % @hd
      hour -= 1
    end
    if mday   @dm
      mon += mday / @dm
      mday = mday % @dm
    end
    if mon   @my
      year += mon / @my
      mon = mon % @my
    end
    month_name = @month[mon]           
    self.contents.font.size = 40
    text = sprintf( %02d:%02d:%02d , hour, min, sec)
    self.contents.draw_text(4, 0, 120, 48, text, 2)
    self.contents.font.size = 18
    self.contents.font.bold = true
    text = sprintf( %02d %02s %04d , mday, month_name, year)
    self.contents.draw_text(4, 32, 120, 32, text, 2)
  end
  #--------------------------------------------------------------------------
  # * Дополнение экрана
  #--------------------------------------------------------------------------
  def update
    super
    if Graphics.frame_count / (Graphics.frame_rate / 40) != @total_sec
      refresh
    end
  end
end
 
#==============================================================================
# : Scene_Map
#------------------------------------------------------------------------------
#  Этот клас выполняет обработку экрана карты.
#==============================================================================

class Scene_Map
  #--------------------------------------------------------------------------
  # * Основная обработка
  #--------------------------------------------------------------------------
  def main
    @spriteset = Spriteset_Map.new
    @message_window = Window_Message.new
    @playtime_window = Window_PlayTime.new
    @playtime_window.visible = false
    @playtime_window.opacity = 0
    @playtime_window.x = 480
    @playtime_window.y = -8
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @spriteset.dispose
    @message_window.dispose
    @playtime_window.dispose
    if $scene.is_a?(Scene_Title)
      Graphics.transition
      Graphics.freeze
    end
  end
  #--------------------------------------------------------------------------
  # * Обновление кадра
  #--------------------------------------------------------------------------
  def update
    loop do
      $game_map.update
      $game_system.map_interpreter.update
      $game_player.update
      $game_system.update
      $game_screen.update
      unless $game_temp.player_transferring
        break
      end
      transfer_player
      if $game_temp.transition_processing
        break
      end
    end
    @spriteset.update
    @message_window.update
    @playtime_window.update
    if $game_temp.gameover
      $scene = Scene_Gameover.new
      return
    end
    if $game_temp.to_title
      $scene = Scene_Title.new
      return
    end
    if $game_temp.transition_processing
      $game_temp.transition_processing = false
      if $game_temp.transition_name ==   
        Graphics.transition(20)
      else
        Graphics.transition(40,  Graphics/Transitions/  +
          $game_temp.transition_name)
      end
    end
    if $game_temp.message_window_showing
      return
    end
    if $game_player.encounter_count == 0 and $game_map.encounter_list != []
      unless $game_system.map_interpreter.running? or
             $game_system.encounter_disabled
        n = rand($game_map.encounter_list.size)
        troop_id = $game_map.encounter_list[n]
        if $data_troops[troop_id] != nil
          $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 Input.trigger?(Input::B)
      unless $game_system.map_interpreter.running? or
             $game_system.menu_disabled
        $game_temp.menu_calling = true
        $game_temp.menu_beep = true
      end
    end
    if Input.trigger?(Input::ALT)
      if @playtime_window.visible != false
          @playtime_window.visible = false
        else
          @playtime_window.visible = true
      end
    end
    if $DEBUG and Input.press?(Input::F9)
      $game_temp.debug_calling = true
    end
    unless $game_player.moving?
      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