mirror of
https://github.com/rvtr/Cookie-Clicker-C64.git
synced 2025-10-31 07:41:12 -04:00
154 lines
4.5 KiB
Plaintext
154 lines
4.5 KiB
Plaintext
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:c4=12000
|
|
50 ds$=chr$(17):rem cursor down
|
|
60 rs$=chr$(29):rem cursor right
|
|
100 print"{grey2}*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"
|
|
110 print"{grey2}B{wht} you have "int(cc)" {grey2}B{wht}cursor(c) {grey2}B"
|
|
115 l3$="{grey2}B{wht} cookies {grey2}B{wht}"
|
|
120 printl3$ca" {grey2}B"
|
|
130 print"*CCCCCCCCCCCCCCCCCCCCCCCCC*{wht}cost: {grey2}B"
|
|
140 print"B B{wht}"c1" {grey2}B"
|
|
150 print"B {brown}********{grey2} *CCCCCCCCCCC*"
|
|
160 print"B {brown}*******{blk}**{brown}*{grey2} B{wht}grandma(g) {grey2}B"
|
|
170 print"B {brown}***{blk}*{brown}********{grey2} B{wht}"ga" {grey2}B"
|
|
180 print"B {brown}***{blk}**{brown}*********{grey2} B{wht}cost: {grey2}B"
|
|
190 print"B {brown}********{blk}**{brown}****{grey2} B{wht}"c2" {grey2}B"
|
|
200 print"B {brown}********{blk}**{brown}****{grey2} *CCCCCCCCCCC*"
|
|
210 print"B {brown}**************{grey2} B B"
|
|
220 print"B {brown}*{blk}*{brown}************{grey2} B B"
|
|
230 print"B {brown}*************{brown}*{grey2} B B"
|
|
240 print"B {brown}******{blk}**{brown}****{grey2} B B"
|
|
250 print"B {brown}*****{blk}**{brown}***{grey2} B B"
|
|
260 print"B {brown}********{grey2} B B"
|
|
270 print"B B B"
|
|
280 print"B B B"
|
|
290 print"B B B"
|
|
300 print"B B B"
|
|
310 print"B B B"
|
|
320 print"B B B"
|
|
330 print"*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"
|
|
|
|
1000 if ft$="0" then 5000
|
|
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
|
|
3025 print"{home}"ds$ds$l3$ca" "
|
|
3030 cg=cg+.04
|
|
3040 cc=cc+cg
|
|
3050 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
|
|
3060 ca=ca+1
|
|
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
|
|
4015 print"{home}"ds$"B you have ":rem stops from messing up the counter
|
|
3020 ga=ga+1
|
|
3025 print"{home}"ds$ds$ds$ds$ds$ds$ds$"{grey2}B {brown}***{blk}*{brown}********{grey2} B{wht}"ga
|
|
4030 cg=cg+.05
|
|
4040 cc=cc+cg
|
|
4050 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
|
|
4060 goto 1000
|
|
|
|
|
|
|
|
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"
|
|
5040 print"B {brown}*************{brown}*{grey2} B{wht}cost: {grey2}B"
|
|
5050 print"B {brown}******{blk}**{brown}****{grey2} B{wht}"c3" {grey2}B"
|
|
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 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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
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
|
|
6510 cc=cc-c4
|
|
6515 print"{home}"ds$"B{wht} you have ":rem stops from messing up the counter
|
|
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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|