mirror of
https://github.com/rvtr/Cookie-Clicker-C64.git
synced 2025-10-31 07:41:12 -04:00
added test menu and blocked space repeat
This commit is contained in:
parent
fc37cbe6f8
commit
dafb8520ee
6
.gitignore
vendored
6
.gitignore
vendored
@ -2,8 +2,8 @@
|
||||
.DS_Store
|
||||
build/.DS_Store
|
||||
# Others
|
||||
devmenu.txt
|
||||
build/devmenu.prg
|
||||
build/devmenu.prg.out.prg
|
||||
# testmenu.txt
|
||||
# build/testmenu.prg
|
||||
# build/testmenu.prg.out.prg
|
||||
build/cc64.sav
|
||||
build/cookie.d64
|
||||
|
||||
BIN
build/cookie.prg
BIN
build/cookie.prg
Binary file not shown.
Binary file not shown.
BIN
build/testmenu.prg
Normal file
BIN
build/testmenu.prg
Normal file
Binary file not shown.
BIN
build/testmenu.prg.out.prg
Normal file
BIN
build/testmenu.prg.out.prg
Normal file
Binary file not shown.
10
prg.txt
10
prg.txt
@ -1,5 +1,5 @@
|
||||
0 rem !to "build/cookie.prg"
|
||||
5 poke788,52:poke792,193:poke53280,14:poke53281,6:rem screen color and stop block
|
||||
5 poke788,52:poke792,193:poke53280,14:poke53281,6:poke650,64:rem screen color, stop block and no repeat
|
||||
10 cc=0:cg=0:ca=0:ga=0:fa=0:ma=0:ft$="0":mt$="0":bn$="someone"
|
||||
20 ds$=chr$(17):rem cursor down
|
||||
30 rs$=chr$(29):rem cursor right
|
||||
@ -129,7 +129,7 @@
|
||||
10210 print"B {red}wipe save (w) {grey1}B"
|
||||
10220 print"B{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}B"
|
||||
10230 print"B B"
|
||||
10240 print"B {yel}devmenu (d) {grey1}B"
|
||||
10240 print"B {yel}testmenu (t) {grey1}B"
|
||||
10250 print"B{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}B"
|
||||
10260 print"B B"
|
||||
10270 rem print"B B"
|
||||
@ -147,9 +147,9 @@
|
||||
11230 ifk$="l"then goto 12200
|
||||
11240 ifk$="w"then goto 12300
|
||||
11250 ifk$="e"then goto 13000
|
||||
11260 ifk$="d"then goto 40000
|
||||
11260 ifk$="t"then goto 40000
|
||||
|
||||
12000 print"{down}{wht}please enter a new name (14 characters max):"
|
||||
12000 print"{clear}{down}{wht}please enter a new name (14 characters max):"
|
||||
12010 input nn$
|
||||
12020 nl=len(nn$)
|
||||
12030 if nl<14 then 12045
|
||||
@ -193,7 +193,7 @@
|
||||
40010 print chr$(147);
|
||||
40020 q$=chr$(34)
|
||||
40030 d$=chr$(17)
|
||||
40040 print"load"q$"devmenu"q$",8"
|
||||
40040 print"load"q$"testmenu"q$",8"
|
||||
40050 printd$;d$;d$;d$;"run"
|
||||
40060 rem load keyboard buffer and flush it
|
||||
40070 poke631,19:poke632,13:poke633,13:poke198,3
|
||||
122
testmenu.txt
Normal file
122
testmenu.txt
Normal file
@ -0,0 +1,122 @@
|
||||
0 rem !to "build/testmenu.prg"
|
||||
40000 rem testing menu
|
||||
40010 poke53280,0:poke53281,0:poke646,5
|
||||
40020 print"{clear}logging into console...
|
||||
40025 print"cc64:/>"
|
||||
40030 print"{up}{right}{right}{right}{right}{right}{right}{right} h"
|
||||
40040 print"loading help menu..."
|
||||
40045 print""
|
||||
40050 print" manage saves:"
|
||||
40060 print""
|
||||
40110 print" delete [d]"
|
||||
40120 print" backup [b]"
|
||||
40130 print" restore [r]"
|
||||
40140 print" edit [e]"
|
||||
40150 print""
|
||||
40160 print" others:"
|
||||
40170 print" help [h]"
|
||||
40160 print" exit [t]"
|
||||
40170 print""
|
||||
40180 print"cc64:/>"
|
||||
40500 getk$:ifk$=""then40500
|
||||
40520 ifk$="d"then 41000
|
||||
40530 ifk$="b"then 42000
|
||||
40540 ifk$="r"then 43000
|
||||
40570 ifk$="e"then 44000
|
||||
40580 ifk$="h"then 40030
|
||||
40590 ifk$="t"then 60000
|
||||
40600 goto 40500
|
||||
|
||||
41000 print"{up}{right}{right}{right}{right}{right}{right}{right} d"
|
||||
41005 print"deleting save file..."
|
||||
41010 open 8,8,8,"@0:cc64.sav,s,w"
|
||||
41020 print#8,0
|
||||
41025 print#8,0
|
||||
41030 print#8,0
|
||||
41035 print#8,0
|
||||
41040 print#8,0
|
||||
41050 print#8,0
|
||||
41060 close 8
|
||||
41070 print"done!"
|
||||
41080 goto 40180
|
||||
|
||||
42000 print"{up}{right}{right}{right}{right}{right}{right}{right} b"
|
||||
42005 open 15,8,15
|
||||
42010 print#15,"copy0:cc64.sav=test"
|
||||
42020 close 15:stop
|
||||
|
||||
44000 print"{up}{right}{right}{right}{right}{right}{right}{right} e"
|
||||
44005 print"loading save file..."
|
||||
44010 open 8,8,8,"@0:cc64.sav,s,r"
|
||||
44020 input#8,sa
|
||||
44022 input#8,sb
|
||||
44024 input#8,sc
|
||||
44026 input#8,sd
|
||||
44028 input#8,se
|
||||
44030 input#8,sf
|
||||
44040 close 8
|
||||
44070 print"loading complete"
|
||||
44080 print""
|
||||
44100 print" [1] cookies: "sa
|
||||
44110 print" [2] cookie gain: "sb
|
||||
44120 print" [3] cursor amount: "sc
|
||||
44130 print" [4] grandma amount: "sd
|
||||
44140 print" [5] farm amount: "se
|
||||
44150 print" [6] mine amount: "sf
|
||||
44500 print" [7] exit menu (saves changes)"
|
||||
44510 print""
|
||||
44520 print"please choose an option"
|
||||
44530 print"cc64:/cc64.sav/>"
|
||||
44540 getk$:ifk$=""then44540
|
||||
44550 if k$="1"then 44000
|
||||
44560 if k$="2"then 44100
|
||||
44570 if k$="3"then 44200
|
||||
44580 if k$="4"then 44300
|
||||
44590 if k$="5"then 44400
|
||||
44600 if k$="6"then 44500
|
||||
44610 if k$="7"then 44600
|
||||
44999 goto 43540
|
||||
|
||||
44000 print"please set a value"
|
||||
44010 input sa
|
||||
44020 goto 43080
|
||||
|
||||
44100 print"please set a value"
|
||||
44110 input sb
|
||||
44120 goto 43080
|
||||
|
||||
44200 print"please set a value"
|
||||
44210 input sc
|
||||
44220 goto 43080
|
||||
|
||||
44300 print"please set a value"
|
||||
44310 input sd
|
||||
44320 goto 43080
|
||||
|
||||
44400 print"please set a value"
|
||||
44410 input se
|
||||
44420 goto 43080
|
||||
|
||||
44500 print"please set a value"
|
||||
44510 input sf
|
||||
44520 goto 43080
|
||||
|
||||
44600 print"{up}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right} .."
|
||||
44610 open 8,8,8,"@0:cc64.sav,s,w"
|
||||
44620 print#8,sa
|
||||
44630 print#8,sb
|
||||
44640 print#8,sc
|
||||
44650 print#8,sd
|
||||
44660 print#8,se
|
||||
44670 print#8,sf
|
||||
44680 close 8
|
||||
44690 goto 40180
|
||||
|
||||
60000 print"{clear}"
|
||||
60010 print chr$(147);
|
||||
60020 q$=chr$(34)
|
||||
60030 d$=chr$(17)
|
||||
60040 print"load"q$"cookie"q$",8"
|
||||
60050 printd$;d$;d$;d$;"run"
|
||||
60060 rem load keyboard buffer and flush it
|
||||
60070 poke631,19:poke632,13:poke633,13:poke198,3
|
||||
Loading…
Reference in New Issue
Block a user