Padding assets

build.sh

@@ -16,6 +16,7 @@ echo ">> Cleaning"
 rm -rf bin
 mkdir bin
 
+echo "Packing Assets"
 uxnasm etc/tools/packer.tal bin/packer.rom
 
 echo "Create floors"
@@ -25,11 +26,6 @@ cat etc/w.txt | uxncli bin/packer.rom bin/w.rom
 echo "Create steps"
 cat etc/s.txt | uxncli bin/packer.rom bin/s.rom
 
-echo "Create portraits"
-cat etc/p.txt | uxncli bin/packer.rom bin/p.rom
-echo "Create camilare"
-cat etc/a.txt | uxncli bin/packer.rom bin/a.rom
-
 echo "Create characters"
 cat etc/c.txt | uxncli bin/packer.rom bin/c.rom
 echo "Create blockers"
@@ -37,6 +33,11 @@ cat etc/b.txt | uxncli bin/packer.rom bin/b.rom
 echo "Create events"
 cat etc/e.txt | uxncli bin/packer.rom bin/e.rom
 
+echo "Create portraits"
+cat etc/p.txt | uxncli bin/packer.rom bin/p.rom
+echo "Create camilare"
+cat etc/a.txt | uxncli bin/packer.rom bin/a.rom
+
 if [[ "$*" == *"--lint"* ]]
 then
     echo ">> Linting $SRC"
@@ -58,5 +59,10 @@ then
 	$APP $DST $APPID
 fi
 
+echo "Making fat rom"
+
+cat bin/oquonie.rom bin/f.rom bin/w.rom bin/s.rom bin/c.rom bin/b.rom bin/e.rom bin/p.rom bin/a.rom > bin/result.rom
+wc -c bin/result.rom
+
 echo ">> Running $DST"
 $EMU -s 3 $DST $ARG

etc/tools/packer.tal

@@ -72,6 +72,7 @@ BRK
 
 	#2018 DEO #2018 DEO
 	.size LDZ2 pdec ;&total-txt pstr #0a18 DEO
+	#0000 .size LDZ2 SUB2 fpad
 	#010f DEO
 
 BRK
@@ -85,6 +86,18 @@ BRK
 
 BRK
 
+@fpad ( length* -- )
+
+	#0001 .File2/length DEO2
+	#0000
+	&l
+		;&blank .File2/write DEO2
+		INC2 GTH2k ?&l
+	POP2 POP2
+
+JMP2r
+	&blank $1
+
 (
 @|tga )