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 } + POP2 BRK @on-control ( -> ) ( | mod ) @@ -182,6 +183,11 @@ @ ( -- ) JMP2r +@ ( x* -- ) + + #0a19 DEO + JMP2r + ( @|events ) @@ -327,7 +333,8 @@ JMP2r @ ( -- ) - ;dict/pause-cmd ! + [ LIT2 02 -paused ] LDZ ORA .paused STZ + ;dict/pause-cmd ! @ ( 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 2dd7279..be11311 100644 Binary files a/gui/m291/ss10x10.chr and b/gui/m291/ss10x10.chr differ