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"
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
60 rs$=chr$(29):rem cursor right
100 print"{grey2}*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"
@ -30,20 +30,28 @@
330 print"*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"
1000 if ft$="0" then 5000
1010 get k$:if k$= "" then 1500
1015 if k$=" " then 2000
1020 if k$="c" then 3000
1030 if k$="g" then 4000
1050 if k$="f" then 5500
1010 if mt$="0" then 6000
1410 get k$:if k$= "" then 1500
1415 if k$=" " then 2000
1420 if k$="c" then 3000
1430 if k$="g" then 4000
1440 if k$="f" then 5500
1450 if k$="m" then 6500
1500 cc=cc+cg
1510 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
1520 goto 1000
2000 cc=cc+1
2010 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
2020 goto 1000
3000 if cc<c1 then 1000
3010 cc=cc-c1
3015 print"{home}"ds$"B{wht} you have ":rem stops from messing up the counter
@ -52,8 +60,12 @@
3040 cc=cc+cg
3050 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
3060 ca=ca+1
3065 print"{home}"ds$ds$
3070 goto 1000
3065 print"{home}"ds$ds$l3$ca
3070 print"{home}"ds$ds$
3075 goto 1000
4000 if cc<c2 then 1000
4010 cc=cc-c2
@ -67,7 +79,7 @@
5000 if cc<500 then 1010
5000 if cc<400 then 1010
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"
5030 print"B {brown}*{blk}*{brown}************{grey2} B{wht}"fa" {grey2}B"
@ -76,14 +88,13 @@
5060 print"B {brown}*****{blk}**{brown}***{grey2} *CCCCCCCCCCC*"
5070 goto 1010
5500 if cc<c3 then 1000
5510 cc=cc-c3
5515 print"{home}"ds$"B{wht} you have ":rem stops from messing up the counter
5520 fa=fa+1
5525 cg=cg+.06
5530 cc=cc+cg
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 cg=cg+.06
5535 cc=cc+cg
5540 print"{home}"ds$"B{wht} you have "int(cc)
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
6000 if cc<500 then 1010
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
6500 if cc<c4 then 1000
6510 cc=cc-c4
6515 print"{home}"ds$"B{wht} you have ":rem stops from messing up the counter
6520 fa=fa+1
6525 cg=cg+.06
6530 cc=cc+cg
6520 ma=ma+1
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 cg=cg+.07
6535 cc=cc+cg
6540 print"{home}"ds$"B{wht} you have "int(cc)
6550 goto 1000