luxferre/nnfc
1
0
Fork 0
Code Actions Activity

Fixed column movement

Browse Source
This commit is contained in:
Luxferre
2024-01-18 11:56:30 +02:00
parent 9ec944946c
commit 4401ed7dde
1 changed files with 15 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
nnfc.awk
+15 -12
View File
@@ -190,22 +190,25 @@ function domove(cmd, isauto, valid, nums, from, to, amt, i, si, ec, efc) {
efc = 0 # reuse for starting index in source tableau efc = 0 # reuse for starting index in source tableau
if(from < 9) efc = tablens[rfrom] - amt if(from < 9) efc = tablens[rfrom] - amt
if(efc > -1) { # check if we aren't moving more cards than allowed if(efc > -1) { # check if we aren't moving more cards than allowed
for(i=0;i<amt;i++) { # move the cards as usual if(from < 9) { # re-read the source value if looping over a column
if(from < 9) { # re-read the source value if looping over a column cval = table[rfrom, efc] # checking the first stack value
cval = table[rfrom, efc+i] if(cval == "") cval = -1 # we try to read more than is available
if(cval == "") break # we try to read more than is available else cval = int(cval)
else cval = int(cval) }
} si = table[rto,tablens[rto]-1] # target value
si = table[rto,tablens[rto]-1] # target value if(cval > -1 && (stackcond(si, cval) || tablens[rto] == 0)) {
if(stackcond(si, cval) || length(si) == 0) { for(i=0;i<amt;i++) { # move the cards directly
table[rto,tablens[rto]] = cval # copy the card there
tablens[rto]++ # increase tableau length
if(from < 9) { # moving from a tableau if(from < 9) { # moving from a tableau
table[rto,tablens[rto]] = table[rfrom,efc+i] # copy the card there
delete table[rfrom,efc+i] # delete the card delete table[rfrom,efc+i] # delete the card
tablens[rfrom]-- # decrease tableau length tablens[rfrom]-- # decrease tableau length
} else fcell[from - 9] = -1 # moving from a free cell } else { # moving from a free cell
table[rto,tablens[rto]] = fcell[from - 9] # copy the card there
fcell[from - 9] = -1
}
tablens[rto]++ # increase tableau length
valid = 1 # mark the move as valid valid = 1 # mark the move as valid
} else break }
} }
} }
} else if(fcell[to - 9] == -1) { # moving to a free cell } else if(fcell[to - 9] == -1) { # moving to a free cell