all repos — soulgrind @ de0699d9358a09fcaa2947c5e13368fa486cbc74

arcade-style rollerblading game in uxntal with xrxs multiplayer 

add titlescreen sprite and set theme
Iris Lightshard nilix@nilfm.cc
PGP Signature 
-----BEGIN PGP SIGNATURE-----

iQIzBAABCAAdFiEEkFh6dA+k/6CXFXU4O3+8IhROY5gFAmIDXA4ACgkQO3+8IhRO
Y5gxTw//dDaU+oEXfXvOEZb5Kkm4usxRLSGDcW2i09itG/Bi5wNV7z3BwqhecXhE
B15mHK2vHzoFREe1fMuWxRuzVphlj/FxhFzZz56GcGsHaxowUWxeVQfu8twxRSXV
MzR9gQAWNbiwHQTrHYF5PTmPZNzSAAOCg7/0TFvtJL8pt5gNe3Trzxz/bWfTsrDm
VA1FUWL1SBWCP11/3Bh/+annK6kuljIhMVeEP0JmkJdsUHdEsb09oaMpu3M74mu1
C6TtV65dqARhwGY8VHASoSOxDep2QrWjX9Ao+tEnJCn+YLmU/i9T6BE9uzeF1rtP
xbiqILyeeAlVrnCpaEm5UTbAWR2I+y9oEu/Qwm89XC1uKPRCaPrl4Whx4tb1FOnU
E52iMBYTIvGi+ZqCvgbxrkvhOWRCzRU5NiDO/0d5OJP6nA7yDtBJLQc/7h5Buqgy
VxOYTLvdi2GzI0gwAbjzRqy/pyAp6UzWAxanPoqAORynvjE8MrA5f91VywzuN6nO
Due1bP/5/QwbKNhdpJ5Me0tnKCknvKibwCZZ/ag/XJ8yey9F8GBRRQgPKdaDSBq8
OgyDPv/9OobMR6Q+D8S0QcHIBorWCxg8VS0glf1PC9s++qi4v/AHTw9+AW4GkqGr
kYjjBy7hTlt748vtd46WdVeYoZ3xm3idfS3IlcJl7nyoW+9/etY=
=UtCu
-----END PGP SIGNATURE-----
commit

de0699d9358a09fcaa2947c5e13368fa486cbc74

parent

1d8a845c1faa3d1581319ecdb7e843dcf00359a9

3 files changed, 30 insertions(+), 4 deletions(-)

jump to
M soulgrind.tal → soulgrind.tal 
@@ -17,6 +17,8 @@ 
 %INC-X { .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2 } ( -- )
 %INC-Y { .Screen/y DEI2 #0008 ADD2 .Screen/y DEO2 }
 
+%NEXT-TILE { DUP2 #0010 ADD2 }
+
 %RTN { JMP2r }
 
 ( devices )

@@ -80,9 +82,9 @@ 
 |0100 ( -> )
 
 	( theme ) 
-	#0fe5 .System/r DEO2 
-	#0fc5 .System/g DEO2 
-	#0f25 .System/b DEO2
+	#7459 .System/r DEO2 
+	#a4cd .System/g DEO2 
+	#84aa .System/b DEO2
 
   #0200 .Screen/width DEO2
   #0110 .Screen/height DEO2

@@ -101,6 +103,11 @@ 
   #00 .state STZ
   #00 .ticker STZ
 
+  ;file-chr-title .File/name DEO2
+  #bc00 .File/length DEO2
+
+  ;titlescreen .File/read DEO2
+
   ;main-loop .Screen/vector DEO2
 
 BRK

@@ -127,6 +134,21 @@ 
 @press-start-screen ( -> )
 
   ( display title spritemap )
+  
+  .center/x LDZ2 #0078 #01 SFT2 SUB2 .Screen/x DEO2
+  .center/y LDZ2 #0060 #01 SFT2 SUB2 .Screen/y DEO2
+
+  #bc00 #0000 &while EQU2k ,&end JCN
+    DUP2 ;titlescreen ADD2 .Screen/addr DEO2
+    #81 .Screen/sprite DEO INC-X
+    
+    NEXT-TILE #00f0 AND2 #0000 NEQ2 ,&no-inc-y JCN
+      .center/x LDZ2 #0078 #01 SFT2 SUB2 .Screen/x DEO2
+      INC-Y
+    &no-inc-y
+  #0010 ADD2 ,&while JMP &end POP2 POP2
+
+  
   ( flash "press start" )
   .ticker LDZ INC
   DUP .ticker STZ

@@ -136,7 +158,7 @@ ( draw text )
     [ ;txt-press-start
       .center/x LDZ2 OVR2 ;strlen JSR2 #20 SFT2 SUB2
       .Screen/height DEI2 #0010 SUB2
-      #02 ] ;draw-string JSR2
+      #01 ] ;draw-string JSR2
   &flash-text
   #40 GTH ,&reset-ticker JCN
     RTN

@@ -247,3 +269,7 @@ 00 20 78 20 20 24 38 00 00 00 44 44 44 44 3c 00    00 00 44 44 28 28 10 00 00 00 44 44 54 7c 28 00
   00 00 44 28 10 28 44 00 00 00 44 44 3c 04 78 00    00 00 7c 04 38 40 7c 00 00 1e 10 10 10 00 00 00 
   00 10 10 10 10 10 10 00 00 00 00 08 08 08 78 00    00 00 00 32 4c 00 00 00 3c 42 99 a1 a1 99 42 3c 
 ]
+
+@file-chr-title "title.chr 00
+
+@titlescreen