shithub: sce

Info  •  Files  •  Log

genspr: add tscglow, sprite with alpha channel, to extraction scripts

--- a/utils/genspr

+++ b/utils/genspr

@@ -18,13 +18,31 @@

 		for(n in `{awk 'BEGIN{s='^$rng($i)^'*17; for(i=s; i<s+17; i+=32/'^$2^') printf "%03d\n", i;}'})

 			sceass $1^.grp.^00^$n^.bit $1 $id($i) `{echo $n | awk '{printf "%02d", ($1%17) / (32/'^$2^')}'} $3 $4

 		for(n in (`{seq 1 8} s))

-			scerot $1^$n^.^$id($i) $2

+			scerot $1^$n^.^$id($i) $2 r8g8b8

 	}

 }

+fn asprite{

+	n=`{echo '(' $#* - 4 ')' / 2 | pc -n}

+	s1=`{echo 5 + $n - 1 | pc -n}

+	s2=`{echo $s1 + 1 | pc -n}

+	rng=$*(5-$s1)

+	id=$*($s2-)

+	for(i in `{seq 1 $#id}){

+		for(n in `{awk 'BEGIN{s='^$rng($i)^'*17; for(i=s; i<s+17; i+=32/'^$2^') printf "%03d\n", i;}'}){

+			crop -t $3 $4 $1^.grp.^00^$n^.bit >a

+			mv a $1^.^$id($i)^.^`{echo $n | awk '{printf "%02d", ($1%17) / (32/'^$2^')}'}^.bit

+		}

+		scerot $1^.^$id($i) $2 r8g8b8a8

+	}

+}

+

 # individual units

 unit drone 32 -48 -47 (0 1 2 3 4) (00 01 02 03 04)

 unit scv 32 -26 -14 0 00

+

+# sprites with transparency

+asprite tscglow 32 -26 -14 (0 1 2 3) (00 01 02 03)

 # hatchery

 sceass -s hatchery.grp.00000.bit hatchery 00 00 -32 -30

--- a/utils/scefix

+++ b/utils/scefix

@@ -66,6 +66,11 @@

 	rm /tmp/a.bit

 }

+fn clean{

+	for(rot in 01 03 05 07 09 11 13 15 18 20 22 24 26 28 30)

+		rm $1^.??.^$rot^.bit

+}

+

 cat <<! >/env/fuckrc

 !r /tmp/a.bit a

 r = a

@@ -88,6 +93,7 @@

 gen32 scv 00

 gen32 drone 00 01 02 03 04

+clean tscglow

 gen1 control 00

 gen1 hatchery 00 01 02 03

 terrain badlands

--- a/utils/scerot

+++ b/utils/scerot

@@ -1,6 +1,6 @@

 #!/bin/rc -e

-if(! ~ $#* 2){

-	echo usage: sceass radix nrot

+if(! ~ $#* 3){

+	echo usage: sceass radix nrot chan

 	exit usage

 }

 id=`{awk 'BEGIN{for(i=1; i<='^$2^'/2-1; i++) printf "%02d\n", i}'}

@@ -14,5 +14,5 @@

 for(i in $n){

 	t=`{read -c 46 $1^.^$id($i)^.bit | awk '{print $2, $3}'}

 	f=$1^.^$rev($i)^.bit

-	iconv -c r8g8b8 $f | crop -t $t > a && mv a $f

+	iconv -c $3 $f | crop -t $t > a && mv a $f

 }