RPGXP 스크립트

그레고리우스력 원리.

by 협객 posted Jun 22, 2011
?

단축키

Prev이전 문서

Next다음 문서

ESC닫기

크게 작게 위로 아래로 댓글로 가기 인쇄
class Window_달력 < Window_Base
  #--------------------------------------------------------------------------
  # ● 오브젝트 초기화
  #--------------------------------------------------------------------------
  def initialize
    super(0, 0, 160, 96)
    self.contents = Bitmap.new(width - 32, height - 32)
    refresh
  end
    $year = 1502
    $month = 1
    $date = 1
  def 달력
    $date += 1
    if $month == 2 #2월일 경우
      if $year%4==0 #윤년
        if $date >= 30
          $month = 3
          $date = 1
        end
      else
        if $date >= 29
          $month = 3
          $date = 1
        end
      end
    else #2월이 아닌 경우
      if $month < 8 #1, 3, 4,5, 6, 7월
        if $month%2 == 0 #4, 6월
          if $date >= 31
          $month +=1
          $date = 1
          end
        else
          if $date >= 32
          $month +=1
          $date = 1
          end
        end
      else #8, 9, 10, 11, 12월
        if $month%2 == 0 #8, 10, 12월
          if $month == 12
            if $date >=32
            $month = 1
            $date = 1
            end
          else  
            if $date >=32
            $month +=1
            $date = 1
            end
          end
        else
          if $date >=31
          $month +=1
          $date = 1
          end         
        end       
      end
  end
end
 
 
  #--------------------------------------------------------------------------
  # ● 리프레쉬
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    self.contents.font.color = system_color
    self.contents.draw_text(4, 0, 120, 32, "날짜")
    self.contents.font.color = normal_color
    self.contents.draw_text(4, 32, 120, 32, $year.to_s + "년" + $month.to_s + "월" + $date.to_s + "일", 2)
  end
 
  #--------------------------------------------------------------------------
  # ● 프레임 갱신
  #--------------------------------------------------------------------------
  def update
    super
    if Graphics.frame_count / Graphics.frame_rate != @total_sec
      refresh
    end
  end
end