d6
/
kodiak
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 4 Wiki Activity

skip invalid grabs

This commit is contained in:
~d6 2024-07-17 10:38:16 -04:00
parent 20ea46db9a
commit e879f67e75
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
kodiak.tal
View File

@ -384,10 +384,13 @@
LTH2 ?&match ( i^ top^ row^ [n*] )
POP2r POP2 &no POP #00 JMP2r ( 0^ )
&match ( i^ top^ row^ [n*] )
LDZk #40 AND ?&cancel ( i^ top^ row^ [n*] )
STH2 SWP2r column-x ( x* [top^ row^ n*] )
STH2r #0008 MUL2 #001c ADD2 ( x* y=28+8n* [top^ row^] )
STH2r SWP ( x* y* row^ top^ )
start-drag draw #01 JMP2r ( 1^ )
&cancel ( i^ top^ row^ [n*] )
POP2 POP POP2r #00 JMP2r ( 0^ )
( @on-click-up ( -> )