From be16c24966a1afa146dda9ff57cb1c55589b4191 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Mon, 26 Aug 2024 12:50:28 -0700
Subject: [PATCH] (m291) Improved feedback for play button

---
 gui/m291/src/assets.tal |   4 ++++
 gui/m291/src/m291.tal   |  14 ++++++++++----
 gui/m291/ss10x10.chr    | Bin 4096 -> 4096 bytes
 3 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/gui/m291/src/assets.tal b/gui/m291/src/assets.tal
index 31ac084..05eba71 100644
--- a/gui/m291/src/assets.tal
+++ b/gui/m291/src/assets.tal
@@ -35,6 +35,10 @@
 	0000 001e 1e1e 1e1e 0000 0078 7878 7878
 	1e1e 1e1e 1e00 0000 7878 7878 7800 0000 ]
 
+@play-wait-icn [
+	0000 000c 0b08 0808 0000 0000 00c0 300c
+	0808 080b 0c00 0000 0c30 c000 0000 0000 ]
+
 @next-icn [
 	0000 0018 1c1e 1f1f 0000 0018 1818 1898
 	1f1f 1e1c 1800 0000 9818 1818 1800 0000 ]
diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 26c4b1c..0c570ed 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -110,7 +110,8 @@
 	BRK
 
 	&seeker ( -> )
-	BRK
+	.Mouse/x DEI2 #0008 SUB2 DUP2 #00e7 GTH2 ?{ DUP2 <seek> }
+	POP2 BRK
 
 @on-control ( -> )
 	( | mod )
@@ -182,6 +183,11 @@
 @<skip-next> ( -- )
 	JMP2r
 
+@<seek> ( x* -- )
+	<phex>
+	#0a19 DEO
+	JMP2r
+
 (
 @|events )
 
@@ -327,7 +333,8 @@
 	JMP2r
 
 @<send-pause> ( -- )
-	;dict/pause-cmd !<pstr>
+	[ LIT2 02 -paused ] LDZ ORA .paused STZ
+	;dict/pause-cmd <pstr> !<draw-play>
 
 @<enter> ( folder* -- )
 	.selection/mod LDZ ?&special
@@ -468,8 +475,7 @@
 	[ LIT2 16 -Screen/auto ] DEO
 	#0078 .Screen/x DEO2
 	#005c .Screen/y DEO2
-	;play-icn ;pause-icn .paused LDZ ?{ SWP2 }
-	POP2 .Screen/addr DEO2
+	;play-icn #00 .paused LDZ #50 SFT2 ADD2 .Screen/addr DEO2
 	[ LIT2 01 -Screen/sprite ] DEOk DEO
 	JMP2r
 
diff --git a/gui/m291/ss10x10.chr b/gui/m291/ss10x10.chr
index 2dd7279895c56a54b96cadf80e3415fc6b8d4e0a..be113118081af2f193c0057220023fb02fd4cd76 100644
GIT binary patch
delta 86
zcmZorXi(UY%r!ZgM?sW_n}dUc0T~=H;F&lvV-k15<OE&?VW2EG50W&G!GXz+jD?d~
Vc;Y86P?+4za~DW$Zs2WT0sy4?5>NmD

delta 39
ucmZorXi(UY%r!ZHaqcAU1R%9!G7C@q<YX>|$;~`>Cns<#Y;NFfU;+RSvkhec