Compare commits
No commits in common. "main" and "v3" have entirely different histories.
|
|
@ -18,4 +18,3 @@ wave
|
||||||
*.wav
|
*.wav
|
||||||
*.mp4
|
*.mp4
|
||||||
scratch
|
scratch
|
||||||
.kodiak.dat
|
|
||||||
|
|
|
||||||
BIN
kodiak.rom
BIN
kodiak.rom
Binary file not shown.
118
kodiak.tal
118
kodiak.tal
|
|
@ -33,7 +33,7 @@
|
||||||
( - #6c queen of hearts, face down )
|
( - #6c queen of hearts, face down )
|
||||||
( - #93 three of diamonds, held )
|
( - #93 three of diamonds, held )
|
||||||
|
|
||||||
( zero page - currently using 254 of 256 bytes )
|
( zero page - currently using 232 of 256 bytes )
|
||||||
|0000
|
|0000
|
||||||
@stock $34 ( draw pile - 52 bytes, 24 bytes at start )
|
@stock $34 ( draw pile - 52 bytes, 24 bytes at start )
|
||||||
@waste $18 ( face up pile - 24 bytes )
|
@waste $18 ( face up pile - 24 bytes )
|
||||||
|
|
@ -61,11 +61,8 @@
|
||||||
@audio [ $1 ( is audio enabled? )
|
@audio [ $1 ( is audio enabled? )
|
||||||
&pos $2 ] ( position in music )
|
&pos $2 ] ( position in music )
|
||||||
@easy $1 ( true: draw 1 card false: draw 3 cards )
|
@easy $1 ( true: draw 1 card false: draw 3 cards )
|
||||||
@width $2 ( screen width )
|
@width $2
|
||||||
@height $2 ( screen height )
|
@height $2
|
||||||
@seconds $1 ( when to count time )
|
|
||||||
@tick $1 ( already counted? )
|
|
||||||
( 256 bytes )
|
|
||||||
|
|
||||||
|0100
|
|0100
|
||||||
( metadata )
|
( metadata )
|
||||||
|
|
@ -76,7 +73,6 @@
|
||||||
#8d12 .System/g DEO2
|
#8d12 .System/g DEO2
|
||||||
#4d12 .System/b DEO2
|
#4d12 .System/b DEO2
|
||||||
|
|
||||||
load-scores
|
|
||||||
init-screen
|
init-screen
|
||||||
|
|
||||||
( set up vectors )
|
( set up vectors )
|
||||||
|
|
@ -94,9 +90,6 @@
|
||||||
#0231 #0580 ;triangle #0004 #64 .Audio3 setup-audio
|
#0231 #0580 ;triangle #0004 #64 .Audio3 setup-audio
|
||||||
#011f #00b0 ;noise #0200 #44 .Audio4 setup-audio
|
#011f #00b0 ;noise #0200 #44 .Audio4 setup-audio
|
||||||
|
|
||||||
.DateTime/sec DEI .seconds STZ
|
|
||||||
#00 .tick STZ
|
|
||||||
|
|
||||||
start-audio
|
start-audio
|
||||||
|
|
||||||
( display about window when first starting )
|
( display about window when first starting )
|
||||||
|
|
@ -106,59 +99,12 @@
|
||||||
@metadata 00
|
@metadata 00
|
||||||
( title ) "kodiak 0a
|
( title ) "kodiak 0a
|
||||||
( details ) &details "klondike 20 "solitaire 20 "game 0a
|
( details ) &details "klondike 20 "solitaire 20 "game 0a
|
||||||
( author ) "by 20 "d6 0a
|
( author ) "by 20 "d_m 0a
|
||||||
( version ) "version 20 "4 0a
|
( version ) "version 20 "3 0a
|
||||||
( date ) "03 20 "sep 20 "2024 00
|
( date ) "19 20 "aug 20 "2024 00
|
||||||
01 ( 1 extended field )
|
01 ( 1 extended field )
|
||||||
( icon ) 83 =icon-24
|
( icon ) 83 =icon-24
|
||||||
|
|
||||||
@score-file ".kodiak.dat 00
|
|
||||||
|
|
||||||
@score-data $a
|
|
||||||
|
|
||||||
@save-scores ( -> )
|
|
||||||
LIT2r =score-data
|
|
||||||
LIT2 "ko STH2kr STA2 INC2r INC2r
|
|
||||||
;draw-scores/games LDA2 STH2kr STA2 INC2r INC2r
|
|
||||||
;draw-scores/wins LDA2 STH2kr STA2 INC2r INC2r
|
|
||||||
;draw-scores/time LDA2 STH2kr STA2 INC2r INC2r
|
|
||||||
.easy LDZ #01 AND #00 STH2r STA2
|
|
||||||
|
|
||||||
;score-file .File1/name DEO2
|
|
||||||
#000a .File1/len DEO2
|
|
||||||
;score-data .File1/w DEO2
|
|
||||||
JMP2r
|
|
||||||
|
|
||||||
@load-scores ( -> )
|
|
||||||
;score-file .File1/name DEO2
|
|
||||||
#000a .File1/len DEO2
|
|
||||||
;score-data .File1/r DEO2
|
|
||||||
|
|
||||||
( dat file should be exactly 10 bytes )
|
|
||||||
.File1/ok DEI2 #000a NEQ2 ?&invalid
|
|
||||||
|
|
||||||
( first two bytes must be "ko" )
|
|
||||||
;score-data LDA2 LIT2 "ko NEQ2 ?&invalid
|
|
||||||
|
|
||||||
( next 6 bytes contains 3 shorts )
|
|
||||||
;score-data INC2 INC2
|
|
||||||
LDA2k ;draw-scores/games STA2 INC2 INC2
|
|
||||||
LDA2k ;draw-scores/wins STA2 INC2 INC2
|
|
||||||
LDA2k ;draw-scores/time STA2 INC2 INC2
|
|
||||||
|
|
||||||
( next byte contains easy/hard bit )
|
|
||||||
LDA #01 AND .easy STZ
|
|
||||||
|
|
||||||
( last byte ignored, for now )
|
|
||||||
JMP2r
|
|
||||||
|
|
||||||
&invalid
|
|
||||||
#0000 ;draw-scores/games STA2
|
|
||||||
#0000 ;draw-scores/wins STA2
|
|
||||||
#0000 ;draw-scores/time STA2
|
|
||||||
#00 .easy STZ
|
|
||||||
JMP2r
|
|
||||||
|
|
||||||
@setup-audio ( adsr* sample* slen* dur* vol^ dev^ -> )
|
@setup-audio ( adsr* sample* slen* dur* vol^ dev^ -> )
|
||||||
STHk #0e ORA DEO ( [dev^] ; <-vol )
|
STHk #0e ORA DEO ( [dev^] ; <-vol )
|
||||||
STHkr #0a ORA DEO2 ( [dev^] ; <-slen )
|
STHkr #0a ORA DEO2 ( [dev^] ; <-slen )
|
||||||
|
|
@ -167,13 +113,6 @@
|
||||||
STHr #08 ORA DEO2 ( ; <-adsr )
|
STHr #08 ORA DEO2 ( ; <-adsr )
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
@inc-games ( -> )
|
|
||||||
;draw-scores/games LDA2k INC2 SWP2 STA2 JMP2r
|
|
||||||
|
|
||||||
@restart
|
|
||||||
is-game-won ?{ inc-games save-scores }
|
|
||||||
( >> )
|
|
||||||
|
|
||||||
@reset
|
@reset
|
||||||
init-rng-from-datetime
|
init-rng-from-datetime
|
||||||
init-stock
|
init-stock
|
||||||
|
|
@ -220,7 +159,7 @@
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
@quit ( -> brk )
|
@quit ( -> brk )
|
||||||
is-game-won ?{ inc-games } save-scores #010f DEO BRK
|
#010f DEO BRK ( TODO: save game? save stats? )
|
||||||
|
|
||||||
@dump-byte ( byte^ -- )
|
@dump-byte ( byte^ -- )
|
||||||
DUP #04 SFT /hex #0f AND ( >> )
|
DUP #04 SFT /hex #0f AND ( >> )
|
||||||
|
|
@ -276,7 +215,6 @@
|
||||||
|
|
||||||
@draw ( -> )
|
@draw ( -> )
|
||||||
draw-background
|
draw-background
|
||||||
draw-scores
|
|
||||||
draw-buttons
|
draw-buttons
|
||||||
draw-decorations
|
draw-decorations
|
||||||
draw-stock
|
draw-stock
|
||||||
|
|
@ -439,8 +377,8 @@
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
@line1 "klondike 20 "solitaire 00
|
@line1 "klondike 20 "solitaire 00
|
||||||
@line2 "version 20 "4 20 "by 20 "d6 00
|
@line2 "version 20 "3 20 "by 20 "d_m 00
|
||||||
@line3 "september 20 "3 20 "2024 00
|
@line3 "august 20 "19 20 "2024 00
|
||||||
|
|
||||||
@print-str ( x* y* s* -> )
|
@print-str ( x* y* s* -> )
|
||||||
STH2 .Screen/y DEO2 ( x* [s*] )
|
STH2 .Screen/y DEO2 ( x* [s*] )
|
||||||
|
|
@ -450,18 +388,6 @@
|
||||||
LDAk load-ch #00 .Screen/sprite DEO ( s* )
|
LDAk load-ch #00 .Screen/sprite DEO ( s* )
|
||||||
INC2 !&loop ( s+1* )
|
INC2 !&loop ( s+1* )
|
||||||
|
|
||||||
@print-dec ( x* y* n* -> )
|
|
||||||
#01 ,pr-digit/a STR
|
|
||||||
STH2 .Screen/y DEO2 .Screen/x DEO2
|
|
||||||
#01 .Screen/auto DEO
|
|
||||||
STH2r #2710 pr-digit #03e8 pr-digit #0064 pr-digit #000a pr-digit !pr-digit/emit
|
|
||||||
|
|
||||||
@pr-digit ( n* d* -> n%d* )
|
|
||||||
DIV2k STH2k MUL2 SUB2 STH2r
|
|
||||||
DUP2 #0000 EQU2 LIT [ &a 01 ] AND ?&leading-zero
|
|
||||||
&emit #00 ,&a STR NIP LIT "0 ADD load-ch #00 .Screen/sprite DEO JMP2r
|
|
||||||
&leading-zero POP2 #20 load-ch #00 .Screen/sprite DEO JMP2r
|
|
||||||
|
|
||||||
@load-ch ( c^ -> )
|
@load-ch ( c^ -> )
|
||||||
#00 SWP #30 SFT2 ;font ADD2 .Screen/addr DEO2 JMP2r
|
#00 SWP #30 SFT2 ;font ADD2 .Screen/addr DEO2 JMP2r
|
||||||
|
|
||||||
|
|
@ -504,17 +430,6 @@
|
||||||
.easy LDZ ?&easy ;hard-button JMP2r
|
.easy LDZ ?&easy ;hard-button JMP2r
|
||||||
&easy ;easy-button JMP2r
|
&easy ;easy-button JMP2r
|
||||||
|
|
||||||
@draw-scores ( -> )
|
|
||||||
.width LDZ2 #002c SUB2 #0029 ;text/games print-str
|
|
||||||
.width LDZ2 #002c SUB2 #0032 LIT2 [ &games $2 ] print-dec
|
|
||||||
.width LDZ2 #002c SUB2 #0041 ;text/wins print-str
|
|
||||||
.width LDZ2 #002c SUB2 #004a LIT2 [ &wins $2 ] print-dec
|
|
||||||
.width LDZ2 #002c SUB2 #0059 ;text/time print-str
|
|
||||||
.width LDZ2 #002c SUB2 #0062 LIT2 [ &time $2 ] print-dec
|
|
||||||
JMP2r
|
|
||||||
|
|
||||||
@text [ &n "12345 00 &games "games 00 &wins 20 "wins 00 &time 20 "time 00 ]
|
|
||||||
|
|
||||||
@draw-buttons ( -> )
|
@draw-buttons ( -> )
|
||||||
.height LDZ2 #000c SUB2
|
.height LDZ2 #000c SUB2
|
||||||
#0008 OVR2 restart-button-addr draw-button
|
#0008 OVR2 restart-button-addr draw-button
|
||||||
|
|
@ -761,14 +676,7 @@
|
||||||
@on-audio ( -> brk )
|
@on-audio ( -> brk )
|
||||||
.audio LDZ ?{ BRK } play-audio BRK
|
.audio LDZ ?{ BRK } play-audio BRK
|
||||||
|
|
||||||
@update-time ( -> )
|
|
||||||
.DateTime/sec DEI .seconds LDZ EQU STHk
|
|
||||||
.tick LDZ AND ?{ STHr #00 EQU .tick STZ JMP2r }
|
|
||||||
;draw-scores/time LDA2k INC2 SWP2 STA2
|
|
||||||
#00 .tick STZ !draw
|
|
||||||
|
|
||||||
@on-refresh ( -> brk )
|
@on-refresh ( -> brk )
|
||||||
update-time
|
|
||||||
#00 .move/card LDZ EQU ?{ update-move }
|
#00 .move/card LDZ EQU ?{ update-move }
|
||||||
on-refresh-bear ( ; possibly refresh bear )
|
on-refresh-bear ( ; possibly refresh bear )
|
||||||
.frame LDZk INC SWP STZ ( ; increment frame counter )
|
.frame LDZk INC SWP STZ ( ; increment frame counter )
|
||||||
|
|
@ -1132,16 +1040,14 @@
|
||||||
DUP2 #00a8 LTH2 ?&no
|
DUP2 #00a8 LTH2 ?&no
|
||||||
DUP2 #00c8 LTH2 ?&difficulty
|
DUP2 #00c8 LTH2 ?&difficulty
|
||||||
&no POP2 #00 JMP2r
|
&no POP2 #00 JMP2r
|
||||||
&restart POP2 restart #01 JMP2r
|
&restart POP2 reset #01 JMP2r
|
||||||
&quit POP2 quit #01 JMP2r
|
&quit POP2 quit #01 JMP2r
|
||||||
&audio POP2 toggle-audio #01 JMP2r
|
&audio POP2 toggle-audio #01 JMP2r
|
||||||
&about POP2 open-about #01 JMP2r
|
&about POP2 open-about #01 JMP2r
|
||||||
&difficulty POP2 toggle-difficulty #01 JMP2r
|
&difficulty POP2 toggle-difficulty #01 JMP2r
|
||||||
|
|
||||||
@on-game-win ( -> )
|
@on-game-win ( -> )
|
||||||
;draw-scores/games LDA2k INC2 SWP2 STA2
|
!draw-buttons
|
||||||
;draw-scores/wins LDA2k INC2 SWP2 STA2
|
|
||||||
save-scores !draw-buttons
|
|
||||||
|
|
||||||
@is-game-won ( -> bool^ )
|
@is-game-won ( -> bool^ )
|
||||||
.foundation #04 OVR ADD SWP ( lim^ start^ )
|
.foundation #04 OVR ADD SWP ( lim^ start^ )
|
||||||
|
|
@ -1245,7 +1151,7 @@
|
||||||
|
|
||||||
@on-press ( -> )
|
@on-press ( -> )
|
||||||
.Controller/key DEI #0d EQU ?dump-state ( ; 0x0d: return )
|
.Controller/key DEI #0d EQU ?dump-state ( ; 0x0d: return )
|
||||||
.Controller/key DEI #1b EQU ?restart ( ; 0x1b: esc )
|
.Controller/key DEI #1b EQU ?reset ( ; 0x1b: esc )
|
||||||
.Controller/key DEI #20 EQU ?auto-move ( ; 0x20: space )
|
.Controller/key DEI #20 EQU ?auto-move ( ; 0x20: space )
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue