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

use ESC to restart game, update README

This commit is contained in:
~d6 2024-07-28 00:47:43 -04:00
parent c6f9e03cbe
commit 13dab7c80d
3 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
README.md
View File

@ -4,6 +4,13 @@
![screenshot of initial solitaire deal](start.png) ![screenshot of initial solitaire deal](start.png)
## controls
- Use the mouse to move the pointer
- Click to pick up cards; click again to drop them
- Press *Esc* to restart the game
- Press *Return* to print internal game state
## details ## details
Currently *Kodiak* is very limited: Currently *Kodiak* is very limited:

BIN
kodiak.rom
View File

Binary file not shown.

10
kodiak.tal
View File

@ -58,12 +58,15 @@
#0100 .Screen/w DEO2 #0100 .Screen/w DEO2
#00c0 .Screen/h DEO2 #00c0 .Screen/h DEO2
reset BRK
@reset
init-rng-from-datetime init-rng-from-datetime
init-stock init-stock
.waste #18 initialize .waste #18 initialize
.foundation #04 initialize .foundation #04 initialize
.tableau #85 initialize .tableau #85 initialize
.held #0d initialize .held #02 initialize
.dragging #05 initialize .dragging #05 initialize
.prev #06 initialize .prev #06 initialize
@ -79,7 +82,7 @@
draw draw
;on-mouse .Mouse/vect DEO2 ;on-mouse .Mouse/vect DEO2
;on-key .Controller/vect DEO2 ;on-key .Controller/vect DEO2
BRK JMP2r
@dump-byte ( byte^ -- ) @dump-byte ( byte^ -- )
DUP #04 SFT ,&hex JSR #0f AND ,&hex JMP DUP #04 SFT ,&hex JSR #0f AND ,&hex JMP
@ -578,7 +581,8 @@
&start POP !draw-cards ) &start POP !draw-cards )
@on-press ( -> ) @on-press ( -> )
.Controller/key DEI #0d NEQ ?{ dump-state JMP2r } .Controller/key DEI #0d EQU ?dump-state
.Controller/key DEI #1b EQU ?reset
JMP2r JMP2r
( .Controller/button DEI ( button^ ) ( .Controller/button DEI ( button^ )
.prev/button LDZ #ff EOR AND ( press^ ) .prev/button LDZ #ff EOR AND ( press^ )