rvtr/Cookie-Clicker-C64
1
Fork 0
mirror of https://github.com/rvtr/Cookie-Clicker-C64.git synced 2025-10-31 07:41:12 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

added mines and fixed counters

Browse Source
This commit is contained in:
Myles Skinner 2020-08-11 13:59:05 -04:00
parent 4bfce2b3c0
commit 40e4dbe886
3 changed files with 38 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
build/cookie.prg
View File

Binary file not shown.

BIN
build/cookie.prg.out.prg
View File

Binary file not shown.

68
prg.txt
View File

@ -1,6 +1,6 @@
0 rem !to "build/cookie.prg" 0 rem !to "build/cookie.prg"
10 cc=0:cg=0:ca=0:ga=0:ft$="0":mt$="0" 10 cc=0:cg=0:ca=0:ga=0:ft$="0":mt$="0"
20 c1=15:c2=100:c3=1100 20 c1=15:c2=100:c3=1100:c4=12000
50 ds$=chr$(17):rem cursor down 50 ds$=chr$(17):rem cursor down
60 rs$=chr$(29):rem cursor right 60 rs$=chr$(29):rem cursor right
100 print"{grey2}*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*" 100 print"{grey2}*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"
@ -30,20 +30,28 @@
330 print"*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*" 330 print"*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"
1000 if ft$="0" then 5000 1000 if ft$="0" then 5000
1010 get k$:if k$= "" then 1500 1010 if mt$="0" then 6000
1015 if k$=" " then 2000 1410 get k$:if k$= "" then 1500
1020 if k$="c" then 3000 1415 if k$=" " then 2000
1030 if k$="g" then 4000 1420 if k$="c" then 3000
1050 if k$="f" then 5500 1430 if k$="g" then 4000
1440 if k$="f" then 5500
1450 if k$="m" then 6500
1500 cc=cc+cg 1500 cc=cc+cg
1510 print"{home}"ds$"{grey2}B{wht} you have "int(cc) 1510 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
1520 goto 1000 1520 goto 1000
2000 cc=cc+1 2000 cc=cc+1
2010 print"{home}"ds$"{grey2}B{wht} you have "int(cc) 2010 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
2020 goto 1000 2020 goto 1000
3000 if cc<c1 then 1000 3000 if cc<c1 then 1000
3010 cc=cc-c1 3010 cc=cc-c1
3015 print"{home}"ds$"B{wht} you have ":rem stops from messing up the counter 3015 print"{home}"ds$"B{wht} you have ":rem stops from messing up the counter
@ -52,8 +60,12 @@
3040 cc=cc+cg 3040 cc=cc+cg
3050 print"{home}"ds$"{grey2}B{wht} you have "int(cc) 3050 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
3060 ca=ca+1 3060 ca=ca+1
3065 print"{home}"ds$ds$ 3065 print"{home}"ds$ds$l3$ca
3070 goto 1000 3070 print"{home}"ds$ds$
3075 goto 1000
4000 if cc<c2 then 1000 4000 if cc<c2 then 1000
4010 cc=cc-c2 4010 cc=cc-c2
@ -67,7 +79,7 @@
5000 if cc<500 then 1010 5000 if cc<400 then 1010
5010 ft$="1" 5010 ft$="1"
5020 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}B {brown}**************{grey2} B{wht}farm(f) {grey2}B" 5020 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}B {brown}**************{grey2} B{wht}farm(f) {grey2}B"
5030 print"B {brown}*{blk}*{brown}************{grey2} B{wht}"fa" {grey2}B" 5030 print"B {brown}*{blk}*{brown}************{grey2} B{wht}"fa" {grey2}B"
@ -76,14 +88,13 @@
5060 print"B {brown}*****{blk}**{brown}***{grey2} *CCCCCCCCCCC*" 5060 print"B {brown}*****{blk}**{brown}***{grey2} *CCCCCCCCCCC*"
5070 goto 1010 5070 goto 1010
5500 if cc<c3 then 1000 5500 if cc<c3 then 1000
5510 cc=cc-c3 5510 cc=cc-c3
5515 print"{home}"ds$"B{wht} you have ":rem stops from messing up the counter 5515 print"{home}"ds$"B{wht} you have ":rem stops from messing up the counter
5520 fa=fa+1 5520 fa=fa+1
5525 cg=cg+.06 5525 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}B {brown}*{blk}*{brown}************{grey2} B{wht}"fa
5530 cc=cc+cg 5530 cg=cg+.06
5535 cc=cc+cg
5540 print"{home}"ds$"B{wht} you have "int(cc) 5540 print"{home}"ds$"B{wht} you have "int(cc)
5550 goto 1000 5550 goto 1000
@ -94,25 +105,22 @@
6000 if cc<6000 then 1410
6010 mt$="1"
6020 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}B {brown}********{grey2} B{wht}mine(m) {grey2}B"
6030 print"B B{wht}"ma" {grey2}B"
6040 print"B B{wht}cost: {grey2}B"
6050 print"B B{wht}"c4" {grey2}B"
6060 print"B *CCCCCCCCCCC*"
6070 goto 1410
6500 if cc<c4 then 1000
6000 if cc<500 then 1010 6510 cc=cc-c4
6010 ft$="1"
6020 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}B * * B{wht}farm(f) {grey2}B"
6030 print"B {brown}**************{grey2} B"fa" {grey2}B"
6040 print"B ** * B{wht}cost: {grey2}B"
6050 print"B * ** * B{wht}"c3" {grey2}B"
6060 print"B * ** * *CCCCCCCCCCC*"
6070 goto 1010
6500 if cc<c3 then 1000
6510 cc=cc-c3
6515 print"{home}"ds$"B{wht} you have ":rem stops from messing up the counter 6515 print"{home}"ds$"B{wht} you have ":rem stops from messing up the counter
6520 fa=fa+1 6520 ma=ma+1
6525 cg=cg+.06 6525 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}B B{wht}"ma
6530 cc=cc+cg 6530 cg=cg+.07
6535 cc=cc+cg
6540 print"{home}"ds$"B{wht} you have "int(cc) 6540 print"{home}"ds$"B{wht} you have "int(cc)
6550 goto 1000 6550 goto 1000