메뉴 건너뛰기

창조도시 기록보관소

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

2007.06.25 18:36

협객 조회 수:1668 추천:3









#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로 바꿔서 덮어 씌운다.

번호 제목 글쓴이 날짜 조회 수
33 넷플레이 스크립트 2.0 사용법 [3] 독도2005 2009.05.03 1453
32 게임을 시작한다음 튕기게 해보자(?) [5] file 켈군 2009.02.04 1224
31 [RPG XP]스크립트를 이용한 SRPG 이동범위 산출 및 범위 보여주기 [4] file 신덴 2008.11.19 1565
30 RPG_xp업그레이드 팩키지 [3] 星の카비 2007.12.16 1764
29 간단팁) XP에서 1초는 몇프레임인가? [4] 유진 2007.08.08 993
28 게임의 리얼리티화 [3] 유진 2007.08.05 1248
» [THDO]판화 세계지도제작 스크립트. [7] file 협객 2007.06.25 1668
26 [스크립트 문제]RPGXP에서 타일셋의 우선순위 문제 해결 [1] file Novelist 2007.06.19 809
25 RPGXP의 기본전투 속도를 더욱 빠르게~ [9] Novelist 2007.06.08 1139
24 [구기술체험소] Fast Chatting System [2] file 비밀소년 2007.04.30 678
23 [구기술체험소] Fast Animation System [2] file 비밀소년 2007.04.30 763
22 렉없는 자동세이브 스크립트!!! [5] 귀찮아‡ 2007.04.19 755
21 마우스 이동 스크립트 [12] 아크로s 2007.04.08 1420
20 [공개자료] 먼치킨 액알 만들기 [11] 책벌레공상가 2007.03.26 1598
19 BGM, ME 소리가 안들렸다?[대책을 알아낸.............!!!] smofdz 2007.03.25 630
18 1. 변수 응용 프로그램 만들기 [4] 천영진 2007.02.21 589
17 1 - 1. 변수 응용 프로그램 만들기 (난수) [3] 천영진 2007.02.21 491
16 원형 거리 측정(세 줄 스크립트) [2] 타이머 2007.01.30 688
15 오직 RPGXP만 재생하지 못하는 MIDI파일 [5] Les Paul 2007.01.22 888
14 에에... 할일 없어서 해봤습니다... 카노 방식 이벤트 액알예제.... [2] かの☆あおき 2007.01.18 837