타일 지도 그리기

tile-map.bas

원래 파일

LAN/QB/DE.BAS

날짜

1993-05-30

크기

487바이트, 15줄

저장 형식

CP949 텍스트를 UTF-8로 바꿈

내려받기

tile-map.bas (UTF-8)

설명

MAP 텍스트 파일을 15줄 읽어 글자가 1인 칸마다 20×20 그림을 PUT합니다.
그림은 DATA에 적은 GET 배열입니다.
격자 스프라이트 편집기로 만든 20×20 그림을 이렇게 썼습니다.
게임 화면의 벽을 그려 보던 시험으로 보입니다.

소스

SCREEN 3CLSDIM E$(20, 20)DIM A%(32)FOR I = 0 TO 32READ A%(I)NEXT IOPEN "MAP" FOR INPUT AS #1FOR I = 1 TO 15LINE INPUT #1, LI$FOR J = 1 TO 20E$ = MID$(LI$, J, 1)IF E$ = "1" THEN PUT (J * 20, I * 20), A%NEXT J, IDATA 20 , 20 ,-193 , 32736 ,-3841 , 9321 , 29360 , 12361 ,-28060 , 26992 ,-20444 , 18802 , 25648 , 28818 , 9321 , 29360 , 12361 ,-28060 , 26992 ,-20444 , 18802 , 25648 , 28818 , 9321 , 29360 , 12361 ,-28060 , 32624 ,-3841 ,-193 , 224 , 0 , 0