[THDO]판화 세계지도제작 스크립트.

#THDO 자체 제작. 세계지도 그리기 스크립트.
#우선 세계지도 그림을 준비한다. 가로 5등분한 지도.
# 5 * 2 지도 = 10개의 맵 파일을 형성하도록 한다.
#그림 파일은 5개. 가로 200픽셀,세로 420~450 픽셀가량이 적합하다.
#결론적으로 가로 200픽셀, 세로 250픽셀로 잘릴 지도다.
#200*250 타일을 뜻한다.

def draw_세계지도윗맵
        @all_map = Sprite.new
        @all_map.bitmap = Bitmap.new("Graphics/Pictures/world055")
                #지도 파일을 불러온다
#                      p @overlap
# 약 23칸으로 맞아 떨어진다. 지도크기는 885 픽셀이다.
    for m in 1..5
            @this_map = load_data("Data/Map010.rxdata")
                      @overlap = (1000 - @all_map.bitmap.width)/5
        for y in 0...250
          #문제는 너비다. 5등분을 한 경우 겹치는 건 23 * 5 = 115칸.
          #수학적인 규칙을 찾아내자.
          #[1, 200), [201-overlap, 400-overlap), [401-2overlap, 600-2overlap)....
          for x in (m-1) * (200 - @overlap)...200 + (m-1) * (200 - @overlap)
            #2번째: 200-23..199 + 200-23
            #3번째: 199 + 400 - 46 = 599 - 46 = 553
            #4번째: 199 + 600 - 3overlap = 800 - 69 = 731.
            #5번째: 199 + 800 - 4overlap = 1000 - 92 = 908.
            #계산이 맞지 않는다.
            @tile_num = @all_map.bitmap.get_pixel(x,y)
            if (@tile_num.red <255 or @tile_num.green <255) and @tile_num.blue > 0
              #검은선과 흰색을 칠하지 않고 파란색만 칠하는 방법이 없을까?
              #파랑이 5보다 커야 하기 때문에 검은색은 칠해지지 않음
              #빨강, 초록이 255보다 작아야 하기 때문에 흰색은 칠해지지 않음
            #타일 아이디의 3차원 배열
            @this_map.data[x - (m-1) * (200 - @overlap),y,0] = 96
              if @tile_num.blue <= 100 and (@tile_num.red <=150 or @tile_num.green <=150)
                @this_map.data[x - (m-1) * (200 - @overlap),y,0] = 48 #검은선은 얕은 물로 장식.
              end
            end
            #타일 아이디를 변환한다.
          end
        end
    #맵을 저장한다.
        save_data(@this_map, "Data/Map00#{m}.rxdata")
      #위의 경우 1번에서 5번 지도까지다.
end
end

def draw_세계지도아랫맵
        @all_map = Sprite.new
        @all_map.bitmap = Bitmap.new("Graphics/Pictures/world055")
                #지도 파일을 불러온다
#                      p @overlap
# 약 23칸으로 맞아 떨어진다. 지도크기는 885 픽셀이다.
    for m in 1..5
            @this_map = load_data("Data/Map010.rxdata")
                      @overlap = (1000 - @all_map.bitmap.width)/5
        for y in @all_map.bitmap.height - 250...@all_map.bitmap.height
          for x in (m-1) * (200 - @overlap)...200 + (m-1) * (200 - @overlap)
            @tile_num = @all_map.bitmap.get_pixel(x,y)
            if (@tile_num.red <255 or @tile_num.green <255) and @tile_num.blue > 0
            #타일 아이디의 3차원 배열
            @this_map.data[x - (m-1) * (200 - @overlap),y - (@all_map.bitmap.height - 250),0] = 96
              if @tile_num.blue <= 100 and (@tile_num.red <=150 or @tile_num.green <=150)
            @this_map.data[x - (m-1) * (200 - @overlap),y - (@all_map.bitmap.height - 250),0] = 48
#검은 선은 얕은 물로 장식.
              end

            end
            #타일 아이디를 변환한다.
          end
        end
        save_data(@this_map, "Data/Map00#{m+5}.rxdata")
      end
end

              #아래 경우 6번에서 10번 지도까지다.

def draw_지도지우기
    for m in 1..5
        @this_map = load_data("Data/Map010.rxdata") #주의. 백지가 물이 아니게 할 것.
#        p @this_map.data[0,0,0]
#        exit
        save_data(@this_map, "Data/Map00#{m}.rxdata")
        save_data(@this_map, "Data/Map00#{m+5}.rxdata")
      end
      print "지도를 지웁니다"
end

#draw_지도지우기
#draw_세계지도윗맵
draw_세계지도아랫맵
#exit

#세계지도가 다 그려졌으면 나간다.
#Data 폴더에서 Maps001~ Maps005 파일명을 Map001~Map005로 바꿔서 덮어 씌운다.