#
# MSX SC2 RAW exporter
# A Multipaint internal script
#
# NYYRIKKI 2026
#

XREM "Tiles"

FOR Y=0 TO 23
	FOR X=0 TO 31
		FOR V=0 TO 7
			C=128
			A=0
			FOR B=0 TO 7
				P=V*256
				P=P+B
				M=X*8
				P=P+M
				M=Y*2048
				P=P+M
				P=P+1024
				O=PEEK P
				M=C*O
				A=A+M
				C=C/2
			NEXT B

			P=Y*256
			P=P+X
			P=P+65536
			M=V*32
			P=P+M
			H=PEEK P
			P=P+6144
			L=PEEK P
			IF H<L
				A=255-A
			ENDIF
			XBYTE A
		NEXT V
	NEXT X
NEXT Y


XREM "Colors"

FOR Y=0 TO 23
	FOR X=0 TO 31
		FOR V=0 TO 7
			P=Y*256
			P=P+X
			P=P+65536
			M=V*32
			P=P+M
			H=PEEK P
			P=P+6144
			L=PEEK P
			IF H<L
				A=H
				H=L
				L=A
			ENDIF
			M=H*16
			A=M+L

			A=A

			XBYTE A
		NEXT V
	NEXT X
NEXT Y

# Write to file (0x3000 bytes)

RECENT "msx_in_sc2raw.txt"

SAVE

