Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- generate_map: MACRO
- MAP_ID_NAME equs STRCAT("MAP_ID_", STRUPR("\1"))
- SECTION "\1 map blocks", ROMX[$4000],BANK[MAP_ID_NAME]
- \1MapChunks:
- PURGE MAP_ID_NAME
- MAP_FOLDER_PATH equs STRCAT(STRCAT("chunks/", STRLWR("\1")), "/chunk")
- ROW_ID = 0
- REPT 64
- CHUNK_ID = 0
- REPT 128
- COORDS equs STRCAT(STRCAT(STRSUB("{ROW_ID}", 2, STRLEN("{ROW_ID}") - 1), "x"), STRSUB("{CHUNK_ID}", 2, STRLEN("{CHUNK_ID}")))
- PUSHS
- INCLUDE "{MAP_FOLDER_PATH}{COORDS}.blk"
- POPS
- IF DEF(CHUNK_NAME)
- db HIGH(CHUNK_NAME), BANK(CHUNK_NAME)
- PURGE CHUNK_NAME
- ELSE
- ; Empty chunk
- dw 0
- ENDC
- PURGE COORDS
- CHUNK_ID = CHUNK_ID + 1
- ENDR
- PURGE CHUNK_ID
- ENDR
- PURGE ROW_ID
- PURGE MAP_FOLDER_PATH
- ENDM
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement